MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Point color

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56020] Re: Point color
  • From: Bill Rowe <readnewsciv at earthlink.net>
  • Date: Wed, 13 Apr 2005 01:11:08 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

On 4/12/05 at 5:26 AM, fartous at mail15.com wrote:


>this will show 5 dots , one point (.5,.5) colored with

>d = Graphics[{Point[{0, 0}], Point[{1, 0}], Point[{1, 1}], Point[{0, 1}],
>      {Red, PointSize[0.03], Point[{.5, .5}]}}]

>Show[d];

>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

PointSize and color directives remain in effect until changed. So, setting the point size and color must occur before the point you want that color and size. So, this will do what you want

d = Graphics[{Point /@ {{0, 0}, {1, 0}, {1, 1}, {0, 1}}, 
     Hue[0], PointSize[0.03], Point[{0.5, 0.5}]}]; 
Show[d]; 
--
To reply via email subtract one hundred and four


  • Prev by Date: Algebra in Mathematica
  • Next by Date: Re: Point color
  • Previous by thread: Re: Point color
  • Next by thread: Re: Point color