\ \L%!PS-Adobe-3.0 \L% \L/showpage \L{ \L%======================== \L gsave \L initmatrix \L /bd {bind def} def \L /InfoString 100 string def \L /CVS { InfoString cvs } bd \L /blank { (, ) show } def \L /bd {bind def} def \L /mm { 25.4 div 72 mul } def % wert von mm in pt umrechnen \L /cvmm { 25.4 mul 72 div } def % wert von pt in mm umrechnen \L \L currentpagedevice % bring the page device dictionary on stack \L /PageSize get % get the page size value (an array with two entries - w,h) \L aload pop % now the stack has w,h \L 1.0 div exch 1.0 div exch % stack now has x,y on top \L /w exch def %put x into /w \L /h exch def %put y into /h \L %90 grad rotieren \L 90 rotate 0 h neg translate \L %draw a white rectangle \L 0 mm 5 mm moveto \L w 0 rlineto \L 0 mm 3 mm rlineto \L w neg 0 rlineto \L 0 -3 mm rlineto \L closepath \L 1 setgray %balken-hintergrund \L fill \L %====================== COLORBAR ======================================== \L /colorbar { \L % w h x y rechteck zeichnet Rechteck an Pos x,y mit Breite w und Hoehe h \L /rechteck { \L moveto \L 1 index 0 rlineto \L 0 exch rlineto \L neg 0 rlineto \L closepath \L } bind def \L %rot 0110 gruen 1010 blau 1100 \L /startx {4 mm} def \L /starty {4 mm} def \L /wid {4 mm} def \L wid wid startx 1 mul starty rechteck 1 0 0 0 setcmykcolor fill stroke %C \L wid wid startx 2 mul starty rechteck 0 1 0 0 setcmykcolor fill stroke %M \L wid wid startx 3 mul starty rechteck 0 0 1 0 setcmykcolor fill stroke %Y \L wid wid startx 4 mul starty rechteck .25 .25 .25 0 setcmykcolor fill stroke %25K \L wid wid startx 5 mul starty rechteck 0.50 0.50 0.50 0 setcmykcolor fill stroke %50K \L wid wid startx 6 mul starty rechteck 0.75 0.75 0.75 0 setcmykcolor fill stroke %75K \L wid wid startx 7 mul starty rechteck 1 1 1 0 setcmykcolor fill stroke %K \L \L wid wid startx 8 mul starty rechteck 0 1 1 0 setcmykcolor fill stroke %R \L wid wid startx 9 mul starty rechteck 1 0 1 0 setcmykcolor fill stroke %G \L wid wid startx 10 mul starty rechteck 1 1 0 0 setcmykcolor fill stroke %B \L } bind def \L colorbar \L %====================== COLORBAR END ==================================== \L 0.5 setgray %schrift-farbe \L %move to 5mm left and bottom \L 45 mm 5.5 mm moveto \L /Times-Roman findfont 7 scalefont setfont \L %(w=) show w CVS show (h=) show h CVS show blank \L \L ( Printer: )show \L statusdict begin product show end \L blank \L \L (PS: )show \L statusdict begin \L version show (.)show \L revision 40 string cvs show \L blank (Pages: ) show pagecount CVS show blank \L end \L %======== Resolution ======= \L %(Res(x,y): ) show \L %GET THE RESOLUTION AND PRINT IT OUT \L %If this RIP supports setpagedevice, we'll get the resolution from \L %currentpagedevice. Otherwise, we'll look for it elsewhere. \L /ScratchStr 10 string def \L /FoundItYN false store \L /currentpagedevice where \L { \L pop \L (Resolution: ) show \L currentpagedevice /HWResolution get dup \L 0 get ScratchStr cvs show % X resolution \L (x) show \L 1 get ScratchStr cvs show % Y resolution \L /FoundItYN true store \L} \L{ \L statusdict begin \L /resolution where \L { \L (, Resolution: ) show \L /resolution get dup /arraytype eq \L { \L dup \L 0 get ScratchStr cvs show % X resolution \L ( x ) show \L 1 get ScratchStr cvs show % Y resolution \L } \L { \L ScratchStr cvs show \L } \L ifelse \L /FoundItYN true store \L } \L if \L end \L} \Lifelse \LFoundItYN not \L{ \L % fall back for Level 1 and oddball Level 2 printers \L (Resolution: ) show \L [ 72 0 veclen 0 72 veclen ] \L dup \L 0 get ScratchStr cvs show % X resolution \L ( x ) show \L 1 get ScratchStr cvs show % Y resolution \L} \Lif \L %FindRes CVS show blank CVS show \L \L %======== 1235 2135 ColorMode Test Start ========= \L userdict /X_ColorMode known \L {blank (CMode: ) show \L userdict begin \L X_ColorMode CVS show \L end \L } \L if \L userdict /X_UnspecCMYKInterpret known \L {blank (cmykMode: ) show X_UnspecCMYKInterpret CVS show} \L if \L %======== 1235 2135 ColorMode Test End =========== \L %=========== 7700, 750, 860 and 6200 ColorMode Start ================ \L % Is DeviceRenderingInfo there? \L currentpagedevice /DeviceRenderingInfo known %true or false \L statusdict begin product (DocuColor 2006) eq not end %true or false \L and %both true=true \L statusdict begin product (Xerox Phaser 1235) eq not end %true or false \L and \L statusdict begin product (Xerox Phaser 2135) eq not end %true or false \L and \L { blank (CMode: ) show \L currentpagedevice /DeviceRenderingInfo get \L /VirtualColorDevice get \L dup null eq \L { pop (OC_NoAdjust) } \L { /ColorTransform get \L << \L /Automatic (Automatic) \L /TekCMYK (OC_NoAdjust) \L /TekBlue (OC_VividColor) \L /TekDisplay (OC_sRGB) \L /SWOP-Coated (PC_SWOPPress) \L /Euroscale-Coated (PC_EuroscalePress) \L /Commercial-Coated (PC_CommercialPress) \L /SNAP-Newsprint (PC_SNAPPress) \L /DaiNippon (PC_DIC) \L /Toyo (PC_Toyo) \L /Gray (BW) \L >> \L exch get \L } \L ifelse \L CVS show \L } \L if \L %=========== 7700, 750 and 6200 ColorMode End ================ \L %==============7700 lite settings Start====================== \L userdict /kadj known %is this a 7700 with lite adjust? \L { %yes, it is \L blank (bright: ) show \L 1 kadj sub 0.0625 div CVS show \L } \L { %no, it is not \L % blank (no 7700 lite) show \L } ifelse \L %==============7700 lite settings End====================== \L %=========== 2006 ColorMode Start ================ \L /HJGColorMode where \L {blank (CMode: ) show HJGColorMode show pop } \L {} \L ifelse \L /HJGrgbMode where \L {blank (RGBMode: ) show HJGrgbMode show pop } \L {} \L ifelse \L /HJGRenderingIntent where \L {blank (Render: ) show HJGRenderingIntent show pop } if \L /HJGRGBoutput where \L {blank (RGBout: ) show HJGRGBoutput show pop } if \L %=========== 2006 ColorMode End ================ \L %======== Resolution / Jobname ======= \L %blank \L %(Job: ) show \L %/jobname where \L %{begin \L % jobname () eq {jobname show} if \L %end} {('') show} ifelse \L %blank \L %(JobName: ) show \L %/JobName where \L %{begin \L % JobName () eq {JobName show} if \L %end} {('') show} ifelse \L %======== Copyright ======== \L blank (XEROX GmbH, (C) hjg v3.1 2003) show \L %========= NT variables=========== \L blank (User: \L\n\ \L, JobID: \L\I \L, Date: \L\D \L, Time: \L\T \L) show \L %=========================== \L grestore \L systemdict /showpage get exec \L} \Lbind def \L%showpage \L