Gears

clg

fastgraphics

dim x(3)

dim y(3)

dim rad(3)

dim init(3)

x[0]=150

y[0]=150

rad[0]=70

init[0]=0

x[1]=220

y[1]=220

rad[1]=35

init[1]=-.15

x[2]=90

y[2]=90

rad[2]=21

init[2]=.2

for rot = 0 to 100000

   for w = 0 to 2

      circle x[w],y[w],rad[w]-8

      tri = {0, 0, -5, rad[w], 5, rad[w]}

      for r = 0 to 2*pi step pi*7/rad[w]

           if w=1 or w=2 then clock = -rot

           if w=0 then clock = rot

           stamp x[w],y[w],1,r+init[w]+clock/(7*rad[w]),tri

       next r

    next w

    refresh

    clg

next rot