Na}{

Path: ~//usr/share/ghostscript/lib/

File Content: `viewjpeg.ps`

%! viewjpeg.ps   Copyright (C) 1994 Thomas Merz <tm@pdflib.com>
%
% 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.
%
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 1305 Grant Avenue - Suite 200,
% Novato, CA 94945, U.S.A., +1(415)492-9861.

% View JPEG files with Ghostscript
%
% This PostScript code relies on level 2 features.
%
% Only JPEG baseline, extended sequential, and progressive files
% are supported.  Note that Adobe PostScript level 2 does not include
% progressive-JPEG support.  Ghostscript with IJG JPEG v6 or later
% will decode progressive JPEG, but only if you edit gsjmorec.h to
% enable that feature.
%
% Author's address:
% ------------------------------+
% {(pstack exec quit) = flush } |    Thomas Merz, Munich
% pstack exec quit              |    voice +49/89/29160728
% ------------------------------+    tm@muc.de  http://www.muc.de/~tm/
%
% Updated by L. Peter Deutsch 20-May-1997:
%   move the usage example to the beginning
% Updates by Tom Lane 6-Sep-1995

% Usage example:
%	(jpeg-6/testimg.jpg) viewJPEG

/languagelevel where {pop languagelevel 2 lt}{true} ifelse {
  (JPEG needs PostScript Level 2!\n) print flush stop
} if

/JPEGdict 20 dict def
JPEGdict begin

/NoParamMarkers [	% JPEG markers without additional parameters
    16#D0 16#D1 16#D2 16#D3 16#D4 16#D5 16#D6 16#D7 16#D8 16#01
] def

/NotSupportedMarkers [ 	% JPEG markers not supported by PostScript level 2
    16#C3 16#C5 16#C6 16#C7 16#C8 16#C9 16#CA 16#CB 16#CD 16#CE 16#CF
] def

% Names of color spaces
/ColorSpaceNames << /1 /DeviceGray /3 /DeviceRGB /4 /DeviceCMYK >> def

% read one byte from file F
% - ==> int --or-- stop context
/NextByte {
    F read not { (Read error in ViewJPEG!\n) print flush stop } if
} bind def

/SkipSegment {	% read two bytes and skip that much data
    NextByte 8 bitshift NextByte add 2 sub { NextByte pop } repeat
} bind def

% read width, height, and # of components from JPEG markers
% and store in dict
/readJPEGmarkers {	% - ==> dict --or-- stop context
    5 dict begin

    { % loop: read JPEG marker segments until we find SOFn marker or EOF
        NextByte
        16#FF eq {				% found marker
            /markertype NextByte def
            % Is it S0F0=baseline, SOF1=extended sequential, SOF2=progressive ?
            markertype dup 16#C0 ge exch 16#C2 le and {
                NextByte pop NextByte pop	% segment length
                % Ghostscript and Adobe PS accept only data precision 8
                NextByte 8 ne {
                    (Error: not 8 bits per component!\n) print flush stop
                } if

                % Read crucial image parameters
                /height NextByte 8 bitshift NextByte add def
                /width NextByte 8 bitshift NextByte add def
                /colors NextByte def

                VJPGDEBUG { currentdict { exch == == } forall flush } if
                exit
            } if

            % detect several segment types which are not compatible with PS
            NotSupportedMarkers {
                markertype eq {
                    (Marker ) print markertype ==
                    (not supported!\n) print flush stop
                } if
            } forall

            % Skip segment if marker has parameters associated with it
            true NoParamMarkers { markertype eq {pop false exit} if } forall
            { SkipSegment } if
        } if
    } loop

    currentdict dup /markertype undef
    end
} bind def

end	% JPEGdict

% read image parameters from JPEG file and display the image
/viewJPEG {		% <file|string> ==> -
    save
    JPEGdict begin
    /saved exch def
    /scratch 1 string def
    dup type /stringtype eq { (r) file } if
    /F exch def

    readJPEGmarkers begin
    F 0 setfileposition		% reset file pointer

    % We use the whole clipping area for the image (at least in one dimension)
    gsave clippath pathbbox grestore
    /ury exch def /urx exch def
    /lly exch def /llx exch def

    llx lly translate
    width height scale

    % use whole width or height, whichever is appropriate
    urx llx sub width div ury lly sub height div
    2 copy gt { exch } if pop		% min
    dup scale
    ColorSpaceNames colors scratch cvs get setcolorspace

    % prepare image dictionary
    << /ImageType 1
       /Width width
       /Height height
       /ImageMatrix [ width 0 0 height neg 0 height ]
       /BitsPerComponent 8
       % If 4-component (CMYK), assume data is inverted per Adobe Photoshop
       colors 4 eq {
         /Decode [ colors { 1 0 } repeat ]
       } {
         /Decode [ colors { 0 1 } repeat ]
       } ifelse
       /DataSource F /DCTDecode filter
    >> image

    end		% image parameter dictionary

    saved end restore
} bind def

% This lets you do stuff on the command line like:
% gs -sDEVICE=pdfwrite -o stuff%03d.pdf viewjpeg.ps -c "(image.jpg) << /PageSize 2 index viewJPEGgetsize 2 array astore  >> setpagedevice viewJPEG"
% so the output size matches the original image.
/viewJPEGgetsize {		% <file|string> ==> width height
    save
    JPEGdict begin
    /saved exch def
    /scratch 1 string def
    dup type /stringtype eq { (r) file } if
    /F exch def
    readJPEGmarkers begin
    F 0 setfileposition		% reset file pointer
    width height
    saved end restore
} bind def

Edit Rename Chmod Delete

FILE FOLDER

Name	Size	Permission
PDFA_def.ps	1276 bytes	0644
PDFX_def.ps	1812 bytes	0644
PM760p.upp	1160 bytes	0644
PM760pl.upp	1124 bytes	0644
PM820p.upp	1142 bytes	0644
PM820pl.upp	1117 bytes	0644
Stc670p.upp	1159 bytes	0644
Stc670pl.upp	1124 bytes	0644
Stc680p.upp	1140 bytes	0644
Stc680pl.upp	1115 bytes	0644
Stc740p.upp	1039 bytes	0644
Stc740pl.upp	1115 bytes	0644
Stc760p.upp	1141 bytes	0644
Stc760pl.upp	1115 bytes	0644
Stc777p.upp	1140 bytes	0644
Stc777pl.upp	1115 bytes	0644
Stp720p.upp	1158 bytes	0644
Stp720pl.upp	1115 bytes	0644
Stp870p.upp	1140 bytes	0644
Stp870pl.upp	1115 bytes	0644
acctest.ps	4269 bytes	0644
align.ps	2156 bytes	0644
bj8.rpd	639 bytes	0644
bj8gc12f.upp	1532 bytes	0644
bj8hg12f.upp	1531 bytes	0644
bj8oh06n.upp	1517 bytes	0644
bj8pa06n.upp	1525 bytes	0644
bj8pp12f.upp	1542 bytes	0644
bj8ts06n.upp	1530 bytes	0644
bjc6000a1.upp	1660 bytes	0644
bjc6000b1.upp	1660 bytes	0644
bjc610a0.upp	1527 bytes	0644
bjc610a1.upp	1516 bytes	0644
bjc610a2.upp	1517 bytes	0644
bjc610a3.upp	1522 bytes	0644
bjc610a4.upp	1530 bytes	0644
bjc610a5.upp	1517 bytes	0644
bjc610a6.upp	1517 bytes	0644
bjc610a7.upp	1520 bytes	0644
bjc610a8.upp	1526 bytes	0644
bjc610b1.upp	1516 bytes	0644
bjc610b2.upp	1517 bytes	0644
bjc610b3.upp	1522 bytes	0644
bjc610b4.upp	1530 bytes	0644
bjc610b6.upp	1517 bytes	0644
bjc610b7.upp	1521 bytes	0644
bjc610b8.upp	1526 bytes	0644
caption.ps	1759 bytes	0644
cbjc600.ppd	11148 bytes	0644
cbjc800.ppd	11491 bytes	0644
cdj550.upp	1690 bytes	0644
cdj690.upp	1999 bytes	0644
cdj690ec.upp	2060 bytes	0644
cid2code.ps	4491 bytes	0644
dmp_init.ps	7246 bytes	0644
dmp_site.ps	459 bytes	0644
dnj750c.upp	2808 bytes	0644
dnj750m.upp	1975 bytes	0644
docie.ps	7498 bytes	0644
escp_24.src	350 bytes	0644
font2pcl.ps	18439 bytes	0644
ghostpdf.ppd	25643 bytes	0644
gs_ce_e.ps	2219 bytes	0644
gs_il2_e.ps	2631 bytes	0644
gs_kanji.ps	4007 bytes	0644
gs_ksb_e.ps	3145 bytes	0644
gs_l.xbm	1945 bytes	0644
gs_l.xpm	2751 bytes	0644
gs_l_m.xbm	1955 bytes	0644
gs_lgo_e.ps	2734 bytes	0644
gs_lgx_e.ps	1766 bytes	0644
gs_m.xbm	945 bytes	0644
gs_m.xpm	1437 bytes	0644
gs_m_m.xbm	955 bytes	0644
gs_s.xbm	594 bytes	0644
gs_s.xpm	957 bytes	0644
gs_s_m.xbm	604 bytes	0644
gs_t.xbm	345 bytes	0644
gs_t.xpm	605 bytes	0644
gs_t_m.xbm	355 bytes	0644
gs_wl1_e.ps	2495 bytes	0644
gs_wl2_e.ps	2494 bytes	0644
gs_wl5_e.ps	2512 bytes	0644
gslp.ps	20728 bytes	0644
gsnup.ps	2634 bytes	0644
ht_ccsto.ps	228143 bytes	0644
image-qa.ps	73050 bytes	0644
jispaper.ps	784 bytes	0644
landscap.ps	1468 bytes	0644
lines.ps	3736 bytes	0644
mkcidfm.ps	22321 bytes	0644
necp2x.upp	1045 bytes	0644
necp2x6.upp	1069 bytes	0644
pdf2dsc.ps	8063 bytes	0644
pf2afm.ps	15295 bytes	0644
pfbtopfa.ps	996 bytes	0644
ppath.ps	1819 bytes	0644
pphs.ps	6844 bytes	0644
prfont.ps	7213 bytes	0644
printafm.ps	4898 bytes	0644
ps2ai.ps	22306 bytes	0644
ps2epsi.ps	8540 bytes	0644
ras1.upp	215 bytes	0644
ras24.upp	219 bytes	0644
ras3.upp	214 bytes	0644
ras32.upp	196 bytes	0644
ras4.upp	220 bytes	0644
ras8m.upp	209 bytes	0644
rollconv.ps	12526 bytes	0644
s400a1.upp	1454 bytes	0644
s400b1.upp	1603 bytes	0644
sharp.upp	1936 bytes	0644
sipixa6.upp	529 bytes	0644
st640ih.upp	2281 bytes	0644
st640ihg.upp	1508 bytes	0644
st640p.upp	1914 bytes	0644
st640pg.upp	1141 bytes	0644
st640pl.upp	1878 bytes	0644
st640plg.upp	1105 bytes	0644
stc.upp	1923 bytes	0644
stc1520h.upp	2154 bytes	0644
stc2.upp	1904 bytes	0644
stc200_h.upp	1848 bytes	0644
stc2_h.upp	1879 bytes	0644
stc2s_h.upp	2272 bytes	0644
stc300.upp	2136 bytes	0644
stc300bl.upp	1341 bytes	0644
stc300bm.upp	1430 bytes	0644
stc500p.upp	1903 bytes	0644
stc500ph.upp	1903 bytes	0644
stc600ih.upp	2281 bytes	0644
stc600p.upp	1151 bytes	0644
stc600pl.upp	1115 bytes	0644
stc640p.upp	1095 bytes	0644
stc740ih.upp	2123 bytes	0644
stc800ih.upp	2158 bytes	0644
stc800p.upp	1115 bytes	0644
stc800pl.upp	1097 bytes	0644
stc_h.upp	1913 bytes	0644
stc_l.upp	734 bytes	0644
stcany.upp	673 bytes	0644
stcany_h.upp	681 bytes	0644
stcinfo.ps	25517 bytes	0644
stcolor.ps	5065 bytes	0644
stocht.ps	2494 bytes	0644
traceimg.ps	1382 bytes	0644
traceop.ps	2572 bytes	0644
uninfo.ps	5986 bytes	0644
viewcmyk.ps	1984 bytes	0644
viewgif.ps	5395 bytes	0644
viewjpeg.ps	5691 bytes	0644
viewmiff.ps	4253 bytes	0644
viewpbm.ps	10282 bytes	0644
viewpcx.ps	5232 bytes	0644
viewps2a.ps	1136 bytes	0644
winmaps.ps	3605 bytes	0644
zeroline.ps	2317 bytes	0644

File Content: viewjpeg.ps

File Content: `viewjpeg.ps`