Quick Basic in Application

Posts Tagged ‘Converts Degrees to Radians

Converts Degrees to Radians

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 [...]