Re: Point color
- To: mathgroup at smc.vnet.net
- Subject: [mg55979] Re: [mg55968] Point color
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Wed, 13 Apr 2005 01:10:03 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
>-----Original Message----- >From: fartous at mail15.com [mailto:fartous at mail15.com] To: mathgroup at smc.vnet.net >Sent: Tuesday, April 12, 2005 11:26 AM >To: mathgroup at smc.vnet.net >Subject: [mg55979] [mg55968] Point color > > >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 = Graphics[Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {.5, .5}}] Show[MapAt[{Red, PointSize[.03], #} &, d, {1, 5}]] -- hw