Re: Point color
- To: mathgroup at smc.vnet.net
- Subject: [mg56013] Re: [mg55968] Point color
- From: "David Park" <djmp at earthlink.net>
- Date: Wed, 13 Apr 2005 01:11:00 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
If you want different directives for different points you are going to have
to separate them. I would tend to write everything in the Show statement as
follows...
Show[Graphics[
{Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}},
Red, PointSize[0.03], Point at {0.5, 0.5}}]];
If you wanted to generate the graphics outside the Show statement and wanted
different directives for different points you could use the MapThread
statement. (In this particular case this is not the easiest construction,
but it might be the easiest if you were actually going to have different
directives for each point.)
d = Graphics@
MapThread[{#1, #2, Point[#3]} &,
{{Black, Black, Black, Black, Red},
{PointSize[0.01], PointSize[0.01], PointSize[0.01],
PointSize[0.01], PointSize[0.03]},
{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0.5, 0.5}}}];
Show[d];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: fartous at mail15.com [mailto:fartous at mail15.com]
To: mathgroup at smc.vnet.net
this will show 5 dots , one point (.5,.5) colored with Red
d = Graphics[{Point[{0, 0}], Point[{1, 0}], Point[{1, 1}], Point[{0, 1}],
{Red, PointSize[0.03], Point[{.5, .5}]}}]
Show[d];
but in other form:
d = Graphics[Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {.5, .5}}]
Show[d]
where should i insert Red to color one point (.5,.5) in Red, and its size to
.03
regards