Changeset 118 for trunk/SRC/Postscript/openps.pro
- Timestamp:
- 06/27/06 17:47:06 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Postscript/openps.pro
- Property svn:keywords changed from Author Date Id Revision to Id
r114 r118 11 11 ; @keyword FILENAME to define the name of the postcript file through 12 12 ; a keyword rather than with nameps inut argument 13 ; (in this case the keyword can be pass through 13 ; (in this case the keyword can be pass through 14 14 ; different routines via _extra keyword). 15 15 ; … … 21 21 ; @keyword KEEP_PFONT activate to suppress the modification of !p.font 22 22 ; (by defaut we force !p.font = 0 to make smaller postscripts) 23 ; @keyword PORTRAIT 24 ; @keyword LANDSCAPE 23 25 ; @keyword KEEPPFONT same as keep_pfont 24 26 ; 25 27 ; @keyword LIGHTNESS a scalar used to change the Lightness of the color 26 28 ; palette to be abble to adjust according to the printer we use, 27 ; the media (paper or slide)... 29 ; the media (paper or slide)... 28 30 ; lightness < 1 to get lighter colors 29 31 ; > 1 to get darker colors 30 32 ; 31 ; @keyword _EXTRA :used to pass any keyword to device procedure.32 ; 33 ; uses cm_4ps33 ; @keyword _EXTRA used to pass any keyword to device procedure. 34 ; 35 ; @uses cm_4ps 34 36 ; 35 37 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) … … 37 39 ; 1/2/98: ajout de nameps en input 38 40 ; 1/9/1999: ajout du mot cle FILENAME et du widget 39 ; June 2005: Sebastien Masson, cleaning, english version with new commons 41 ; June 2005: Sebastien Masson, cleaning, english version with new commons 42 ; 43 ; @version $Id$ 44 ; 40 45 ;- 41 46 ;------------------------------------------------------------ … … 92 97 nameps = isafile(nameps, iodir = psdir, /new) 93 98 ;------------------------------------------------------------ 94 ; we define xsize, ysize, xoffset et yoffset 99 ; we define xsize, ysize, xoffset et yoffset 95 100 ;------------------------------------------------------------ 96 101 IF n_elements(portrait) NE 0 OR n_elements(landscape) NE 0 THEN $ … … 102 107 xoff = 0. 103 108 yoff = 0. 104 ENDIF ELSE BEGIN 109 ENDIF ELSE BEGIN 105 110 xs = max(page_size) 106 111 ys = min(page_size) 107 112 xoff = 0. 108 113 yoff = max(page_size) 109 ENDELSE 114 ENDELSE 110 115 ;------------------------------------------------------------ 111 116 ; We define the device of the postscript mode … … 117 122 ; to make smaller postcripts 118 123 IF NOT (keyword_set(keeppfont) OR keyword_set(keep_pfont)) $ 119 THEN !p.font = 0 124 THEN !p.font = 0 120 125 ; show some informations 121 126 IF arg_present(infowidget) THEN $
Note: See TracChangeset
for help on using the changeset viewer.