# # posta4l2.gpl 1.0 - modified for A4 format using PS Level 2 size control # GPL format definition file for PostScript color printers # (c) INRO Consultants Inc., Montreal, Canada, 1989-1994 # # 980622 Hein Spiess: file generated by modifying posta3l2.gpl # # 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 755\n\ %%Creator: EMME/2 - gpl - posta4l2.gpl\n\ %%DocumentFonts: Courier\n\ %%EndComments\n\ << /PageSize [595 842] /Policies <> >> setpagedevice\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\nsave 0 0 moveto 550 100 translate 90 rotate .04 .04 scale 6 setlinewidth 3 setmiterlimit\n # end page string: start printing restore showpage\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: )=\\) (=\\( \\=\\\\