19 lines
311 B
Plaintext
19 lines
311 B
Plaintext
#title Poly [RCBasic Doc]
|
|
#header sub Poly(n, byref x, byref y)
|
|
|
|
Draws a polygon
|
|
|
|
#list ul
|
|
#li n - Number of points in the polygon
|
|
#li x, y - Array where the points are stored
|
|
#/list
|
|
|
|
#code
|
|
Dim x[3], y[3]
|
|
x[0] = 50 : y[0] = 50
|
|
x[1] = 90 : y[1] = 90
|
|
x[2] = 10 : y[1] = 90
|
|
|
|
Poly(3, x, y) 'Draws a triangle
|
|
#/code
|