golden hour

/usr/share/ghostscript/lib

File/Folder	Size	Actions
PDFA_def.ps	1.25 KB
PDFX_def.ps	1.77 KB
PM760p.upp	1.13 KB
PM760pl.upp	1.1 KB
PM820p.upp	1.12 KB
PM820pl.upp	1.09 KB
Stc670p.upp	1.13 KB
Stc670pl.upp	1.1 KB
Stc680p.upp	1.11 KB
Stc680pl.upp	1.09 KB
Stc740p.upp	1.01 KB
Stc740pl.upp	1.09 KB
Stc760p.upp	1.11 KB
Stc760pl.upp	1.09 KB
Stc777p.upp	1.11 KB
Stc777pl.upp	1.09 KB
Stp720p.upp	1.13 KB
Stp720pl.upp	1.09 KB
Stp870p.upp	1.11 KB
Stp870pl.upp	1.09 KB
acctest.ps	4.17 KB
align.ps	2.11 KB
bj8.rpd	639 B
bj8gc12f.upp	1.5 KB
bj8hg12f.upp	1.5 KB
bj8oh06n.upp	1.48 KB
bj8pa06n.upp	1.49 KB
bj8pp12f.upp	1.51 KB
bj8ts06n.upp	1.49 KB
bjc6000a1.upp	1.62 KB
bjc6000b1.upp	1.62 KB
bjc610a0.upp	1.49 KB
bjc610a1.upp	1.48 KB
bjc610a2.upp	1.48 KB
bjc610a3.upp	1.49 KB
bjc610a4.upp	1.49 KB
bjc610a5.upp	1.48 KB
bjc610a6.upp	1.48 KB
bjc610a7.upp	1.48 KB
bjc610a8.upp	1.49 KB
bjc610b1.upp	1.48 KB
bjc610b2.upp	1.48 KB
bjc610b3.upp	1.49 KB
bjc610b4.upp	1.49 KB
bjc610b6.upp	1.48 KB
bjc610b7.upp	1.49 KB
bjc610b8.upp	1.49 KB
caption.ps	1.72 KB
cbjc600.ppd	10.89 KB
cbjc800.ppd	11.22 KB
cdj550.upp	1.65 KB
cdj690.upp	1.95 KB
cdj690ec.upp	2.01 KB
cid2code.ps	4.39 KB
dmp_init.ps	7.08 KB
dmp_site.ps	459 B
dnj750c.upp	2.74 KB
dnj750m.upp	1.93 KB
docie.ps	7.32 KB
escp_24.src	350 B
font2pcl.ps	18.01 KB
ghostpdf.ppd	25.04 KB
gs_ce_e.ps	2.17 KB
gs_il2_e.ps	2.57 KB
gs_kanji.ps	3.91 KB
gs_ksb_e.ps	3.07 KB
gs_l.xbm	1.9 KB
gs_l.xpm	2.69 KB
gs_l_m.xbm	1.91 KB
gs_lgo_e.ps	2.67 KB
gs_lgx_e.ps	1.72 KB
gs_m.xbm	945 B
gs_m.xpm	1.4 KB
gs_m_m.xbm	955 B
gs_s.xbm	594 B
gs_s.xpm	957 B
gs_s_m.xbm	604 B
gs_t.xbm	345 B
gs_t.xpm	605 B
gs_t_m.xbm	355 B
gs_wl1_e.ps	2.44 KB
gs_wl2_e.ps	2.44 KB
gs_wl5_e.ps	2.45 KB
gslp.ps	20.24 KB
gsnup.ps	2.57 KB
ht_ccsto.ps	222.8 KB
image-qa.ps	71.34 KB
jispaper.ps	784 B
landscap.ps	1.43 KB
lines.ps	3.65 KB
mkcidfm.ps	21.8 KB
necp2x.upp	1.02 KB
necp2x6.upp	1.04 KB
pdf2dsc.ps	7.87 KB
pf2afm.ps	14.94 KB
pfbtopfa.ps	995 B
ppath.ps	1.78 KB
pphs.ps	6.68 KB
prfont.ps	7.04 KB
printafm.ps	4.78 KB
ps2ai.ps	21.78 KB
ps2epsi.ps	8.34 KB
ras1.upp	215 B
ras24.upp	219 B
ras3.upp	214 B
ras32.upp	196 B
ras4.upp	220 B
ras8m.upp	209 B
rollconv.ps	12.23 KB
s400a1.upp	1.42 KB
s400b1.upp	1.57 KB
sharp.upp	1.89 KB
sipixa6.upp	529 B
st640ih.upp	2.23 KB
st640ihg.upp	1.47 KB
st640p.upp	1.87 KB
st640pg.upp	1.11 KB
st640pl.upp	1.83 KB
st640plg.upp	1.08 KB
stc.upp	1.88 KB
stc1520h.upp	2.1 KB
stc2.upp	1.86 KB
stc200_h.upp	1.8 KB
stc2_h.upp	1.83 KB
stc2s_h.upp	2.22 KB
stc300.upp	2.09 KB
stc300bl.upp	1.31 KB
stc300bm.upp	1.4 KB
stc500p.upp	1.86 KB
stc500ph.upp	1.86 KB
stc600ih.upp	2.23 KB
stc600p.upp	1.12 KB
stc600pl.upp	1.09 KB
stc640p.upp	1.07 KB
stc740ih.upp	2.07 KB
stc800ih.upp	2.11 KB
stc800p.upp	1.09 KB
stc800pl.upp	1.07 KB
stc_h.upp	1.87 KB
stc_l.upp	734 B
stcany.upp	673 B
stcany_h.upp	681 B
stcinfo.ps	24.92 KB
stcolor.ps	4.95 KB
stocht.ps	2.44 KB
traceimg.ps	1.35 KB
traceop.ps	2.51 KB
uninfo.ps	5.85 KB
viewcmyk.ps	1.94 KB
viewgif.ps	5.27 KB
viewjpeg.ps	5.56 KB
viewmiff.ps	4.15 KB
viewpbm.ps	10.04 KB
viewpcx.ps	5.11 KB
viewps2a.ps	1.11 KB
winmaps.ps	3.52 KB
zeroline.ps	2.26 KB

Edit: 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