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 / SETBAK.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  679 b   |  24 lines
  1.       SUBROUTINE SETBAK (BGRP)
  2.       IMPLICIT NONE
  3. C
  4. C ***      SET RASTPORT BACKGROUND COLOR
  5. C
  6.       INTEGER BGRP
  7. C
  8.       EXTERNAL LEN
  9.       INCLUDE AMIGA$KOM:GRAPH.INC
  10.       INCLUDE AMIGA$KOM:EXEC.INC
  11.       INCLUDE AMIGA$KOM:INTUIT.INC
  12.       INCLUDE DIGLIB$KOM:WINDOW.INC
  13. C
  14. C DIGLIB WON'T LET US SET THE BACKGROUND IN THE AMIGA RASTPORT.  THEREFORE
  15. C  WE MUST MAKE A DIRECT CALL TO AMIGA GRAPHICS ROUTINES HERE.  IF PORTED TO
  16. C  ANOTHER MACHINE, THIS SEGMENT MUST BE DEFEATED.  I MIGHT FIX DIGLIB LATER.
  17. C          J. LOCKER 11/29/88
  18. C
  19. C      WRITE (WTE, 967) BGRP
  20. C967   FORMAT (' here I am', i3)
  21.       CALL amiga (SetRast, long(Window+wd_RPort), BGRP)
  22.       RETURN
  23.       END
  24.