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: pdf2dsc.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.
%

% pdf2dsc.ps
% read pdf file and produce DSC "index" file.
%
% Input  file is named PDFname
% Output file is named DSCname
%
% Run using:
%  gs -dNODISPLAY -sPDFname=pdffilename -sDSCname=tempfilename pdf2dsc.ps
% Then display the PDF file with
%  gs tempfilename
%
% Modified by Jason McCarty, bug 688071
%       Add PageLabels support.
% Modified by Geoff Keating <geoffk@ozemail.com.au> 21/12/98:
%	Add DocumentMedia, PageMedia comments
%	Use inherited BoundingBox and Orientation
%	Reformat, add new macro 'puts', generally clean up
% Modified by Johannes Plass <plass@dipmza.physik.uni-mainz.de> 1996-11-05:
%	Adds BoundingBox and Orientation if available.
% Modified by rjl/lpd 9/19/96
%	Updates for compatibility with modified pdf_*.ps code for handling
%	  page ranges (i.e., partial files) better.
% Modified by Geoff Keating <Geoff.Keating@anu.edu.au> 7/3/96:
%	include Title and CreationDate DSC comments (these are displayed by
%	  Ghostview);
%	reduce the size of typical output files by a factor of about 3.
% Modified by L. Peter Deutsch 3/18/96:
%	Removes unnecessary and error-prone code duplicated from pdf_main.ps
% Modified by L. Peter Deutsch for GS 3.33
% Originally by Russell Lang  1995-04-26

/PDFfile PDFname (r) file def
/DSCfile DSCname (w) file def
systemdict /.setsafe known { .setsafe } if

/puts { DSCfile exch writestring } bind def
/DSCstring 255 string def
/MediaTypes 10 dict def

PDFfile runpdfbegin
   /FirstPage where { pop } { /FirstPage 1 def } ifelse
   /LastPage where { pop } { /LastPage pdfpagecount def } ifelse

% scan through for media sizes, keep them in the dictionary
   FirstPage 1 LastPage {
      pdfgetpage /MediaBox pget pop   % MediaBox is a required attribute
      aload pop
      3 -1 roll sub 3 1 roll exch sub exch
      2 array astore
      aload 3 1 roll 10 string cvs exch 10 string cvs
      (x) 3 -1 roll concatstrings concatstrings cvn
      MediaTypes 3 1 roll exch put
   } for

% write header and prolog
   (%!PS-Adobe-3.0\n) puts
   Trailer /Info knownoget
    {
      dup /Title knownoget
       {
         (%%Title: ) puts
         DSCfile exch write==
       }
      if
      /CreationDate knownoget
       {
         (%%CreationDate: ) puts
         DSCfile exch write==
       }
      if
    }
   if
   % This is really supposed to be sorted by frequency of usage...
   (%%DocumentMedia: )
   MediaTypes {
      exch pop
      1 index puts
      (y) puts dup 1 get DSCstring cvs puts
      (x) puts dup 0 get DSCstring cvs puts
      ( ) puts dup 0 get DSCstring cvs puts
      ( ) puts 1 get DSCstring cvs puts
      ( 70 white ()\n) puts
      pop (%%+ )
   } forall
   pop

(%%Pages: ) puts
   LastPage FirstPage sub 1 add DSCstring cvs puts
   (\n%%EndComments\n) puts
   (%%BeginProlog\n) puts
   (/Page null def\n/Page# 0 def\n/PDFSave null def\n) puts
   (/DSCPageCount 0 def\n) puts
   (/DoPDFPage {dup /Page# exch store dup dopdfpages } def\n) puts
   (%%EndProlog\n) puts
   (%%BeginSetup\n) puts
   DSCfile PDFname write==only
   ( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
   ( runpdfbegin\n) puts
   ( process_trailer_attrs\n) puts
   (%%EndSetup\n) puts

/.hasPageLabels false def % see "Page Labels" in the PDF Reference
   Trailer /Root knownoget {
     /PageLabels knownoget {
       /PageLabels exch def
       /.pageCounter 1 def
       /.pageCounterType /D def
       /.pagePrefix () def

% (TEXT)  .ToLower  (text)  -- convert text to lowercase -- only letters!
       /.ToLower {
         dup length 1 sub  -1 0 {
           1 index exch 2 copy get 2#00100000 or put
         } for
       } def

% int  .CvAlpha  (int in alphabetic base 26)  -- convert a positive
       % integer to base 26 in capital letters, with 1=A; i.e. A..Z, AA..AZ, ...
       /.CvAlpha { % using cvrs seems futile since this isn't zero-based ...
         [ exch % construct an array of ASCII values, in reverse
         { % the remainder stays on the top of stack
           dup 0 eq { pop exit } if % quit if the value is zero
           dup 26 mod dup 0 eq { 26 add } if % so that the division is correct
           dup 64 add 3 1 roll sub 26 idiv % save the ASCII value and iterate
         } loop ]
         dup length dup string 3 1 roll
         dup -1 1 { % put the letters in a string
           4 copy sub exch 4 -1 roll 1 sub get put
         } for pop pop
       } def

% int  .CvRoman  (int in capital Roman numerals)
       % convert a positive integer to capital Roman numerals
       % return a decimal string if >= 4000
       /.CvRoman {
         dup DSCstring cvs % start with the decimal representation
         exch 4000 lt { % convert only if Roman numerals can represent this
           dup length
           [ [ () (I) (II) (III) (IV) (V) (VI) (VII) (VIII) (IX) ]
             [ () (X) (XX) (XXX) (XL) (L) (LX) (LXX) (LXXX) (XC) ]
             [ () (C) (CC) (CCC) (CD) (D) (DC) (DCC) (DCCC) (CM) ]
             [ () (M) (MM) (MMM) ] ] % Roman equivalents
           () % append the Roman equivalent of each decimal digit to this string
           2 index  -1 1 {
             2 index 1 index 1 sub get
             5 index 5 index 4 -1 roll sub get
             48 sub get concatstrings
           } for
           4 1 roll pop pop pop
         } if
       } def

/PageToString <<
         /D { DSCstring cvs }
         /R { .CvRoman }
         /r { .CvRoman .ToLower }
         /A { .CvAlpha }
         /a { .CvAlpha .ToLower }
       >> def
       /.hasPageLabels true def
     } if
   } if

% process each page
   FirstPage 1 LastPage {
       (%%Page: ) puts

.hasPageLabels {
         dup 1 sub PageLabels exch numoget dup null ne {
           % page labels changed at this page, reset the values
           dup /S known { dup /S get } { null } ifelse
           /.pageCounterType exch def

dup /P known { dup /P get } { () } ifelse
           /.pagePrefix exch def

dup /St known { /St get } { pop 1 } ifelse
           /.pageCounter exch def
         } { pop } ifelse

% output the page label
         (\() .pagePrefix
         .pageCounterType //null ne dup {
           PageToString .pageCounterType known and
         } if { % format the page number
           .pageCounter dup 0 gt { % don't try to format nonpositive numbers
             PageToString .pageCounterType get exec
           } {
             DSCstring cvs
          } ifelse
         } { () } ifelse
         (\)) concatstrings concatstrings concatstrings puts

/.pageCounter .pageCounter 1 add def
       } {
         dup DSCstring cvs puts
       } ifelse
       ( ) puts
       dup DSCstring cvs puts
       (\n) puts

dup pdfgetpage
       dup /MediaBox pget pop
         (%%PageMedia: y) puts
         aload pop 3 -1 roll sub DSCstring cvs puts
         (x) puts exch sub DSCstring cvs puts
         (\n) puts
       dup /CropBox pget {
         (%%PageBoundingBox: ) puts
         {DSCfile exch write=only ( ) puts} forall
         (\n) puts
       } if
       /Rotate pget {
         (%%PageOrientation: ) puts
         90 div cvi 4 mod dup 0 lt {4 add} if
         [(Portrait) (Landscape) (UpsideDown) (Seascape)] exch get puts
         (\n) puts
       } if

DSCfile exch DSCstring cvs writestring
       ( DoPDFPage\n) puts
    } for
    runpdfend
% write trailer
(%%Trailer\n) puts
(runpdfend\n) puts
(%%EOF\n) puts
% close output file and exit
DSCfile closefile
quit
% end of pdf2dsc.ps