|
|
| Everything HP200LX: Knowledge, Products, Service |
|
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
|
|
Copyright © 2005 Thaddeus Computing Inc
<