//
// Program: Teddy Zoomer
// Author:  Chris Peterson
//
Ultra-SiMPLE
xsize=xpixels()
ysize=ypixels()
open screen (1)
size=1.0; grow=1
Do
   select screen (1); cls (2); delay (10)
   teddy (xsize/2-50*size, ysize/2-50*size, size) @
   select screen (0); bitblt screen (1)
   If (grow) size=size*1.025
   Else      size=size/1.025
   If (size<1.0) grow=1
   If (size>25)  grow=0
   If readkey()  Break
Loop
close screen (1); quit

Task teddy (Int x, Int y, Float z)
line size (z+0.5)
line color (rgb(128,128,128))
solid color (rgb(128,128,128))
point color (rgb(128,128,128))
line color (rgb(0,0,0))
solid color (rgb(96,55,1))
filled circle (50*z+x, 60*z+y, 39*z)
filled circle (80*z+x, 10*z+y, 20*z)
filled circle (20*z+x, 10*z+y, 20*z)
solid color (rgb(202,202,202))
filled ellipse (40*z+x, 50*z+y, 6*z, 11*z)
filled ellipse (60*z+x, 50*z+y, 6*z, 11*z)
solid color (rgb(0,0,0))
filled ellipse (40*z+x, 55*z+y, -3*z, -5*z)
filled ellipse (60*z+x, 55*z+y, -3*z, -5*z)
filled ellipse (50*z+x, 70*z+y, -9*z, -5*z)
filled triangle (35*z+x, 36*z+y, 45*z+x, 36*z+y, 40*z+x, 33*z+y)
filled triangle (55*z+x, 36*z+y, 65*z+x, 36*z+y, 60*z+x, 33*z+y)
solid color (rgb(157,12,5))
filled triangle (35*z+x, 80*z+y, 66*z+x, 80*z+y, 50*z+x, 88*z+y)
solid color (rgb(253,1,2))
solid ellipse (50*z+x, 84*z+y, -4*z, -1*z)