gr.OPEN 255, 0,0,0, 0,0
GR.SCREEN sw,sh

WAKELOCK 3

LIST.CREATE N,SnowBall

GR.BITMAP.CREATE bmp,sw,sh
GR.BITMAP.CREATE bmp1,sw,sh

GR.BITMAP.DRAWINTO.START bmp1
GR.COLOR 255, 0,255,0
GR.TEXT.SIZE sw/8
GR.TEXT.ALIGN 2
GR.TEXT.SKEW -0.25
GR.TEXT.DRAW txt,sw/2,sh*0.5,"Merry Christmas"
GR.TEXT.DRAW txt,sw/2,sh*0.7,"And a"
GR.TEXT.DRAW txt,sw/2,sh*0.9,"Happy New Year"
GR.BITMAP.DRAWINTO.END


GR.BITMAP.DRAW BmpO,bmp ,0,0

GR.COLOR 255, 255,255,255

LET radius= sh/200
LET Nballs= 120
DIM cl[Nballs]
DIM fallSpeed[Nballs]
DIM wind[Nballs]
FOR i=1 TO Nballs
 LET fallSpeed[i]= RND()*10+3
 LET wind[i]= INT(RND()*7)-3
 LET x= RND()*sw
 GR.CIRCLE cl[i], x,0,radius
NEXT

GR.RENDER

DO
 FOR i=1 TO Nballs
  GR.MOVE cl[i], wind[i], fallSpeed[i]
  GR.GET.POSITION cl[i], x,y
  IF y<sh & (x>0 & x<sw) THEN
   GR.GET.BMPIXEL Bmp1, x,y ,A,R,G,B
   IF A+R+G+B= 510 THEN
    GR.BITMAP.DRAWINTO.START bmp
    GR.CIRCLE cl1, x,y, radius
    GR.BITMAP.DRAWINTO.END

    GR.BITMAP.DRAWINTO.START bmp1
    GR.CIRCLE cl1, x,y,radius
    GR.BITMAP.DRAWINTO.END

    GR.MODIFY cl[i],"x",RND()*sw, "y", 0
    LET fallSpeed[i]= RND()*10+3
    LET wind[i]= INT(RND()*9)-4
   ENDIF
  ELSE
   GR.BITMAP.DRAWINTO.START bmp
   GR.CIRCLE cl1, x,y-RND()*10,radius
   GR.BITMAP.DRAWINTO.END
   GR.MODIFY cl[i],"x",RND()*sw, "y", 0
   LET fallSpeed[i]= RND()*10+3
   LET wind[i]= INT(RND()*7)-3
  ENDIF
 NEXT

 GR.RENDER
UNTIL 0