;RotateImage-Pseudo-3D-Ergänzungen
;(nicht unbedingt für Echtzeit geeignet)
;
;DrawImageYaw dreht ein Bild an der Bildmittleren vertikalen Achse
;DrawImagePitch dreht ein Bild an der Bildmittleren horizontalen Achse
;
;von SpionAtom
;
;DrawImageYaw(pic, posX, posY, angle)
;DrawImagePitch(pic, posX, posY, angle)
;   pic         - ImageHandle
;   posX, posY   - Zeichen-Position
;   angle      - Drehwinkel

Graphics 320, 240, 0, 2
SetFont(LoadFont("Courier", 20))



   ;Beispielbild erstellen
   pic = CreateImage(210, 20)
   SetBuffer ImageBuffer(pic)
   For i = 1 To ImageWidth(pic) - 2: For j = 0 To    ImageHeight(pic) - 2
      WritePixel i, j, i * $10000 + j * $100
   Next: Next   
   Rect 0, 0, 210, 20, 0
   Text 0, 0, "S P I O N A T O M"
   
   
   
   SetBuffer BackBuffer()
   Repeat   
      a = (a + 1) Mod 360   
      Cls
      Text 0, 0, a
      DrawImageYaw pic, 55, 80, a * 2
      DrawimagePitch pic, 55, 140, a * 4
      Flip()   
   Until KeyDown(1)
   End
   
   
Function DrawImageYaw(pic, posX, posY, angle)
   w = ImageWidth(pic)
   h = ImageHeight(pic)
   r = w / 2
   npic = CreateImage(w, h)
   
   LockBuffer ImageBuffer(pic)
   LockBuffer ImageBuffer(npic)
   
      For x = 0 To w - 1
         For y = 0 To h - 1
            rpix = ReadPixelFast(x, y, ImageBuffer(pic))
            WritePixelFast(r - Sin(angle) * (r - x), y, rpix, ImageBuffer(npic))
         Next         
      Next
   
   UnlockBuffer ImageBuffer(pic)
   UnlockBuffer ImageBuffer(npic)
   DrawImage npic, posX, posY
End Function


Function DrawImagePitch(pic, posX, posY, angle)
   w = ImageWidth(pic)
   h = ImageHeight(pic)
   r = h / 2
   npic = CreateImage(w, h)
   
   LockBuffer ImageBuffer(pic)
   LockBuffer ImageBuffer(npic)
   
      For x = 0 To w - 1
         For y = 0 To h - 1
            rpix = ReadPixelFast(x, y, ImageBuffer(pic))
            WritePixelFast(x, r - Sin(angle) * (r - y), rpix, ImageBuffer(npic))
         Next         
      Next
   
   UnlockBuffer ImageBuffer(pic)
   UnlockBuffer ImageBuffer(npic)
   DrawImage npic, posX, posY
End Function

;Berechnet den Winkel zwischen der X-Achse und einer Geraden durch zwei Punkte
Function Winkel#(x1#,y1#,x2#,y2#)
 Return (360+ATan2(x1#-x2#,y1#-y2#)) Mod 360
End Function