FN.DEF setColorFile(n)
 GR.CLS
 b = 5 : h = 2
 GR.BITMAP.CREATE destiRect, b, h
 GR.BITMAP.DRAWINTO.START destiRect
 GR.COLOR 255, 51, 204,255
 GR.RECT dRbG1, 0,0,5,2

 GR.SET.ANTIALIAS 1
 GR.COLOR 255, 0, 116, 154
 GR.RECT dRbG5, 0,0,1,3
 GR.RECT dRbG6, 4,0,5,3
 IF n = 2 | n = 4
  GR.COLOR 255, 182, 70, 231
  GR.RECT dRbG7, 1,0,4,1
  GR.COLOR 255, 248, 8, 221
  GR.RECT dRbG8, 2,0,3,1
 ENDIF
 GR.SET.ANTIALIAS 0
 GR.BITMAP.DRAWINTO.END
 GR.BITMAP.SAVE destiRect, "bgColor.png"

 GR.BITMAP.SCALE destiRect1, destiRect, 72, 48, 0
 GR.BITMAP.DRAW bo1, destiRect1, 100,200
 GR.BITMAP.SCALE destiRect2, destiRect, b*1, h*1, 1
 IF n > 2
  GR.BITMAP.SCALE destiRect, destiRect2, b*4, h*4, 1
  GR.BITMAP.SCALE destiRect2, destiRect, b*8, h*8, 1
 ENDIF
 GR.BITMAP.SCALE destiRect, destiRect2, 720,480, 1

 GR.BITMAP.DRAW bo2, destiRect, 10,250
 GR.RENDER

FN.END

n = 1
GR.OPEN 255,255,100,0,1,-1
CALL setColorFile(n)
TIMER.SET 2500
DO
 PAUSE 100
UNTIL 0
GR.CLOSE

ONTIMER:
 ++n
 CALL setColorFile(n)
 IF n > 3 THEN TIMER.CLEAR
TIMER.RESUME