next up previous contents index
Next: Description of Plotting Up: MASTER Routine Examples Previous: MASTER Routine Color

Using Multiple MASTER Plots on Same Page/Screen

 

The following is a very elaborate example of how to to place several MASTER routine plots on the same Ramtek and terminal screen but different metafile pages.

C OPEN LONGLIB OUTSIDE OF MASTER ROUTINE
C SELECT BOTH TERMINAL AND RAMTEK SCREEN OUTPUT WITH NO
C SCREEN CLEAR ON RAMTEK OR TERMINAL
       CALL FRAME(3,-3,1.,1.,1.)
C CHANGE COLOR AND ADD A SEPARATE PLOT TITLE
       CALL PLOT(7.,0.,0)
       CALL SYMBOL(6.,11.5,.3,'TITLE',0.,5,-1)
C CHANGE ORIGIN AND SHRINK SUBSEQUENT PLOTS ON RAMTEK/TERMINAL
C BUT NOT METAFILE
       CALL PLOT(1.,1.,-3)
       CALL VFACTOR(.5)
       CALL RFACTOR(.5)
C LOOP TO PLOT FOUR MASTER PLOTS ON ONE SCREEN
       DO 10 I=1,4
C CALL PLOTSC WITH iflag < 10000 TO NOT INITIALIZE
C LONGLIB OR CLOSE IT AFTER PLOT
C SET iflag TO PRODUCE AXIS TICKED GRID 
C (SINCE LONGLIB OPEN, NO PROMPT FOR SCREEN DEVICE)
        CALL PLOTSC(X,Y,25,-10004,8.,6.,'X AXIS',6,
     1    'Y AXIS',6,'TITLE',5)
C MOVE ONLY RAMTEK AND TERMINAL ORIGINS BUT NOT METAFILE
        CALL PLOTRM(0.,2.*5.,-3)
        CALL PLOTVT(0.,2.*5.,-3)
        IF (I.EQ.2) CALL PLOTRM(11.,-20.,-3)
        IF (I.EQ.2) CALL PLOTVT(11.,-20.,-3)
C NEWPAGE ON METAFILE (DOES NOT AFFECT TERMINAL/RAMTEK)
        CALL NEWPAGE
10     CONTINUE
       ...
C PROMPT FOR SCREEN CLEAR ON RAMTEK/TERMINAL
       CALL CTERM(2)
       CALL RTERM(2)
C CLOSE LONGLIB
       CALL PLOTND
       ...



David Long
Wed Jun 12 10:34:11 MDT 1996