Graphics 640,480,16,1

Dim sintab(359)
For i=0 To 359
  sintab(i)=Sin(i)*20
Next

font=LoadFont("Arial",48,1,0,0)
image=textwave_create("GAME OVER",font)

While Not KeyHit(1)
  Cls
   Color 255,0,0
   Rect 0,0,640,480
  angle=(angle+3) Mod 360
  textwave_draw(image,197,216,angle)
  Flip
Wend
FreeFont font
FreeImage image
End



;---------------------------------------------------------------------
;image=Identität eines Bildes
;x    =Bildschirmkoordinate X
;y    =Bildschirmkoordinate Y
;angle=Winkel in Grad (0-359)
;---------------------------------------------------------------------
Function textwave_draw(image,x,y,angle)
  width =ImageWidth (image)
  height=ImageHeight(image)
  For i=0 To width-1
    DrawImageRect image,x+i,y+sintab((angle+i) Mod 360),i,0,1,height
  Next
End Function



;---------------------------------------------------------------------
;text=Beliebiger Text
;font=Identität einer Schrift
;---------------------------------------------------------------------
Function textwave_create(txt$,font)
  SetFont font
  width =StringWidth (txt$)
  height=StringHeight(txt$)
  image =CreateImage (width,height)
  image2=CreateImage (width,height)
  SetBuffer ImageBuffer(image2)
  Color 255,255,255
  Text 0,0,txt$
  MaskImage image2,255,255,255
  SetBuffer ImageBuffer(image)
  For i=0 To width-1
    pro=250-(400*Abs(width/2-i))/width
    Color pro,pro,pro/2
    Rect i,0,1,height,1
    DrawImageRect image2,i,0,i,0,1,height
  Next
  SetBuffer BackBuffer()
  FreeImage image2
  Return image
End Function

Import "bbtype.bmx"
Import "bbvkey.bmx"

Graphics 640,480

Global sintab[359+1]
For i=0 To 359
  sintab(i)=Sin(i)*20
Next

image=textwave_create("GAME OVER",font)

While Not VKeyHit(1)
  Cls
   
  angle=(angle+3) Mod 360
  textwave_draw(image,197,216,angle)
  Flip
Wend
End



'---------------------------------------------------------------------
'image=Identität eines Bildes
'x    =Bildschirmkoordinate X
'y    =Bildschirmkoordinate Y
'angle=Winkel in Grad (0-359)
'---------------------------------------------------------------------
Function textwave_draw(image,x,y,angle)
  width =ImageWidth (image)
  height=ImageHeight(image)
  For i=0 To width-1
    DrawImageRect image,x+i,y+sintab((angle+i) Mod 360),i,0
  Next
End Function



'---------------------------------------------------------------------
'text=Beliebiger Text
'font=Identität einer Schrift
'---------------------------------------------------------------------
Function textwave_create(txt$,font)
'  SetFont font
  width =TextWidth (txt$)
  height=TextHeight (txt$)
  image =CreateImage (width,height)
  image2=CreateImage (width,height)
  SetColor 255,255,255
  DrawText txt$,0,0
 
  For i=0 To width-1
    pro=250-(400*Abs(width/2-i))/width
    SetColor pro,pro,pro/2
    DrawRect i,0,1,height
    DrawImageRect image2,i,0,i,0
  Next
 
  Return image
End Function