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 / SETFG.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  576 b   |  26 lines
  1.       SUBROUTINE SETFG (ICOL, ICURS)
  2.       IMPLICIT NONE
  3. C
  4. C ***      SET THE FOREGROUND PEN COLOR
  5. C
  6.       INTEGER ICOL
  7.       CHARACTER*(*) ICURS
  8. C
  9.       INCLUDE MATLAB$KOM:IOP.KOM
  10.       INCLUDE MATLAB$KOM:MATPLT.KOM
  11. C
  12. C
  13. 105   CONTINUE
  14.       CALL DSSTRN (' ENTER THE PLOT PEN NUMBER', 1)
  15.       CALL DSCURS (ICURS)
  16.       CALL VALGET (0, ICOL, 'I')
  17.       IF (WIO.NE.0) WRITE (WIO, 108) ICOL
  18. 108   FORMAT (1X, I2)
  19.       IF (ICOL.LT.0 .OR. ICOL.GT.15) THEN
  20.         CALL DSERR ('ERROR.  COLOR NUMBER MUST BE BETWEEN 0 AND 15')
  21.         GOTO 105
  22.       ENDIF
  23. C
  24.       RETURN
  25.       END
  26.