home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
OS2
/
LB04.ZIP
/
MANDALA.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-12-29
|
1KB
|
58 lines
' Plot a mandala with 20 vertices
dim verticesX(100)
dim verticesY(100)
verticesQty = 20
diameter = 400
radius = int(diameter/2)
angle = 360/verticesQty
' Open the graphics window
open "Mandala" for graphics_fs as #mand
print #mand, "home"
print #mand, "north"
print #mand, "up"
' Create vector table
for i = 1 to verticesQty
' Place turtle in center of screen pointing to top of screen
print #mand, "home"
print #mand, "north"
' Turn to next vector and 'go' there
print #mand, "turn "; i * angle
print #mand, "go "; radius
' Ask for turtle position in xy
print #mand, "posxy"
input #mand, vrtcX, vrtcY
' Add to table
verticesX(i) = vrtcX
verticesY(i) = vrtcY
next i
' Draw - put the pen down
print #mand, "down"
' Draw each individual line in the mandala
for a = 1 to verticesQty
for b = a to verticesQty
print #mand, "line "; verticesX(a); " "; verticesY(a); " "; verticesX(b); " "; verticesY(b)
next b
next a
' Force the drawing to 'stick'
print #mand, "flush"
' Pause to look at the drawing
input r$
' Close the window
close #mand