A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haepla.ft
CommitLineData
81e70d48
PH
1C -+-+-+-+-+ \ e H A E P L A . F T \ e -+-+-+-+-+\r
2C\r
3C HERE WE PLOT THE TIME AXIS FOR THE HAEPAL (PALOT) AND HAEPRL (PRLOT)\r
4C ROUTINES.\r
5C\r
6 SUBROUTINE PLALRL\r
7C\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
18C\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
22C\r
23C\r
24C PLOT THE TIME SCALE\r
25C\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
29C 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
40C 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
51134 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
54135 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
63140 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