[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.19
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
ghostscript
/
lib
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 PDFA_def.ps
1,276 B
SET
[ EDIT ]
|
[ DEL ]
📄 PDFX_def.ps
1,812 B
SET
[ EDIT ]
|
[ DEL ]
📄 PM760p.upp
1,160 B
SET
[ EDIT ]
|
[ DEL ]
📄 PM760pl.upp
1,124 B
SET
[ EDIT ]
|
[ DEL ]
📄 PM820p.upp
1,142 B
SET
[ EDIT ]
|
[ DEL ]
📄 PM820pl.upp
1,117 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc670p.upp
1,159 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc670pl.upp
1,124 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc680p.upp
1,140 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc680pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc740p.upp
1,039 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc740pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc760p.upp
1,141 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc760pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc777p.upp
1,140 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stc777pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stp720p.upp
1,158 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stp720pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stp870p.upp
1,140 B
SET
[ EDIT ]
|
[ DEL ]
📄 Stp870pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 acctest.ps
4,269 B
SET
[ EDIT ]
|
[ DEL ]
📄 align.ps
2,156 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8.rpd
639 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8gc12f.upp
1,532 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8hg12f.upp
1,531 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8oh06n.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8pa06n.upp
1,525 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8pp12f.upp
1,542 B
SET
[ EDIT ]
|
[ DEL ]
📄 bj8ts06n.upp
1,530 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc6000a1.upp
1,660 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc6000b1.upp
1,660 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a0.upp
1,527 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a1.upp
1,516 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a2.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a3.upp
1,522 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a4.upp
1,530 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a5.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a6.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a7.upp
1,520 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610a8.upp
1,526 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b1.upp
1,516 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b2.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b3.upp
1,522 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b4.upp
1,530 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b6.upp
1,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b7.upp
1,521 B
SET
[ EDIT ]
|
[ DEL ]
📄 bjc610b8.upp
1,526 B
SET
[ EDIT ]
|
[ DEL ]
📄 caption.ps
1,759 B
SET
[ EDIT ]
|
[ DEL ]
📄 cbjc600.ppd
11,148 B
SET
[ EDIT ]
|
[ DEL ]
📄 cbjc800.ppd
11,491 B
SET
[ EDIT ]
|
[ DEL ]
📄 cdj550.upp
1,690 B
SET
[ EDIT ]
|
[ DEL ]
📄 cdj690.upp
1,999 B
SET
[ EDIT ]
|
[ DEL ]
📄 cdj690ec.upp
2,060 B
SET
[ EDIT ]
|
[ DEL ]
📄 cid2code.ps
4,491 B
SET
[ EDIT ]
|
[ DEL ]
📄 dmp_init.ps
7,246 B
SET
[ EDIT ]
|
[ DEL ]
📄 dmp_site.ps
459 B
SET
[ EDIT ]
|
[ DEL ]
📄 dnj750c.upp
2,808 B
SET
[ EDIT ]
|
[ DEL ]
📄 dnj750m.upp
1,975 B
SET
[ EDIT ]
|
[ DEL ]
📄 docie.ps
7,498 B
SET
[ EDIT ]
|
[ DEL ]
📄 escp_24.src
350 B
SET
[ EDIT ]
|
[ DEL ]
📄 font2pcl.ps
18,439 B
SET
[ EDIT ]
|
[ DEL ]
📄 ghostpdf.ppd
25,643 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_ce_e.ps
2,219 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_il2_e.ps
2,631 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_kanji.ps
4,007 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_ksb_e.ps
3,145 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_l.xbm
1,945 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_l.xpm
2,751 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_l_m.xbm
1,955 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_lgo_e.ps
2,734 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_lgx_e.ps
1,766 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_m.xbm
945 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_m.xpm
1,437 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_m_m.xbm
955 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_s.xbm
594 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_s.xpm
957 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_s_m.xbm
604 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_t.xbm
345 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_t.xpm
605 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_t_m.xbm
355 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_wl1_e.ps
2,495 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_wl2_e.ps
2,494 B
SET
[ EDIT ]
|
[ DEL ]
📄 gs_wl5_e.ps
2,512 B
SET
[ EDIT ]
|
[ DEL ]
📄 gslp.ps
20,728 B
SET
[ EDIT ]
|
[ DEL ]
📄 gsnup.ps
2,634 B
SET
[ EDIT ]
|
[ DEL ]
📄 ht_ccsto.ps
228,143 B
SET
[ EDIT ]
|
[ DEL ]
📄 image-qa.ps
73,050 B
SET
[ EDIT ]
|
[ DEL ]
📄 jispaper.ps
784 B
SET
[ EDIT ]
|
[ DEL ]
📄 landscap.ps
1,468 B
SET
[ EDIT ]
|
[ DEL ]
📄 lines.ps
3,736 B
SET
[ EDIT ]
|
[ DEL ]
📄 mkcidfm.ps
22,321 B
SET
[ EDIT ]
|
[ DEL ]
📄 necp2x.upp
1,045 B
SET
[ EDIT ]
|
[ DEL ]
📄 necp2x6.upp
1,069 B
SET
[ EDIT ]
|
[ DEL ]
📄 pdf2dsc.ps
8,063 B
SET
[ EDIT ]
|
[ DEL ]
📄 pf2afm.ps
15,295 B
SET
[ EDIT ]
|
[ DEL ]
📄 pfbtopfa.ps
996 B
SET
[ EDIT ]
|
[ DEL ]
📄 ppath.ps
1,819 B
SET
[ EDIT ]
|
[ DEL ]
📄 pphs.ps
6,844 B
SET
[ EDIT ]
|
[ DEL ]
📄 prfont.ps
7,213 B
SET
[ EDIT ]
|
[ DEL ]
📄 printafm.ps
4,898 B
SET
[ EDIT ]
|
[ DEL ]
📄 ps2ai.ps
22,306 B
SET
[ EDIT ]
|
[ DEL ]
📄 ps2epsi.ps
8,540 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras1.upp
215 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras24.upp
219 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras3.upp
214 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras32.upp
196 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras4.upp
220 B
SET
[ EDIT ]
|
[ DEL ]
📄 ras8m.upp
209 B
SET
[ EDIT ]
|
[ DEL ]
📄 rollconv.ps
12,526 B
SET
[ EDIT ]
|
[ DEL ]
📄 s400a1.upp
1,454 B
SET
[ EDIT ]
|
[ DEL ]
📄 s400b1.upp
1,603 B
SET
[ EDIT ]
|
[ DEL ]
📄 sharp.upp
1,936 B
SET
[ EDIT ]
|
[ DEL ]
📄 sipixa6.upp
529 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640ih.upp
2,281 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640ihg.upp
1,508 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640p.upp
1,914 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640pg.upp
1,141 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640pl.upp
1,878 B
SET
[ EDIT ]
|
[ DEL ]
📄 st640plg.upp
1,105 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc.upp
1,923 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc1520h.upp
2,154 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc2.upp
1,904 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc200_h.upp
1,848 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc2_h.upp
1,879 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc2s_h.upp
2,272 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc300.upp
2,136 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc300bl.upp
1,341 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc300bm.upp
1,430 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc500p.upp
1,903 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc500ph.upp
1,903 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc600ih.upp
2,281 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc600p.upp
1,151 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc600pl.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc640p.upp
1,095 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc740ih.upp
2,123 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc800ih.upp
2,158 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc800p.upp
1,115 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc800pl.upp
1,097 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc_h.upp
1,913 B
SET
[ EDIT ]
|
[ DEL ]
📄 stc_l.upp
734 B
SET
[ EDIT ]
|
[ DEL ]
📄 stcany.upp
673 B
SET
[ EDIT ]
|
[ DEL ]
📄 stcany_h.upp
681 B
SET
[ EDIT ]
|
[ DEL ]
📄 stcinfo.ps
25,517 B
SET
[ EDIT ]
|
[ DEL ]
📄 stcolor.ps
5,065 B
SET
[ EDIT ]
|
[ DEL ]
📄 stocht.ps
2,494 B
SET
[ EDIT ]
|
[ DEL ]
📄 traceimg.ps
1,382 B
SET
[ EDIT ]
|
[ DEL ]
📄 traceop.ps
2,572 B
SET
[ EDIT ]
|
[ DEL ]
📄 uninfo.ps
5,986 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewcmyk.ps
1,984 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewgif.ps
5,395 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewjpeg.ps
5,691 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewmiff.ps
4,253 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewpbm.ps
10,282 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewpcx.ps
5,232 B
SET
[ EDIT ]
|
[ DEL ]
📄 viewps2a.ps
1,136 B
SET
[ EDIT ]
|
[ DEL ]
📄 winmaps.ps
3,605 B
SET
[ EDIT ]
|
[ DEL ]
📄 zeroline.ps
2,317 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: viewpbm.ps
% Copyright (C) 2001-2019 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact % Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, % CA 94945, U.S.A., +1(415)492-9861, for further information. % % viewpbm.ps % Display a PBM/PGM/PPM file. % Requires the Level 2 `image' operator (to handle variable pixel widths). % If SCALE is defined, maps input pixels to output pixels with that scale; % if SCALE is undefined, scales the image to fit the page. % If FITPAGE true, it fits the output page size to the image, honouring SCALE % When the input is PAM (P7) RGBTAG from bitrgbtags device, -dTAG will show % the tags is pseudo color: % TEXT=1, IMAGE=2, PATH=4, UNTOUCHED=8 % red green blue gray /s 100 string def /readmaxv { % <file> readmaxv - 10 string readline pop cvx exec /maxv exch def } bind def /readrow { % <file> <row> readrow <row> 0 1 2 index length 1 sub { 1 index exch 3 index token pop put } for exch pop } bind def /read01 { % <file> <count> read01 <byte> 0 exch { 1 index read pop 48 xor dup 1 le { exch dup add add } { pop } ifelse } repeat } bind def /readrow01 { % <file> <row> readrow01 <row> 0 1 w 8 idiv { 1 index exch 3 index 8 read01 put } for wrem 0 ne { dup rsize 1 sub wrem read01 8 wrem sub bitshift put } if exch pop } bind def /readwh { % <file> readwh <w> <h> dup s readline pop % check for comment (#) anchorsearch { pop pop dup s readline pop } if cvx exec } bind def /pbmtypes mark % The procedures in this dictionary are called as % <file> Pn <w> <h> <readproc> /P1 { % ASCII 1-bit white/black /bpc 1 def /maxv 1 def /rsize w 7 add 8 idiv def /wrem w 8 mod def /ncomp 1 def /invert true def /DeviceGray setcolorspace readwh { readrow01 } } bind /P2 { % ASCII 8-bit gray readwh /bpc 8 def 2 index readmaxv /rsize 2 index def /ncomp 1 def /invert false def /DeviceGray setcolorspace { readrow } } bind /P3 { % ASCII 8-bit RGB readwh /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def /ncomp 3 def /invert false def /DeviceRGB setcolorspace { readrow } } bind /P4 { % Binary 1-bit white/black readwh /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def /ncomp 1 def /invert true def /DeviceGray setcolorspace { readstring pop } } bind /P5 { % Binary 8-bit gray readwh /bpc 8 def 2 index readmaxv /rsize 2 index def /ncomp 1 def /invert false def /DeviceGray setcolorspace { readstring pop } } bind /P6 { % Binary 8-bit RGB readwh /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def /ncomp 3 def /invert false def /DeviceRGB setcolorspace { readstring pop } } bind /P7 { % Assume Binary 8-bit CMYK -- assumes 'pf' is the input file % P7 % WIDTH 612 %% used to set rsize and w % HEIGHT 792 %% used to set h % DEPTH 4 %% if present and not 1 or 4, then bail % MAXVAL 255 %% used to set maxv % TUPLTYPE CMYK | RGB_TAG | RGB_ALPHA | GRAYSCALE %% if present and not one of these, then bail % ENDHDR %% skip everything else up to this /P7KEYS << /WIDTH { /w pf token pop def } /HEIGHT { /h pf token pop def } /DEPTH { /d pf token pop def d 4 eq d 1 eq or not { (*** Only DEPTH 1 or 4 PAM files supported at this time. ***) = quit } if } /MAXVAL { /maxv pf token pop def } /TUPLTYPE { pf token pop dup /CMYK eq 1 index /RGB_TAG eq or 1 index /RGB_ALPHA eq or 1 index /GRAYSCALE eq or not { (*** Only CMYK, RGB_TAG, RGB_ALPHA and GRAYSCALE files supported at this time. ***) = quit } if /T exch def } /ENDHDR { exit } (#) cvn { pf 255 string readline pop pop } >> def { pf token not { exit } if P7KEYS exch .knownget { exec } if } loop /bpc 8 def /rsize w 4 mul def % same bytes per line for CMYK or RGB_TAG /T load /CMYK eq { /ncomp 4 def /invert false def /DeviceCMYK setcolorspace w h { readstring pop } } if /T load /RGB_ALPHA eq { /ncomp 4 def /invert false def /DeviceCMYK setcolorspace w h { readstring pop } } if /T load /GRAYSCALE eq { /ncomp 1 def /invert false def /DeviceGray setcolorspace w h { readstring pop } } if /T load /RGB_TAG eq { % not CMYK, must be RGB_TAG since was checked above /TAG where { pop % show the tags as pseudo-color image /ncomp 1 def /invert false def /maxv 1 def [ /Indexed /DeviceRGB 255 % UNTOUCHED=0, TEXT=1, IMAGE=2, PATH=4 % gray red green blue 768 string dup 0 <cccccc ff0000 00ff00 ffff00 0000ff ff00ff 00ffff ffffff 000000> putinterval ] setcolorspace w h { readstring pop % discard all but the tag dup length 4 div cvi string % destination string 0 1 2 index length 1 sub { 2 index 1 index 4 mul get 2 index exch 2 index exch put pop % done with pixel# } for exch pop } } { % show the image as RGB (ignore tags) /ncomp 3 def /invert false def /DeviceRGB setcolorspace w h { readstring pop % re-pack the RGB, discard the tag dup length 4 div 3 mul cvi string % destination string 0 1 2 index length 3 idiv 1 sub { % stack: RGBTstring destRGBstring pixel# 2 index 1 index 4 mul 4 getinterval 1 3 getinterval % RGB values % stack RGBTstring destRGBstring pixel# RGBstring 2 index exch 2 index 3 mul exch putinterval pop % done with pixel# } for exch pop } } ifelse } if } bind .dicttomark readonly def /pbmsetup { % <file> <w> <h> <readproc> pbmsetup <imagedict> /readproc exch def /h exch def /w exch def /f exch def 20 dict begin % image dictionary /ImageType 1 def /Width w def /Height h def /ImageMatrix [w 0 0 h neg 0 h] def /BitsPerComponent bpc def /Decode [ 0 255 maxv div invert { exch } if ncomp 1 sub { 2 copy } repeat ] def /DataSource [ f rsize string /readproc load /exec load ] cvx def currentdict end } def /imagescale { % <imagedict> imagescale - begin /SCALE where { pop /FITPAGE where {/FITPAGE get}{false} ifelse { Width SCALE mul Height SCALE mul } { % Map pixels SCALE-for-1. Assume orthogonal transformation. Width 1 0 dtransform add abs div SCALE mul Height 0 1 dtransform add abs div SCALE mul } ifelse } { /FITPAGE where {/FITPAGE get}{false} ifelse { % Scale the image (uniformly) to fit the page. clippath pathbbox pop pop translate % offset to the printable origin pathbbox 3 -1 roll sub exch 3 -1 roll sub exch % stack printable_width printable_height 2 copy gt 3 1 roll .min exch % stack: min(printable_w, printable_h) landscape? { % printable height is less than width (landscape) dup Height Width gt { Width mul Height div exch } { Height mul Width div } ifelse } { % printable width is less than height (portrait) dup Height Width lt { Width mul Height div exch } { Height mul Width div } ifelse } ifelse } { 0 0 translate 612 792 } ifelse } ifelse scale end } def % Image a PBM file page by page. /viewpbm { % <filename> viewpbm - 20 dict begin (r) file /pf exch def { pf token not { exit } if pbmtypes exch get pf exch exec pbmsetup currentcolorspace % preserve colorspace around setpagedevice /FITPAGE where { /FITPAGE get { /SCALE where { pop << /PageSize [ 1 1 dtransform h SCALE mul exch abs div exch w SCALE mul exch abs div exch ] >> } { << /PageSize [ 1 1 dtransform h exch abs div exch w exch abs div exch ] >> } ifelse setpagedevice } if } if setcolorspace % restore colorspave in case we did setpagedevice dup imagescale image showpage } loop end } def % Reassemble a composite PBM file from the CMYK separations. /viewpsm { 20 dict begin /fname exch def /sources [ 0 1 3 { /plane exch def /pf fname (r) file def pf pbmtypes pf token pop get exec % Stack: pf w h readproc plane { /readproc exch def /h exch def /w exch def pop /row rsize string def h { pf row readproc pop } repeat pf pbmtypes pf token pop get exec } repeat pbmsetup } for ] def /datas [ sources { /DataSource get 0 get } forall ] def /decode sources 0 get /Decode get dup 0 get exch 1 get add cvi 0 exch 2 copy 4 copy 8 array astore def sources 0 get dup /MultipleDataSources true put dup /DataSource datas put dup /Decode decode put /DeviceCMYK setcolorspace /FITPAGE where { /FITPAGE get { /SCALE where { <</PageSize [w SCALE mul h SCALE mul]>> } { <</PageSize [w h]>> }ifelse setpagedevice } if } if dup imagescale image showpage end } def % If the program was invoked from the command line, run it now. [ .shellarguments { counttomark 1 ge { ] { viewpbm } forall } { cleartomark (Usage: gs [-dSCALE=#.#] [-dFITPAGE] [--] viewpbm.ps filename.p*m ...\n) print ( e.g.: gs [-dSCALE=#.#] [-dFITPAGE] [--] viewpbm.ps my.ppm another.ppm\n) print flush ( also -dTAG option can be used to show the pseudo-color tag image from a\n) print flush ( P7 RGB_TAG PAM file created by the bitrgbtags device.\n) print flush } ifelse } { pop } ifelse