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: ps2epsi.ps

% Copyright (C) 2001-2018 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.
%

% Convert an arbitrary PostScript file to an EPSI file.
%
% Please do not contact these users if you have questions.  They no longer
% have the time, interest, or current expertise to keep this code working.
% If you find bugs, please send proposed fixes to bug-gs@ghostscript.com.
%
% Bug fix 2002-04-20 by rayjj: Bounding box was incorrect since it depended
%   on the dither pattern and gray shade at the boundary. Changed to use
%   8-bit grayscale preview image to allow correct bounding box (at the
%   expense of a 8x larger preview image). Also moved .setsafe until after
%   the device and file operations are complete (but still before the input
%   file is processed.
% Bug fix 2000-04-11 by lpd: if a font didn't have a FontName (which is the
%   case for bitmap fonts produced by recent versions of dvips), setfont
%   caused an error.
% Bug fix 8/21/99 by lpd: many of the margin and width computations were
%   wrong (off by 1).  The code only "worked" because the bugs were
%   (mostly) in conservative directions.
% Modified 3/17/98 by lpd to make it possible to run this file without
%   running the ps2epsi script first, for debugging.
% Bug fix 9/29/97 by lpd <ghost@aladdin.com>: if the page size wasn't an
%   exact multiple of 8 bits, an incorrect bounding box (or a rangecheck
%   error) could occur.
% Patched 7/26/95 by
%	Greg P. Kochanski <gpk@bell-labs.com>
%   to add many new DSC comments and make the comments conforming.
% Original version contributed by
%	George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
%

% Initialize, and redefine copypage and showpage.

% ps2edict is normally defined in the pre-loaded code created by the
% ps2epsi script.
/ps2edict where { pop } { /ps2edict 25 dict def } ifelse
ps2edict begin

% The main procedure
  /ps2epsi
   {
        % bbox written to outfile by bbox device from ps2epsi command file
        outfile (r) file /epsifile exch def
        /BBoxString epsifile 256 string readline pop def
        /HiresBBoxString epsifile 256 string readline pop def
        epsifile closefile
                        % Open the file
     outfile (w) file /epsifile exch def
                                        % Get the device parameters
     currentdevice getdeviceprops .dicttomark
     /HWSize get aload pop
       /devheight exch def
       /devwidth exch def
     matrix defaultmatrix
       /devmatrix exch def
                                % Make a corresponding 8-bit deep memory device
     devmatrix devwidth devheight
     256 string 0 1 255 { 1 index exch dup 255 exch sub put } for
     makeimagedevice
     /arraydevice exch def
     arraydevice
     % Turn on anti-aliasing
     mark /TextAlphaBits 4 /GraphicsAlphaBits 4 6 -1 roll
     putdeviceprops
     setdevice	% (does an erasepage)
     /rowwidth devwidth def
     /row rowwidth string def
     /zerorow rowwidth string def	% all zero
                                % Replace the definition of showpage
     userdict /showpage { ps2edict begin epsipage end } bind put
     userdict /setfont { ps2edict begin epsisetfont end } bind put
     userdict /setpagedevice /pop load put
   } bind def

/epsifontdict 100 dict def

/epsisetfont
 {
 % code here keeps a list of font names in dictionary epsifontdict
 /tmpfont exch def
 tmpfont /FontName known {
   /tmpfontname tmpfont /FontName get def
   epsifontdict tmpfontname known not { epsifontdict tmpfontname 0 put } if
   epsifontdict tmpfontname 2 copy get 1 add put
 } if
 tmpfont setfont
 } bind def

% Get a scan line from the memory device, zeroing any bits beyond
% the device width.
/getscanline {		% <device> <y> <string> getscanline <string>
  dup 4 1 roll copyscanlines pop
  16#ff00 devwidth 7 and neg bitshift 255 and
  dup 0 ne {
    1 index dup length 1 sub 2 copy get 4 -1 roll and put
  } {
    pop
  } ifelse
} bind def

/margintest {		% <y-start> <step> <y-limit> margintest <y-non-blank>
                        % <y-start> <step> <y-limit> margintest -
  { dup arraydevice exch row getscanline
    zerorow ne { exit } if pop
  } for
} bind def

/epsiNameStr 200 string def
  /epsiNpages 0 def
  /epsiNpageStr 20 string def
  /epsipage
   {
     /epsiNpages epsiNpages 1 add def
     /loopcount devheight 1 sub def

% Find top margin -- minimum Y of non-blank scan line.
     -1 0 1 loopcount margintest
     dup -1 eq { (blank page!!\n) print quit }{ exch pop } ifelse
     /tm exch def

% Find bottom margin -- maximum Y of non-blank scan line.
     loopcount -1 0 margintest
     /bm exch def

% Initialise limit variables
     /loopcount rowwidth 1 sub def
     /lm loopcount def
     /rm 0 def

% Find left and right boundaries of image
     tm 1 bm
      { % Get more data
        arraydevice exch row getscanline pop
        % Scan from left to find first non-zero element
        % We save first the element, then the index
        -1 0 1 loopcount
        { dup row exch get 0 ne { exch pop exit }{ pop } ifelse
        } for
        % If we found -1, row is blank ..
        dup -1 ne
        { % Find the leftmost index
          dup lm lt
          % If the new index is less, we save index and element
          { /lm exch def } { pop } ifelse
          % Now find the rightmost index
          loopcount -1 0
          { dup row exch get 0 ne { exit }{ pop } ifelse
          } for
          dup rm gt
          % If the new index is greater, we save index and element
          { /rm exch def } { pop } ifelse
        } {
          pop
        } ifelse
      } for

% Write out the magic string and bounding box information
     epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
         /epsititle where { pop epsifile epsititle writestring } if
         /epsicreator where { pop epsifile epsicreator writestring } if
         /epsicrdt where { pop epsifile epsicrdt writestring } if
         /epsifor where { pop epsifile epsifor writestring } if
     epsifile flushfile

% Write out the page count:
         epsifile (%%Pages: ) writestring
         epsifile epsiNpages epsiNpageStr cvs writestring
         epsifile (\n) writestring
     epsifile flushfile

% Write out the list of used fonts:
         epsifile (%%DocumentFonts:) writestring
         epsifontdict {
                                        epsifile ( ) writestring
                                        pop epsiNameStr cvs epsifile exch writestring
                                        } forall
         epsifile (\n) writestring
     epsifile flushfile

epsifile BBoxString writestring epsifile (\n) writestring
        epsifile HiresBBoxString writestring epsifile (\n) writestring

% Define character and bit widths for the output line buffer:
     /cwidth rm lm sub 1 add def
     /out cwidth string def

epsifile (%%EndComments\n\n) writestring
     epsifile (%%BeginProlog\n) writestring
     epsifile (%%BeginPreview: ) writestring
     epsifile cwidth write==only epsifile ( ) writestring
     epsifile bm tm sub 1 add write==only epsifile ( 8 ) writestring
     epsifile bm tm sub 1 add
     cwidth 39 add 40 idiv mul write==
     epsifile flushfile

gsave

tm 1 bm
      { % Get a scan line interval from the array device
        arraydevice exch row copyscanlines lm cwidth getinterval
        % Write out the hex data as 40 bytes per line (82 chars)
        0 40 cwidth
         { epsifile (% ) writestring
           epsifile exch 2 index exch
           dup cwidth exch sub 40 .min getinterval writehexstring
           epsifile (\n) writestring
         } for
        pop
      } for

epsifile (%%EndImage\n) writestring
     epsifile (%%EndPreview\n) writestring
     epsifile flushfile
     grestore
     erasepage initgraphics

DonePage 0 1 put
   } bind def

(outfile) getenv
  { /outfile exch def
    ps2epsi

/DonePage 1 string def
    (%stdin) (r) file cvx execute0
    DonePage 0 get 0 eq { showpage } if
  } if

end
quit