PureBasic Forums - English

Code: Select all

EnableExplicit

Macro Ubound (array)
   (PeekL(@array-8)-1)
EndMacro

Structure point_xy
   x.l
   y.l
EndStructure


Procedure Polygon (points.point_xy(1), color.l, connect.l=#True)
   Protected i

   For i = 1 To Ubound(points())
      LineXY(points(i-1)\x, points(i-1)\y, points(i)\x, points(i)\y, color)
   Next
   If connect
      LineXY(points(Ubound(points()))\x, points(Ubound(points()))\y, points(0)\x, points(0)\y, color)
   EndIf
EndProcedure


;-- Demo
Dim points.point_xy(4)

points(0)\x = 40: points(0)\y = 40
points(1)\x = 50: points(1)\y = 60
points(2)\x = 70: points(2)\y = 60
points(3)\x = 60: points(3)\y = 30
points(4)\x = 50: points(4)\y = 30

Define width.l, height.l, color.l, event.l
Width = 100
Height = 100
Color = 0

If OpenWindow(0, 0, 0, Width, Height, "Polygon", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   If StartDrawing(WindowOutput(0))
      Polygon(points(), color, #False)
      StopDrawing()
   EndIf

   Repeat
      Event = WaitWindowEvent()
   Until Event = #PB_Event_CloseWindow
EndIf