Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/play/gamegrid.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@42 Non-nil means use glyphs when available.
(defvar gamegrid-use-glyphs t (#$ . 408))
#@41 Non-nil means use color when available.
(defvar gamegrid-use-color t (#$ . 497))
#@34 Name of the font used in X mode.
(defvar gamegrid-font "-*-courier-medium-r-*-*-*-140-100-75-*-*-iso8859-*" (#$ . 584))
#@41 Indicates the face to use as a default.
(defvar gamegrid-face nil (#$ . 710))
(make-variable-buffer-local 'gamegrid-face)
(defvar gamegrid-display-options nil)
(defvar gamegrid-buffer-width 0)
(defvar gamegrid-buffer-height 0)
(defvar gamegrid-blank 0)
(defvar gamegrid-timer nil)
(defvar gamegrid-display-mode nil)
(defvar gamegrid-face-table nil)
(defvar gamegrid-buffer-start 1)
#@32 Number of high scores to keep.
(defvar gamegrid-score-file-length 50 (#$ . 1098))
#@145 A directory for game scores which can't be shared.
If Emacs was built without support for shared game scores, then this
directory will be used.
(defvar gamegrid-user-score-file-directory (locate-user-emacs-file "games/") (#$ . 1187))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\207" [make-variable-buffer-local gamegrid-use-glyphs gamegrid-use-color gamegrid-font gamegrid-display-options gamegrid-buffer-width gamegrid-buffer-height gamegrid-blank gamegrid-timer gamegrid-display-mode gamegrid-display-table gamegrid-face-table gamegrid-buffer-start gamegrid-score-file-length] 2)
(defvar gamegrid-grid-x-face nil)
(defvar gamegrid-mono-x-face nil)
(defvar gamegrid-mono-tty-face nil)
#@29 Desired glyph height in mm.
(defvar gamegrid-glyph-height-mm 7.0 (#$ . 2013))
#@113 Calculate appropriate glyph size in pixels based on display resolution.
Return a multiple of 8 no less than 16.
(defalias 'gamegrid-calculate-glyph-size #[0 "\301 \203!\302 \203!\301 \303\302 !\245\211_\304
\305\\\306\245!\306_\307
]\207\307\207" [gamegrid-glyph-height-mm display-pixel-height display-mm-height float floor 4 8 16] 5 (#$ . 2098)])
#@53 Generate the XPM format image used for each square.
(defalias 'gamegrid-xpm #[0 "\300 \211\301\245

\302_Z\303\304!r\211q\210\305\306\307\310\311!\312\"\302$\216\313\314\211#c\210\306\211W\203l\211\211T\315c\210
Z\306\211W\203I\211\316c\266\211T\262
\2027\266\211\306\211W\203_\211\317c\266\211T\262
\202M\266\320c\266\211T\262
\202&\266\313\321\322\323\"\322\324\"\322\325\"$\306\211W\203\222\211c\266\211T\262
\202\200\266\306\211W\203\362\211\326\327#\315c\210\211\306\211W\203\272\211\316c\266\211T\262
\202\250\266
Z\306\211W\203\323\211\317c\266\211T\262
\202\301\266\315c\210
SU\204\346\330c\210\202\351\331c\210\266\211T\262
\202\226\266\332 *\262
\207" [gamegrid-calculate-glyph-size 8 2 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] format "/* XPM */\nstatic char *noname[] = {\n/* width height ncolors chars_per_pixel */\n\"%s %s 3 1\",\n/* colors */\n\"+ s col1\",\n\". s col2\",\n\"- s col3\",\n/* pixels */\n" "\"" "-" "+" "\",\n" "\"%s%s%s\",\n" make-string 45 46 43 - 1 ",\n" "\n};\n" buffer-string] 12 (#$ . 2455)])
#@49 Generate XBM format image used for each square.
(defalias 'gamegrid-xbm #[0 "\300 \211\301\245S
\302_Z\303\304!r\211q\210\305\306\307\310\311!\312\"\302$\216\313\314\211#c\210\306\211W\203H\211\315\316Z\317\"\316\320\"P!\210\321c\266\211T\262
\202'\266\316\317\"\316\320\"\322\323\324C\325\302\245\326\"C#\"\322\323\324C\325	\302\245\327\"C#\"\306\211W\203\230\211\315\330\331\"\331=\203\212\202\213!\210\321c\266\211T\262
\202u\266\306\211W\203\317\211
Z\315\316\317\"\316\nZ\320\"P!\266\211SU\204\304\321c\210\202\307\332c\210\210\211T\262
\202\234\266\333 *\262
\207" [gamegrid-calculate-glyph-size 4 2 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] format "/* gamegrid XBM */\n#define gamegrid_width %s\n#define gamegrid_height %s\nstatic unsigned char gamegrid_bits[] = {\n" gamegrid-insert-xbm-bits make-string 49 48 ", \n" apply concat append make-list "10" "01" logand 1 " };\n" buffer-string] 15 (#$ . 3623)])
#@263 Convert binary to hex and insert in current buffer.
STR should be a string composed of 1s and 0s and be a multiple of
8 in length.  Divide it into 8 bit bytes, reverse the order of
each, convert them to hex and insert them in comma separated C
format.

(fn STR)
(defalias 'gamegrid-insert-xbm-bits #[257 "\211G\300\245\211\301\211W\2059\211\302\303\300_\300_\300\\#!\304
\305\"\306\307\"c\210SU\2040\310c\210\266\211T\262
\202\266\202\207" [8 0 reverse substring string-to-number 2 format "0x%02x" ", "] 11 (#$ . 4669)])
#@14 

(fn EVENT)
(defalias 'gamegrid-event-x #[257 "\300\301!!@\207" [posn-col-row event-end] 4 (#$ . 5210)])
(put 'gamegrid-event-x 'byte-optimizer 'byte-compile-inline-expand)
#@14 

(fn EVENT)
(defalias 'gamegrid-event-y #[257 "\300\301!!A\207" [posn-col-row event-end] 4 (#$ . 5391)])
(put 'gamegrid-event-y 'byte-optimizer 'byte-compile-inline-expand)
#@20 

(fn COLOR SHADE)
(defalias 'gamegrid-color #[514 "\300
\301_!\211\302H_
\303H_\304H_\305\306$\207" [floor 255 0 1 2 format "#%02x%02x%02x"] 11 (#$ . 5572)])
#@13 

(fn FACE)
(defalias 'gamegrid-set-font #[257 "\205\3011\302
\"0\207\210\303\207" [gamegrid-font (error) set-face-font nil] 4 (#$ . 5744)])
#@19 

(fn FACE COLOR)
(defalias 'gamegrid-setup-face #[514 "\300\"\210\301\"\210\302!\210\3031\304\305\"0\202\210\202\210\3061)\304\307\"0\207\210\307\207" [set-face-foreground set-face-background gamegrid-set-font (error) set-face-background-pixmap [nothing] (error) nil] 5 (#$ . 5897)])
(defalias 'gamegrid-make-mono-tty-face #[0 "\300\301!\302
\303\"\210\211\207" [make-face gamegrid-mono-tty-face set-face-inverse-video t] 4])
#@14 

(fn COLOR)
(defalias 'gamegrid-make-color-tty-face #[257 "\2119\203\n\211J\202\211\300\301\302\"!\303
!\304
\"\210\207" [intern format "gamegrid-color-tty-face-%s" make-face gamegrid-setup-face] 7 (#$ . 6344)])
(defalias 'gamegrid-make-grid-x-face #[0 "\300\301!\302
!\210\211\207" [make-face gamegrid-x-border-face gamegrid-set-font] 3])
(defalias 'gamegrid-make-mono-x-face #[0 "\300\301!\302\303!\211\204\304\305 \236\243\262
\306\"\210
\207" [make-face gamegrid-mono-x-face face-foreground default foreground-color frame-parameters gamegrid-setup-face] 5])
#@14 

(fn COLOR)
(defalias 'gamegrid-make-color-x-face #[257 "\300
\301\"\302\303\304\"!\305
!\306
\"\210\207" [gamegrid-color 1.0 intern format "gamegrid-color-x-face-%s" make-face gamegrid-setup-face] 7 (#$ . 6922)])
#@39 

(fn DATA-SPEC-LIST COLOR-SPEC-LIST)
(defalias 'gamegrid-make-face #[514 "\303!\303!
\304\267\2029\305
!\202:\204\306 \202:	\204$\307 	\202:\310
!\202:\n\2045\311 \n\202:\312\207" [gamegrid-grid-x-face gamegrid-mono-x-face gamegrid-mono-tty-face gamegrid-match-spec-list #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (color-x 12 grid-x 18 mono-x 29 color-tty 40 mono-tty 46)) gamegrid-make-color-x-face gamegrid-make-grid-x-face gamegrid-make-mono-x-face gamegrid-make-color-tty-face gamegrid-make-mono-tty-face nil] 6 (#$ . 7145)])
#@14 

(fn COLOR)
(defalias 'gamegrid-colorize-glyph #[257 "\300\301\302\303\304 \305\306\307\310\311\n\312\"B\313\311\314\"B\315\311\f\316\"BE\257\301\317\303\320 \305\306\321\311\n\322\"\323\311\f\324\"\257\nD!\207" [find-image :type xpm :data gamegrid-xpm :ascent center :color-symbols "col1" gamegrid-color 0.6 "col2" 0.8 "col3" 1.0 xbm gamegrid-xbm :foreground 1.0 :background 0.5] 15 (#$ . 7741)])
#@13 

(fn SPEC)
(defalias 'gamegrid-match-spec #[257 "\211@
A@
\301=\204!
<\203>\204!
9\205\"=\205\"\211\207" [gamegrid-display-mode t] 5 (#$ . 8153)])
#@18 

(fn SPEC-LIST)
(defalias 'gamegrid-match-spec-list #[257 "\211\205\300
@!\206\301
A!\207" [gamegrid-match-spec gamegrid-match-spec-list] 3 (#$ . 8317)])
#@39 

(fn DATA-SPEC-LIST COLOR-SPEC-LIST)
(defalias 'gamegrid-make-glyph #[514 "\300!\300!\301!\203\302!\2022
\303=\203\304
!\2022
<\203)\305!\2022\306!\2052\307!\207" [gamegrid-match-spec-list characterp vector colorize gamegrid-colorize-glyph find-image vectorp gamegrid-make-image-from-vector] 6 (#$ . 8482)])
#@62 Convert an XEmacs style "glyph" to an image-spec.

(fn VECT)
(defalias 'gamegrid-make-image-from-vector #[257 "\300\301D
G\302\211W\203\211HC\244\262\210\211T\262
\202\266\211\303\304D\244\207" [image :type 0 :ascent center] 8 (#$ . 8813)])
(defalias 'gamegrid-display-type #[0 "\203\302 \203\303\207	\203\304 \203\305 \203\306\207\304 \203\"\307\207	\203-\305 \203-\310\207\311 \2034\312\207\313\207" [gamegrid-use-glyphs gamegrid-use-color display-images-p glyph display-graphic-p display-color-p color-x mono-x color-tty display-multi-font-p mono-tty emacs-tty] 1])
(defalias 'gamegrid-setup-default-font #[0 "\303\304\305\306\307 P!\"	\310=\205\207\311\312\313\211W\203D\211\n
H\211<\203;\211@\314=\203;\315
!A\2037
W\203:\211\262\210\266\211T\262
\202\266\211\205\205\211\316W\205\205\317\304\320\"\321 \322 \323\245\245\311\211\324!_\325\245\262\326\327\245_!\262
\211\245\330_\262\331\332\320\326\325_!EC\"\266\204\262
\207" [gamegrid-face gamegrid-display-mode gamegrid-display-table copy-face default intern "gamegrid-face-" buffer-name glyph nil 256 0 image image-size 1 face-attribute :height display-pixel-height display-mm-height 25.4 float 10 floor 72.27 72.27 face-spec-set t] 12])
(defalias 'gamegrid-initialize-display #[0 "\306 \307 \310\311\312\"\311\313\211W\2038\211
H\314
@\3158\"\316A@\3158\"\nI\210	I\266\211T\262
\202
\266\317 \210	\312\211\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table gamegrid-display-options buffer-display-table cursor-type gamegrid-display-type make-display-table make-vector 256 nil 0 gamegrid-make-glyph 2 gamegrid-make-face gamegrid-setup-default-font] 9])
#@10 

(fn C)
(defalias 'gamegrid-set-face #[257 "\303=\203\304`S`\305	HCD#\207\306`S`\307\nH$\207" [gamegrid-display-mode gamegrid-display-table gamegrid-face-table glyph add-text-properties display put-text-property face] 7 (#$ . 10521)])
#@12 

(fn X Y)
(defalias 'gamegrid-cell-offset #[514 "\302	T_#\207" [gamegrid-buffer-start gamegrid-buffer-width +] 6 (#$ . 10768)])
#@12 

(fn X Y)
(defalias 'gamegrid-get-cell #[514 "\300\"f\207" [gamegrid-cell-offset] 5 (#$ . 10906)])
#@14 

(fn X Y C)
(defalias 'gamegrid-set-cell #[771 "\212\301\302\"b\210\303\304!\210\305
\304\"\210\306
!*\207" [buffer-read-only nil gamegrid-cell-offset delete-char 1 insert-char gamegrid-set-face] 6 (#$ . 11014)])
#@27 

(fn WIDTH HEIGHT BLANK)
(defalias 'gamegrid-init-buffer #[771 "
\306\"\307P\310\311 \210`\312\211W\203%\211c\266\211T\262
\202\266\f\313=\2036\314\315ed\"\316
#\210eb)\207" [gamegrid-buffer-width gamegrid-buffer-height buffer-read-only gamegrid-buffer-start gamegrid-display-mode gamegrid-face make-string "\n" nil erase-buffer 0 glyph overlay-put make-overlay face] 8 (#$ . 11237)])
#@16 

(fn OPTIONS)
(defalias 'gamegrid-init #[257 "\304\211\305\211\306p!\210\307 \207" [buffer-read-only truncate-lines line-spacing gamegrid-display-options t 0 buffer-disable-undo gamegrid-initialize-display] 4 (#$ . 11645)])
#@20 

(fn PERIOD FUNC)
(defalias 'gamegrid-start-timer #[514 "\301\211p$\211\207" [gamegrid-timer run-with-timer] 7 (#$ . 11880)])
#@14 

(fn DELAY)
(defalias 'gamegrid-set-timer #[257 "\205\301\211\302H\303H\304HE#\207" [gamegrid-timer timer-set-time 1 2 3] 7 (#$ . 12016)])
(defalias 'gamegrid-kill-timer #[0 "\203\301!\210\302\211\207" [gamegrid-timer cancel-timer nil] 2])
#@973 Add the current score to the high score file.

If REVERSE is non-nil, treat lower scores as better than higher
scores. This is useful for games where lower scores are better.

On POSIX systems there may be a shared game directory for all users in
which the scorefiles are kept.  On such systems Emacs doesn't create
the score file FILE in this directory, if it doesn't already exist.
In this case Emacs searches for FILE in the directory specified by
`gamegrid-user-score-file-directory' and creates it there, if
necessary.

To add the score file for a game to the system wide shared game
directory, create the file with the shell command "touch" in this
directory and make sure that it is owned by the correct user and
group.  You probably need special user privileges to do this.

On non-POSIX systems Emacs searches for FILE in the directory
specified by the variable `temporary-file-directory'.  If necessary,
FILE is created there.

(fn FILE SCORE &optional REVERSE)
(defalias 'gamegrid-add-score #[770 "\301>\203\f\302#\207\303#\207" [system-type (windows-nt ms-dos) gamegrid-add-score-insecure gamegrid-add-score-with-update-game-score] 7 (#$ . 12276)])
#@37 

(fn FILE SCORE &optional REVERSE)
(defalias 'gamegrid-add-score-with-update-game-score #[770 "\304\305\306\"!\307\310\206
\311\"\311U?\211\203\312!\203%\313\n$\202\205	\203?\314\305\"!\203?\315\305\"$\202\205	\203Y\314\316\n!!\204P\317\n\320\"\210\313\n$\202\205\314\316\n!!\204f\317\n\320\"\210\305\n\"\314
!\204{\321\322\323\323\324\323\325&\210\315$\262
)\207" [exec-directory gamegrid-shared-game-dir gamegrid-user-score-file-directory shared-game-score-directory file-modes expand-file-name "update-game-score" logand 3072 0 file-name-absolute-p gamegrid-add-score-insecure file-exists-p gamegrid-add-score-with-update-game-score-1 directory-file-name make-directory t write-region "" nil silent excl] 13 (#$ . 13451)])
#@44 

(fn FILE TARGET SCORE &optional REVERSE)
(defalias 'gamegrid-add-score-with-update-game-score-1 #[1027 "\306\307\310!\311 \312\313\314 \260\3151Q\316\317\320\321\322\"\316\316\323\324\f!\325
\203.\321*!\2022\326!\327\2059\330\324!E\"BBBBBBBB\")0\202X\210\331+\332\333!\210\334!\203j\335!\210\336\337!\210\202n\340!\210\341!\212\211\203\210\342
!\210\343\316\331\316#\210\335
!\210\202\215\344!\210\345 \210eb\210\346\324!\347\350 \347\260\316\331#\210\351 )\262
)\207" [user-mail-address default-directory inhibit-quit exec-directory gamegrid-score-file-length gamegrid-shared-game-dir "/" generate-new-buffer " *update-game-score loss*" user-full-name " <" ">  " current-time-string (quit) nil apply call-process expand-file-name "update-game-score" "-m" int-to-string "-d" file-name-directory append ("-r") t eval (ignore nil) buffer-modified-p display-buffer error "Failed to update game score file" kill-buffer find-buffer-visiting switch-to-buffer revert-buffer find-file-read-only view-mode search-forward " " user-login-name beginning-of-line shared-game-score-directory quit-flag] 22 (#$ . 14224)])
#@47 

(fn FILE SCORE &optional DIRECTORY REVERSE)
(defalias 'gamegrid-add-score-insecure #[1026 "\212\304\206\"\262\305!\210\306db\210\307\310\311 \312 \n%c\210\313\314ed#\210\211\204.\315ed\"\210eb\210y\210`d|\210\316\317 \210\320 )\207" [temporary-file-directory buffer-read-only user-mail-address gamegrid-score-file-length expand-file-name find-file-other-window nil format "%05d	%s	%s <%s>\n" current-time-string user-full-name sort-fields 1 reverse-region t save-buffer view-mode] 10 (#$ . 15379)])
(provide 'gamegrid)