38 lines
2.5 KiB
Plaintext
38 lines
2.5 KiB
Plaintext
|
||
25/02/2025 Masinter
|
||
|
||
this was on <lispusers> undated and deficient in several ways;
|
||
|
||
* needs to be compiled with CL:COMPILE-FILE, not BCOMPL/TCOMPL (fixed)
|
||
* the bitmap size is limited (limits not docuumented) (not fixed)
|
||
* The single function defined is (not exported) in the XCL-USER package. (not fixed)
|
||
* The documentation (this file) was labeled .TXT instead of .TEDIT (fixed)
|
||
* The documentation isn't the standard lispusers template
|
||
|
||
|
||
Other fixes should be made
|
||
|
||
======
|
||
|
||
Subject: Converter for Xerox Bitmaps to X bitmaps.
|
||
To: Lispusers.x
|
||
cc: Rao.pa
|
||
|
||
{ERINYES}<LispUsers>medley>xerox-to-xbm.lisp
|
||
{ERINYES}<LispUsers>medley>xerox-to-xbm.dfasl
|
||
|
||
I assume soon to trick to PHYLUM.
|
||
|
||
One function
|
||
|
||
(xerox-to-xbm outpath xerox-bm &optional name)
|
||
|
||
Generates a bitmap in the "include" format used by X applications. You can test these by making them into your background in X with:
|
||
|
||
xsetroot -bitmap outpath
|
||
|
||
|
||
|
||
-- Ramana (SEQUENCE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((TEXT NIL NIL (72 72 468 648) NIL))) (ALTERNATE NIL NIL (0 0 0 0) ((PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (FONT {TEDIT-FONTCLASS/174,10650} INVERTED OFF UNDERLINE OFF STRIKEOUT OFF OVERLINE OFF UNBREAKABLE OFF PROTECTED OFF SELECTPOINT OFF INVISIBLE OFF STYLE NIL USERINFO NIL) FORMATINFO NIL) (72 756 288 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (FONT {TEDIT-FONTCLASS/174,10620} INVERTED OFF UNDERLINE OFF STRIKEOUT OFF OVERLINE OFF UNBREAKABLE OFF PROTECTED OFF SELECTPOINT OFF INVISIBLE OFF STYLE NIL USERINFO NIL) FORMATINFO NIL) (252 756 288 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))))))) 1 $ 1 8 L >(TEDIT-FONTCLASS 0 (TIMESROMAN 10) (TIMESROMAN 8) (CLASSIC 8))
|
||
GACHA CLASSIC
|
||
@ G B U K : @ < . " / † DATE:iˆ‚/ œ ?zº |