22 lines
407 B
Text
22 lines
407 B
Text
pi=3.141592
|
|
s=.5
|
|
|
|
xp=320:yp=100:size=150
|
|
GOSUB DrawYY
|
|
|
|
xp=500:yp=40:size=50
|
|
GOSUB DrawYY
|
|
|
|
END
|
|
|
|
DrawYY:
|
|
CIRCLE (xp,yp),size,,,,s
|
|
CIRCLE (xp,yp+size/4),size/8,,,,s
|
|
CIRCLE (xp,yp-size/4),size/8,,,,s
|
|
CIRCLE (xp,yp+size/4),size/2,,.5*pi,1.5*pi,s
|
|
CIRCLE (xp,yp-size/4),size/2,,1.5*pi,2*pi,s
|
|
CIRCLE (xp,yp-size/4),size/2,,0,.5*pi,s
|
|
PAINT (xp,yp-size/4)
|
|
PSET (xp,yp)
|
|
PAINT (xp+size/4,yp)
|
|
RETURN
|