# # postscnf.gpl (modified version of postscol.gpl 4.1) # GPL format definition file for PostScript color printers (with frame control) # (c) INRO Consultants Inc., Montreal, Canada, 1989-1994 # # 940127 HS: hardware generated graphtext characters added (option g) # # 960530 HS: Frame control added (similar to GPR ``-F'' formats) # set value of noframe flag to true if frame should be removed # set value of noframe flag to false for normal operation # # ******** This version needs GPL version 3.4 or later! *************** # # Note: This format file implements all 4 standard text sizes - it can # therefore be used also with plot files that were created for GPR. # # DOS, UNIX and VAX: output device is standard output # this can be changed to proper device name, for example # lpt1 (DOS), /dev/lp (UNIX), printer (VAX) # COLORS PATTERNS XSTART YSTART XMAX YMAX FLAGS OUTDEVICE MESSAGEDEV GTEXTFAC 13 5 0 0 16384 12480 tvgb0e - - 1.4565 # plotter initialisation string: defines procedures m,l,t,d used below %!PS-Adobe-2.0 EPSF-2.0\n\ %%BoundingBox: 50 100 550 767\n\ %%Creator: EMME/2 - gpl - postscol.gpl 4.1\n\ %%DocumentFonts: Courier\n\ %%EndComments\n\ /noframe true def % flag to control output of frame (true/false)\n\ /s {currentpoint stroke moveto} bind def\n\ /m {s moveto} bind def\n\ /l {lineto} bind def\n\ /t {/Courier findfont exch scalefont setfont show} bind def\n\ /a [ [] [20 40] [20 30 80 30] [80 80] [120 120] ] bind def\n\ /d { s a exch get 0 setdash} bind def\n\ /c {s setrgbcolor} bind def\n\ /sa [1 0 0 1 0 0] bind def\n\ /g {gsave currentpoint translate 6 -2 roll exch atan rotate 4 1 roll sa 2 3 -1 roll put sa concat dup 3 1 roll div 1.5 mul 1 scale /Courier findfont exch scalefont setfont 0 0 moveto show grestore} bind def\n\ /f {gsave currentpoint newpath moveto dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto closepath 1 eq {1 setgray} if fill grestore} bind def\n # start page string: use landscape format and set scale properly %%Page\n\ save 0 0 moveto 550 noframe {35 add} if 100 translate 90 rotate\n\ .04 noframe { 1.155 mul} if dup scale 6 setlinewidth 3 setmiterlimit\n # end page string: start printing # the next 3 lines check the npframe flag and, if set, remove the frame noframe {s -10 -10 moveto 16394 -10 l 16394 12490 l -10 12490 l \n\ -10 11610 l 14410 11610 l 14410 790 l -10 790 l -10 -10 l closepath \n\ 1 setgray fill} if\n\ restore showpage\n #gsave 1 0 0 setrgbcolor 55 setlinewidth stroke grestore\n\ # move string: %d %d m\n # draw string: %d %d l\n #bell string: not used #set color strings: the following triplets are red,green,blue intensities 1 1 1 c\n 0 0 0 c\n 1 0 0 c\n 0 1 0 c\n 0 0 1 c\n 0 1 1 c\n 1 0 1 c\n 1 1 0 c\n 1 .5 0 c\n .2 .8 .2 c\n .5 1 .5 c\n .6 .6 1 c\n .6 0 .6 c\n # line pattern strings: 0 d\n 1 d\n 2 d\n 3 d\n 4 d\n # text strings: (%s) 378 t\n (%s) 312 t\n (%s) 222 t\n (%s) 207 t\n # graphtext string: %.3f %.3f %.0f %.0f %.2f (%s) g\n # rectangle fill string %d %.0f %.0f f\n # character translations for PostScript - replace parentheses: )=\\) (=\\( \\=\\\\