(*^

::[	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; ]
                                                    A Smiley Face

The cell below draws a smiley face using the tools and, most importantly, the etiquette discussed in the notebooks -- Colors.ma,  Objects.ma,  and Etiquette.ma.  You may want to use this smiley face in the rest of this chapter or to work with one that you design.  Evaluate the next cell now to see this smiley face.
;[s]
12:0,1;65,0;123,2;154,0;185,1;194,0;197,1;207,0;214,1;226,0;332,2;382,0;384,-1;
3:6,13,9,Times,0,12,0,0,0;4,13,9,Times,1,12,0,0,0;2,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
Outline := Table[{2 Cos[2 Pi k/40], 2.5 Sin[2 Pi k/40]}, 
                  {k, 0, 40}]
                  
AllPoints := Join[Outline, 
                  {{0, 0}}, 
                  {{-0.5, 1}},
                  {{0.5, 1}},
                  {{-1.0, -0.7}},
                  {{-0.5, -1.2}},
                  {{0.5, -1.2}},
                  {{1.0, -0.7}}]
               

Face := {RGBColor[0.4, 0.4, 0.4], Thickness[0.01],
         Line[Table[AllPoints[[k]], {k, 1, 41}]]}
         
Nose := {RGBColor[0, 0, 0],
         PointSize[0.04],
         Point[AllPoints[[42]]]}
         
LeftEye  := {RGBColor[0, 0, 1],
             PointSize[0.04],
             Point[AllPoints[[43]]]}
            
RightEye := {RGBColor[0, 0, 1],
             PointSize[0.04],
             Point[AllPoints[[44]]]}
             
Mouth := {RGBColor[1, 0, 0],
          Thickness[0.015],
          Line[{AllPoints[[45]], AllPoints[[46]],
                AllPoints[[47]], AllPoints[[48]]}]}
          
Show[Graphics[{Face, Nose, LeftEye, RightEye, Mouth}],
          PlotRange -> {{-5, 5}, {-5, 5}},
          Axes -> False,
          AspectRatio -> Automatic]
^*)