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)