PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 400, 200, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CanvasGadget(0, 0, 0, 400, 200)
  
  LoadImage(0, #PB_Compiler_Home + "examples/Sources/Data/PureBasicLogo.bmp")
  LoadImage(1, #PB_Compiler_Home + "examples/Sources/Data/Geebee2.bmp")
  
  CreateImage(2,128,128,32,#PB_Image_Transparent)
  StartVectorDrawing(ImageVectorOutput(2))
  AddPathCircle(64,64,64)
  ClipPath()
  MovePathCursor(0, 0)
  DrawVectorImage(ImageID(1),255)
  VectorSourceColor(RGBA(255, 255, 0, 255))
  AddPathCircle(64,64,64)
  StrokePath(10)
  StopVectorDrawing()
  
  CreateImage(3,128,128,32,#PB_Image_Transparent)
  StartVectorDrawing(ImageVectorOutput(3))
  AddPathEllipse(64,64,64,32)
  ClipPath()
  MovePathCursor(0, 0)
  DrawVectorImage(ImageID(1),255)
  StopVectorDrawing()
  
  StartVectorDrawing(CanvasVectorOutput(0))    
  MovePathCursor(0, 0)
  DrawVectorImage(ImageID(0), 255,400,200)
  
  MovePathCursor(10, 10)
  DrawVectorImage(ImageID(2), 255)
  
  MovePathCursor(200, 0)
  DrawVectorImage(ImageID(3), 255)
  
  StopVectorDrawing()
  FreeImage(1)
  FreeImage(2)
  FreeImage(3)
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf