home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / Plot / plctrl.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  2.5 KB  |  109 lines
  1.       SUBROUTINE PLCTRL (XXX, YYY, M, N, IZ)
  2.       IMPLICIT NONE
  3. C
  4. C ***      PLOT BUFFER CONTROL
  5. C
  6.       INTEGER M, N
  7.       REAL XXX(M,N), YYY(M,N)
  8. C
  9.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  10. C
  11.       CHARACTER*1 IZ(VARSIZE)
  12. C
  13.       INCLUDE MATLAB$KOM:IOP.KOM
  14.       INCLUDE MATLAB$KOM:MATPLT.KOM
  15.       INCLUDE MATLAB$KOM:SAV.KOM
  16. C
  17.       INTEGER DSPLY, I, IANS, IERR
  18.       CHARACTER*8 ICURS
  19. C
  20.       DATA ICURS / 'CNTROL>>' /
  21. C
  22. C
  23. 5     CONTINUE
  24.       DSPLY = 0
  25.       CALL CHKEND
  26.       CALL DSSTRN (' PLEASE CHOOSE A PLOT BUFFER CONTROL OPTION:', 1)
  27.       CALL DSSTRN (' [1] CLEAR THE BUFFER', 1)
  28.       CALL DSSTRN (' [2] DELETE A PLOT', 1)
  29.       CALL DSSTRN (' [3] SHOW THE PLOT BUFFER', 1)
  30.       CALL DSSTRN (' [4] DISPLAY ONE OF THE SAVED PLOTS', 1)
  31.       CALL DSSTRN (' [5] DISPLAY ALL SAVED PLOTS', 1)
  32.       CALL DSSTRN (' [6] SAVE THE PLOT BUFFER', 1)
  33.       CALL DSSTRN (' [7] RETURN TO THE MAIN MENU', 1)
  34.       CALL DSCURS (ICURS)
  35.       CALL VALGET (0, IANS, 'I')
  36.       GO TO (100, 200, 200, 600, 300, 400, 500) IANS
  37.       CALL MENUER (5)
  38. C
  39. 100   CONTINUE
  40.       PLTMAX = 0
  41.       PLTCNT = 0
  42.       DO 120 I = 1, 10
  43.         IPLTYP(I) = 0
  44. 120   CONTINUE
  45.       GO TO 500
  46. C
  47. 200   CONTINUE
  48.       CALL DSSTRN (' THE FOLLOWING PLOTS ARE STORED IN THE BUFFER:', 2)
  49.       CALL DSSTRN (' BUFFER LOCATION   PLOT TYPE', 2)
  50.       DO 290 I = 1, 10
  51.         CALL DSSTRN ('          ', 0)
  52.         CALL DSWDI (I, 0)
  53.         CALL DSSTRN ('       ', 0)
  54.         GO TO (220, 230, 240, 250, 260) IPLTYP(I)
  55.         GO TO 290
  56. C
  57. 220     CONTINUE
  58.         CALL DSSTRN ('3-D PLOT', 1)
  59.         GO TO 290
  60. C
  61. 230     CONTINUE
  62.         CALL DSSTRN ('X-Y PLOT', 1)
  63.         GO TO 290
  64. C
  65. 240     CONTINUE
  66.         CALL DSSTRN ('HISTOGRAM', 1)
  67.         GO TO 290
  68. C
  69. 250     CONTINUE
  70.         CALL DSSTRN ('CONTOUR PLOT', 1)
  71.         GO TO 290
  72. C
  73. 260     CONTINUE
  74.         CALL DSSTRN ('POLAR PLOT', 1)
  75. 290   CONTINUE
  76. C
  77.       IF (IANS.EQ.2) THEN
  78.         CALL DSSTRN (
  79.      .      ' DELETE WHICH GRAPH?  ENTER THE BUFFER LOCATION.', 1)
  80.         CALL DSCURS (ICURS)
  81.         CALL VALGET (0, IANS, 'I')
  82.         IF (IANS.GE.1 .AND. IANS.LE.10) THEN
  83.           IPLTYP(IANS) = 0
  84.         ENDIF
  85.       ELSE
  86.         CALL DSBLLN (2)
  87.       ENDIF
  88.       GO TO 5
  89. C
  90. 300   CONTINUE
  91.       CALL PLREST (XXX, YYY, M, N, DSPLY, IERR, IZ)
  92.       GO TO 500
  93. C
  94. 400   CONTINUE
  95.       CALL SAVFIL
  96.       GO TO 500
  97. C
  98. 600   CONTINUE
  99.       CALL DSSTRN (
  100.      .    ' PLEASE ENTER THE PLOT BUFFER NUMBER TO BE DISPLAYED', 1)
  101.       CALL DSCURS (ICURS)
  102.       CALL VALGET (0, DSPLY, 'I')
  103.       CALL PLREST (XXX, YYY, M, N, DSPLY, IERR, IZ)
  104.       GO TO 5
  105. C
  106. 500   CONTINUE
  107.       RETURN
  108.       END
  109.