◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'The following example uses the TAN function to compute the height of an
'object using the distance from the object and the angle of elevation. The
'program draws the triangle produced by the base and the computed height.
 
SCREEN 2                       'CGA screen mode.
 
INPUT "LENGTH OF BASE: ", Baselen
INPUT "ANGLE OF ELEVATION (DEGREES,MINUTES): ", Deg, Min
 
Ang = (3.1415928# / 180) * (Deg + Min / 60)  'Convert to radians.
Height = Baselen * TAN(Ang)                  'Calculate height.
PRINT "HEIGHT ="; Height
Aspect = 4 * (200 / 640) / 3   'Screen 2 is 640 x 200 pixels.
H = 180 - Height
B = 15 + (Baselen / Aspect)
LINE (15, 180)-(B, 180)        'Draw triangle.
LINE -(B, H)
LINE -(15, 180)
 
LOCATE 24, 1: PRINT "Press any key to continue...";
DO
LOOP WHILE INKEY$ = ""