(*^

::[	frontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.1";
	macintoshStandardFontEncoding; 
	paletteColors = 128; automaticGrouping; currentKernel; 
	fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8,  24, "Times"; ;
	fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6,  18, "Times"; ;
	fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6,  14, "Times"; ;
	fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20,  18, "Times"; ;
	fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15,  14, "Times"; ;
	fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12,  12, "Times"; ;
	fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; ;
	fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5,  12, "Courier"; ;
	fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
	fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5,  12, "Courier"; ;
	fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier"; ;
	fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5,  12, "Courier"; ;
	fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287,  12, "Courier"; ;
	fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic,  10, "Geneva"; ;
	fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = leftheader, inactive, L2,  12, "Times"; ;
	fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7,  12, "Times"; ;
	fontset = leftfooter, inactive, L2,  12, "Times"; ;
	fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  10, "Times"; ;
	fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
	fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7,  12, "Times"; ;
]
:[font = special1; inactive; preserveAspect; ]
                                           Good Graphics Etiquette

All graphics figures are made up of points.  Good graphics etiquette requires that all the points used be placed in a list and then referred to as elements of this list.  This may seem awkward -- it is, but it will save some work later on.  The cell below illustrates good graphics etiquette.
;[s]
2:0,1;66,0;361,-1;
2:1,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,0,0,0;
:[font = input; preserveAspect; ]
AllPoints := {{-1, 0}, {1, 0}, {0, 2}}

LeftBottom  := {RGBColor[1, 0, 0], PointSize[0.04],
                Point[AllPoints[[1]]]}
RightBottom := {RGBColor[0, 0, 1], PointSize[0.04],
                Point[AllPoints[[2]]]}
Apex        := {RGBColor[1, 0, 1], PointSize[0.04],
                Point[AllPoints[[3]]]}

Base      := 
   {RGBColor[0.3, 0.3, 0.3],
    Thickness[0.02], 
    Line[{AllPoints[[1]], AllPoints[[2]]}]}
LeftSide  := 
   {RGBColor[1, 1, 0],
    Thickness[0.02],
    Line[{AllPoints[[1]], AllPoints[[3]]}]}
RightSide := 
   {RGBColor[0, 1, 1],
    Thickness[0.02], 
    Line[{AllPoints[[2]], AllPoints[[3]]}]}
    
Triangle  := {Base, LeftSide, RightSide,
              LeftBottom, RightBottom, Apex}
   
Show[Graphics[Triangle],
               PlotRange -> {{-2, 2}, {-1, 3}},
               Axes -> True,
               AspectRatio -> Automatic]
:[font = special1; inactive; preserveAspect; ]
Design and draw a  "smiley face" with two blue eyes, one nose, and one red mouth using good graphics etiquette.  Your smiley face should have its nose in its center and the center should be located at the origin. 
;[s]
1:0,1;214,-1;
2:0,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,65535,0,0;
^*)