C DEMONSTRATION PLOTTING PROGRAM C TO RUN: FORT DEMO C LINK DEMO,L C R DEMO PLOT IN cm CALL PA(19.0,3.0) CALL PD C AMPLIFIER TRIANGLE CALL A(18.0,3.0) CALL PU CALL PA(17.0,2.7) CALL PD CALL PA(16.0,2.7) C GROUND CALL G CALL PU CALL PA(17.0,3.3) CALL PD C DIODE CALL D(15.0,3.3) C VOLTAGE SOURCE CALL V(12.0,3.3) CALL G CALL PU CALL PA(16.5,3.3) CALL PD C INDUCTOR CALL L(16.5,5.0) C CAPACITOR CALL C(18.5,5.0) C RESISTOR CALL R(18.5,7.0) C ARROW CALL AR(16.5,7.0) CALL PU CALL PA(14.0,6.0) C NPN TRANSISTOR CALL NPN(16.5,5.0,16.5,7.0) CALL PU CALL PA(14.0,6.0) CALL PD C PNP TRANSISTOR CALL PNP(12.0,5.0,12.0,7.0) CALL PU CALL PA(14.0,11.0) CALL PD C ARC ABSOLUTE, -180 deg CALL AA(14.0,13.0,-180.0) CALL PU CALL PA(22.0,6.0) CALL PD C CIRCLE, R=1.6 cm CALL CI(1.6) CALL PU CALL PA(8.0,17.0) C LABEL QUICK CALL LBS('SMALL LETTERS') CALL PA(8.0,15.6) C LETTER SIZE, WIDTH, HEIGHT IN cm CALL SI(0.7,1.0) C radians TILT LETTERS 10 deg COUNTERCLOCKWISE CALL DI(-0.1745) CALL LBS('BIG LETTERS') C USE SCALING, .PA, & .AXES; XMIN,YMIN,XMAX,YMAX CALL SCALE(0.0,-1.0,40.0,1.0) ANGLE=0 1 IF (ANGLE.GT.40) GOTO 2 CALL PA(ANGLE, EXP(-0.1*ANGLE)*COS(ANGLE)) CALL PD ANGLE=ANGLE+0.1 GOTO 1 2 CALL PU C DRAW & LABEL AXES CALL AXES('ANGLE IN RADIANS','DAMPED SINUSOID') C OUTPUT PEN POSITION (X,Y). I=1 IF PEN DOWN CALL OA(X,Y,I) TYPE *,'PEN POSITION IS',X,Y STOP END