;3D-Wellen, 2004 by Triton
Graphics 800,600,16,2
SetBuffer BackBuffer()
sizex = 75
sizey = 75
originx = GraphicsWidth()/2-sizex*2
originy = GraphicsHeight()/2
time1 = MilliSecs()

While Not KeyDown(1)
For a = 1 To 90 Step 1
   For x = 0 To sizex
      For y = 0 To sizey
         lx = (sizex/2)-x
         ly = (sizey/2)-y
         abstand# = Sqr((lx*lx)+(ly*ly))-a
         c# = Sin(abstand#*20)*6
         xneu = x+y
         yneu = (y-x)/2
         r=255-(Sin#(abstand#*20.0)+1.0)/2.0*255
         g=r
         b=r
         rgb=255*$1000000 + r*$10000 + g*$100 + b
         WritePixel xneu*2+originx,yneu*2+c+originy,rgb
         If KeyDown(1) Then End
      Next
   Next
   loops = loops+1
   Color 255,255,255
   Text 10, 10, fps+" FPS"
   If MilliSecs() - time1 > 1000 Then fps = loops:loops = 0:time1 = MilliSecs()
   Flip
   Cls
Next
Wend

;3D-Wellen, 2004 by Triton
Graphics 800,600,16,2
SetBuffer BackBuffer()
Const sizex = 75
Const sizey = 75
Const originx = 800/2-sizex*2
Const originy = 600/2
time1 = MilliSecs()

While Not KeyDown(1)
For a = 1 To 90 Step 1
   LockBuffer BackBuffer()
   For x = 0 To sizey
      lx = (sizex/2)-x
     la = (lx*lx)
      For y = 0 To sizey
         ly = (sizey/2)-y
         abstand# = Sqr(la+(ly*ly))-a
         c# = Sin(abstand#*20)*6
         xneu = x+y
         yneu = (y-x)/2
         r=255-(Sin#(abstand#*20.0)+1.0)*127.5
         rgb=255*$1000000 + r*$10000 + r*$100 + r
         WritePixelFast xneu*2+originx,yneu*2+c+originy,rgb
      Next
     If KeyDown(1) Then End
   Next
   UnlockBuffer BackBuffer()
   loops = loops+1
   Color 255,255,255
   Text 10, 10, fps+" FPS"
   If MilliSecs() - time1 > 1000 Then fps = loops:loops = 0:time1 = MilliSecs()
   Flip 0
   Cls
Next
Wend