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 |