%%% Mr. Bekich
%%% Thursday, February 24, 2011
%%% 'face_STARTER.t'
%%% PURPOSE: Draw the beginning of a face.
setscreen ("graphics:max;max,title:Face Starter")

var x, y, x2, y2 : int
const DLY : int := 500 %% 500

Draw.FillBox (0, 0, maxx, maxy, 53)  %%% background

%%% face outline, use ???
Draw.FillOval (maxx div 2, maxy div 2, maxx div 3.3, maxx div 3.3, black) %%% Face
Draw.FillOval (maxx div 2, maxy div 2, maxx div 3.5, maxx div 3.5, yellow) %%% Face

%%% R Eye
Draw.FillArc (maxx div 2.8, maxy div 1.85, maxx div 10, maxx div 6, 0, 180, black)
Draw.FillArc (maxx div 2.8, maxy div 1.8, maxx div 12, maxx div 7, 0, 180, white)
Draw.FillOval (maxx div 2.5, maxy div 1.45, maxx div 50, maxx div 50, black)

%%% L Eye
Draw.FillArc (maxx div 1.6, maxy div 1.85, maxx div 10, maxx div 6, 0, 180, black)
Draw.FillArc (maxx div 1.6, maxy div 1.8, maxx div 12, maxx div 7, 0, 180, white)
Draw.FillOval (maxx div 1.49, maxy div 1.45, maxx div 50, maxx div 50, black)

%%% Mouth
Draw.FillArc (maxx div 1.9, maxy div 2.4, maxx div 6, maxx div 5, 180, 360, black)
Draw.FillArc (maxx div 1.9, maxy div 2.55, maxx div 6.8, maxx div 6, 180, 360, 110)
Draw.ThickLine (maxx div 3, maxy div 2.46, maxx div 2.5, maxy div 2.46, 18, black)
Draw.FillArc (maxx div 1.7, maxy div 6, maxx div 10, maxx div 10, 45, 188, 63)
for i : 0 .. 100
    Draw.Arc (maxx div 1.9, maxy div 2.4, maxx div (6 + i / 300), maxx div (5 + i / 290), 185, 355, black)
end for