RainBoxCls() Function - PlayBASIC Source Code

RainBoxCls()   Function   - PlayBASIC Source Code
https://www.underwaredesign.com/forums/index.php?topic=4627.0




 setfps 10

   StartRGB = $223344
   EndRGB   = $f000ff
   frame =10

   do

      RainBowCls(StartRGB,EndRGB)

      frame--
      if frame<0
         StartRGB = EndRGB
         EndRGB   = RndRGB()
         Frame=10
      endif


      sync
   loop spacekey()

explicit true

Function RainBowCLS(StartRGB,DestRGB)

      local lp,w,h,Scaler#
      w=getsurfacewidth()
      h=getsurfaceheight()

      Scaler#=100.0/h
      for lp =0 to h-1
         local NewRGB=RGBAlphaBlend(StartRGB,DestRGB, lp*Scaler#)
         boxc 0,lp,w,lp+1,true,NewRGB
      next

EndFunction

explicit false