home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8710 / 14 / newpen.f < prev    next >
Encoding:
Text File  |  1990-07-13  |  509 b   |  30 lines
  1.     subroutine newpen (ipen)
  2.     integer            ipen
  3. C
  4. C  Selects new pen as indicated by ipen
  5. C  Where:
  6. C    ipen = 1..n indicating pen 1 - n
  7. C  Simulated by changing line width for PostScript printers
  8. C
  9.  
  10.     integer npen
  11.     integer usepen
  12.     integer savpen
  13.     save    savpen
  14.     data    savpen /1/
  15.  
  16.     npen = max (ipen, 1)
  17.     if (npen .ne. savpen) then
  18. C
  19. C    Want pen width to be odd number of pixels wide
  20. C
  21.         usepen = ((npen -1) * 2) + 1
  22.         call pliout (usepen)
  23.         call plsout (" W\n")
  24.  
  25.         savpen = npen
  26.     end if
  27.  
  28.     return
  29.     end
  30.