Code: Select all
If OpenWindow(0, 0, 0, 400, 200, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 200)
If StartVectorDrawing(CanvasVectorOutput(0))
VectorFont(LoadFont(0, "Times New Roman", 60, #PB_Font_Bold))
VectorSourceColor(RGBA(0, 0, 255, 128))
MovePathCursor(50, 50)
DrawVectorText("Test")
SkewCoordinates(45, 0)
VectorSourceColor(RGBA(255, 0, 0, 128))
MovePathCursor(50, 50)
DrawVectorText("Test")
StopVectorDrawing()
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf

