gr.open 0,0,0,0,0,1
gr.screen sw,sh


gr.color 255,255,0,0,1
for y=1 to sw step 18
  for x=1 to sw step 18
    gr.circle c,x,y,3
  next
  gr.render
next
Gr.screen.to_bitmap red
gr.cls
Gr.bitmap.draw sprRed,Red,0,0


gr.color 255,0,255,0,1
for y=1 to sw step 18
  for x=1 to sw step 18
    gr.circle c,x+6,y+6,3
  next
  gr.render
next
gr.modify sprRed,"x",10000
Gr.screen.to_bitmap green
gr.cls


Gr.bitmap.draw sprRed,Red,0,0
Gr.bitmap.draw sprGreen,Green,0,0


gr.color 255,0,0,255,1
for y=1 to sw step 18
  for x=1 to sw step 18
    gr.circle c,x+7,y-2,3
  next
  gr.render
next

gr.modify sprRed,"x",10000
gr.modify sprGreen,"x",10000
Gr.screen.to_bitmap blue
gr.cls

Gr.bitmap.draw sprRed,Red,0,0
Gr.bitmap.draw sprGreen,Green,0,0
Gr.bitmap.draw sprBlue,Blue,0,0


sc=6



for i=1 to sc
Gr.scale 1/i, 1/i
gr.render
next


for i=1 to sw/2*sc step sc*4
  gr.modify sprRed, "x", i,"y", i
  gr.modify sprGreen, "x", i,"y", i
  gr.modify sprBlue, "x", i, "y", i
  gr.render
next

pause 2000


for i=1 to sw/2*sc step sc*2
  gr.move sprRed, 0, -sc
  gr.move sprGreen, 0,sc
  gr.render
next

pause 1000


for i=1 to sw/2*sc step sc*2
  gr.move sprRed, 0, sc
  gr.move sprGreen, 0,-sc
  gr.render
next

pause 1000


for i=sw/2*sc to 1 step -sc*4
  gr.modify sprRed, "x", i,"y", i
  gr.modify sprGreen, "x", i,"y", i
  gr.modify sprBlue, "x", i, "y", i
  gr.render
next




for i=sc to 1 step -1
Gr.scale 1/(i), 1/(i)
gr.render
next



for i=sw to sw/2 step -3
  gr.move sprRed, -3,-3
  gr.move sprGreen, -3,-3
  gr.move sprBlue, -3,-3
  gr.render
next

pause 1000


for i=1 to 5
Gr.scale i, i
gr.render
pause 50
next





do
until 0