PureBoard

Code: Alles auswählen

Procedure RotiereEinBild(bild, richtung)
 Protected i.i, k.i
 Protected rbild.i
 Protected w.i = ImageWidth(bild)
 Protected h.i = ImageHeight(bild)
 Protected Dim p(w,h)
 
  If IsImage(bild)
    
    ;Lese die Pixel
    StartDrawing( ImageOutput(bild) )
      For k=0 To h-1
        For i=0 To w-1
          p(i,k)=Point(i,k)
        Next
      Next
    StopDrawing()
    
    ;Drehrichtung
    If richtung = 0 ;"90° oder Pi/2"
      If w<>h
        Swap w,h
        rbild = CreateImage(#PB_Any,w+1,h+1)
        If IsImage(rbild)
          FreeImage(bild)
        EndIf
      EndIf
      
      StartDrawing( ImageOutput(rbild) )
      For k=0 To h
        For i=0 To w
          Plot(i,k, p(k,w-i))
        Next
      Next
      StopDrawing()
    ElseIf richtung = 1 ;"180° oder Pi"
      rbild = CreateImage(#PB_Any,w+1,h+1)
      If IsImage(rbild)
        FreeImage(bild)
      EndIf
      
      StartDrawing( ImageOutput(rbild) )
      For k=0 To h-1
        For i=0 To w-1
          kk = (h-1)-k
          ii = (w-1)-i
          Plot(i,k, p(ii,kk))
        Next
      Next
      StopDrawing()
    ElseIf richtung = 2 ;"270° oder 3/2 * Pi"
      If w<>h
        Swap w,h
        rbild = CreateImage(#PB_Any,w+1,h+1)
        If IsImage(rbild)
          FreeImage(bild)
        EndIf
      EndIf
      
      StartDrawing( ImageOutput(rbild) )
      For k=0 To h
        For i=0 To w
          kk = (h)-k
          ii = (w)-i
          Plot(i,k, p(kk,ii))
        Next
      Next
      StopDrawing()
    EndIf
 
    ProcedureReturn rbild
  EndIf
EndProcedure

Code: Alles auswählen

uniform sampler2D color_texture;
uniform vec2 resolution;

void main(){
    float angle = 1.570796327; //270°
    vec2 pos = gl_FragCoord.xy/resolution;
    pos.x = 1.0 - pos.x;
    float sin_factor = sin(angle);
    float cos_factor = cos(angle);
    pos = (-pos - 0.5) * mat2(cos_factor, sin_factor, -sin_factor, cos_factor);
    pos += 0.5;

    gl_FragColor = texture2D(color_texture, -pos);
}

Code: Alles auswählen

Procedure RotiereEinBild(bild, richtung)
  Protected rbild.i
  If IsImage(bild)
    If richtung = 0
      ;90°
      rbild = Createbild(#PB_Any, ImageHeight(bild), ImageWidth(bild))
      If StartVectorDrawing(ImageVectorOutput(rbild))
        MovePathCursor((ImageWidth(rbild)/2)+(ImageHeight(bild)/2), 0)
        RotateCoordinates(0, 0, 90)
        DrawVectorbild(ImageID(bild))
        StopVectorDrawing()
      EndIf
    ElseIf richtung = 1
      ;180°
      rbild = Createbild(#PB_Any, ImageWidth(bild), ImageHeight(bild))
      If StartVectorDrawing(ImageVectorOutput(rbild))
        MovePathCursor((ImageWidth(rbild)/2)+(ImageWidth(bild)/2), (ImageHeight(rbild)/2)+(ImageHeight(bild)/2))
        RotateCoordinates(0, 0, 180)
        DrawVectorbild(ImageID(bild))
        StopVectorDrawing()
      EndIf
    ElseIf richtung = 2
      ;270°
      rbild = Createbild(#PB_Any, ImageHeight(bild), ImageWidth(bild))
      If StartVectorDrawing(ImageVectorOutput(rbild))
        MovePathCursor(0, ImageHeight(rbild))
        RotateCoordinates(0, 0, 270)
        DrawVectorbild(ImageID(bild))
        StopVectorDrawing()
      EndIf
    EndIf
    ProcedureReturn rbild
  EndIf
EndProcedure

Code: Alles auswählen

Procedure PropSize(oldWidth, oldHeight, newWidth, newHeight = #PB_Any)
  If newHeight = #PB_Any
    ProcedureReturn newWidth * oldHeight / oldWidth
  Else
    ProcedureReturn newHeight * oldWidth / oldHeight
  EndIf
EndProcedure

Procedure RotateImage_(img.s, dir, w, h) ;img = Übergabe des Bildpfades
  Protected rspr.i, tmp_rspr.i, rimg.i
  rspr = LoadSprite(#PB_Any, img)
  If IsSprite(rspr)
    ZoomSprite(rspr, PropSize(SpriteWidth(rspr), SpriteHeight(rspr), #PB_Any, h), h)
    If dir = 0
      RotateSprite(rspr, 90, #PB_Absolute)
    ElseIf dir = 1
      RotateSprite(rspr, 180, #PB_Absolute)
    ElseIf dir = 2
      RotateSprite(rspr, 270, #PB_Absolute)
    EndIf
    ClearScreen(RGB(0,0,0))
    DisplaySprite(rspr,(w/2)-(SpriteWidth(rspr)/2), (h/2)-(SpriteHeight(rspr)/2))
    tmp_rspr = GrabSprite(#PB_Any, 0, 0, w, h)
    If IsSprite(tmp_rspr)
      FreeSprite(rspr)
    EndIf
    StartDrawing(SpriteOutput(tmp_rspr))
    rimg = GrabDrawingImage(#PB_Any, 0, 0, SpriteWidth(tmp_rspr), SpriteHeight(tmp_rspr))
    StopDrawing()
    ProcedureReturn rimg
  Else
    Debug "Fehler!"
  EndIf
EndProcedure