Posted by: programmervb on: June 3, 2008
DECLARE SUB CURVE (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION DIST! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION RADIANS! (X!)
DECLARE FUNCTION MOVEX! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION MOVEY! (X1!, Y1!, X2!, Y2!)
‘*********************************
‘* *
‘* A FRACTAL COASTLINE-RECURSE *
‘* *
‘*********************************
DEFSNG A-Z
CLEAR , , 12000
SCREEN 2
CONST PI = 3.14159
WINDOW (-500!, 500!)-(500!, -500!)
X1 = -250: Y1 = 200
X2 = 250: Y2 = 200
CALL [...]