Re: Point color

*To*: mathgroup at smc.vnet.net*Subject*: [mg56000] Re: Point color*From*: Peter Pein <petsie at arcor.de>*Date*: Wed, 13 Apr 2005 01:10:34 -0400 (EDT)*References*: <d3g8rh$ssn$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

fartous at mail15.com wrote: > 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 > d[[1, -1]] = {Red, PointSize[3/100], d[[1, -1]]}; Show[d]; or if {.5,.5} is at an unknown position in the list: Show[d /. p : Point[{.5, .5}] -> {Red, PointSize[.03], p}] -- Peter Pein Berlin