Demonstration of Graphics Directives for Colour, Size, etc.

(* Plot one fat green point *)  Show[Graphics[{RGBColor[0, 1, 0], PointSize[.025], Point[{.1, .2}]}]] ;

c = {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]} ; ptsz = PointSize[.025] ;

n = 50 ; plist = {} ; For[i = 1, i <= n + 1, i ++,   col = c[[1 + Mod[i, 3]]] ;  x = (i - 1)/n ;  y = Sin[Pi * (i - 1)/n] ;  p = Graphics[{col, ptsz, Point[{x, y}]}] ;  plist = Append[plist, p] ;  ] ; Show[plist]


Converted by Mathematica  (January 8, 2003)