projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E P L A . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C HERE WE PLOT THE TIME AXIS FOR THE HAEPAL (PALOT) AND HAEPRL (PRLOT)\r | |
| 4 | C ROUTINES.\r | |
| 5 | C\r | |
| 6 | SUBROUTINE PLALRL\r | |
| 7 | C\r | |
| 8 | INCLUDE HAEBUF.FI\r | |
| 9 | INCLUDE HAEGSA.FI\r | |
| 10 | INCLUDE HABRK.FI\r | |
| 11 | INCLUDE HAPPEN.FI\r | |
| 12 | INCLUDE HAECSZ.FI\r | |
| 13 | \fC\r | |
| 14 | LOGICAL MLTPLE\r | |
| 15 | REAL COND\r | |
| 16 | INTEGER NCOND\r | |
| 17 | EXTERNAL MLTPLE,COND,NCOND\r | |
| 18 | C\r | |
| 19 | REAL TE1,TE2 @ TEMPORARY STORAGE\r | |
| 20 | INTEGER I\r | |
| 21 | LOGICAL ABISMI @ TIME AXIS SCALING IS IF ABISMI THEN MINUTES ELSE SECONDS FI\r | |
| 22 | C\r | |
| 23 | C\r | |
| 24 | C PLOT THE TIME SCALE\r | |
| 25 | C\r | |
| 26 | ABISMI=PZEND-PZBEG.GT.600 @ IF MORE THAN 300 SECONDS TO PLOT THEN WE DRAW A MINUTE SCALE\r | |
| 27 | CALL FACTOR (XLEN/(PZEND-PZBEG),1.)\r | |
| 28 | CALL XYPLOT (0,-.5,-PENUP)\r | |
| 29 | C HERE WE DRAW A LITTLE BAR INDICATING A SECOND OR MINUTE\r | |
| 30 | DO 135 I=PZBEG,PZEND @ ONE SECOND INCREMENTS\r | |
| 31 | TE1=I-PZBEG\r | |
| 32 | CALL XYPLOT (TE1,0.,PENDWN)\r | |
| 33 | IF (ABISMI) TE2=COND(MOD(I,600).EQ.0,-.7,\r | |
| 34 | * MOD(I,300).EQ.0,-.5,\r | |
| 35 | * MOD(I,60).EQ.0,-.3)\r | |
| 36 | IF (.NOT.ABISMI) TE2=COND(PZEND-PZBEG.GT.180,\r | |
| 37 | * COND(MLTPLE(I,60),-.7,MLTPLE(I,10),-.5,MLTPLE(I,5),-.3),\r | |
| 38 | * COND(MLTPLE(I,10),-.7,MLTPLE(I,5),-.5,-.3))\r | |
| 39 | CALL XYPLOT (TE1,TE2,PENDWN)\r | |
| 40 | C HERE WE COMPUTE WHERE TO WRITE THE NUMBER ONTO THE TIME AXIS\r | |
| 41 | TE2=PZEND-PZBEG\r | |
| 42 | IF (MOD(I,NCOND(TE2.GT.5400,1800, TE2.GE.1800,600,\r | |
| 43 | * TE2.GE.900,300, TE2.GT.300,120, 60)).GT.0)\r | |
| 44 | * GOTO 134 @ EACH FIRST OR SECOND MINUTE WE PLOT THE NUMBER\r | |
| 45 | CALL WHERE (TE2,TE2,TE2,TE3) @ GET X FACTOR\r | |
| 46 | CALL FACTOR (1.,1.)\r | |
| 47 | CALL NUMBER (TE1*TE2-INT(ALOG10(AMAX1(1.,FLOAT(I)/60.))\r | |
| 48 | * +.01)*YN/2.-YN*.3,-1.3,YN,I/60.,0,-1) @ CENTER THE NUMBER\r | |
| 49 | CALL FACTOR (TE2,TE3) @ RESET THE FACTOR\r | |
| 50 | CALL XYPLOT (TE1,0,PENUP) @ DRIVE PEN BACK TO THE AXIS\r | |
| 51 | 134 CALL XYPLOT (TE1,0,PENDWN)\r | |
| 52 | IF (ABISMI) I=NCOND(MLTPLE(I,60).AND.I.LT.PZEND-1\r | |
| 53 | * ,MIN0(I+58,PZEND-1),I) @ IF MINUTE SCALING THEN WE MAY SKIP 60 SECONDS\r | |
| 54 | 135 CONTINUE\r | |
| 55 | CALL XYPLOT (0,.5,-PENUP) @ RESET CORRECT ORIGIN\r | |
| 56 | CALL FACTOR (1.,1.)\r | |
| 57 | CALL SYMBOL (AMAX1(XLEN*.5,10.),-YOFSET,YZ,\r | |
| 58 | * 'TIME [MIN]',0,10)\r | |
| 59 | CALL LABPLT (0,-YOFSET,PZEND)\r | |
| 60 | CALL SYMBOL (0,YLEN+YZ,YZ,LABEL,0,MIN0(42,LABCNT*6)) @ PLOT 42 CHARACTERS INTO THE FIRST LINE OF LABEL\r | |
| 61 | IF (LABCNT.GT.7)\r | |
| 62 | * CALL SYMBOL (YZ,YLEN,YZ,LABEL(8),0,LABCNT*6-42) @ AND THE REMAINING INTO THE NEXT LINE\r | |
| 63 | 140 CALL XYPLOT (38.,25.,PENUP)\r | |
| 64 | CALL EXPLT\r | |
| 65 | RETURN\r | |
| 66 | END\r | |
| 67 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |