;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@42 The name of the Ghostscript interpreter.
(defvar gs-program "gs" (#$ . 84))
#@50 The Ghostscript device to use to produce images.
(defvar gs-device "x11" (#$ . 166))
#@171 List of command line arguments to pass to Ghostscript.
Arguments may contain place-holders `<file>' for the name of the
input file, and `<device>' for the device to use.
(defvar gs-options '("-q" "-dSAFER" "-dBATCH" "-sDEVICE=<device>" "<file>") (#$ . 258))
(put 'gs-options 'risky-local-variable t)
#@216 Return a list of command line options with place-holders replaced.
DEVICE is the value to substitute for the place-holder `<device>',
FILE is the value to substitute for the place-holder `<file>'.

(fn DEVICE FILE)
(defalias 'gs-options #[514 "\301\302\303#\"\207" [gs-options mapcar make-closure #[257 "\302\303\300#\262
\302\304\301#\211\262\207" [V0 V1 replace-regexp-in-string "<device>" "<file>"] 5 "\n\n(fn OPTION)"]] 7 (#$ . 565)])
#@85 Return, on FRAME, pixel width PIXEL-WIDTH translated to pt.

(fn FRAME PIXEL-WIDTH)
(defalias 'gs-width-in-pt #[514 "\300
!\300\301!!\300\302!!\245_\303
_\304\245\207" [float x-display-mm-width x-display-pixel-width 25.4 72.0] 7 (#$ . 1016)])
#@88 Return, on FRAME, pixel height PIXEL-HEIGHT translated to pt.

(fn FRAME PIXEL-HEIGHT)
(defalias 'gs-height-in-pt #[514 "\300
!\300\301!!\300\302!!\245_\303
_\304\245\207" [float x-display-mm-height x-display-pixel-height 25.4 72.0] 7 (#$ . 1267)])
#@230 Set the `GHOSTVIEW' window property of FRAME.
SPEC is a GS image specification.  IMG-WIDTH is the width of the
requested image, and IMG-HEIGHT is the height of the requested
image in pixels.

(fn FRAME SPEC IMG-WIDTH IMG-HEIGHT)
(defalias 'gs-set-ghostview-window-prop #[1028 "\300A\301\"\211\302\234
\303\234\304\234\305\234\300A\306\"\206\302Z\307\245Z\307\245	\245	\245\310\311\312\313



\n\n&#\207" [plist-get :bounding-box 0 1 2 3 :rotate 72.0 x-change-window-property "GHOSTVIEW" format "0 %d %d %d %d %d %g %g"] 25 (#$ . 1525)])
#@94 Set the `GHOSTVIEW_COLORS' environment variable depending on FRAME.

(fn FRAME PIXEL-COLORS)
(defalias 'gs-set-ghostview-colors-window-prop #[514 "\300!\203\n\301\202\302!\203\303\202\304\305\306\307\310##\207" [x-display-color-p "Color" x-display-grayscale-p "Grayscale" "Monochrome" x-change-window-property "GHOSTVIEW_COLORS" format "%s %s"] 9 (#$ . 2094)])
#@315 Load a PS image for display on FRAME.
SPEC is an image specification, IMG-HEIGHT and IMG-WIDTH are width
and height of the image in pixels.  WINDOW-AND-PIXMAP-ID is a string of
the form "WINDOW-ID PIXMAP-ID".  Value is non-nil if successful.

(fn FRAME SPEC IMG-WIDTH IMG-HEIGHT WINDOW-AND-PIXMAP-ID PIXEL-COLORS)
(defalias 'gs-load-image #[1542 "\302\216\303A\304\"\305\306\307\310\n\"G\311U\204,\211\311U\204,\312\313\314\"\204%\315\316!\210\211S\262
\202	\317				$\210\320	\"\210\321\310\"\210\322\323\324\325\326		\"%\262\327\305\"\210
\266\203)\207" [gs-program gs-device #[0 "\300\207" [nil] 1] plist-get :file nil 40 x-window-property "GHOSTVIEW" 0 sit-for 0.1 t sleep-for 0.05 gs-set-ghostview-window-prop gs-set-ghostview-colors-window-prop setenv apply start-process "gs" "*GS*" gs-options set-process-query-on-exit-flag] 17 (#$ . 2475)])
(provide 'gs)