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