PureBoard

Code: Alles auswählen

Procedure Main()
    If OpenWindow(0, 0, 0, 400, 200, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
      CanvasGadget(0, 0, 0, 400, 200)
      
      image = CreateImage(#PB_Any, 64, 64, 32, #Red)
      If StartVectorDrawing(CanvasVectorOutput(0))
        
        MovePathCursor(120, 0)
        RotateCoordinates(120, 0, 35)
        DrawVectorImage(ImageID(image))
        
        StopVectorDrawing()
      EndIf
    EndIf
  EndProcedure
  
  Main()