Graphics 800,600,0,2
AppTitle "Drehtext"

Global Text_winkel
Global Text_x, Text_y
Global Text_x2, Text_y2
Global Text_Text$
Global Text_Image
Dim    Text_Pixel(1,1)

SetFont loadfont("Arial",20,1)

SetBuffer BackBuffer()
Repeat
   i=i+5
   If i>360 Then i=1

   Color 255,00,0
   Drawtext "Flubber (Winkel "+i+"°))",400,300,i
   
   Flip
   Cls
Until KeyDown(1)
End

;---------------------------------------------------------
Function drawtext(Text_Text$,Text_x,Text_y,Text_winkel)
   Text_Image=createimage( StringWidth(Text_text),StringHeight(Text_Text) )
   SetBuffer ImageBuffer(Text_Image)
   Dim Text_Pixel(StringWidth(Text_Text),StringHeight(Text_Text))
   
   Text 0,0,Text_Text$
   
   LockBuffer ImageBuffer(Text_Image)
   For Text_x2 = 1 To StringWidth(Text_Text)
      For Text_y2 = 1 To StringHeight(Text_Text)
         Text_Pixel(Text_x2,Text_y2) = ReadPixelFast(Text_x2,Text_y2)
      Next
   Next
   UnLockBuffer ImageBuffer(Text_Image)
   
   SetBuffer BackBuffer()
   LockBuffer BackBuffer()
   For Text_x2 = 1 To StringWidth(Text_Text)-1
      For Text_y2 = 1 To Stringheight(Text_Text)-1
         If Text_Pixel(Text_x2,Text_y2)<>0 Then WritePixelFast Text_x2*Cos(Text_winkel)-Text_y2*Sin(Text_winkel)+Text_x , Text_x2*Sin(Text_winkel)+Text_y2*Cos(Text_winkel)+Text_y,Text_Pixel(Text_x2,Text_y2)      
      Next
   Next
   UnLockBuffer BackBuffer()
   
End Function