penup

setxy :x :y

setheading :start

forward :radius

right 90

make "amt :radius * tan 1

pendown

repeat :angle [fd :amt rt 1]

penup

setxy :x :y

end

to draw.circle :x :y :radius

draw.arc :x :y :radius 0 360

end

to draw.eye :leftright

make "x 40 * :leftright

make "y 25

draw.circle :x :y 20

paint 3 3

end

to draw.face

draw.circle 0 0 100

end

to draw.mouth

draw.arc 0 0 70 120 120

end

to init

clearscreen

setpc 3

hideturtle

end