C NAME OF PGRM CALCOMP PLOTTING SYMBOL GENERATOR (SYMBOL) C AUTHOR CHARLES E. COHN, ARGONNE NATIONAL LABORATORY C CALLING STATEMENT IS C CALL SYMBOL(X,Y,THTA,H,NC,NP) C X AND Y ARE COORDINATES OF CENTER OF SYMBOL IN INCHES, FLT.PT. C THTA IS ANGLE OF INCLINATION OF SYMBOL IN DEGREES, FLT.PT. C H IS HEIGHT OF SYMBOL IN INCHES, FLT.PT. C NC IS SYMBOL TYPE (0 THROUGH 33), POSITIVE INTEGER C NP IS INTEGER GIVING PEN STATUS DURING MOTION TO CENTER OF SYMBOL C INTERPRETEDAS FOR THIRD ARGUMENT OF -PLOT-) BYTE OFFSET(239) DIMENSION JOFF(35) LOGICAL*1 NLFT DATA JOFF/1,7,17,21,26,31,36,41,45,51,56,68,80,84,85,96,103,118, 1 120,127,133,142,153,157,165,170,183,191,202,209,217,225,232,236, A 240/ DATA OFFSET/20,4,0,32,36,20, 20,12,3,1,8,24,33,35,28,20, 1 20,1,33,20, 2,34,18,20,16, 0,36,18,4,32, 20,2,16,34,20, 2 16,20,2,34,20, 0,36,4,32, 36,4,36,0,32,0, 4,18,36,18,16, 3 36,27,11,4,11,9,0,9,25,32,25,27, B 20,16,18,2,34,18,4,32,18,0,36,0, 4 36,4,32,0, 20, 63,1,20,33,1,63,3,35,16,3,63, 63,2,10,16,20,36,20, 5 63,4,3,11,12,4,63,25,24,32,33,25,63,36,0, 16,20, C 63,20,28,24,8,10,26, 6 63,20,0,32,20,63, 63,24,16,9,11,20,28,63,10, 7 2,3,12,28,35,33,24,8,1,2,34, 4,32,18,0, D 63,8,11,3,35,27,24,63, 8 4,36,63,32,0, 36,0,63,1,3,12,28,35,33,24,8,1,63, 9 36,0,63,4,12,24,32,63, 20,16,17,9,11,3,63,35,27,25,17, 1 19,28,36,63,0,8,17, 63,28,20,16,24,16,18,10, E 6312,20,16,8,16,18,26, 2 63,2,11,25,18,9,27, 43,41,18,50, 2,34,18,20/ CALL PLOT(X,Y,NP) CALL PLTX(16) NLFT=.FALSE. HA=H/4. TRAD=THTA/57.295779513 XN=HA*COS(TRAD) YN=HA*SIN(TRAD) IOFF=JOFF(NC+1) 1 IOFSET=OFFSET(IOFF) IF(IOFSET.NE.63)GOTO2 CALL PLTX(32) NLFT=.TRUE. GOTO3 2 XOFF=IOFSET/8-2 YOFF=MOD(IOFSET,8)-2 CALL PLOT(X+XOFF*XN-YOFF*YN,Y+XOFF*YN+YOFF*XN,1) IF(.NOT.NLFT)GOTO3 CALL PLT(16) NLFT=.FALSE. 3 IOFF=IOFF+1 IF(IOFF.LT.JOFF(NC+2))GOTO1 CALL PLOT(X,Y,1) RETURN END