Graphics 800,600
SetBuffer BackBuffer()

Global Welle
Dim WellenAnimation(3)

InitialisiereWelle()

While Not KeyDown(1)
 Cls
 ZeichneWellen
 Flip
Wend
End

Function InitialisiereWelle()
 Welle = CreateImage(2,20)
 SetBuffer ImageBuffer(Welle)
  Cls
  For x = 0 To 1
   For y = 0 To 19
    WritePixel x,y,(20-y) * 255 / 20 * $10101
   Next
  Next
 SetBuffer BackBuffer()
End Function

Function ZeichneWellen()
 For t = 1 To 3
  WellenAnimation(t) = (WellenAnimation(t) + t) Mod 360
  For x = 1 To 800 Step 2
   DrawBlock Welle,x,500+t*18+Cos(WellenAnimation(t)+x*3)*(4-t/2)*2.5
  Next
 Next
End Function

;
;
;
; On screen instructions where needed
; (Mouse X / Y and mouse buttons)
;
; ESC to skip to next effect
;
; ESC to quit after last effect



bitmap$="blogo.bmp"                  ; Our background bitmap
                              ; (any 640x480 .bmp piccy would do)

Graphics 640,480                  ;  Set the display resolution

Global back
back=LoadAnimImage(bitmap$,640,1,0,480)   ; Try to load the bitmap
                              ;
If Not back Then End               ; Quit if bitmap not loaded

SetBuffer BackBuffer()               ; Double buffer for a flicker free display



sine_wibble()                     ; Execute each function in turn               

End                              ; End program


Function sine_wibble()
   lop#=0
   start#=0
   amp#=1
   freq#=1
   oldx#=0
   Repeat
      Cls
      oldx#=oldx+(MouseX()-oldx)/2
      oldy#=oldy+(MouseY()-oldy)/2
      If MouseDown(2)
         amp=oldx/80+1
      End If
      If MouseDown(1)
         freq#=oldy/100+1
      End If
      start=start+freq Mod 359
      For lop=0 To 479
         DrawImage back,Sin(lop*freq+start)*(amp*40),lop,lop
      Next
      Rect oldx-7,oldy,15,1
      Rect oldx,oldy-7,1,15
      Text 10,10,"AMPLITUDE = "+amp+"  ( Mouse X  +  RMB )"
      Text 10,30,"FREQUENCY = "+freq+"  ( Mouse Y  +  LMB )"
      Flip
   Until KeyDown(1)
   Repeat
      Cls
      Flip
   Until Not KeyDown(1)
End Function

Graphics 640,480,0,2
SetBuffer BackBuffer()
Color 150,150,250

While Not KeyHit(1)
  Cls

  wave#=(wave#+10) Mod 360
  For i=1 To 639
    h=Sin#(wave#+i)*10+Sin#(i)*10+100
    Rect i,479-h,1,h,1
  Next
 
  Flip
Wend

;wellen, by Triton, 23.12.2003
Graphics 640,480,16,2
SetBuffer BackBuffer()

While Not KeyDown(1)

e=e+5
If e > 360 Then e = 0

For x = e To e+GraphicsWidth() Step 1
   Color 0,Sin(e)*30+100,Sin(e)*50+100
   y = Sin(e+x)*10+Sin(e)*10
   Line x-e,y+GraphicsHeight()/2,x-e,GraphicsHeight()
Next
Flip
Cls
Wend