Raster Bar

[kevin]

 
 Raster Bars

PlayBASIC Code: [Select]

   Setfps 10
   
   Screen=NewFxImage(GetScreenWidth(),GetScreenHeight())

   Do 

      rendertoimage Screen
      inkmode 1+32
      COlour=rndrgb()
      RowHeight=rndrange(16,256)
      ypos=rndrange(0,GetScreenHeight())
      lockbuffer
         For lp=0 to RowHeight
            Angle#=(180.0/RowHeight)*lp
            linec 0,ypos+lp,1000,ypos+lp,rgbfade(COlour,sin(Angle#)*100) 
         next

      unlockbuffer

      rendertoscreen
      drawimage screen,0,0,false
      
      Sync
   loop
   

 Related PlayBASIC Source Code:

  Palette Mapped / Raster Bar Examples