From f233d518f6a5d02f438ff96022250b67f6a10771 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sun, 24 Oct 2021 11:37:03 -0700 Subject: [PATCH 1/4] Change numeric OPCODES SUBRCALL NN to use the LLSUBRS name --- sources/LLPACKAGE | 78 ++++++++++++++++++++++++++------------- sources/LLPACKAGE.LCOM | Bin 67497 -> 67279 bytes sources/MAIKOBITBLT | 50 +++++++++++++------------ sources/MAIKOBITBLT.LCOM | Bin 2987 -> 2962 bytes 4 files changed, 78 insertions(+), 50 deletions(-) diff --git a/sources/LLPACKAGE b/sources/LLPACKAGE index 2cdd41607..0f37b9154 100644 --- a/sources/LLPACKAGE +++ b/sources/LLPACKAGE @@ -1,13 +1,14 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") -(IL:FILECREATED "22-Sep-92 11:47:31" "{Pele:mv:envos}Sources>LLPACKAGE.;25" 82127 +(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10) - IL:|changes| IL:|to:| (IL:FUNCTIONS IL:ADD-SYMBOL) +(IL:FILECREATED "24-Oct-2021 10:20:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;4| 82444 - IL:|previous| IL:|date:| "20-May-91 13:07:32" "{Pele:mv:envos}Sources>LLPACKAGE.;24" + IL:|changes| IL:|to:| (IL:FUNCTIONS IL:FIND-EXTERNAL-SYMBOL IL:FIND-SYMBOL*) + + IL:|previous| IL:|date:| "22-Sep-92 11:47:31" IL:|{DSK}larry>medley>sources>LLPACKAGE.;1| ) -; Copyright (c) 1986, 1987, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1986-1987, 1990-1992 by Venue & Xerox Corporation. (IL:PRETTYCOMPRINT IL:LLPACKAGECOMS) @@ -524,9 +525,7 @@ PACKAGE))) (IL:DEFINEQ -(xcl:defpackage -(il:nlambda il:args (il:* il:\; "Edited 2-Dec-87 10:39 by raf") (il:setq il:args (xcl:remove-comments il:args)) (let ((package (find-package (car il:args)))) (cond ((packagep package) (il:* il:\; "If one already exists, test compatability of package definitions") (il:|for| il:option il:|in| (cdr il:args) il:|do| (let* ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:internal-symbols :external-symbols) nil) (:external-only (if (not (%package-external-only package)) (il:error "Package NOT :external-only as asserted by defpackage: " package))) (:prefix-name (setf (%package-namesymbol package) (make-symbol (car values)))) (:use (use-package values package)) (:nicknames (il:enter-new-nicknames package values)) (:export (export (il:for il:symbol il:in values il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import values package)) ((:shadow :shadowing-import) (let ((il:symbols-to-shadow (il:mapconc values (il:function (il:lambda (symbol) (cond ((not (il:memb symbol (%package-shadowing-symbols package))) (list symbol)))))))) (il:selectq il:key (:shadow (shadow il:symbols-to-shadow package)) (:shadowing-import (shadowing-import il:symbols-to-shadow package)) nil))) (il:error "Bad keyword for defpackage " il:key))))) (t (il:* il:\; "Otherwise, make a new package to spec") (let ((il:post-make-forms nil)) (il:setq package (il:apply (quote make-package) (cons (car il:args) (il:|for| il:option il:|in| (cdr il:args) il:|join| (let ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:use :nicknames) (list il:key (il:|if| (car values) il:|then| values il:|else| (il:* il:\; "Handles case where NIL is being used to explicitly say the package's :USE list is empty, since the default is to use LISP.") nil))) ((:prefix-name :internal-symbols :external-symbols :external-only) (list il:key (car values))) ((:shadow :export :import :shadowing-import) (il:setq il:post-make-forms (cons (cons il:key values) il:post-make-forms)) nil) (il:error "Bad keyword for defpackage " il:key))))))) (il:mapc il:post-make-forms (il:function (il:lambda (il:form) (il:selectq (car il:form) (:shadow (shadow (cdr il:form) package)) (:export (export (il:for il:symbol il:in (cdr il:form) il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import (cdr il:form) package)) (:shadowing-import (shadowing-import (cdr il:form) package)) (il:shouldnt "Bogus form on post-make-forms")))))))) (package-name package))) -) +(xcl:defpackage (il:nlambda il:args (il:* il:\; "Edited 2-Dec-87 10:39 by raf") (il:setq il:args (xcl:remove-comments il:args)) (let ((package (find-package (car il:args)))) (cond ((packagep package) (il:* il:\; "If one already exists, test compatability of package definitions") (il:|for| il:option il:|in| (cdr il:args) il:|do| (let* ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:internal-symbols :external-symbols) nil) (:external-only (if (not (%package-external-only package)) (il:error "Package NOT :external-only as asserted by defpackage: " package))) (:prefix-name (setf (%package-namesymbol package) (make-symbol (car values)))) (:use (use-package values package)) (:nicknames (il:enter-new-nicknames package values)) (:export (export (il:for il:symbol il:in values il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import values package)) ((:shadow :shadowing-import) (let ((il:symbols-to-shadow (il:mapconc values (il:function (il:lambda (symbol) (cond ((not (il:memb symbol (%package-shadowing-symbols package))) (list symbol)))))))) (il:selectq il:key (:shadow (shadow il:symbols-to-shadow package)) (:shadowing-import (shadowing-import il:symbols-to-shadow package)) nil))) (il:error "Bad keyword for defpackage " il:key))))) (t (il:* il:\; "Otherwise, make a new package to spec") (let ((il:post-make-forms nil)) (il:setq package (il:apply (quote make-package) (cons (car il:args) (il:|for| il:option il:|in| (cdr il:args) il:|join| (let ((il:key (cond ((keywordp il:option) il:option) ((il:listp il:option) (car il:option)) (t (il:error "Bad option for defpackage " il:option)))) (values (cond ((keywordp il:option) (list t)) ((il:listp il:option) (cdr il:option)) (t (il:error "Bad option for defpackage " il:option))))) (il:selectq il:key ((:use :nicknames) (list il:key (il:|if| (car values) il:|then| values il:|else| (il:* il:\; "Handles case where NIL is being used to explicitly say the package's :USE list is empty, since the default is to use LISP.") nil))) ((:prefix-name :internal-symbols :external-symbols :external-only) (list il:key (car values))) ((:shadow :export :import :shadowing-import) (il:setq il:post-make-forms (cons (cons il:key values) il:post-make-forms)) nil) (il:error "Bad keyword for defpackage " il:key))))))) (il:mapc il:post-make-forms (il:function (il:lambda (il:form) (il:selectq (car il:form) (:shadow (shadow (cdr il:form) package)) (:export (export (il:for il:symbol il:in (cdr il:form) il:collect (il:if (il:litatom il:symbol) il:then il:symbol il:elseif (il:stringp il:symbol) il:then (intern il:symbol package) il:else (il:error "Bad object in :export option of defpackage " il:symbol))) package)) (:import (import (cdr il:form) package)) (:shadowing-import (shadowing-import (cdr il:form) package)) (il:shouldnt "Bogus form on post-make-forms")))))))) (package-name package))) ) ) @@ -1033,7 +1032,7 @@ (VALUES SYMBOL NIL))))) (DEFUN IL:FIND-SYMBOL* (IL:BASE IL:OFFSET IL:LENGTH IL:FATP PACKAGE) - "Check internal and external symbols, then scan down the list of hashtables for inherited symbols. When an inherited symbol is found pull that table to the beginning of the list." + (IL:* IL:\; "Check internal and external symbols, then scan down the list of hashtables for inherited symbols. When an inherited symbol is found pull that table to the beginning of the list.") (IL:* IL:|;;| "Find a symbol in the package given, if it eexists.") @@ -1042,10 +1041,11 @@ (IL:RESULT (IL:\\CREATECELL IL:\\FIXP)) IL:SYM IL:WHERE (IL:DONE)) (UNLESS (%PACKAGE-EXTERNAL-ONLY PACKAGE) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (%PACKAGE-INTERNAL-SYMBOLS PACKAGE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( + %PACKAGE-INTERNAL-SYMBOLS + PACKAGE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (IL:SETQ IL:WHERE :INTERNAL) @@ -1061,10 +1061,11 @@ (IL:SETQ IL:WHERE :INTERNAL) (IL:SETQ IL:DONE T))))) (UNLESS IL:DONE - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (%PACKAGE-EXTERNAL-SYMBOLS PACKAGE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( + %PACKAGE-EXTERNAL-SYMBOLS + PACKAGE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (IL:SETQ IL:WHERE :EXTERNAL) @@ -1087,10 +1088,10 @@ (CDR IL:TABLE))) ((OR IL:DONE (NULL IL:TABLE)) (VALUES NIL NIL)) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP - (CAR IL:TABLE) - IL:RESULT)) + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE + IL:OFFSET IL:LENGTH IL:FATP + (CAR IL:TABLE) + IL:RESULT)) (COND ((NOT (IL:IEQP IL:RESULT -1)) (UNLESS (EQ IL:PREV IL:HEAD) @@ -1518,11 +1519,11 @@ (IL:EHASH (IL:ENTRY-HASH IL:LENGTH IL:HASH)) (IL:RESULT (IL:\\CREATECELL IL:\\FIXP)) IL:SYM) - (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM ((IL:OPCODES IL:SUBRCALL 145 6) - IL:BASE IL:OFFSET IL:LENGTH IL:FATP ( + (IL:NEW-SYMBOL-CODE (PROGN (IL:SETQ IL:SYM (IL:SUBRCALL IL:WITH-SYMBOL IL:BASE IL:OFFSET + IL:LENGTH IL:FATP ( %PACKAGE-EXTERNAL-SYMBOLS - PACKAGE) - IL:RESULT)) + PACKAGE) + IL:RESULT)) (VALUES IL:SYM (NOT (IL:IEQP IL:RESULT -1)))) (IL:WITH-SYMBOL (IL:FOUND SYMBOL (%PACKAGE-EXTERNAL-SYMBOLS PACKAGE) IL:BASE IL:OFFSET IL:LENGTH IL:FATP IL:HASH IL:EHASH NIL @@ -1563,5 +1564,30 @@ ) (IL:PUTPROPS IL:LLPACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1992)) (IL:DECLARE\: IL:DONTCOPY - (IL:FILEMAP (NIL (25052 28345 (XCL:DEFPACKAGE 25065 . 28343))))) + (IL:FILEMAP (NIL (9779 10219 (IL:\\UPCASEBASE 9779 . 10219)) (10221 11342 (IL:APROPOS-SEARCH 10221 . +11342)) (12882 12964 (PACKAGE-NAME 12882 . 12964)) (12966 13058 (PACKAGE-NICKNAMES 12966 . 13058)) ( +13060 13168 (PACKAGE-SHADOWING-SYMBOLS 13060 . 13168)) (13170 13260 (PACKAGE-USE-LIST 13170 . 13260)) +(13262 13360 (PACKAGE-USED-BY-LIST 13262 . 13360)) (13362 14517 (IL:MAKE-PACKAGE-HASHTABLE 13362 . +14517)) (14519 14681 (PRINT-PACKAGE 14519 . 14681)) (14683 15074 (PRINT-PACKAGE-HASHTABLE 14683 . +15074)) (16142 16923 (MAKE-SYMBOL 16142 . 16923)) (18034 18444 (IL:\\PKG-FIND-FREE-PACKAGE-INDEX 18034 + . 18444)) (18501 18647 (IL:SETF-SYMBOL-PACKAGE 18501 . 18647)) (18649 18741 (SYMBOL-PACKAGE 18649 . +18741)) (21512 21684 (IL:INTERNAL-SYMBOL-COUNT 21512 . 21684)) (21686 21804 (IL:EXTERNAL-SYMBOL-COUNT +21686 . 21804)) (21806 22962 (IL:ENTER-NEW-NICKNAMES 21806 . 22962)) (22964 23390 ( +IL:MAKE-PRIME-HASHTABLE-SIZE 22964 . 23390)) (23392 25061 (MAKE-PACKAGE 23392 . 25061)) (25062 28355 ( +XCL:DEFPACKAGE 25075 . 28353)) (28404 28626 (FIND-PACKAGE 28404 . 28626)) (28628 31966 (USE-PACKAGE +28628 . 31966)) (31968 32448 (IN-PACKAGE 31968 . 32448)) (32450 32724 (XCL:PKG-GOTO 32450 . 32724)) ( +32726 33826 (RENAME-PACKAGE 32726 . 33826)) (33828 35279 (XCL:DELETE-PACKAGE 33828 . 35279)) (35281 +38227 (EXPORT 35281 . 38227)) (38229 39472 (UNEXPORT 38229 . 39472)) (39474 41118 (IMPORT 39474 . +41118)) (41120 42398 (SHADOWING-IMPORT 41120 . 42398)) (42400 43454 (SHADOW 42400 . 43454)) (43456 +44111 (UNUSE-PACKAGE 43456 . 44111)) (44175 44481 (LIST-ALL-PACKAGES 44175 . 44481)) (44538 48313 ( +IL:ADD-SYMBOL 44538 . 48313)) (52637 53940 (IL:INTERN* 52637 . 53940)) (53942 59790 (IL:FIND-SYMBOL* +53942 . 59790)) (59792 61243 (INTERN 59792 . 61243)) (61245 61823 (FIND-SYMBOL 61245 . 61823)) (61881 +62781 (IL:NUKE-SYMBOL 61881 . 62781)) (62783 64903 (UNINTERN 62783 . 64903)) (64905 66048 ( +IL:MOBY-UNINTERN 64905 . 66048)) (66107 66179 (IL:\\INDEXATOMPNAME 66107 . 66179)) (66291 66438 ( +IL:MAKE-DO-SYMBOLS-VARS 66291 . 66438)) (66440 67895 (IL:MAKE-DO-SYMBOLS-CODE 66440 . 67895)) (75495 +76020 (FIND-ALL-SYMBOLS 75495 . 76020)) (76022 76301 (IL:BRIEFLY-DESCRIBE-SYMBOL 76022 . 76301)) ( +76303 77817 (APROPOS 76303 . 77817)) (77819 79476 (APROPOS-LIST 77819 . 79476)) (79580 81153 ( +IL:FIND-EXTERNAL-SYMBOL 79580 . 81153)) (81155 81675 (IL:FIND-EXACT-SYMBOL 81155 . 81675)) (81677 +81757 (IL:PACKAGE-NAME-AS-SYMBOL 81677 . 81757)) (81759 81908 (IL:\\FIND.PACKAGE.INTERNAL 81759 . +81908))))) IL:STOP diff --git a/sources/LLPACKAGE.LCOM b/sources/LLPACKAGE.LCOM index e475b75f1bb61d3266bbc413abb8f47ef193e3de..0bea51e26e89f30d0230c6957502f2ea9e46618c 100644 GIT binary patch delta 6295 zcmbUlc~Db#dczUmaY#4<0irKKAy@-RAVC760RjY)5RyD=)0D*vMM4qnVf8-r3K}i>u6LR-+lWCp|r#|J>|a>2B_48TrJo8jW79)vL4R zY4Qpu#*mjq_6X z3is;vu2nt#+!GnD_ZseScPn!=tXi$l%GPK8@7AdM`GeYRhRRBm4pDxK1Pmfq4D2%AH>H-1vM z7#fDpS3?^Rsz;)sA*>3q%@^X~WY}!PZibO=+0{ho44;V@gx3q0fuH;YaS#$gCYvHi z?7;{!NHT2^9}IVIx2v;RSzB9da2A#t><**RYU^k9MROTgF3N_#PTPp&&dBu$KaNaB zxO0gdWTH&OZb!uh`Y2Hs42xnAekuCgOLZkmiP+W>DKx|d!nLR+FW^aN4H2G zoz7TIW=4@l1O}VE!dBr>I*bN;VJUy+Ym&iW9|>o`Py)IA+k{?!2DNl0lAq5cHX_VU zq7+g}r^6dba}gU&qHp2&JR*;P9BC9hBTc|J`=tv6jOT`QgTFt+DqyROg>ID;-jtEx z^D@eoLonZk*mN0Y?fIN`@2zsO&ZTZnrGao?@PVOnJ5 z^<1B+;syN-WwG5jMmZZAvnHt>mP#h54IWp^8@*4L4)YYDerUfTg)AS{#d%hylnD@h zJN15^h|)r*m^J28E-W*FnNxsNmO13lgL5bp5@jvI)yft>MhCl;32;+s!WRYUOAxx! z<6$s853vTV7$P%l^e%(gj&qR0v_&SPP~p4HDn3{l@VX`huBf;Y@KS7%g+jGFI)GKN z*bUUN(5j4p7u1Cj*yRkxZJQyJm&_IMm48HJYha$;BG zqM0nl;+W+NjLBMLT*$>^;6|W;rRdJQlWB~YOB2U9wZa?jJCuykTMZUIf}HI106t3p zjhgTAV;WLKci94K^J1}ak+E~UVgEUSRSu&PXR~um94ls~Gyx8z$MV_4$rXo9P1T^q z;^8SGrl#1h#TauG@Qqe@xA%uf5(21!a3pb2Qwo^{;Q*G@WKjP%_IU+9Ro-8Tac(aSH}_gl3`N3V&FIP3*pCHy@XNd zRK6^tJ~@_9Fn^wgvd|Y1p5|QJ?;c!YUwSL=iYqT+B>x@~(9}q6JRcxp zS#!^m)p;XeF|2S!^-pJY!)j|&a=6imbzNqEbdw0Dx#jXrszX#R5~3T_*D!%U`)eT z+l=K1KQX2t3@Xk-NKLG!I0>=U#ngm8F($ytVw!c|7gH0eE1|x>wS=~TOC@TAl2U^6 z%i>^3sqX~)N~tZKGNr zX=PZJ$YDiD-(M*sdr9KI%V_S4%4xKfl@r%7iyXF<$00_PC(3C*`L?_eAz5!XbJN*O z{Pg`zb2?&|%vyw^^68LkA?H+ES{O#B)oRpfWYRH<-b+5idLLrtR_q;Ibxdd}o=2?> zf<%5Qv+7J%ZtYshy4aqTE806-ImeSei7gie(3y@`hQoea5KWPbl`|2|#}C(SK25!L z5xx^bePtBBUtUQD@@!(nE>LnTq{R9vT>w70uI)adydv(0m5jV zZzmAdb>Q>Ebs3>}(9BGf;gfK-j*>sDo>m-MU|Z{H3E5shoi~uyzH{~S@Kr(sZAwJa z(a?n0aD$27Hj>|os-=nO*oaW=qWmVVEiRWo7Vk3xK{Ny{c>)I+J6FXo ztGEI2=Cp8*B^fDAREf?es@02+Nydgm3><1QqiNc?*aV^>skw@`vobgyb~Xk0dfCg( z22_@X%3|PFa~V%#cH;>=t?oH&k)7n zwY+F@-kBaWp$BkLT5gNyT|s9ZdXO|;e=twP&;XgJjBoGTgr4e$%0p1;i;v&J`oZ?B z$^l!R5>Brtvu$})4kW5-19hmC8*Gt`$vU;9>l-4-?psf!jayKHU{lzBTgkq+tt=QdHeZf?@YFm@x2=t&wq#lN2B7l?(OiRZl{ zfu1M(k$UvWUXEJ|>o>~~+q2mb?{zcYa_*22{nSGgqofEcCLQcS#Uy*;OEB9HoY$ifX(9 zDyIa$NbN0nPPL4KQ(<6Q@ z2V?579f+pjHy@>5v}NQUqO7C7c>a)Y zr#O2k4(7jwH+oOmTOoodejed!WVBmn^Sa%Ceq2D6s)lvz#o#|!GF~f72dP#z4%)dJ zI9KD||35tI=pc~2kH5WW8ch~n?4-bXZXLcXh-MVoSrY~o{uWYmUQay|gY0zBnj;ju zo+COD-%2Lz3w+Wa*^9<2velEssGuS*9S*(A7b$g@K=|joBq`>oCWahst-{rOf-ujb zqd*S(=6KEcG22d1b#6M5K?O9$A-L=tJ;4=`;k`$(&RJdNgiaK5l1fN*a(z7SUQ0zm zjdGGC B)^ST97v-m^5XxSo0z9q{zW$2f7;3$k&mJgMgvleovuKg^kxeW$oWuL!t6 zCcSmxWAb6Y_eWV#g*W7mv7cl*&sP^2DwrFewF^jOrdmD8!joS_<4Hq9`CM`I({4bC zdGZS?fh%7e;fy@+B}ICN*+tk4u*je*8DGf*dBhtU`7uB6)JjD-RuSQ9oSF*-ahZ6nx6^hHHD>(>dR|#KmbuiVt zFlcr7BU{nzZfWmyH>b&2jh2 zd~oep5H?A*Dn~c46}K9X=ew5$l>J)Gz&iqg3O4_cgv@l><3C`J94Pk_Y=8%DV(F#% zq>bPGJ^OE(gD?U=-F_QAH-PD4)>zhE^Ly;?VU%N^Ji zAixVGoH{8T_$WY7JD&Dr$?dm;2O0x8f$IVVcBD&>7{AG<-1R$PAXO+J=UF6@fd-+V fYE0U|s8Aps7!eBa9zi(X-S}5cK>|Y{=jZm*frqfVkXSJmyxO59}8Rv5I^IwCgeZ5DApo2NHw5TU}V z)7o{FM68fWY8@^~NimU@XjCN{Ws#WViQC-|_ICF;JBZsw#DoQ+p$(Nb!^5Q=-JUgN z2;^m}J3RevcaNv6r(IFj)9vYPcdvCS3Z!Ko_rThAr>D$lwCvg!l_nd?2QgBK$+1>a zq9SssMxoG1mB4n_;nYngXGf27kjRu0?La5q7ZenT2@33R^gBC-hS+Fp~N z59*)`knP6gd2o6*8RPS>WWWBPT7q9S^R!w&Oj(O+iD_1FYvSaKaPm=-R)fw*uUsEuftlCOCa8%A{vAis2L^!uyXhGU+an22LkLiy4+stjGY$`i45Y zj)2=5D(nqbousb3R##yMuhDUN+7zQd$P0jce|9p!I0b~5j?NQ?p|$j@>_Yf^=GBxi zbP3hwNCR)5$Vr30+MEUSbWTLz#r3I+0%g#})1stsug8EYG9vCf=+!_L6 zZ>tMH=@^jIl#8i%V?@a9$Tc!>{9yhPuf~1HMO2@gz`K^wp~3+w=Ie3(QR7GhOBT!=KE^3WmG(pG5_ zgeDT6y(q={Iwi$=_1;87U=qWKlt9_Zgmg?+4_9|&?a{2i_sfduFJwvd5xE3z#^v>~ z{u_(eNf3=VHcv%-_%I~+m}DnG237|CvBvVL%zdIwko+KhyM<OeAZ)Hr< zY;S(dM7mFv8h{jYZ=@R^CVNxb&n))dcqde%0A_LbMk49}B-*TwxI1X(%jv=L1ovk3 zwpyCV&NFEZI*C6?_{zgn&no&|2q^QHk`qEqgo--LvS1{%o%7v(kNH?ItX#=p!3pK zbU46IRi&{Dd>&kok6kmnO35oCq61YKaN1o}%Hv^ANvOuoFj%bscv62MO{W5klT&8IUvp- zjW}LHO)7vALnduBrO)D5Qk%|RPZ@J6-DA?tX4NW{T*kX%he1rk%@|T7FEi)CsneVr z&+@q&&;z)im|K{1?{I{jjEK$de&QgW{^3MnB(M#LwQP)080iA1&3W4C!<`7NuC^06b=mPL8u&{)<|WFmwr9}T2Jj(A8tNE+sDJrjmbVs$ zmuO)2K*qMZQc#h=ClC z#}|{l;(S6wVh6owFLvN3_A!7?Yo^9uz?1yZ3ykS(6wFv0v#5Lun4TzgKbY zx$yt2`?pCzy0pTmf!EQ%;ljPrD~$lcOAlQ_!lUa3!(ioBQpez2+A>%Lk0#d@(sP5Q z@VK~$YT>bR{oDi=-f1g?^VPW?)qQz=y4Ph`*w@yh@aPSt@oaD8?V0byht7U`?okUzG9ueV`91W#xLtW}5OGDsTN_QaeJkReyl z@%1Tm`}U219J2$56RP>s9a(UCYlkhx=U;gDnZcm&M;k(6u&Lx~+BcTM{dV{LOa!E; zOj=AWdy**GgS;MCEQ?`vOD%O)yIX#X-^C54J!e^NrDMsck5 z9nYlQqu5iojFu;{wi<0^T_e1ONdg$aBX2Ue=oivZ=iHajZ%@AzoHo`2SVo=$ z)c{{VfPsGRK>73w8X3b8svau>=o(Y{b4Nsvj^Vt$GFFtxzvxYUTHtl&Y4JXjBKF^7J}e!QELVoe_Xze3dZ@2{es%U>JvzI%T2 zn!opc^O}Gb9)n)Qt@`yWCIRXcJ1F)O^8&B%@4fygx;J71dlR%H6uE5zO?z&_%D=(# z<>;LvKAMUXYnIeG}p72;gy`{NmW zunj&UEhPP2P8adCJ6xp0{aqLSCGb(HpSV|%E{CV9-_h3N^pI8VwZN#$xwacV4iO)5 z0ck{HAf0(dx;+&@GXN5M2YPydtD~RrtVq9`m(k|z>~^_uNdQ59p#@^}4eyw#MB?Th zzQQE3c}2>AfeIg+WY9e zS$Jv@O+SXMLUT+mz}T1@U_%dJz->N8u|X({`Q%u597hBnrZS*<<#-|1>I}X40!Vt> zf|=3zyDiWih*}ZQ{4^&pitEXA7-rn>TFk{~X_ABQp`8vpKfzzaE9>=#LB^GPg# zO(!q#Q)U0J1m4N^-Ba@EDi}Y7?B6}Lar#l#CGU$q=RW;BWDb}7`$d>QwzDe%zH%0L za%axw;iG^40bW+IeW^$uyu6x0KjIrKLduo-=P;RBw}p^NwegjE{z(QK^Jqikdkr^g_!{UnP#5`r5(#|M_D!(k zlTt3?>x@X4EHY^czcX=*?mW*AKb1m>B|0o*7_6-`H*1@8}k9Mq;K5 z=)Z17{c1%Bvz)mPxT%BpXDCYEcenilsson>mnw>MAIKOBITBLT.;1| 8778 - |changes| |to:| (VARS MAIKOBITBLTCOMS) +(FILECREATED "24-Oct-2021 10:31:31" |{DSK}larry>medley>sources>MAIKOBITBLT.;2| 8685 - |previous| |date:| "14-Jun-90 16:57:27" |{DSK}export>lispcore>sources>MAIKOBITBLT.;1|) + |previous| |date:| "25-Feb-94 16:50:33" |{DSK}larry>medley>sources>MAIKOBITBLT.;1|) -; Copyright (c) 1988, 1989, 1990, 1994 by Venue & Xerox Corporation. All rights reserved. +; Copyright (c) 1988-1990, 1994 by Venue & Xerox Corporation. (PRETTYCOMPRINT MAIKOBITBLTCOMS) -(RPAQQ MAIKOBITBLTCOMS ( - (* |;;| "this file has some optimizations for BITBLT on MAIKO; while PILOTBITBLT opcode still works, these functions directly implement some higher level operations") +(RPAQQ MAIKOBITBLTCOMS + ( + (* |;;| "this file has some optimizations for BITBLT on MAIKO; while PILOTBITBLT opcode still works, these functions directly implement some higher level operations") - (FNS \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR - \\MAIKO.BITBLT.BITMAP \\MAIKO.BLTSHADE.BITMAP) - - (* |;;| "Save the old \\BITBLT.BITMAP, because it handles the OPERATION - MERGE case, where the C code doesn't.") + (FNS \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR \\MAIKO.BITBLT.BITMAP + \\MAIKO.BLTSHADE.BITMAP) + + (* |;;| "Save the old \\BITBLT.BITMAP, because it handles the OPERATION - MERGE case, where the C code doesn't.") - (P (MOVD '\\BITBLT.BITMAP '\\MAIKO.OLDBITBLT.BITMAP)) - (ADDVARS (\\MAIKO.MOVDS (\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) - (\\MAIKO.BITBLTSUB \\BITBLTSUB) - (\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP) - (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP))))) + (P (MOVD '\\BITBLT.BITMAP '\\MAIKO.OLDBITBLT.BITMAP)) + (ADDVARS (\\MAIKO.MOVDS (\\MAIKO.BLTCHAR \\MEDW.BLTCHAR) + (\\MAIKO.BITBLTSUB \\BITBLTSUB) + (\\MAIKO.BITBLT.BITMAP \\BITBLT.BITMAP) + (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP))))) @@ -34,7 +34,7 @@ (\\MAIKO.BITBLTSUB (LAMBDA (PILOTBBT |SourceBitMap| SLX STY |DestinationBitMap| DLX DTY HEIGHT |SourceType| - |Operation| |Texture| |WindowXOffset| |WindowYOffset|) + |Operation| |Texture| |WindowXOffset| |WindowYOffset|) (* \; "Edited 29-Jun-88 16:24 by ") (* |;;| "replaces \\BITBLTSUB on Maiko") @@ -49,7 +49,9 @@ CHARCODE DISPLAYSTREAM DISPLAYDATA))) (\\MAIKO.PUNTBLTCHAR - (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; "Edited 29-Jun-88 16:04 by ") + (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; + "Edited 24-Oct-2021 10:31 by larry") + (* \; "Edited 29-Jun-88 16:04 by ") (* |;;| "puts a character on a display stream. This function will be called when \\maiko.bltchar failed. Punt from subr call") @@ -107,14 +109,14 @@ DISPLAYDATA) )) 0))) - (.WHILE.TOP.DS. DISPLAYSTREAM ((OPCODES SUBRCALL 70 6) - LOCAL1 DISPLAYDATA CHAR8CODE CURX LEFT RIGHT)) + (.WHILE.TOP.DS. DISPLAYSTREAM (SUBRCALL BLTCHAR LOCAL1 DISPLAYDATA CHAR8CODE + CURX LEFT RIGHT)) T)))))) (\\MAIKO.BITBLT.BITMAP (LAMBDA (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM DESTBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT - CLIPPEDSOURCEBOTTOM) (* \; "Edited 14-Jun-90 16:47 by TS") + CLIPPEDSOURCEBOTTOM) (* \; "Edited 14-Jun-90 16:47 by TS") (* |;;| "SUN version of \\BITBLT.BITMAP. For all but the MERGE case, use C code. For the MERGE case, use the old code.") @@ -132,7 +134,7 @@ (\\MAIKO.BLTSHADE.BITMAP (LAMBDA (TEXTURE DESTINATIONBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT OPERATION - CLIPPINGREGION) (* \; "Edited 14-Jun-90 16:49 by TS") + CLIPPINGREGION) (* \; "Edited 14-Jun-90 16:49 by TS") (DECLARE (LOCALVARS . T)) (* |;;| "C function, bitshade_bitmap , has PUNT case \\PUNT.BLTSHADE.BITMAP(Takeshi)") @@ -156,7 +158,7 @@ (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP)) (PUTPROPS MAIKOBITBLT COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1994)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (1600 8233 (\\MAIKO.BITBLTSUB 1610 . 2130) (\\MAIKO.BLTCHAR 2132 . 2272) ( -\\MAIKO.PUNTBLTCHAR 2274 . 6375) (\\MAIKO.BITBLT.BITMAP 6377 . 7729) (\\MAIKO.BLTSHADE.BITMAP 7731 . -8231))))) + (FILEMAP (NIL (1339 8140 (\\MAIKO.BITBLTSUB 1349 . 1865) (\\MAIKO.BLTCHAR 1867 . 2007) ( +\\MAIKO.PUNTBLTCHAR 2009 . 6282) (\\MAIKO.BITBLT.BITMAP 6284 . 7636) (\\MAIKO.BLTSHADE.BITMAP 7638 . +8138))))) STOP diff --git a/sources/MAIKOBITBLT.LCOM b/sources/MAIKOBITBLT.LCOM index 33f1096636b358d30cd8b7a34c35b088ddce679e..e8c2e2fc5a3c0aeab2c23d8f83aa2f27ace71575 100644 GIT binary patch delta 556 zcmZ22K1qCnV?7s_hMT94t8c7ml30?OQUfv{Ny^B`%Fxux&|FEAfcNSl{v*{t3KnJ- zrV2F$MX6<(`K84`>%r~-x?0J|RM#yvN!QXu!O+ag6c~cW_<~ChTX-4PXmZ8GfP+vE z5{AK{P6}2o7F?5`F#cxbn*4w%k&$b&6Z0GmB=CAlbta z3{uIV2qc*}Gl66dXFQPH$K^PgmrIp}OH)AuC@ntOo?C=PQ&W>`av`TZP<|;_6eHIp QZjj~>?jTk!KTjVn0K1%^vj6}9 delta 532 zcmZ9I&2Q5%6u_0S(JqrupbdeBo-Cm?heS=&kko^qbS+Z4cB_&w3A9UStr9Ius-)#Z z81WAvKIQ`);K+#!g1?0;S3u&(4I$wG5`)XL{oe1{Kfj~3H)~JbHmY6q`rR$R>xSJ9 z;D)L8qEv0!pj*Uf5#7L0!=vnQ8YgrNSqd1~{Z6p`;8GG7(@~bwXHQlSnoI$Njk-FB za=z&cOAyciUdr?uXi@&cL=T8`$Vplul?N-kxQIL2b|V z13<^vt=&PO0GsCYcAU*iuoMw!DbkyZNz_5VNK8w(U_gJqe)=FzCl0+k&GMOZYz}92 zrl9@(U-xUjWrAyMARQa=uhMr3@y`p9gx>c~yj&2=rzKMox%JA6^FzNIhS!D7(D!yi z_|K5Pt6%|ssJs%fs0K%sGyG#!7Kbm@_#{%GHU!?6ukh!~=S1?g?DB8R7Z%F`mjt`9 ha%xdg6jU;z{z$$d;@j#f{~=!%yUi7U3GH}&^b@|5nfU+! From 4406a2a2ec2f5f5e1ed32d486cc64e0ba2b00411 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 26 Oct 2021 10:59:41 -0700 Subject: [PATCH 2/4] more opcodes subr# in maikoloadupfns --- sources/MAIKOLOADUPFNS | 35 +++++++++++++++++------------------ sources/MAIKOLOADUPFNS.LCOM | Bin 2928 -> 2905 bytes 2 files changed, 17 insertions(+), 18 deletions(-) diff --git a/sources/MAIKOLOADUPFNS b/sources/MAIKOLOADUPFNS index 10f1f7cea..5cd692de9 100644 --- a/sources/MAIKOLOADUPFNS +++ b/sources/MAIKOLOADUPFNS @@ -1,9 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 2-Mar-2021 23:12:27" {DSK}larry>ilisp>medley>sources>MAIKOLOADUPFNS.;4 5921 - changes to%: (VARS MAIKOLOADUPFNSCOMS) +(FILECREATED "26-Oct-2021 09:55:14" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;2 5969 - previous date%: "25-Feb-2021 15:43:43" {DSK}larry>ilisp>save>MAIKOLOADUPFNS.;1) + changes to%: (FNS \BITBLTSUB \BLTCHAR) + + previous date%: " 2-Mar-2021 23:12:27" {DSK}larry>medley>sources>MAIKOLOADUPFNS.;1) (* ; " @@ -59,18 +60,16 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation. (\BITBLTSUB [LAMBDA (PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType Operation - Texture WindowXOffset WindowYOffset) (* ; "Edited 29-Jun-88 16:24 by ") + Texture WindowXOffset WindowYOffset) (* ; "Edited 26-Oct-2021 09:53 by larry") (* ;; "replaces \BITBLTSUB on Maiko") - ((OPCODES SUBRCALL 69 13) - PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType Operation Texture - WindowXOffset WindowYOffset]) + (SUBRCALL BITBLTSUB PILOTBBT SourceBitMap SLX STY DestinationBitMap DLX DTY HEIGHT SourceType + Operation Texture WindowXOffset WindowYOffset]) (\BLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) - ((OPCODES SUBRCALL 135 3) - CHARCODE DISPLAYSTREAM DISPLAYDATA]) + [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; "Edited 26-Oct-2021 09:51 by larry") + (SUBRCALL NEW-BLTCHAR CHARCODE DISPLAYSTREAM DISPLAYDATA]) (\CHECKSUM [LAMBDA (BASE NWORDS INITSUM) (* ; "Edited 20-May-88 11:48 by MASINTER") @@ -164,12 +163,12 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation. ) (PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1336 5603 (CL::%%COPY-TIME-STATS 1346 . 1542) (CHECKPAGEMAP 1544 . 1676) (CLOCK 1678 . -1827) (CLOCK0 1829 . 1979) (DAYTIME 1981 . 2132) (SETTIME 2134 . 2408) (\BITBLTSUB 2410 . 2832) ( -\BLTCHAR 2834 . 2966) (\CHECKSUM 2968 . 3133) (\CLOCK0 3135 . 3286) (\COUNTREALPAGES 3288 . 3421) ( -\DAYTIME0 3423 . 3576) (\DIRTYBACKGROUND 3578 . 3714) (\DOLOCKPAGES 3716 . 3848) (\DONEWPAGE 3850 . -3999) (\DORECLAIM 4001 . 4147) (\DOTEMPLOCKPAGES 4149 . 4285) (\LOADVMEMPAGE 4287 . 4420) ( -\LOCKEDPAGEP 4422 . 4538) (\LOCKPAGES 4540 . 4670) (\MOVEVMEMFILEPAGE 4672 . 4793) (\NEWPAGE 4795 . -4942) (\PAGEFAULT 4944 . 5056) (\SHOWPAGETABLE 5058 . 5192) (\TEMPUNLOCKPAGES 5194 . 5330) ( -\UNLOCKPAGES 5332 . 5464) (\WRITEDIRTYPAGE 5466 . 5601))))) + (FILEMAP (NIL (1335 5651 (CL::%%COPY-TIME-STATS 1345 . 1541) (CHECKPAGEMAP 1543 . 1675) (CLOCK 1677 . +1826) (CLOCK0 1828 . 1978) (DAYTIME 1980 . 2131) (SETTIME 2133 . 2407) (\BITBLTSUB 2409 . 2831) ( +\BLTCHAR 2833 . 3014) (\CHECKSUM 3016 . 3181) (\CLOCK0 3183 . 3334) (\COUNTREALPAGES 3336 . 3469) ( +\DAYTIME0 3471 . 3624) (\DIRTYBACKGROUND 3626 . 3762) (\DOLOCKPAGES 3764 . 3896) (\DONEWPAGE 3898 . +4047) (\DORECLAIM 4049 . 4195) (\DOTEMPLOCKPAGES 4197 . 4333) (\LOADVMEMPAGE 4335 . 4468) ( +\LOCKEDPAGEP 4470 . 4586) (\LOCKPAGES 4588 . 4718) (\MOVEVMEMFILEPAGE 4720 . 4841) (\NEWPAGE 4843 . +4990) (\PAGEFAULT 4992 . 5104) (\SHOWPAGETABLE 5106 . 5240) (\TEMPUNLOCKPAGES 5242 . 5378) ( +\UNLOCKPAGES 5380 . 5512) (\WRITEDIRTYPAGE 5514 . 5649))))) STOP diff --git a/sources/MAIKOLOADUPFNS.LCOM b/sources/MAIKOLOADUPFNS.LCOM index 503185152d651db476b9cb614ceee4fbe0072906..f81b8f2f2c908ac2fda2719fba1e02e297bfb8d0 100644 GIT binary patch literal 2905 zcmb_eTTkOg6b?(b-CEiTRjYQNR;QMboQFiVSuRN{nz21G7PiMbo)FUJ1%bC@1q6lA z7FBufKj=$;O#fQXajrHjTcje9jK|;k&SkziCx*w{LCkCIAmp_mZVPymF!zx89P}Vo zT!ulK=J{p1j-3j+Hr6hD))fNDqN4UUkAh6n>R{KRlhL%8_Eyuf zn>J>wJv9sqvy%yX_YR76#mc2%7>N`KMup{5y@Vs?5S4)ijd!Cf-Mq9oKRGqDRRM1k8Rco74*{sk-MB;8m&*hI`Ilk;h`%7yf>5t zQD9yDP&h0+ViLnwgUjrv;Z^41<$=CrT_u?t#6I*RcHCts8!mmW(kf_%N7+e^vf)Q8 zY|U;3UVaUUw{2(FwLfjRZkuOp7pQM^iRm8i+Wgt>_cXflVd zeP~Te@cB)-hkt>wtX(|6XE47~O9RPOJM_uNcVyH0tMw%%^7qAybM*Ett^XmmO8&7? zF}9W$)ZT_Z3c%%QT9+KT>vUgHle>^Ai4sik#H~hAqPSJnR<86s6w8M0;OcDnTTi@y zf0K>DvSu5{^9>VJ_WSsDltBZ;bv8N~4{%WIL7EQ)b$6Yi=K~)22MTt;Q$5%QFFb~~ z;AJ=C!BviT2IJ`D8n!UR9@voLduzrpdu0NS3ZWcFQCVJN?k`)+ad8y-U-=vU*ZwR2 z8~^o$zbqW~yhASz&jt^NW5{|QQw)8~p0F~UMW_R6=dSQLIicdNqm#*>>qXK}eR3!ZZ&2E|IX}T)6QgXf&`G;bNi#9tCaiLnuYVG2)dn&xwkBj`p zOH}C9p8(D~?K~12DDNMsRDw$>xJ_;;O)<;YE(Q!wUQ|3*_(DCPxz~45*(e-fJo^-GpdkwHnYY#tc3+E<{ Gk$(Z4-M6Oz literal 2928 zcmb_eU2o$=6iv4*EDuH%Ld!m_E|w}e4~cBI-L?UhjO~eQ)%JL2CQSo=39XlAl{Qh5 zE>tMb`~zP2G5j^|IG;}1E+DGZamMGK`!Q$kwc*i55YtK{2x%pV8w_42#62TE1wDu* z`K%bR&3L@z}~A_cFjK2!O$=JH-m03 zyMq2Lg0$Z}aW?txx_^_M^g6@g{Ykgi9Su%yva4Qpe=_Rd4KK6NNkoD(7Bb>BlSVA6 z-|m;u)>=BS-qa3`@S}t7vM5oBs9>&i=-z^+M>!inFH!3FNyg+X+R?843nVOyl!_vpAx$ zEU#IX5g!ZC+^|;L-E~>guE-#w6(NZf;GRh0MC<3LQ!B{{g62%%=MAV?oIYX|2A{+P(jK`OLF1{u@7lP zE?NZZMY&HU%0@Fhl^v%j8G25_`s|zlRzRx#0RtnL@m2vhG~aLmhG0$ZqGJ_>^xUwF zf0~grrIN+EMnR>Xs|0s`^(a1J@{pdus6Et!Y7h6I+Pnvq9}!&5JJO603=2FeWDo~L z1}v^Ps_0+>rwz(!?9%BsBR$PbDHiApnMPN?7 z^y{z-bQG^rTWi$H!i2er31~8hZ@sTi*5LD#vVnhrv2698Zy3yv)Y5=c*$92*;~QmD z|D*o7O61Spi)-}uwYvXHv6b@6PRZC?9#H!LQWStog{X3h+*Ng6v1c8EkQ^nL;Er3z zP>?7tm9>>4JrBjQq1C;;>i^Pa@7|5FF<91Y;bOjEg3Nv$-wiW31~$lsopBcj$PtKq zLdg3;hMrGp;Gar(1DCs8-nQMQfTTWP^t@GbC+~NP<3QzpyftM5qJR z$6V%7J0TWi@Y zCcwhib3~RVX=xo;oDU251C5|KIzED2j+G*?TlB9oQ`11?-D0^rYt`ErM^BRe4+UHf zIps+;Todvhrs}d)FD6kOgT>I+5?P;+Pl8vc=aazVWPP%fkB&PvIeFf63>{yG7{1%| ahlBpKJ>k3L@zF8ZrgelD+rqi2#>n3W{=sSh From 2c80f8ff0e7b0e414cdab5d0fa489060ba1d540a Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 26 Oct 2021 11:58:24 -0700 Subject: [PATCH 3/4] even more OPCODES SUBRCALL --- library/BIGBITMAPS | 274 ++++++++++++++++----------------------- library/BIGBITMAPS.LCOM | Bin 22383 -> 22089 bytes library/LLCOLOR | 155 +++++++++++----------- library/MAIKOCOLOR | 121 ++++++++++------- library/MAIKOCOLOR.LCOM | Bin 13780 -> 14824 bytes sources/MAIKOBITBLT | 40 ++++-- sources/MAIKOBITBLT.LCOM | Bin 2962 -> 3303 bytes 7 files changed, 295 insertions(+), 295 deletions(-) diff --git a/library/BIGBITMAPS b/library/BIGBITMAPS index a0da1ffcc..de80c7faa 100644 --- a/library/BIGBITMAPS +++ b/library/BIGBITMAPS @@ -1,12 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "13-Jun-2021 14:02:38"  -|{DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;5| 113115 - |changes| |to:| (FNS \\DRAWLINE.BIGBM.DASH \\DRAWLINE.BIGBM.NODASH BIGBITMAPP) - (VARS BIGBITMAPSCOMS) +(FILECREATED "26-Oct-2021 10:53:57" |{DSK}larry>medley>library>BIGBITMAPS.;2| 109300 - |previous| |date:| "10-May-2021 15:37:51" -|{DSK}kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;1|) + |changes| |to:| (FNS \\BWTOCOLORBLT UNCOLORIZEBITMAP COLORIZEBITMAP) + + |previous| |date:| "13-Jun-2021 14:02:38" |{DSK}larry>medley>library>BIGBITMAPS.;1|) ; Copyright (c) 1991, 1993-1994, 2021 by Venue. @@ -69,11 +67,11 @@ (PUTPROPS |\\SFInvert| MACRO ((|BitMap| \y) - (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| |are| |stored| |with| - 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| - |left.| |The| |correction| |is| |actually| |off| |by| |one| - (|greater|) |because| \a |majority| |of| |the| |places| |that| |it| |is| - |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) + (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| |are| |stored| |with| + 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| + |left.| |The| |correction| |is| |actually| |off| |by| |one| + (|greater|) |because| \a |majority| |of| |the| |places| |that| |it| |is| + |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) (IDIFFERENCE (|fetch| (BITMAP BITMAPHEIGHT) |of| |BitMap|) @@ -1478,7 +1476,7 @@ (DEFINEQ (COLORIZEBITMAP - (LAMBDA (BITMAP 0COLOR 1COLOR BITSPERPIXEL) (* \; "Edited 13-Jul-90 14:42 by matsuda") + (LAMBDA (BITMAP 0COLOR 1COLOR BITSPERPIXEL) (* |kbr:| "15-Feb-86 10:13") (* |creates| \a |copy| |of| BITMAP |that| |is| |in| |color| |form| |allowing|  BITSPERPIXEL |per| |pixel.| 0COLOR |and| 1COLOR |are| |the| |color| |numbers| @@ -1488,42 +1486,23 @@ (SETQ COLORBITMAP (BITMAPCREATE (|fetch| (BITMAP BITMAPWIDTH) |of| BITMAP) (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) BITSPERPIXEL)) - (COND - ((NOT (|type?| BIGBM COLORBITMAP)) - (\\BWTOCOLORBLT BITMAP 0 0 COLORBITMAP 0 0 (|fetch| (BITMAP BITMAPWIDTH) - |of| BITMAP) - (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) - (COLORNUMBERP 0COLOR BITSPERPIXEL) - (COLORNUMBERP 1COLOR BITSPERPIXEL) - BITSPERPIXEL)) - (T (PROG (DESTBMLIST DESTBITMAP SOURCEBOOTTOM) - (SETQ DESTBMLIST (|fetch| (BIGBM BIGBMLIST) |of| COLORBITMAP)) - (SETQ DESTBM (|GetNewFragment| DESTBMLIST)) - (SETQ SOURCEBOOTTOM (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP)) - (|while| DESTBM |do| (SETQ DESTBMHEIGHT (|fetch| (BITMAP - BITMAPHEIGHT - ) - |of| DESTBM)) - (SETQ SOURCEBOOTTOM (- SOURCEBOOTTOM DESTBMHEIGHT)) - (\\BWTOCOLORBLT BITMAP 0 SOURCEBOOTTOM DESTBM 0 0 - (|fetch| (BITMAP BITMAPWIDTH) |of| - BITMAP) - DESTBMHEIGHT - (COLORNUMBERP 0COLOR BITSPERPIXEL) - (COLORNUMBERP 1COLOR BITSPERPIXEL) - BITSPERPIXEL) - (SETQ DESTBM (|GetNewFragment| DESTBMLIST)))))) + (\\BWTOCOLORBLT BITMAP 0 0 COLORBITMAP 0 0 (|fetch| (BITMAP BITMAPWIDTH) + |of| BITMAP) + (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) + (COLORNUMBERP 0COLOR BITSPERPIXEL) + (COLORNUMBERP 1COLOR BITSPERPIXEL) + BITSPERPIXEL) (RETURN COLORBITMAP)))) (\\BWTOCOLORBLT - (LAMBDA (SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) - (* \; "Edited 8-May-2021 22:31 by rmk:") - - (* |blits| |from| \a |black| |and| |white| |bitmap| |into| \a |color| |bitmap| - |which| |has| DESTNBITS |bits| |per| |pixel.| - DESTCOLORBM |is| \a |pointer| |to| |the| |color| |bitmap.|) - (* |assumes| |all| |datatypes| |and| - |bounds| |have| |been| |checked|) + (LAMBDA (SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) + (* |kbr:| "15-Feb-86 11:06") + + (* |blits| |from| \a |black| |and| |white| |bitmap| |into| \a |color| |bitmap| + |which| |has| DESTNBITS |bits| |per| |pixel.| + DESTCOLORBM |is| \a |pointer| |to| |the| |color| |bitmap.|) + (* |assumes| |all| |datatypes| |and| + |bounds| |have| |been| |checked|) (SELECTQ DESTNBITS (4 (PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW DESWRD DESOFF NBITS DESALIGNLEFT SCR) @@ -1538,24 +1517,24 @@ (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) (SETQ DESWRD (FOLDLO DLEFT 4)) (SETQ DESOFF (MOD DLEFT 4)) - (SETQ NBITS 4) (* DESTCOLORBM |is| |used| |to| - |allow| |one| |bit| |per| |pixel| - |bitblt| |operations| |on| |the| - |bitmap.|) + (SETQ NBITS 4) (* DESTCOLORBM |is| |used| |to| + |allow| |one| |bit| |per| |pixel| + |bitblt| |operations| |on| |the| + |bitmap.|) (COND - ((NOT (EQ 0 DESOFF)) (* |save| |the| |left| |bits| |of| - |the| |destination| |bitmap| |so| - |it| |can| |be| |word| |aligned.|) + ((NOT (EQ 0 DESOFF)) (* |save| |the| |left| |bits| |of| + |the| |destination| |bitmap| |so| + |it| |can| |be| |word| |aligned.|) (SETQ SCR (BITMAPCREATE 4 HEIGHT 4)) (BITBLT DESTCOLORBM (SETQ DESALIGNLEFT (LLSH DESWRD 2)) DBOTTOM SCR 0 0 DESOFF HEIGHT 'INPUT 'REPLACE))) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) (\\4BITLINEBLT (\\ADDBASE SRCBASE (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1570,9 +1549,9 @@ DESWRD)) WIDTH MAP 0COLOR 1COLOR)) (COND - (DESALIGNLEFT (* |move| |the| |color| |bits| |to| - |the| |right| |and| |restore| |the| - |saved| |color| |bits.|) + (DESALIGNLEFT (* |move| |the| |color| |bits| |to| + |the| |right| |and| |restore| |the| + |saved| |color| |bits.|) (BITBLT DESTCOLORBM DESALIGNLEFT DBOTTOM DESTCOLORBM (IPLUS DESALIGNLEFT DESOFF) @@ -1580,32 +1559,38 @@ (BITBLT SCR 0 0 DESTCOLORBM DESALIGNLEFT DBOTTOM DESOFF HEIGHT 'INPUT 'REPLACE))))) - (8 - - (* PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW - DESWRD DESOFF) (SETQ MAP (|fetch| (ARRAYP BASE) |of| - (\\MAP8 0COLOR 1COLOR))) (SETQ SRCBASE (|fetch| - (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT - (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) - (SETQ SRCRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| SOURCEBWBM)) - (SETQ SRCWRD (FOLDLO SLEFT BITSPERWORD)) - (SETQ SRCOFFSET (MOD SLEFT BITSPERWORD)) - (SETQ DESBASE (|fetch| (BITMAP BITMAPBASE) |of| DESTCOLORBM)) - (SETQ DESHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| DESTCOLORBM)) - (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) - (SETQ DESWRD (FOLDLO DLEFT 2)) (SETQ DESOFF - (MOD DLEFT 2)) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) (\\8BITLINEBLT (\\ADDBASE SRCBASE - (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER SBOTTOM)) SRCRW) - SRCWRD)) SRCOFFSET (\\ADDBASE DESBASE (IPLUS - (ITIMES (IDIFFERENCE DESHEIGHT (IPLUS LINECOUNTER DBOTTOM)) DESRW) DESWRD)) - DESOFF WIDTH MAP 0COLOR 1COLOR)) *) - - ((OPCODES SUBRCALL 142 11) - SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS)) + (8 (PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW DESWRD DESOFF) + (SETQ MAP (|fetch| (ARRAYP BASE) |of| (\\MAP8 0COLOR 1COLOR))) + (SETQ SRCBASE (|fetch| (BITMAP BITMAPBASE) |of| SOURCEBWBM)) + (SETQ SRCHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) + (SETQ SRCRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| SOURCEBWBM)) + (SETQ SRCWRD (FOLDLO SLEFT BITSPERWORD)) + (SETQ SRCOFFSET (MOD SLEFT BITSPERWORD)) + (SETQ DESBASE (|fetch| (BITMAP BITMAPBASE) |of| DESTCOLORBM)) + (SETQ DESHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| DESTCOLORBM)) + (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) + (SETQ DESWRD (FOLDLO DLEFT 2)) + (SETQ DESOFF (MOD DLEFT 2)) + (|for| LINECOUNTER |from| 1 |to| HEIGHT + |do| + + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) + + (\\8BITLINEBLT (\\ADDBASE SRCBASE (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT + (IPLUS LINECOUNTER + SBOTTOM)) + SRCRW) + SRCWRD)) + SRCOFFSET + (\\ADDBASE DESBASE (IPLUS (ITIMES (IDIFFERENCE DESHEIGHT + (IPLUS LINECOUNTER DBOTTOM) + ) + DESRW) + DESWRD)) + DESOFF WIDTH MAP 0COLOR 1COLOR)))) (24 (PROG (SRCBASE SRCHEIGHT SRCRW DESBASE DESHEIGHT DESRW) (SETQ SRCBASE (|fetch| (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) @@ -1616,10 +1601,10 @@ (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| + |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| + |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| + |height| |difference.|) (\\24BITLINEBLT (\\ADDBASE SRCBASE (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1634,12 +1619,12 @@ (SHOULDNT)))) (UNCOLORIZEBITMAP - (LAMBDA (BITMAP COLORMAP) (* \; "Edited 13-Jul-90 16:54 by matsuda") + (LAMBDA (BITMAP COLORMAP) (* |kbr:| " 2-Sep-85 19:21") (PROG (BITSPERPIXEL MAXCOLOR MAXX MAXY BWBITMAP TABLE RGB R G B BIT BASE BWBASE RASTERWIDTH BWRASTERWIDTH WORD) - (SETQ MAXX (SUB1 (BITMAPWIDTH BITMAP))) - (SETQ MAXY (SUB1 (BITMAPHEIGHT BITMAP))) - (SETQ BITSPERPIXEL (BITSPERPIXEL BITMAP)) + (SETQ MAXX (SUB1 (|fetch| (BITMAP BITMAPWIDTH) |of| BITMAP))) + (SETQ MAXY (SUB1 (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP))) + (SETQ BITSPERPIXEL (|fetch| (BITMAP BITMAPBITSPERPIXEL) |of| BITMAP)) (SETQ COLORMAP (OR COLORMAP (COLORMAP BITSPERPIXEL))) (SETQ MAXCOLOR (MAXIMUMCOLOR BITSPERPIXEL)) (SETQ BWBITMAP (BITMAPCREATE (ADD1 MAXX) @@ -1655,12 +1640,10 @@ (SETQ BIT (IDIFFERENCE 1 (IQUOTIENT (IPLUS R G B) 384))) (\\PUTBASE TABLE I BIT)) - (COND - ((|type?| BITMAP BITMAP) - (SETQ BASE (|fetch| (BITMAP BITMAPBASE) |of| BITMAP)) - (SETQ BWBASE (|fetch| (BITMAP BITMAPBASE) |of| BWBITMAP)) - (SETQ RASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BITMAP)) - (SETQ BWRASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BWBITMAP)))) + (SETQ BASE (|fetch| (BITMAP BITMAPBASE) |of| BITMAP)) + (SETQ BWBASE (|fetch| (BITMAP BITMAPBASE) |of| BWBITMAP)) + (SETQ RASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BITMAP)) + (SETQ BWRASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BWBITMAP)) (SELECTQ BITSPERPIXEL (4 (|for| Y |from| 0 |to| MAXY |do| (SETQ WORD 0) @@ -1683,56 +1666,27 @@ ((NOT (EQ Y MAXY)) (SETQ BASE (\\ADDBASE BASE RASTERWIDTH)) (SETQ BWBASE (\\ADDBASE BWBASE BWRASTERWIDTH)))))) - (8 (COND - ((NOT (|type?| BIGBM BITMAP)) - ((OPCODES SUBRCALL 141 3) - BITMAP BWBITMAP TABLE)) - (T (PROG ((SRCBIGBMLIST (|fetch| (BIGBM BIGBMLIST) |of| BITMAP)) - SRCBITMAP - (WIDTH (ADD1 MAXX)) - HEIGHT - (DESTBOTTOM (ADD1 MAXY)) - (TEMPBM (BITMAPCREATE (ADD1 MAXX) - (ADD1 MAXY) - 1))) - (SETQ SRCBITMAP (|GetNewFragment| SRCBIGBMLIST)) - (|while| SRCBITMAP |do| (SETQ DESTBOTTOM - (IDIFFERENCE DESTBOTTOM - (SETQ HEIGHT (|fetch| - (BITMAP - BITMAPHEIGHT - ) - |of| - SRCBITMAP) - ))) - ((OPCODES SUBRCALL 141 3) - SRCBITMAP TEMPBM TABLE) - (BITBLT TEMPBM 0 (IDIFFERENCE - (ADD1 MAXY) - HEIGHT) - BWBITMAP 0 DESTBOTTOM WIDTH HEIGHT - 'INPUT - 'REPLACE) - (SETQ SRCBITMAP (|GetNewFragment| - SRCBIGBMLIST)))))) - (* |for| Y |from| 0 |to| MAXY |do| - (SETQ WORD 0) (|for| X |from| 0 |to| - MAXX |do| (SETQ WORD - (LOGOR (LLSH WORD 1) - (\\GETBASE TABLE (\\GETBASEBYTE BASE - X)))) (COND ((EQ (LOGAND X 15) 15) - (\\PUTBASE BWBASE (FOLDLO X 16) WORD) - (SETQ WORD 0)))) (COND - ((NOT (EQ (LOGAND MAXX 15) 15)) - (SETQ WORD (LLSH WORD - (IDIFFERENCE 15 (LOGAND MAXX 15)))) - (\\PUTBASE BWBASE (FOLDLO MAXX 16) - WORD))) (COND ((NOT - (EQ Y MAXY)) (SETQ BASE - (\\ADDBASE BASE RASTERWIDTH)) - (SETQ BWBASE (\\ADDBASE BWBASE - BWRASTERWIDTH)))) *) - ) + (8 (|for| Y |from| 0 |to| MAXY + |do| (SETQ WORD 0) + (|for| X |from| 0 |to| MAXX + |do| (SETQ WORD (LOGOR (LLSH WORD 1) + (\\GETBASE TABLE (\\GETBASEBYTE BASE X)))) + (COND + ((EQ (LOGAND X 15) + 15) + (\\PUTBASE BWBASE (FOLDLO X 16) + WORD) + (SETQ WORD 0)))) + (COND + ((NOT (EQ (LOGAND MAXX 15) + 15)) + (SETQ WORD (LLSH WORD (IDIFFERENCE 15 (LOGAND MAXX 15)))) + (\\PUTBASE BWBASE (FOLDLO MAXX 16) + WORD))) + (COND + ((NOT (EQ Y MAXY)) + (SETQ BASE (\\ADDBASE BASE RASTERWIDTH)) + (SETQ BWBASE (\\ADDBASE BWBASE BWRASTERWIDTH)))))) NIL) (RETURN BWBITMAP)))) ) @@ -1748,15 +1702,15 @@ ) (PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994 2021)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (3337 48035 (BIGBITMAPP 3347 . 3493) (BITBLT.BIGBM 3495 . 14318) (BITMAPCREATE.BIGBM -14320 . 15662) (BITMAPCREATE 15664 . 17266) (BITMAPCOPY 17268 . 17803) (BLTSHADE.BIGBM 17805 . 20941) -(BITBLT 20943 . 22591) (\\ORG.BITBLT 22593 . 34162) (\\BLTSHADE.DISPLAY 34164 . 43402) ( -\\RESHOWBORDER1 43404 . 48033)) (48036 71314 (\\DRAWCIRCLE.BIGBM 48046 . 51409) (\\FILLCIRCLE.BIGBM -51411 . 55457) (\\DRAWELLIPSE.BIGBM 55459 . 59979) (\\DRAWCURVE.BIGBM 59981 . 63831) ( -\\DRAWLINE.BIGBM.DASH 63833 . 68192) (\\DRAWLINE.BIGBM.NODASH 68194 . 71312)) (71315 86890 (DSPCREATE -71325 . 73755) (DSPDESTINATION 73757 . 77655) (|\\SFFixY| 77657 . 83379) (|\\SFFixDestination| 83381 - . 84564) (|\\SFFixClippingRegion| 84566 . 86888)) (86891 94977 (\\SW2BM 86901 . 91925) (BITMAPHEIGHT -91927 . 92425) (BITMAPWIDTH 92427 . 92919) (|\\SFFixFont| 92921 . 93893) (BITSPERPIXEL 93895 . 94975)) - (94978 112868 (COLORIZEBITMAP 94988 . 97625) (\\BWTOCOLORBLT 97627 . 105909) (UNCOLORIZEBITMAP 105911 - . 112866))))) + (FILEMAP (NIL (3237 47935 (BIGBITMAPP 3247 . 3393) (BITBLT.BIGBM 3395 . 14218) (BITMAPCREATE.BIGBM +14220 . 15562) (BITMAPCREATE 15564 . 17166) (BITMAPCOPY 17168 . 17703) (BLTSHADE.BIGBM 17705 . 20841) +(BITBLT 20843 . 22491) (\\ORG.BITBLT 22493 . 34062) (\\BLTSHADE.DISPLAY 34064 . 43302) ( +\\RESHOWBORDER1 43304 . 47933)) (47936 71214 (\\DRAWCIRCLE.BIGBM 47946 . 51309) (\\FILLCIRCLE.BIGBM +51311 . 55357) (\\DRAWELLIPSE.BIGBM 55359 . 59879) (\\DRAWCURVE.BIGBM 59881 . 63731) ( +\\DRAWLINE.BIGBM.DASH 63733 . 68092) (\\DRAWLINE.BIGBM.NODASH 68094 . 71212)) (71215 86790 (DSPCREATE +71225 . 73655) (DSPDESTINATION 73657 . 77555) (|\\SFFixY| 77557 . 83279) (|\\SFFixDestination| 83281 + . 84464) (|\\SFFixClippingRegion| 84466 . 86788)) (86791 94877 (\\SW2BM 86801 . 91825) (BITMAPHEIGHT +91827 . 92325) (BITMAPWIDTH 92327 . 92819) (|\\SFFixFont| 92821 . 93793) (BITSPERPIXEL 93795 . 94875)) + (94878 109053 (COLORIZEBITMAP 94888 . 95920) (\\BWTOCOLORBLT 95922 . 104863) (UNCOLORIZEBITMAP 104865 + . 109051))))) STOP diff --git a/library/BIGBITMAPS.LCOM b/library/BIGBITMAPS.LCOM index 0e338ef46a096a51767637c03ef17e285f055bfc..6ed911c89c678bc467db6f655ff6a095b6b4d459 100644 GIT binary patch delta 1109 zcma)5OH30{6rBzq2}WoE2?0`Xsxjr?`L)w(&<-7@h1b5OANfeq0B!iRP%KD7979}^ zxFEizJ6w<$W5AlYlf;dni5uOp(hXZ7Vd(;2KeP}xPBO`vJMW!$?z!h3zcn1ZF>ESY zt##0c)Pa!dj;J26@b(@&z0$+mcn&z5OA=g?!va>zbb4WFE|rKwdJ!z3KktGZixG15wx0h~>Pp%~5`ekuNW~Zg&zdHC=@j@b=O04y#=B6^_C2PFF>$G8~V6&CP zQAPSn+NFbaFc2ocBXAQ2Fv20x{J5}hu z0cB_xN>#B81+i4+bH3H(W(5Lg2X`ps9wSlzHVFm}JK6eXhG9)7btYr|{py@0`<2PV z@gl599zHC>D&ohhw)~0%Cf1D3QA_bZ8*44p_SsmwH=e4@xw%cw@K!f6rfN>!{TZG& zv5ojPzIB>Co{yRLhUoWo+=;EHSs9yu`EfJu{6xBf-GfZ?I!-D#n7Fqzp`^R5C8xG delta 1533 zcma)+Pi!J}6vt;Mno843yQ`_TF>lG5KrHP1<)00Kfnk{P8-`^DyQ?)wfK&<#&9>cS zvs3HAt41^N=4mf$jM>x@voU+X=)rA_N6j|zZj1-JH;?{)%s}hL!;&z(_kO?k_`df( zaQrp>_kH?P>D^#nMRK+xXG}Q<0hSN1?e)SO!?C~$Nrp@E@c;w^jsA`8cDL1peh&iR zv+m@K;{IxNr*(5D)v0fH>%A1}H|pKgjaIYUy3I$#)Mk4(Y~P`mmPIS{RADwL#*zYq z3w`$eD>IU+NUEu2%4M+ss)X0TYWFPg1@cvd;JlznBoY9tS>J6nt^cbi3W1RCd_VR- zG+cTnk*|psuq@BAB3O<0>%Gm^js@0kKWRZQUoz}JD_0KSOlSy#Z)GaRS;WZdnh^qP z`)2D_yT3=0iB6pE3$RRBtKW8KDkk|@Qe<%-&p1M7ps8-#{)k=}q&&S`ga<>fR!zt|PzDZivSB(?#4hW&8d41t?62~f0OUb%gV+>ZvmmQV!3+U)-|MlT(LKT`NL zVC-4tjf3IgrFmwm@H`0}d#}@~=ex%AFg@}gO+7Tf^%nfD)9?+8)n6Z`w~FRg)4k!X zX0kq#D>)z8*%{&uRj1J54^)tiat($sQM|wp(SM8=IJnFgD}lT#+;o`Ef`P#}>~zhXY%AKzrz)21s3@ zmycdbXQXUS&MR|@Us+Ht?te1lS1xuJPmeyZUoWnC2A|tI#Vf&Irb)AYDkz8?7zMqG zawQW4tY~9{6R;|zmSo(p{YP=#{tzt&xykq91XndLoSD39+CQUvS7YF;j;uZkMkPC0 zJtu-GYh~OMK5|z+p@fHZHD?yc5f(+VaPtl%eeL(l^pjL6NSGu)2qU0#zEc%$Ly*xw?B~)#342Y-psvCXesVxr+&93+K?l;tz_L6@0;KJdB z?)2#w=~1D3X{7CcJcayjJ?~oQak2B*d3Hw7%wJy8S7?33Q(GCp0BSnTfw}o@{=n2}wmm+#}lk_oq%#LUr9zLKBfNObw$JqWEXvCvXk;^EPl|hKJpq9#2tnM5H2|_UemX8x0h{a+(?)KSH W(BVBs=ylAAGW_G>26I>6eC}V|O`Zq< diff --git a/library/LLCOLOR b/library/LLCOLOR index 08f17d20a..3dd1167bd 100644 --- a/library/LLCOLOR +++ b/library/LLCOLOR @@ -1,15 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "10-Jul-92 14:57:14" |{PELE:MV:ENVOS}LIBRARY>LLCOLOR.;6| 137483 - changes to%: (VARS LLCOLORCOMS) - (MACROS .DRAW4BPPLINEX. .DRAW8BPPLINEX .DRAW24BPPLINEX .DRAW4BPPLINEY. - .DRAW8BPPLINEY .DRAW24BPPLINEY) +(FILECREATED "26-Oct-2021 10:53:47" {DSK}larry>medley>library>LLCOLOR.;2 137753 - previous date%: "21-Aug-91 12:27:17" |{PELE:MV:ENVOS}LIBRARY>LLCOLOR.;5|) + changes to%: (FNS \COLORDISPLAYBITS \DRAW8BPPCOLORLINE) + + previous date%: "10-Jul-92 14:57:14" {DSK}larry>medley>library>LLCOLOR.;1) (* ; " -Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 by Xerox Corporation. All rights reserved. +Copyright (c) 1982-1992 by Xerox Corporation. ") (PRETTYCOMPRINT LLCOLORCOMS) @@ -51,7 +50,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (FNS PSEUDOCOLOR \PSEUDOCOLOR.BITMAP \PSEUDOCOLOR.UFN) (GLOBALVARS \COLORDISPLAYFDEV \COLORDISPLAYBITS ColorScreenBitMap \4COLORMAP \8COLORMAP) (P - (* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *") + (* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *") (SETFONTDESCRIPTOR 'HELVETICA 10 'MRR 0 'DISPLAY NIL) (SETQ MENUFONT (FONTCREATE 'HELVETICA 10))) @@ -290,7 +289,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ColorScreenBitMap]) (\COLORDISPLAYBITS - [LAMBDA (WIDTH HEIGHT BITSPERPIXEL) (* ; "Edited 31-Oct-89 10:25 by takeshi") + [LAMBDA (WIDTH HEIGHT BITSPERPIXEL) (* ; + "Edited 26-Oct-2021 10:24 by larry") + (* ; + "Edited 31-Oct-89 10:25 by takeshi") (* returns a pointer to the bits  that the color board needs.) (DECLARE (GLOBALVARS \COLORDISPLAYBITS)) @@ -300,8 +302,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (OR (\MAIKO.CGSIXP) (\MAIKO.CGTHREEP) (\MAIKO.CGFOURP))) - (PROG [(DUMMY (\ALLOCPAGEBLOCK 1)) - (ADDROFFSET ((OPCODES SUBRCALL 139 0] + (PROG ((DUMMY (\ALLOCPAGEBLOCK 1)) + (ADDROFFSET (SUBRCALL COLOR-BASE))) (WHILE (NEQ (LOGAND \MAIKO.COLORBUF.ALIGN (IPLUS (\LOLOC DUMMY) ADDROFFSET)) 0) DO (SETQ DUMMY (\ALLOCPAGEBLOCK 1))) @@ -663,10 +665,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (.DRAW4BPPLINEY. MODE]) (\DRAW8BPPCOLORLINE - [LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR) - (* ; "Edited 19-Mar-91 12:46 by matsuda") - ((OPCODES SUBRCALL 143 12) - X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR]) + [LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR) + (* ; + "Edited 26-Oct-2021 10:25 by larry") + (* ; + "Edited 19-Mar-91 12:46 by matsuda") + (SUBRCALL COLOR-8BPPDRAWLINE X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR + ]) (\DRAW24BPPCOLORLINE [LAMBDA (X0 Y0 XLIMIT YLIMIT DX DY CDL YINC MODE BITMAPBASE RASTERWIDTH COLOR) @@ -705,7 +710,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b [(MODE) (PROG (INSIDEBITS OUTSIDEBITS) (until (IGREATERP X0 XLIMIT) - do (* main loop) + do (* main loop) (SETQ INSIDEBITS (LOGAND MASK (fetch (BITMAPWORD BITS) of MAPPTR))) (SETQ OUTSIDEBITS (LOGAND (LOGNOT MASK) (fetch (BITMAPWORD BITS) of MAPPTR))) @@ -717,9 +722,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b OUTSIDEBITS)) (PAINT (LOGOR (LOGOR COLORMASK INSIDEBITS) OUTSIDEBITS)) - (PROGN (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (PROGN (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) (LOGOR COLORMASK OUTSIDEBITS] [COND ([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY] @@ -732,7 +737,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b YINC] [COND [(ZEROP (SETQ MASK (LRSH MASK 4))) - (* crossed word boundary) + (* crossed word boundary) [SETQ MAPPTR (\ADDBASE BITMAPBASE (SETQ WORDOFFSET (ADD1 WORDOFFSET] (SETQ COLORMASK COLORMASKORG) (SETQ MASK (CONSTANT (\4BITMASK 0] @@ -744,7 +749,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (COND ((EQ STARTBYTE 1) (GO 1LP))) - 0LP (* main loop) + 0LP (* main loop) (\PUTBASEBYTE MAPPTR 0 (SELECTQ MODE (ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0) @@ -753,9 +758,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ))) (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0))) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) [COND ([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY] @@ -779,9 +784,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ))) (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1))) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) [COND ([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY] @@ -802,7 +807,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (GO 0LP)))) (PUTPROPS .DRAW24BPPLINEX MACRO ((MODE) - (PROG NIL (* main loop) + (PROG NIL (* main loop) LP (\PUTBASE24 MAPPTR 0 (SELECTQ MODE (ERASE (LOGAND COLOR (\GETBASE24 MAPPTR @@ -812,9 +817,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (PAINT (LOGOR COLOR (\GETBASE24 MAPPTR 0))) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) [COND ([NOT (IGREATERP DX (SETQ CDL (IPLUS CDL DY] @@ -838,7 +843,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b [(MODE) (PROG (INSIDEBITS OUTSIDEBITS) (until (IGREATERP Y0 YLIMIT) - do (* main loop) + do (* main loop) (SETQ INSIDEBITS (LOGAND MASK (fetch (BITMAPWORD BITS) of MAPPTR))) (SETQ OUTSIDEBITS (LOGAND (LOGNOT MASK) (fetch (BITMAPWORD BITS) of MAPPTR))) @@ -850,9 +855,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b OUTSIDEBITS)) (PAINT (LOGOR (LOGOR COLORMASK INSIDEBITS) OUTSIDEBITS)) - (PROGN (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (PROGN (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) (LOGOR COLORMASK OUTSIDEBITS] [COND ([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX] @@ -863,7 +868,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (SETQ CDL (IDIFFERENCE CDL DY)) (COND [(ZEROP (SETQ MASK (LRSH MASK 4))) - (* crossed word boundary) + (* crossed word boundary) [SETQ MAPPTR (\ADDBASE BITMAPBASE (SETQ WORDOFFSET (ADD1 WORDOFFSET ] (SETQ COLORMASK COLORMASKORG) @@ -877,7 +882,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (COND ((EQ STARTBYTE 1) (GO 1LP))) - 0LP (* main loop) + 0LP (* main loop) (\PUTBASEBYTE MAPPTR 0 (SELECTQ MODE (ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0) @@ -886,9 +891,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ))) (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0))) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) (COND ((IGREATERP (SETQ Y0 (ADD1 Y0)) @@ -899,8 +904,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b YINC] (COND ([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX] - (* moved enough in Y to move a point - in X) + (* moved enough in Y to move a point + in X) (COND ((IGREATERP (SETQ X0 (ADD1 X0)) XLIMIT) @@ -916,9 +921,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ))) (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1))) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) (COND ((IGREATERP (SETQ Y0 (ADD1 Y0)) @@ -929,8 +934,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b YINC] (COND ([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX] - (* moved enough in Y to move a point - in X) + (* moved enough in Y to move a point + in X) (COND ((IGREATERP (SETQ X0 (ADD1 X0)) XLIMIT) @@ -947,7 +952,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (COND ((EQ STARTBYTE 1) (GO 1LP))) - 0LP (* main loop) + 0LP (* main loop) (\PUTBASEBYTE MAPPTR 0 (SELECTQ MODE (ERASE (LOGAND COLOR (\GETBASEBYTE MAPPTR 0 @@ -957,9 +962,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 0) )) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) (COND ((IGREATERP (SETQ Y0 (ADD1 Y0)) @@ -970,8 +975,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b YINC] (COND ([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX] - (* moved enough in Y to move a point - in X) + (* moved enough in Y to move a point + in X) (COND ((IGREATERP (SETQ X0 (ADD1 X0)) XLIMIT) @@ -988,9 +993,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (PAINT (LOGOR COLOR (\GETBASEBYTE MAPPTR 1) )) (PROGN - (* case is REPLACE. - Legality of OPERATION has been - checked by \CLIPANDDRAWLINE1) + (* case is REPLACE. + Legality of OPERATION has been + checked by \CLIPANDDRAWLINE1) COLOR))) (COND ((IGREATERP (SETQ Y0 (ADD1 Y0)) @@ -1001,8 +1006,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b YINC] (COND ([NOT (IGREATERP DY (SETQ CDL (IPLUS CDL DX] - (* moved enough in Y to move a point - in X) + (* moved enough in Y to move a point + in X) (COND ((IGREATERP (SETQ X0 (ADD1 X0)) XLIMIT) @@ -2211,7 +2216,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b ) -(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *") +(* ;; "NOTE: This is very bad. I shouldn't have to and don't really want to do the following, but since about March 86, someone did something really nonstandard wrt Helvetica fonts so that the in core versions are not equal to what is stored on file. The SETFONTDESCRIPTOR and friends undoes this kludge which has never been explained to LISPCORE^ by the person who brain damaged Helvetica this way. If I don't undo this kludge by someone else, then color menus come out wrong. *") (SETFONTDESCRIPTOR 'HELVETICA 10 'MRR 0 'DISPLAY NIL) @@ -2228,22 +2233,22 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 b (PUTPROPS LLCOLOR COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3539 21062 (COLORDISPLAY 3549 . 6952) (COLORMAPBITS 6954 . 7111) ( -\CreateColorScreenBitMap 7113 . 8484) (\CREATECOLORDISPLAYFDEV 8486 . 9444) (COLORMAP 9446 . 10860) ( -COLORMAPCOPY 10862 . 11382) (SCREENCOLORMAP 11384 . 11578) (SCREENCOLORMAPENTRY 11580 . 11807) ( -ROTATECOLORMAP 11809 . 12701) (RGBCOLORMAP 12703 . 14841) (CMYCOLORMAP 14843 . 15333) (GRAYCOLORMAP -15335 . 16293) (COLORSCREENBITMAP 16295 . 16533) (\COLORDISPLAYBITS 16535 . 19180) (COLORSCREEN 19182 - . 19310) (SHOWCOLORTESTPATTERN 19312 . 21060)) (21101 21732 (\STARTCOLOR 21111 . 21249) (\STOPCOLOR -21251 . 21387) (\SENDCOLORMAPENTRY 21389 . 21730)) (21733 27692 (COLORMAPCREATE 21743 . 22729) ( -COLORLEVEL 22731 . 23712) (COLORNUMBERP 23714 . 25298) (COLORFROMRGB 25300 . 26482) ( -INTENSITIESFROMCOLORMAP 26484 . 26869) (SETCOLORINTENSITY 26871 . 27690)) (27693 33530 (\FAST8BIT -27703 . 31402) (\MAP4 31404 . 32283) (\MAP8 32285 . 33528)) (33531 34438 (\GETCOLORBRUSH 33541 . 34436 -)) (34439 38686 (\DRAWCOLORLINE1 34449 . 35191) (\DRAW4BPPCOLORLINE 35193 . 36838) (\DRAW8BPPCOLORLINE - 36840 . 37160) (\DRAW24BPPCOLORLINE 37162 . 38684)) (62183 120797 (\BWTOCOLORBLT 62193 . 70344) ( -\4BITLINEBLT 70346 . 104918) (\8BITLINEBLT 104920 . 113861) (\24BITLINEBLT 113863 . 114646) ( -\GETBASE24 114648 . 116106) (\PUTBASE24 116108 . 117716) (COLORTEXTUREFROMCOLOR# 117718 . 120341) ( -\BITMAPWORD 120343 . 120795)) (120798 126101 (COLORIZEBITMAP 120808 . 121783) (UNCOLORIZEBITMAP 121785 - . 126099)) (126189 129506 (COLORMENU 126199 . 129118) (CURSORCOLOR 129120 . 129504)) (132029 136501 ( -PSEUDOCOLOR 132039 . 134952) (\PSEUDOCOLOR.BITMAP 134954 . 135183) (\PSEUDOCOLOR.UFN 135185 . 136499)) + (FILEMAP (NIL (3332 21090 (COLORDISPLAY 3342 . 6745) (COLORMAPBITS 6747 . 6904) ( +\CreateColorScreenBitMap 6906 . 8277) (\CREATECOLORDISPLAYFDEV 8279 . 9237) (COLORMAP 9239 . 10653) ( +COLORMAPCOPY 10655 . 11175) (SCREENCOLORMAP 11177 . 11371) (SCREENCOLORMAPENTRY 11373 . 11600) ( +ROTATECOLORMAP 11602 . 12494) (RGBCOLORMAP 12496 . 14634) (CMYCOLORMAP 14636 . 15126) (GRAYCOLORMAP +15128 . 16086) (COLORSCREENBITMAP 16088 . 16326) (\COLORDISPLAYBITS 16328 . 19208) (COLORSCREEN 19210 + . 19338) (SHOWCOLORTESTPATTERN 19340 . 21088)) (21129 21760 (\STARTCOLOR 21139 . 21277) (\STOPCOLOR +21279 . 21415) (\SENDCOLORMAPENTRY 21417 . 21758)) (21761 27720 (COLORMAPCREATE 21771 . 22757) ( +COLORLEVEL 22759 . 23740) (COLORNUMBERP 23742 . 25326) (COLORFROMRGB 25328 . 26510) ( +INTENSITIESFROMCOLORMAP 26512 . 26897) (SETCOLORINTENSITY 26899 . 27718)) (27721 33558 (\FAST8BIT +27731 . 31430) (\MAP4 31432 . 32311) (\MAP8 32313 . 33556)) (33559 34466 (\GETCOLORBRUSH 33569 . 34464 +)) (34467 38956 (\DRAWCOLORLINE1 34477 . 35219) (\DRAW4BPPCOLORLINE 35221 . 36866) (\DRAW8BPPCOLORLINE + 36868 . 37430) (\DRAW24BPPCOLORLINE 37432 . 38954)) (62453 121067 (\BWTOCOLORBLT 62463 . 70614) ( +\4BITLINEBLT 70616 . 105188) (\8BITLINEBLT 105190 . 114131) (\24BITLINEBLT 114133 . 114916) ( +\GETBASE24 114918 . 116376) (\PUTBASE24 116378 . 117986) (COLORTEXTUREFROMCOLOR# 117988 . 120611) ( +\BITMAPWORD 120613 . 121065)) (121068 126371 (COLORIZEBITMAP 121078 . 122053) (UNCOLORIZEBITMAP 122055 + . 126369)) (126459 129776 (COLORMENU 126469 . 129388) (CURSORCOLOR 129390 . 129774)) (132299 136771 ( +PSEUDOCOLOR 132309 . 135222) (\PSEUDOCOLOR.BITMAP 135224 . 135453) (\PSEUDOCOLOR.UFN 135455 . 136769)) ))) STOP diff --git a/library/MAIKOCOLOR b/library/MAIKOCOLOR index db3f2ff20..3af8c6cc8 100644 --- a/library/MAIKOCOLOR +++ b/library/MAIKOCOLOR @@ -1,14 +1,20 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "23-Oct-91 14:43:35" |{PELE:MV:ENVOS}LIBRARY>MAIKOCOLOR.;6| 57582 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) + +(FILECREATED "26-Oct-2021 10:53:57" {DSK}larry>medley>library>MAIKOCOLOR.;2 60141 changes to%: (VARS MAIKOCOLORCOMS) - (FNS \MAIKOCOLOR.EVENTFN) + (MACROS \MAIKO.CGTHREEP \MAIKO.CGFOURP \MAIKO.CGSIXP \MAIKO.CGTWOP) + (FNS \MAIKO.COLORINIT \MAIKO.STARTCOLOR \MAIKO.STOPCOLOR \MAIKOCOLOR.EVENTFN + \MAIKO.SENDCOLORMAPENTRY \MAIKO.CHANGESCREEN CURSOREXIT CURSORSCREEN + WARPCURSOR \SLOWBLTCHAR \SOFTCURSORUP \BITBLT.DISPLAY \PUNT.SLOWBLTCHAR + \PUNT.BLTSHADE.BITMAP \PUNT.BITBLT.BITMAP BITMAPOBJ.SNAPW \MAIKO.PUNTBLTCHAR + \MAIKO.BLTCHAR) - previous date%: "22-Aug-91 17:11:25" |{PELE:MV:ENVOS}LIBRARY>MAIKOCOLOR.;3|) + previous date%: "23-Oct-91 14:43:35" {DSK}larry>medley>library>MAIKOCOLOR.;1) (* ; " -Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserved. +Copyright (c) 1988-1991 by Fuji Xerox Co., Ltd.. ") (PRETTYCOMPRINT MAIKOCOLORCOMS) @@ -63,8 +69,9 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (\MAIKO.COLORINIT [LAMBDA NIL - (DECLARE (GLOBALVARS \MAIKOCOLORWSOPS \MAIKOCOLORINFO)) - (* ; "Edited 28-Apr-89 16:51 by tshimizu.fx") + (DECLARE (GLOBALVARS \MAIKOCOLORWSOPS \MAIKOCOLORINFO)) + (* ; + "Edited 28-Apr-89 16:51 by tshimizu.fx") (SETQ \MAIKOCOLORWSOPS (create WSOPS STARTBOARD _ (FUNCTION NILL) STARTCOLOR _ (FUNCTION \MAIKO.STARTCOLOR) @@ -82,7 +89,10 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (\DEFINEDISPLAYINFO \MAIKOCOLORINFO]) (\MAIKO.STARTCOLOR - [LAMBDA (FDEV) (* ; "Edited 2-Nov-88 11:13 by shimizu") + [LAMBDA (FDEV) (* ; + "Edited 26-Oct-2021 10:17 by larry") + (* ; + "Edited 2-Nov-88 11:13 by shimizu") (PROG (DISPLAYSTATE) (SETQ DISPLAYSTATE (fetch (FDEV DEVICEINFO) of FDEV)) (replace (DISPLAYSTATE ONOFF) of DISPLAYSTATE with 'STARTCOLOR) @@ -90,19 +100,19 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (* ;; " MMAP colorbuffer") - ((OPCODES SUBRCALL 136 1) - (FETCH (BITMAP BITMAPBASE) OF ColorScreenBitMap)) + (SUBRCALL COLOR-INIT (FETCH (BITMAP BITMAPBASE) OF ColorScreenBitMap)) (replace (DISPLAYSTATE ONOFF) of DISPLAYSTATE with 'ON]) (\MAIKO.STOPCOLOR - [LAMBDA (FDEV) (* ; "Edited 28-Apr-89 16:51 by tshimizu.fx") + [LAMBDA (FDEV) (* ; + "Edited 28-Apr-89 16:51 by tshimizu.fx") (* ; "By Take") (PROG (DISPLAYSTATE) (SETQ DISPLAYSTATE (fetch (FDEV DEVICEINFO) of FDEV)) (replace (DISPLAYSTATE ONOFF) of DISPLAYSTATE with 'OFF]) (\MAIKOCOLOR.EVENTFN - [LAMBDA (FDEV EVENT) (* ; "Edited 23-Oct-91 14:18 by jds") + [LAMBDA (FDEV EVENT) (* ; "Edited 23-Oct-91 14:18 by jds") (COND ((EQ (fetch (DISPLAYSTATE ONOFF) of (fetch (FDEV DEVICEINFO) of FDEV)) 'ON) @@ -117,22 +127,26 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv NIL]) (\MAIKO.SENDCOLORMAPENTRY - [LAMBDA (FDEV COLOR# RGB) (* ; "Edited 1-Dec-88 18:16 by shimizu") - ((OPCODES SUBRCALL 138 4) - COLOR# - (CAR RGB) - (CADR RGB) - (CADDR RGB]) + [LAMBDA (FDEV COLOR# RGB) (* ; + "Edited 26-Oct-2021 10:17 by larry") + (* ; + "Edited 1-Dec-88 18:16 by shimizu") + (SUBRCALL COLOR-MAP COLOR# (CAR RGB) + (CADR RGB) + (CADDR RGB]) (\MAIKO.CHANGESCREEN - [LAMBDA (TOSCREEN) (* ; "Edited 1-Dec-88 18:32 by shimizu") - ((OPCODES SUBRCALL 137 1) - TOSCREEN]) + [LAMBDA (TOSCREEN) (* ; + "Edited 26-Oct-2021 10:18 by larry") + (* ; + "Edited 1-Dec-88 18:32 by shimizu") + (SUBRCALL COLOR-SCREENMODE TOSCREEN]) ) (DEFINEQ (CURSOREXIT - [LAMBDA NIL (* ; "Edited 11-Aug-89 13:16 by takeshi") + [LAMBDA NIL (* ; + "Edited 11-Aug-89 13:16 by takeshi") (* * called when cursor moves off the screen edge) @@ -160,7 +174,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (CURSORSCREEN SCREEN2 XCOORD2 YCOORD2]) (CURSORSCREEN - [LAMBDA (SCREEN XCOORD YCOORD) (* ; "Edited 19-Jun-90 16:33 by matsuda") + [LAMBDA (SCREEN XCOORD YCOORD) (* ; + "Edited 19-Jun-90 16:33 by matsuda") (* * sets up SCREEN to be the current screen, XCOORD %, YCOORD is initial pos  of cursor on SCREEN) @@ -201,7 +216,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (CLEARW W))]) (WARPCURSOR - [LAMBDA (ENABLE) (* ; "Edited 20-Jul-90 19:02 by matsuda") + [LAMBDA (ENABLE) (* ; + "Edited 20-Jul-90 19:02 by matsuda") (COND (ENABLE (MOVD 'SAVE.CURSOREXIT 'CURSOREXIT) T) @@ -209,12 +225,15 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv NIL]) (\SLOWBLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM) (* ; "Edited 7-Jun-90 14:06 by matsuda") - ((OPCODES SUBRCALL 140 2) - CHARCODE DISPLAYSTREAM]) + [LAMBDA (CHARCODE DISPLAYSTREAM) (* ; + "Edited 26-Oct-2021 10:19 by larry") + (* ; + "Edited 7-Jun-90 14:06 by matsuda") + (SUBRCALL C-SlowBltChar CHARCODE DISPLAYSTREAM]) (\SOFTCURSORUP - [LAMBDA (NEWCURSOR) (* ; "Edited 16-Jan-89 15:44 by shimizu") + [LAMBDA (NEWCURSOR) (* ; + "Edited 16-Jan-89 15:44 by shimizu") (* Put soft NEWCURSOR up, assuming  soft cursor is down.  *) @@ -290,7 +309,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (\BITBLT.DISPLAY [LAMBDA (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM DESTSTRM DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT - CLIPPEDSOURCEBOTTOM) (* ; "Edited 24-Jan-91 11:57 by matsuda") + CLIPPEDSOURCEBOTTOM) (* ; + "Edited 24-Jan-91 11:57 by matsuda") (DECLARE (LOCALVARS . T)) (DECLARE (GLOBALVARS \SYSPILOTBBT \SCREENBITMAPS \BBSCRATCHTEXTURE \SOFTCURSORP \SOFTCURSORUPP \CURSORDESTINATION)) @@ -454,7 +474,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (DEFINEQ (\PUNT.SLOWBLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM) (* ; "Edited 2-Jul-90 14:23 by matsuda") + [LAMBDA (CHARCODE DISPLAYSTREAM) (* ; + "Edited 2-Jul-90 14:23 by matsuda") (* ;; "case of BLTCHAR where either font is rotated or destination is a color bitmap. DISPLAYSTREAM is known to be a display stream, and its cache fields have been updated for CHARCODE's charset") @@ -535,7 +556,10 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (T (ERROR "Not implemented to rotate by other than 0, 90 or 270"]) (\MAIKO.PUNTBLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; "Edited 1-Nov-89 15:26 by takeshi") + [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; + "Edited 26-Oct-2021 10:21 by larry") + (* ; + "Edited 1-Nov-89 15:26 by takeshi") (* ;; "puts a character on a display stream. This function will be called when \maiko.bltchar failed. Punt from subr call") @@ -598,20 +622,23 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv DDPILOTBBT) of DISPLAYDATA))) 0))) - (.WHILE.TOP.DS. DISPLAYSTREAM ((OPCODES SUBRCALL 70 6) - LOCAL1 DISPLAYDATA CHAR8CODE CURX LEFT RIGHT)) + (.WHILE.TOP.DS. DISPLAYSTREAM (SUBRCALL BLTCHAR LOCAL1 DISPLAYDATA CHAR8CODE + CURX LEFT RIGHT)) T]) (\MAIKO.BLTCHAR - [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; "Edited 6-Jul-90 10:14 by matsuda") - ((OPCODES SUBRCALL 135 3) - CHARCODE DISPLAYSTREAM DISPLAYDATA]) + [LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* ; + "Edited 26-Oct-2021 10:22 by larry") + (* ; + "Edited 6-Jul-90 10:14 by matsuda") + (SUBRCALL NEW-BLTCHAR CHARCODE DISPLAYSTREAM DISPLAYDATA]) ) (DEFINEQ (\PUNT.BLTSHADE.BITMAP [LAMBDA (TEXTURE DESTINATIONBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT OPERATION - CLIPPINGREGION) (* ; "Edited 5-Jun-90 12:12 by Takeshi") + CLIPPINGREGION) (* ; + "Edited 5-Jun-90 12:12 by Takeshi") (* ;; "This FNS is for a punt case of \BLTSHADE.BITMAP which is implemeted in C ") (* ; @@ -718,7 +745,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (\PUNT.BITBLT.BITMAP [LAMBDA (SOURCEBITMAP SOURCELEFT SOURCEBOTTOM DESTBITMAP DESTINATIONLEFT DESTINATIONBOTTOM WIDTH HEIGHT SOURCETYPE OPERATION TEXTURE CLIPPINGREGION CLIPPEDSOURCELEFT - CLIPPEDSOURCEBOTTOM) (* ; "Edited 5-Jun-90 11:59 by Takeshi") + CLIPPEDSOURCEBOTTOM) (* ; + "Edited 5-Jun-90 11:59 by Takeshi") (* ;; " This FNS is for a punt case of \BITBLT.BITMAP which is implemeted in C") @@ -858,7 +886,8 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv (DEFINEQ (BITMAPOBJ.SNAPW - [LAMBDA NIL (* ; "Edited 12-Apr-90 09:09 by matsuda") + [LAMBDA NIL (* ; + "Edited 12-Apr-90 09:09 by matsuda") (* * makes an image object of a prompted for region of the screen.) @@ -962,11 +991,11 @@ Copyright (c) 1988, 1989, 1990, 1991 by Fuji Xerox Co., Ltd.. All rights reserv ) (PUTPROPS MAIKOCOLOR COPYRIGHT ("Fuji Xerox Co., Ltd." 1988 1989 1990 1991)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2782 5984 (\MAIKO.COLORINIT 2792 . 3962) (\MAIKO.STARTCOLOR 3964 . 4559) ( -\MAIKO.STOPCOLOR 4561 . 4945) (\MAIKOCOLOR.EVENTFN 4947 . 5578) (\MAIKO.SENDCOLORMAPENTRY 5580 . 5805) - (\MAIKO.CHANGESCREEN 5807 . 5982)) (5985 26414 (CURSOREXIT 5995 . 7433) (CURSORSCREEN 7435 . 9475) ( -WARPCURSOR 9477 . 9726) (\SLOWBLTCHAR 9728 . 9910) (\SOFTCURSORUP 9912 . 15707) (\BITBLT.DISPLAY 15709 - . 26412)) (26485 37922 (\PUNT.SLOWBLTCHAR 26495 . 33267) (\MAIKO.PUNTBLTCHAR 33269 . 37722) ( -\MAIKO.BLTCHAR 37724 . 37920)) (37923 54124 (\PUNT.BLTSHADE.BITMAP 37933 . 44959) (\PUNT.BITBLT.BITMAP - 44961 . 54122)) (54125 54867 (BITMAPOBJ.SNAPW 54135 . 54865))))) + (FILEMAP (NIL (3229 7254 (\MAIKO.COLORINIT 3239 . 4475) (\MAIKO.STARTCOLOR 4477 . 5293) ( +\MAIKO.STOPCOLOR 5295 . 5749) (\MAIKOCOLOR.EVENTFN 5751 . 6382) (\MAIKO.SENDCOLORMAPENTRY 6384 . 6842) + (\MAIKO.CHANGESCREEN 6844 . 7252)) (7255 28244 (CURSOREXIT 7265 . 8769) (CURSORSCREEN 8771 . 10877) ( +WARPCURSOR 10879 . 11194) (\SLOWBLTCHAR 11196 . 11608) (\SOFTCURSORUP 11610 . 17471) (\BITBLT.DISPLAY +17473 . 28242)) (28315 40283 (\PUNT.SLOWBLTCHAR 28325 . 35163) (\MAIKO.PUNTBLTCHAR 35165 . 39855) ( +\MAIKO.BLTCHAR 39857 . 40281)) (40284 56617 (\PUNT.BLTSHADE.BITMAP 40294 . 47386) (\PUNT.BITBLT.BITMAP + 47388 . 56615)) (56618 57426 (BITMAPOBJ.SNAPW 56628 . 57424))))) STOP diff --git a/library/MAIKOCOLOR.LCOM b/library/MAIKOCOLOR.LCOM index b4b9859dd7fa61461a38a554cc0cf73ed4d157ec..b4c0f333640d1e4448bb7a93bc6d20798719c241 100644 GIT binary patch literal 14824 zcmd5@TX0*)c?L*ImSLL)X-1(GhTg!ohE!z)cYt!n!2xh^J-~qhP$VTflt|DaDN0l+ zI*FT6$L+XH(`h@ko1}3rcH=aibb1+zlBSL%3J-lDA2gFmUP$#tGamOD>O*JpQuW(^ z_uN1_t~!0F#s+u)z5n~~fBAOLNJh;TD(Z{bf~LM$sAP3ETvgH~C8si9q0&%mTA^O` zvEiDkWEx6J>ma9;y2^rqQIBVY_mD=lhMHl%Q0zs0ZtcZTAQVLL$!O$cAmn2szPXhP zmll`jn{4GG^RaJc>ZL1RT3ER-|MK#=)zvp%zA)cho`2)z<;B_6bI6vJLP<~SnqKq2 z6dGk7N4J5oli}dWVBE)MSLe-s=N8Ug{ObJW7f!NiYVD`yg-W4e5b6!3)*z}y(W`>s z5sk!<>M6C-$X3i+Y9&JjWu=OO+LTd{&MTFiTF2Ve3QLdI>UvF`#CRep=@Uw=DhSLo zUDx!9l-5AQ8k?@`*@h??ud?Y>p@9;A23*$^3{f4gH2jYGVp*JSb|FYc)*~7rThA*Q z)sHSQW!aVNU(&=MJyrDAD@t{OEn-))p|hMKim9;qI45{rBZ&~37TQprKCTWS+VPkaB{?1F$XL`) znyBm5I*W#ElF1_Ry*0uS3?L4+zgp1rhB%BYG{&$t96FQ>39RqYHNi1^e||$Z1+69x zLx~wR{WeV(p%Jhclee})&fJkI3oto36g5;<03n-EPmMCyOKz9T-RE^B4{}y*_e?fv z2L`Qu@bH4O{6|!AUHKDtUQ}8DYr|ny)=yF0oL;t`;4v3h&RtV4T?&ln@hltk&Spr!Mw09gCG~#WJu-o{?aT>DesXGlbJ- z&?p5KWVBIsUN*s_E`yP7Vp02gT@i_ELq_5mnfST!Su1X(*z~P7)?@Iq(sn>jR%=1pgP=O#A16WK~q3YBPtGvrqmm<-zbg?^&zE+ z%Mgnsn39DzQC3Q7eX7nP0g*>qA8)X5P-Hbd$Frf3ELBdar^+lC<}wrAyQzCliDY|- z)p98?U9RvsJO7^sbGnt3JJp5%y4+X(v`1_#ZLWDb95!9{8ek1wtPw|oi@7^_<=bvY zYn%0#au#J%X1JC2u)BBFg6Q)n)=f7EKq6TIBD`{#L?KEK<({=)g&#gfP$ zJimKS79sg>ua>kjNfbZFV-bf)Veb>>G-G4Ngrmmd7%aG)H1rpjk+MEsSEu-nnz>0V z#}Xe>Q4Y^ZG7{QJtv3o4rBQ$|6fCCkZ5Di`Z8n(%StTaj)J zqcjxcp;5|uMenQ@VZ1W*ykj!77ogPO0g3`}f5&|gBK6ay*{)U!zdbEWRd!9%sZ7p! z@^o}h(XWyseMv=919bo4Ro8c=TIhP;NYIXK9eDHn`S!+9+R(YK))Mv6s+09*vmqcK%gSu|j9wyM_)w5Ko%lG$*C z!(7J6m$q*^Hw==hPgEc)p&$;BeSd=xQNzg61_u*Srq(D-fvh@OgFA>gQu3cCs=?6)X%Kpp<5oL0~{SCXaNf8Y^LTF>yQK8C4wC6z0G*5%Nc z&hST`^#sFFt)$8nT~?tV#;axq5=df^s%lV@Q6pDq)T?T(T9{NhIl}U4A(w9;2~T69 zkZI(R3}K5!Du^Aamp}@zLYc?9e6kgFLUfID&xP0u%u=aFh!f!;I*4ITgw#5S5l(~< zT0}m3P87<-QXQNI)oxW3tL9`#zeUFIFn$bTXd{ZHfC_idsw$TaEeBb*$mk)69uSN> zi7`%etO~JE*US@7y4+{6U#{iu_FpCEhP{339;uRClZI}Z5=LUH=d?_8Ps_xCS0{%4 zl{eowJ~1RzSWmIN@p&WDt+n4X(g(`zcdoj>Tbz5orOh2{6{WG68?utDB`a^cW_r() zfVUh1xfO!xl!ZjX@>6(2LQrMriWq;~i5*2JKF93w;Hh>SUoJ&WE%mUg}k#HzPy6 ziHzBsJ&WE%mUdj|k2`U|TWDAr7gZqui=>5b4F&(|1^FZ(yl?IG4^Z}|QM$rd& zB?wScY|`S~39@-y9mN8UgEP+25q>mSbPVUDp_Z$fo-S2!IO{kLI8PlU?q+t7!ZE3a zg^j{_jXDTWUD5a$6Y)d}Bf-P9GKfs15|2ip-zh%hm7pc93=XDI3G+AUkpxVH(IOI$ z+cNesBGI6&1k<(JgzUWq16E0R%r<`5K28`W#_S**wap+LiP}oSw$+580<1RnaYA6b zSrURBvoi4PtPI#>W#Hdg85n0P1GQ*nU@s-txOp~`2tbS^tgn%b7@G*((5zq?SOnv; zX3W|OGleiimWEA}9EKSpi^0{OOi|QqIwQiQp&>906L}+3q_Gh!B&`*yRW*Z1rIuDx zdZVGkVStsilQlKl;8uf(g-Wib=D42<4mZ@v#&}I-V@!vI67Fk)iO$FsiW|l%Chb$y z?&`|%B6b=L7A6XeZ5f8mIX9W5YVbM4ya@#y9c4Z7&%0c`eeK@9HxH-9ArE{-x`&5m zdedjQ=5Am6>_XZK>W99U7G7bdB3kt9%pOu@`ryv2Mz&uw^`YG;a2YO z#@S--u-j}iGuUeCgAYDv>4P`5+~F>xE)We*5_?F&F)0*)n>2Fi_wy&);;Vf5^a?sd~?j@NVm>CMQYbW%fCK;#i zwe+ED!}`$m&*?+%YoC#o4pB#9u?xEQNzRP*Bf9r|`#N0oZdX$GQX%nX*44^1iw}O% zD&AC^8vbgxv+riIJI(Tgw_D}ST<;ImT<=b^gk0%XM%kTIQ@c~S!D4=QW*CbY=Ib49 zE}`Ml&D>F~usg#*W}M6f`LtXm9*}D>u;W-WWjH`S!cH z0b1`j>=}e>OL8mb2-`)63o_@r7asO05s_e*Qi; zpnEC*$7YWh02_5}6ywRVb%7_fH=d!QAE88!PLsLzg(Qu4?TFq>iGS9;#d|k(Z~5M) z?#~u0L%T;`Ypmjn5H%%QbUcR9u3^CzI4lQ^_aEy%_qPtFC{N zgCqGt-`Sy(wmai*m5aMGftKD&XJf0oRM^>_3AKv(ota2WxJw}J&cs^9nS>aZYU%+v z3pA|A`r$C-gzMhk@KHfhPv|kdSC8l+J)rw@{kegsD56_ud&>Pe?5t7#%(~JsJ*}`~ zPD+z=>FnO#fqvpW!5JDzKYrJ>2(ujwaO~6aEG@eo48SByC7LSa;PQ?E0+tsV_3;!N zi^5fv70PN2UUz~!&kY^Od>bodi39;iLKcA{<)33Q;EvP4T-BVS`ITA@1eghq`&Y)xDFhNM1|PmqIi=PbMt{ad zN-SVlE9qxMvG9F{kHV&xmB~VRyi6A{ECSXE^CaE$2z(1c5Z-(kG1z#8rcpSpiV|RB z61U@+TnOGkM|o(B$Coq=l>j}ZVXSzF2g&HnMi48o2taJCeE>G+D!|2)?&1Xh>MRZhVRa;9aqda(SwS zBY^1Zr-EBRgBs<_-b)qR$#*}>adbL4Auz;&WrQrYgy5Aq z%OKkhLJ;1OlfVz6#A^vPNnj@SJX}pjKGrb=9L^4|^D!mUc`R!03~rLZ2!!Lc=ZaIJ z0Ems#b-I!UE*h0i5}*s*FM|+aQ$UV*3J#iC&GdwD|B9lZ74ZxF5HbO}&7Z9T$%j)o z32L0xBxVp}z2<%b_nDcgb5&Fv@8G`F6Z1V;P8RoBn@{_?5f_LJMg$&c>;a@%#|spLnN+ule} z>)lUm{lu<6eM-T`WO8^b5=`|MS2c`shfYT2h3;Bi8<03_1q!|W;#&D92 zY9X#C_pb(3G%d^l$Gqw)f&rW%vn8FUdbNscOb?!HS0xwuZZQqAp`lOMHzp8QB`MQXcuBcceO`unYZQGq6;j)-GpX%>#)Wt)1tEUFl-fS};9WzK*S`t3zSO?9w(#m5a$h#Y^%)#O zF+365U)eZ9i7nSA{k6P7MN~i(WUD{)J%t3Rl}~A+=q$*L=bNG^MW{Kwq=i3p}P_D+eje9 zZ2$#aNeR~jQjsaJ&NM459ulXfzP37l?gBp&5@a_|g?zxk=tS`QB)f^?mr63fKb+0C zy*sI-u6(Q8iD&Qo*1|Y-xRK?cfrSs?GT8(L3=;?RTDpVwm|x-mn5N~62++Y!5k3!$ zk@P7>VVQtIOq(v7xHxeC2aL&~zQ1{VX|g#b&gfS6X_@FbBNGRv5uv@ka68w#QOM_d z-J6JOf6^*{SjhEux$iV9$W(q&LZ-`&(jC~5rryh=&E8u@UWJ$NfZYqam(#sB#r;_N zr%SU3p-A%RA^%~zS-{`IFEa0@GDfhhzMEEe5L&;D(7KdI#dqbiKd^}0jvm%m+#DH?ygQ5sxFIfkd zEbt<&3_=-46cT~hIogH+Fggi1x{fAc;I7UZ+?f|9ng@^}et%&P+Ctp-v(JyKN=KJL z1dtqLt0-j^`YjC15f2(0aOePP%EJt(U%x{RR%^?E(1Y(Hn@XaL0 zm<+HG6eiF<3n4sHEOWFE8X9PyfhbMn25vkCb+ldzvmfRLxMITpfbld!=!BxU;RnP= z&fCVb0N_X`?g#9>MQUmmIAL#7<3Y=RwzTGQPy5HM^8Ndp#ryYf=I`HMKfZjZ{XPgp zA=3Tz!`kv-d*g-j^5DJAB7Sb>@$;cE%OB(hq{bS+Gm8GcvxB7y$2E)PU7(r9t`ov` zyj2FmcEXOZ0g3|wq_M{;p<0_<${B@f$YUjYJVOgh*9!(6{%KAvqQ%Yc349F~N>*9@Rf zSc_{%%=-TzC_fXf=QFktha+@x=vm#Kj#kC9PE?s6Tud(LhYp>0( zBAjHG7QZpS%q}nf-aOuU#{iJ|>MO6W&doR8xHQi?JA4f6LZQ&WEcr8DGeUkh z4^=j(oz?9xd(0-&x|Xqjgs^825z+ByL}nWgZ)2nH9mw|GgV{=qWG~@k@yGcR%OLGQ zPr?m!!}jjics-54lwrs|Xd zB|1IMUc$E&z-=ziGv0r5{;l%yle3OyZE7;shqmEqw*x(m$Lt|TA7Vjdd0b>4(Y|YZpJ?Ow zG_h-9&!mzul#0iadh{w3P3L1k6mV^06ib#`;wD=Srr0^88L$Q9c3hu0FC|iR~P7T~q+pb73zU1H@4cyUc zpS|i-z#T0dI;vwJoA%=C=0@qu`#qD!gHfwk2&3aQt|%vgBuU#NlwwZCD)(8$9)WYV z_;i8u>=8K3_z~m{mFe}+ZXbK#o9B_m%_GGPpW}=-z{zUe<_eH6Bd(}MeA(BR n7TM(d>dH6p{fz$v)7F~s-hyLzAcmhY{J`VIPZ0aZKW+GLqK{Zz literal 13780 zcmd5@TX0*)c_v6omSuwlX@+KHM&6-q1=L6=aBwA)Iye9ht_L_U0Ny0pq)1REDO%J} zbR0L)jGJE4bo@}eNfXCOQ#OQUP$#tQ;$2-H)#6OH}(5> z_u!lZ(#hnl8Ufh-_x|s{|K;1IH>IU>CGBiFr)y_(rL@6LRx~wLQxm$zhI6HwR?&0S z@-RDDR+9xa;~z0@v=7Bwx!hLzx1_08AMj)qtuJm&Y01;fM4JG`*=#+BvO#X4KN z%!b)FQq{t>udFU#y|S>jzWDO$^8EUR^|xOxs=0!ZG<2il`*L7}xrdo@HoZ81b~MZa z{;_a$Oc@X*`=1rHXY{sJcvo$MlF%6CG;9of(+}?S-@=Lt7@ebUvN<^gT0k$NTR(zlj|%HkYr!A zW?+jUcnqWP{Q*g>)C5h8fW@@mz5o-X>-PUgKF>)-x_@S_Ka2)*UlXF`v$|7%3P0d64zA!=6$(r%v1pj_S;=f9=FIw;DByKyC&G~f z6y=}<(K!e)U9Hw+zo8hL;eE($A;z#!fT?Nd+M-&}s?${#42e9_#yA8$Dzdtfp)BN` z*RHA)+C-6L86pyDXYnD2LGoE)l}rL$4u}=LU}yO6fjM1j!jaPcrR_U;B>B(OU3Zo07^1XD7_2lZH`ADXfeYOtsQM$y=f; zvJR2~Sp`XRKUkVYINM9D!Do&_BzxzM%wZB!^fgUi=du&c?^5EOiSxPoO7p`;ou9n! z)z1BQvm$wEzj<@`(%pQ4XOCXme;^8w`j1x&dXYqj&Swn5!Oxl;)9r=yh%|%Rlc{iP zj?ik7ra&Lr#Viov!cjEFs~WUbz{*WwU6$N%6=WZit8<}!v}!F^QfoO#LC)e9?XO@c z-(NX?8dNa>U%6rw%eBc|DP>H8i;AhnQff^_J_xQFC8NDsh*4!)g^dAX6F{jz>xu#h z!FAVB$kI<&<~th+e0Mi&s*uiNeBpSOj_L$`sR`1DL>9;V>+;moPV5}H)ZBV@4ylFC z#tPMLRLKH0Hecbyqm4_P_{yz6TmzXttDUr03&+GBb9vnLFLYCH)PMiUMupOsA3yGo zG-|vx^+=l=prfyAYGslIpjm}`gS21BS;6o*#6Mmeq2ZYz@gEOHAfcwJeefc2lGR5W8vtBtOd)$zi9-mb6L9V4Qy_0LxiO zBx(vyZvdvtK@1WRD!@U6je%6zi8Om63hA~^KhYq&R%@|pB12v+GKLQm5k}D>ilu;x z17cC-vZ1Kp(^zEm5I_$~`>G;DbgZg8!aC1B^>l}84*Rv*)%@%D!bwl>=5e8DI;Nz; zndT~gr~91v?V1t4M_!#A`ZqM(`qJbO*Gb*^=GJpE-K95wER#oy&G)an-pnt&*w7bF zHS)q}EDW_$tRZUdcFgu%B5`g^GU^a{kI0JwJ0IfTJvkXUhX;2iy;QdZz4h7suEyj5 z<&2(R-FLOpzrK$iIlZlx=U4ZSn6*5=zTfSr^@Pk7?jMsW{r;1U$w6EHGR^zv=~n-? z9Qxro-Vaaleool>k!ju!Pq+H9<s2x{7*hwLq253CY6nN|izzm*A&+C~q?Y}JDBdaP=2e5?#2Ju3tE*2>t&2|{sL zC4SqW%BVdPvu7f<=_oLNtqv3zJS$^opkimB;S#<>rpO1goCsl`&=BUyCk?x>D?0OH z$C7%kT-H(u87fIFVbp2{3_YS8J6YG#2q5736ERoHRJ08FjRAP?+Ei`4qOnnCz}yIT zGR8z_+=YpnmM0>OO_vr$WAJatg=-&Ksp4u6{ zUD|o^ZfWO*?b6OmcQON8ujMlXF0;YxV54pfKKi&}4Bpl=1D&$q=-%uJ6r7-f6L*Wo zAc{I&d(a|vqyN$S4Woa%V4NT#Q3pUBAnL#!qlYFm>xt7(-S9MTEY{)2X5(VO$gQpw zk?Nlv3bGqtGKT78VE(3I4Ba?k4BdRz7;^oqsBw(C;LBSwJWnIN`K;l&)V$gCt?Qlt z9ydHxM2wj4Xr$`-M;|rvx3#*CU;S?SgH(F2UVQXkqqv>v`JtBS*{c_jE8Iz``%_wC ze>yXm&+gBj#Kce18c)_&&~W8;=7gTxpJgC3A~Qk0%U4rGgJF~m(@KXkgXz857m&-@{zuvX=3`#CFe~{^?WzP5iai;&LM&D)7PTLTkcg) zo%lg6J^gMDP!Io@={G!-{WG&Gbc`*z@e;-nC7WL$*RuH&PX7>OF(jYBjpySu$c;gx zhkk!De=lIh1UjrSF?=OE{aeXSN23xYIFvn%7x@l_m?* zND}!_N#>)yf4$=)F&u(r6Bnm+5y?2(@{#z0{Y% zmdVm*Hsft`(sO&QspxVF?S0$Y8)tsR*+7FBr|-kJ@9>TyBstXLj*fC&O6o6>%fRy- zr2t7N#Oip0#YS6MUs0>T`HjN(&D0EFe3PjvARb_K)v`@%u_zRQ!5!3#^iWeX}p+#KhMIk z0Q#KJDmAk|tcrttVMKW%DIJ6`0Kr3sC;MMir*g&dVl}I#5M_o;V9o{ zA7JApK8@TtO%A7^8%`ovONmP0%T|s+O%B7WF(tx{qZO6};3A+iJ3(<0;CER2065dh zUs$$)pBSbUxnbiM50&w9jg9)rho7#t?0PKPPJrJbHaiv$S@u7My>>RVdm%BnKF(6? zq+~}7L&{_n!LN|CC=Yu{=Asy7Mg+N{7UT+DV|7BtV8;(GBT5m@fyG7rEeOCalM(EP zO(w_7Wfp;tVIzTnRg0NL-~!1Mq{NiWFlIiJNMN2SLfIA-uFN4+K$&vEVSpThnF{f_I*)m{I&`tH-`>pNeV0`U1UOiJ%xx%0bE?|S2(KK$iw z$E~O1pCY?N`X0_so=9z57N#syc_ZnJooZD zFBJ3A0lN$H{$4|$?SbF4do;h>NBym+Fq^xb#)+M$_T>;rAE*2t2k4)<-m%&1r#iEU znZ+dFoP6GFStDCtJ=feCZK%eOadMAO(qOwsSLA>yR%5W8ip4u}`^1(J! zmt8&0tq5e>DbR6qtfr81JiHnQ0QvnY;Z0QyzB|PjW=q^*P{VQs3Nu;x10BFDD8gvS2Bca6 zhS`q?NGyn`cDS^*!Ip8Qy74%=05{H%+}Un z9Q?RQmDgl+svJNWq7WyD+%BXx)NF*gJiyJmdaoQM8J%e)>boz;KW+Xj{wd#v#BR^l zS(Q7)-*3dZ?0LxR`cYiv;>F!M5AA^{OYC->Pwe`264~hlMD}kBiQN;Aejw#`^CR$V z*Tah;vWea9PYT(+JGm?>@4PVe=)LSO3W=RzBnt0jZ|C5gel4+kdWweHd2*$B=iBupVHfs1 z0cwyd-2F)DG6fnUr9=+1-wFZSPHU+URworV#o`C;q5^dIAT=;bqjOBuZY}9R*p^M! zG63|$MgqZ(fxxmz=o{xwrZCHv!Jr!)el)5Z>x&oOAi0<5bxZUeVo!H2cH=`AFEW2P zUQCnjJcgc-`trqok0#9<7mN0bH?nr8EysYrttziEFC?294=#XOw+ns z5I}&PB8__s2^fLRfgzn~Ib#Bmcl`=x;#lwBJ-ISfpXP^gr|X>f?LIGlkIW#ddT;4& zre`ac&Gfjo5r2NvD1MU5^mMxJ)l0~feo;WC(}mJKSctmOLvdlxojg^c5(=h0pnHh! zxh*b`l0RLUKMGZmMGx6elJy*ZbH7M^kVu(9t@c4u+d~Na9zx(k7BOZXb(Uld&SSf+ zD-C_?V*J)IolfJs`Z8I)TTk$yb-qKtg_yeIKYKmL^9W%3S^-lbyKfJl`VcK5&U{u0KxjqU(=?ajT9m&L3)^ zC)VKoTz~u=!d1QS;7(j8T?^3Q`s3aXZwQ))`}YTfnGh6#q#9`v1BB=$0==6s!;au!ma;JXuEricuV0 z2BM>kfUS~R)S$n}hU2|Yjqc)F{%{Z;dO9}+8rD!Ps=5y63|3dJ4F<6lD<~0CmbOSm zfr)K}EeeoBXDP1#tWq9@+S&%dAw36g4-g*wTzNDB44Ns^7ste*m4xCDz@V&Qs*V5W zxS*VE%d3{Ch}-RL8Cw(lO`LDEqJ4!G}jfvOz>_@#uJ+t!4JyCBx3l>AM9%JmOux`k{dhdk*E=^@C=slfFYW_Ol>5xluhWep(62K#^a~&v zATpXO?YQB!tM5}b^y_)55+}?nX`C@m8(yH5CcL%z#kRszcI*qG%AW(!eLLgX`huMA zKa)qA;UHt9H$GsWZ3)1bIm=An4>NtzB7CtCF9MN~L$7dEt_$dGh}(c017_WS;`zVl zPUADJ0E8g3C_;GQ!bNcjQq3CUdJ0!mQMzqSOxDEHN(xD$P|OZ37{RTCbpGgK73Yy0 z5P)f6f*eFvf@vWrJFZft_Oqc~LEM};)Nc?l(&6A1>3VVMCAbv?wr1DVP-#&pNAZXu zifb0p4~xPClvSL27J=@sXn1Ov)K~;nbEPt#MTI$RVpF1FT*5eXZWwN$KsUlbhg#Z~ zU*y>}ci4V07RC&my+Hj)wG{$VX(r+RioS#7eI9^bf`mjKq#|CE9RvZ@$qrg-9!|b2 zwZ?=?CTQRjz$k?cUp^Sd&982-`NfU5@J5i$FK@hY;mTFEc9GSWFJ4?+N3h4PEPs7* zm0ex_qeZ-$jX-9Gt7~trFD%yHzOu;LJG_WD91OT81&9mu`q1pthiFht#z^FS)skAC zG#@&^KotdOp=IbQ-gMnXEHJ`4vYmLPMWWo>>&imQ;?wD>kQSj2Ic3v4mqm#yw^Co? z=Y>vyo4l6Xr4_0}bt!D(&-Kc9dRhgZiUmm?;azgBhPmOTt`#+tvk%$RN|Lw0szgc( zq`027z)YMANBtnnXn00L7iZW5?0_kYi2b=Jf{Op;idL)Pd0UZ(=Qwrd6KDP+*zK*9 z)mL6=BQr0abb0CR=U18cm2m^_Nij8?NW35xS)-Dn$bd+oIcv(up;gz-E1T5z>h{R4 z)nvxdQ+BBAz#t+3qgOSpHg0NTqaPfo^)_`Jk1*sy#7OoM8q0bnZF{+FA`Z4EtF5QH z<~vnE;CiI>uGFk_;8n0J5TUFokzO|qZmmNmMKQBIQnE7+s=>B|mco?r9~N|)eHqW$ zfu&qsWYm9s@#0k(74MyLA$Go(DkUzGL5IcObbP*Yk`S1TI5Y}Y1KJx=nBNB?-n1jxxK zPeTUPWCb{>$@@d@b+Ok!0r>)A928l${C}DF;wJP(vferY?Lu`6~DB15v zC98mMvn;`%3wX`$C_oTo5d{YVVFkq|Z*0xv{m7`FcPxhE#o{4{;t$2z`b~_deX5?z z;Hj;DG|Xice87ZtL&c->VtK^PbX{&dPHjf;vPw1S{XPG)fJ2^C9`YI!Ei$^1P<7tM zZD|hLz?NP@E&B5dh%7DJKB9fsXrK7T(KNAZV$YQYwG!XNwB$yMrXn)}WWrA$s>A`Q1pYoH zQ!&O%DdrAFKvq+!v)YuFWMk0641fM0pE}5a@CY#iCxE<>Kp3wO(Sn{=Pa=gUiEWDY z^Hp$rO;g#L>v3w}w%T?@g7GB>4`|@FR)_3Wy8>=&;m}cS1KG3}t(%O}S8+TKy!^%c zNvoJ|qVr|2DCYvnCGCJviaD99JY*3E1kTyww+o#6fWTqKzk|G?vi(i-;qrz`?eYe3 zbN|lb=9c0HKViIv2e;*_%@x3rE>DZQBJXhe&6Q;~wYa|ab^Pgv?+nv7>hReDqkwkt RHHt5Q^Y{v2|LB?i{{g}*gOUIM diff --git a/sources/MAIKOBITBLT b/sources/MAIKOBITBLT index 0346530a9..3c56c8635 100644 --- a/sources/MAIKOBITBLT +++ b/sources/MAIKOBITBLT @@ -1,8 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "24-Oct-2021 10:31:31" |{DSK}larry>medley>sources>MAIKOBITBLT.;2| 8685 +(FILECREATED "26-Oct-2021 10:52:24" |{DSK}larry>medley>sources>MAIKOBITBLT.;2| 9691 - |previous| |date:| "25-Feb-94 16:50:33" |{DSK}larry>medley>sources>MAIKOBITBLT.;1|) + |changes| |to:| (FNS \\MAIKO.BITBLTSUB \\MAIKO.BLTCHAR \\MAIKO.PUNTBLTCHAR + \\MAIKO.BITBLT.BITMAP \\MAIKO.BLTSHADE.BITMAP) + + |previous| |date:| "24-Oct-2021 10:31:31" |{DSK}larry>medley>sources>MAIKOBITBLT.;1|) ; Copyright (c) 1988-1990, 1994 by Venue & Xerox Corporation. @@ -35,23 +38,27 @@ (\\MAIKO.BITBLTSUB (LAMBDA (PILOTBBT |SourceBitMap| SLX STY |DestinationBitMap| DLX DTY HEIGHT |SourceType| |Operation| |Texture| |WindowXOffset| |WindowYOffset|) + (* \; + "Edited 26-Oct-2021 10:06 by larry") (* \; "Edited 29-Jun-88 16:24 by ") (* |;;| "replaces \\BITBLTSUB on Maiko") - ((OPCODES SUBRCALL 69 13) - PILOTBBT |SourceBitMap| SLX STY |DestinationBitMap| DLX DTY HEIGHT |SourceType| |Operation| - |Texture| |WindowXOffset| |WindowYOffset|))) + (SUBRCALL BITBLTSUB PILOTBBT |SourceBitMap| SLX STY |DestinationBitMap| DLX DTY HEIGHT + |SourceType| |Operation| |Texture| |WindowXOffset| |WindowYOffset|))) (\\MAIKO.BLTCHAR - (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) - ((OPCODES SUBRCALL 135 3) - CHARCODE DISPLAYSTREAM DISPLAYDATA))) + (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; + "Edited 26-Oct-2021 10:22 by larry") + (* \; + "Edited 6-Jul-90 10:14 by matsuda") + (SUBRCALL NEW-BLTCHAR CHARCODE DISPLAYSTREAM DISPLAYDATA))) (\\MAIKO.PUNTBLTCHAR (LAMBDA (CHARCODE DISPLAYSTREAM DISPLAYDATA) (* \; - "Edited 24-Oct-2021 10:31 by larry") - (* \; "Edited 29-Jun-88 16:04 by ") + "Edited 26-Oct-2021 10:21 by larry") + (* \; + "Edited 1-Nov-89 15:26 by takeshi") (* |;;| "puts a character on a display stream. This function will be called when \\maiko.bltchar failed. Punt from subr call") @@ -65,7 +72,12 @@ (\\CHANGECHARSET.DISPLAY DISPLAYDATA (\\CHARSET CHARCODE)))) (COND ((|ffetch| (\\DISPLAYDATA |DDSlowPrintingCase|) |of| DISPLAYDATA) - (RETURN (\\SLOWBLTCHAR CHARCODE DISPLAYSTREAM)))) + (RETURN (COND + ((|type?| STREAM DISPLAYSTREAM) + (\\SLOWBLTCHAR CHARCODE DISPLAYSTREAM)) + ((|type?| WINDOW DISPLAYSTREAM) + (\\SLOWBLTCHAR CHARCODE (FETCH DSP OF DISPLAYSTREAM))) + (T (ERROR "Not Stream or Window" DISPLAYSTREAM)))))) (SETQ CURX (|ffetch| (\\DISPLAYDATA DDXPOSITION) |of| DISPLAYDATA)) (SETQ RIGHT (IPLUS CURX (\\DSPGETCHARIMAGEWIDTH CHAR8CODE DISPLAYDATA))) (COND @@ -158,7 +170,7 @@ (\\MAIKO.BLTSHADE.BITMAP \\BLTSHADE.BITMAP)) (PUTPROPS MAIKOBITBLT COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1994)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (1339 8140 (\\MAIKO.BITBLTSUB 1349 . 1865) (\\MAIKO.BLTCHAR 1867 . 2007) ( -\\MAIKO.PUNTBLTCHAR 2009 . 6282) (\\MAIKO.BITBLT.BITMAP 6284 . 7636) (\\MAIKO.BLTSHADE.BITMAP 7638 . -8138))))) + (FILEMAP (NIL (1500 9146 (\\MAIKO.BITBLTSUB 1510 . 2193) (\\MAIKO.BLTCHAR 2195 . 2623) ( +\\MAIKO.PUNTBLTCHAR 2625 . 7288) (\\MAIKO.BITBLT.BITMAP 7290 . 8642) (\\MAIKO.BLTSHADE.BITMAP 8644 . +9144))))) STOP diff --git a/sources/MAIKOBITBLT.LCOM b/sources/MAIKOBITBLT.LCOM index e8c2e2fc5a3c0aeab2c23d8f83aa2f27ace71575..fb41a4df63e5a2270869c11e5fa1482d48cc56e1 100644 GIT binary patch delta 663 zcmZ8fJ#W)c6s?lfLtn4uk_CL%!)qu^46 zEU~cD^evtE0}P<15*r;@=!%foSQuDgWx`JS5%H#bj?TUBT%CJx>(}DGeN!rt9lwMH zi~tFWh!tEJcJ58nf~=I0f~v!lCH68UaXkBw$}ldua6Rbt1IRWuO%t#*{BwJCYS>wq zoXzvOhGFV8TUV)Ghb*2FUHrIObr}3xE%NPYIZxdOR0A9dw@eyxouu z+AY7M1VggG@x#5l>?`*-#ao8S=kh%JHhcdP;Mky8+q4~G*L8;)mP!p`K_lD}wzizm zj&5lN-B6oO9=N4soPCVlDIHbR_UD=K9iFVId{m^z@a>v#}{9Tkr7HLX}Wa> za7BQ+)13B-aXGR|8uV-r;#z=Y@qZmcDAa|`P1~?&&0aAZP+bMxwuudr6wNS+tC_U6 zuG&x$Cj=`dmJ@sqS1W8kF`vfeiJgfVG$v=Uz}_S>>s16z!z5JGD2Ot+hE*pni0Hg3 zOW@Ej-;FS9sA9-ko)3;c=(L`IHvqTSZ+m;;Aw-8W`kBaZmnm_{cNbuEocs~{2TonC AasU7T delta 607 zcmaDZIZ1p%kg$oae{zYgk%5t+f}w$xu^|vmOm!DFMiMr$GBvd_u$;JGTD&GNza%3w zFTF;gCNr-_LCG!D$49})XtEEZl!XyOi;n6`*G}f^&voKYtDJV)U%giq=u2JBsNl7e8wE|jUWUA|ynxt!KqF`udWeRknF;IiS zlhHMslf1=oq6&~7CENr z4wJvIXfPh0EX!)3UhQ;JD}s#y2u^Tjeb}6x5xXy(ZEj#-j*aRrx>Z|AC85{sqCBzM27Z{pjS7T;|Rja8vP#EGV6h{L+9N_8W kAL8T`q6rG^n3&1Jj3S#Y*u@wTfgZ-O8qV3w$$5_%0P=F8%K!iX From 9abf1569da567b988e3fbcf6a625796cd860add3 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 26 Oct 2021 15:57:31 -0700 Subject: [PATCH 4/4] Recover BIGBMAPS definitions dup (but more recent) from LLCOLOR --- library/BIGBITMAPS | 244 +++++++++++++++++++++------------------- library/BIGBITMAPS.LCOM | Bin 22089 -> 21895 bytes 2 files changed, 128 insertions(+), 116 deletions(-) diff --git a/library/BIGBITMAPS b/library/BIGBITMAPS index de80c7faa..cf176f5b8 100644 --- a/library/BIGBITMAPS +++ b/library/BIGBITMAPS @@ -1,13 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) -(FILECREATED "26-Oct-2021 10:53:57" |{DSK}larry>medley>library>BIGBITMAPS.;2| 109300 +(FILECREATED "26-Oct-2021 14:51:38" |{DSK}larry>medley>library>BIGBITMAPS.;7| 110451 - |changes| |to:| (FNS \\BWTOCOLORBLT UNCOLORIZEBITMAP COLORIZEBITMAP) + |changes| |to:| (FNS UNCOLORIZEBITMAP COLORIZEBITMAP \\BWTOCOLORBLT) + (VARS BIGBITMAPSCOMS) + (MACROS |\\SFInvert|) - |previous| |date:| "13-Jun-2021 14:02:38" |{DSK}larry>medley>library>BIGBITMAPS.;1|) + |previous| |date:| "13-Jun-2021 14:02:38" |{DSK}larry>medley>library>BIGBITMAPS.;5|) -; Copyright (c) 1991, 1993-1994, 2021 by Venue. +; Copyright (c) 1991, 1993-1994 by Venue. (PRETTYCOMPRINT BIGBITMAPSCOMS) @@ -67,11 +69,7 @@ (PUTPROPS |\\SFInvert| MACRO ((|BitMap| \y) - (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| |are| |stored| |with| - 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| - |left.| |The| |correction| |is| |actually| |off| |by| |one| - (|greater|) |because| \a |majority| |of| |the| |places| |that| |it| |is| - |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|) + (* |;;| "corrects for the fact that alto bitmaps are stored with 0,0 as upper left while lisp bitmaps have 0,0 as lower left. The correction is actually off by one (greater) because a majority of the places that it is called actually need one more than corrected Y value.") (IDIFFERENCE (|fetch| (BITMAP BITMAPHEIGHT) |of| |BitMap|) @@ -1476,33 +1474,59 @@ (DEFINEQ (COLORIZEBITMAP - (LAMBDA (BITMAP 0COLOR 1COLOR BITSPERPIXEL) (* |kbr:| "15-Feb-86 10:13") + (LAMBDA (BITMAP 0COLOR 1COLOR BITSPERPIXEL) (* \; + "Edited 26-Oct-2021 14:23 by larry") + (* \; + "Edited 13-Jul-90 14:42 by matsuda") - (* |creates| \a |copy| |of| BITMAP |that| |is| |in| |color| |form| |allowing| - BITSPERPIXEL |per| |pixel.| 0COLOR |and| 1COLOR |are| |the| |color| |numbers| - |that| |get| |translated| |from| 0 |and| 1 |respectively.|) + (* |;;| "creates a copy of BITMAP that is in color form allowing BITSPERPIXEL per pixel. 0COLOR and 1COLOR are the color numbers that get translated from 0 and 1 respectively.") (PROG (COLORBITMAP) (SETQ COLORBITMAP (BITMAPCREATE (|fetch| (BITMAP BITMAPWIDTH) |of| BITMAP) (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) BITSPERPIXEL)) - (\\BWTOCOLORBLT BITMAP 0 0 COLORBITMAP 0 0 (|fetch| (BITMAP BITMAPWIDTH) - |of| BITMAP) - (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) - (COLORNUMBERP 0COLOR BITSPERPIXEL) - (COLORNUMBERP 1COLOR BITSPERPIXEL) - BITSPERPIXEL) + (COND + ((NOT (|type?| BIGBM COLORBITMAP)) + (\\BWTOCOLORBLT BITMAP 0 0 COLORBITMAP 0 0 (|fetch| (BITMAP BITMAPWIDTH) + |of| BITMAP) + (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP) + (COLORNUMBERP 0COLOR BITSPERPIXEL) + (COLORNUMBERP 1COLOR BITSPERPIXEL) + BITSPERPIXEL)) + (T (PROG (DESTBMLIST DESTBITMAP SOURCEBOOTTOM) + (SETQ DESTBMLIST (|fetch| (BIGBM BIGBMLIST) |of| COLORBITMAP)) + (SETQ DESTBM (|GetNewFragment| DESTBMLIST)) + (SETQ SOURCEBOOTTOM (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP)) + (|while| DESTBM |do| (SETQ DESTBMHEIGHT (|fetch| (BITMAP + BITMAPHEIGHT + ) + |of| DESTBM)) + (SETQ SOURCEBOOTTOM (- SOURCEBOOTTOM DESTBMHEIGHT)) + (\\BWTOCOLORBLT BITMAP 0 SOURCEBOOTTOM DESTBM 0 0 + (|fetch| (BITMAP BITMAPWIDTH) |of| + BITMAP) + DESTBMHEIGHT + (COLORNUMBERP 0COLOR BITSPERPIXEL) + (COLORNUMBERP 1COLOR BITSPERPIXEL) + BITSPERPIXEL) + (SETQ DESTBM (|GetNewFragment| DESTBMLIST)))))) (RETURN COLORBITMAP)))) (\\BWTOCOLORBLT (LAMBDA (SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT 0COLOR 1COLOR DESTNBITS) - (* |kbr:| "15-Feb-86 11:06") + (* \; + "Edited 26-Oct-2021 14:36 by larry") + (* \; + "Edited 26-Oct-2021 14:32 by larry") + (* \; + "Edited 26-Oct-2021 14:26 by larry") + (* \; + "Edited 8-May-2021 22:31 by rmk:") + + (* |;;| "blits from a black and white bitmap into a color bitmap which has DESTNBITS bits per pixel. DESTCOLORBM is a pointer to the color bitmap.") + + (* |;;| "assumes all datatypes and bounds have been checked") - (* |blits| |from| \a |black| |and| |white| |bitmap| |into| \a |color| |bitmap| - |which| |has| DESTNBITS |bits| |per| |pixel.| - DESTCOLORBM |is| \a |pointer| |to| |the| |color| |bitmap.|) - (* |assumes| |all| |datatypes| |and| - |bounds| |have| |been| |checked|) (SELECTQ DESTNBITS (4 (PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW DESWRD DESOFF NBITS DESALIGNLEFT SCR) @@ -1517,24 +1541,24 @@ (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) (SETQ DESWRD (FOLDLO DLEFT 4)) (SETQ DESOFF (MOD DLEFT 4)) - (SETQ NBITS 4) (* DESTCOLORBM |is| |used| |to| - |allow| |one| |bit| |per| |pixel| - |bitblt| |operations| |on| |the| - |bitmap.|) + (SETQ NBITS 4) + + (* |;;| + "DESTCOLORBM is used to allow one bit per pixel bitblt operations on the bitmap.") + (COND - ((NOT (EQ 0 DESOFF)) (* |save| |the| |left| |bits| |of| - |the| |destination| |bitmap| |so| - |it| |can| |be| |word| |aligned.|) + ((NOT (EQ 0 DESOFF)) + + (* |;;| + "save the left bits of the destination bitmap so it can be word aligned.") + (SETQ SCR (BITMAPCREATE 4 HEIGHT 4)) (BITBLT DESTCOLORBM (SETQ DESALIGNLEFT (LLSH DESWRD 2)) DBOTTOM SCR 0 0 DESOFF HEIGHT 'INPUT 'REPLACE))) (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |;;| "linecounter goes from 1 to height because bitmaps are stored internally with top first so subtracting height is necessary to get offset of line and the 1 corrects for height difference.") (\\4BITLINEBLT (\\ADDBASE SRCBASE (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1549,9 +1573,11 @@ DESWRD)) WIDTH MAP 0COLOR 1COLOR)) (COND - (DESALIGNLEFT (* |move| |the| |color| |bits| |to| - |the| |right| |and| |restore| |the| - |saved| |color| |bits.|) + (DESALIGNLEFT + + (* |;;| + "move the color bits to the right and restore the saved color bits.") + (BITBLT DESTCOLORBM DESALIGNLEFT DBOTTOM DESTCOLORBM (IPLUS DESALIGNLEFT DESOFF) @@ -1559,38 +1585,8 @@ (BITBLT SCR 0 0 DESTCOLORBM DESALIGNLEFT DBOTTOM DESOFF HEIGHT 'INPUT 'REPLACE))))) - (8 (PROG (MAP SRCBASE SRCHEIGHT SRCRW SRCWRD SRCOFFSET DESBASE DESHEIGHT DESRW DESWRD DESOFF) - (SETQ MAP (|fetch| (ARRAYP BASE) |of| (\\MAP8 0COLOR 1COLOR))) - (SETQ SRCBASE (|fetch| (BITMAP BITMAPBASE) |of| SOURCEBWBM)) - (SETQ SRCHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) - (SETQ SRCRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| SOURCEBWBM)) - (SETQ SRCWRD (FOLDLO SLEFT BITSPERWORD)) - (SETQ SRCOFFSET (MOD SLEFT BITSPERWORD)) - (SETQ DESBASE (|fetch| (BITMAP BITMAPBASE) |of| DESTCOLORBM)) - (SETQ DESHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| DESTCOLORBM)) - (SETQ DESRW (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| DESTCOLORBM)) - (SETQ DESWRD (FOLDLO DLEFT 2)) - (SETQ DESOFF (MOD DLEFT 2)) - (|for| LINECOUNTER |from| 1 |to| HEIGHT - |do| - - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) - - (\\8BITLINEBLT (\\ADDBASE SRCBASE (IPLUS (ITIMES (IDIFFERENCE SRCHEIGHT - (IPLUS LINECOUNTER - SBOTTOM)) - SRCRW) - SRCWRD)) - SRCOFFSET - (\\ADDBASE DESBASE (IPLUS (ITIMES (IDIFFERENCE DESHEIGHT - (IPLUS LINECOUNTER DBOTTOM) - ) - DESRW) - DESWRD)) - DESOFF WIDTH MAP 0COLOR 1COLOR)))) + (8 (SUBRCALL COLORIZE-BITMAP SOURCEBWBM SLEFT SBOTTOM DESTCOLORBM DLEFT DBOTTOM WIDTH HEIGHT + 0COLOR 1COLOR DESTNBITS)) (24 (PROG (SRCBASE SRCHEIGHT SRCRW DESBASE DESHEIGHT DESRW) (SETQ SRCBASE (|fetch| (BITMAP BITMAPBASE) |of| SOURCEBWBM)) (SETQ SRCHEIGHT (|fetch| (BITMAP BITMAPHEIGHT) |of| SOURCEBWBM)) @@ -1601,10 +1597,7 @@ (|for| LINECOUNTER |from| 1 |to| HEIGHT |do| - (* |linecounter| |goes| |from| 1 |to| |height| |because| |bitmaps| |are| - |stored| |internally| |with| |top| |first| |so| |subtracting| |height| |is| - |necessary| |to| |get| |offset| |of| |line| |and| |the| 1 |corrects| |for| - |height| |difference.|) + (* |;;| "linecounter goes from 1 to height because bitmaps are stored internally with top first so subtracting height is necessary to get offset of line and the 1 corrects for height difference.") (\\24BITLINEBLT (\\ADDBASE SRCBASE (ITIMES (IDIFFERENCE SRCHEIGHT (IPLUS LINECOUNTER @@ -1619,12 +1612,19 @@ (SHOULDNT)))) (UNCOLORIZEBITMAP - (LAMBDA (BITMAP COLORMAP) (* |kbr:| " 2-Sep-85 19:21") + (LAMBDA (BITMAP COLORMAP) (* \; + "Edited 26-Oct-2021 14:51 by larry") + (* \; + "Edited 26-Oct-2021 14:44 by larry") + (* \; + "Edited 26-Oct-2021 14:44 by larry") + (* \; + "Edited 13-Jul-90 16:54 by matsuda") (PROG (BITSPERPIXEL MAXCOLOR MAXX MAXY BWBITMAP TABLE RGB R G B BIT BASE BWBASE RASTERWIDTH BWRASTERWIDTH WORD) - (SETQ MAXX (SUB1 (|fetch| (BITMAP BITMAPWIDTH) |of| BITMAP))) - (SETQ MAXY (SUB1 (|fetch| (BITMAP BITMAPHEIGHT) |of| BITMAP))) - (SETQ BITSPERPIXEL (|fetch| (BITMAP BITMAPBITSPERPIXEL) |of| BITMAP)) + (SETQ MAXX (SUB1 (BITMAPWIDTH BITMAP))) + (SETQ MAXY (SUB1 (BITMAPHEIGHT BITMAP))) + (SETQ BITSPERPIXEL (BITSPERPIXEL BITMAP)) (SETQ COLORMAP (OR COLORMAP (COLORMAP BITSPERPIXEL))) (SETQ MAXCOLOR (MAXIMUMCOLOR BITSPERPIXEL)) (SETQ BWBITMAP (BITMAPCREATE (ADD1 MAXX) @@ -1640,10 +1640,12 @@ (SETQ BIT (IDIFFERENCE 1 (IQUOTIENT (IPLUS R G B) 384))) (\\PUTBASE TABLE I BIT)) - (SETQ BASE (|fetch| (BITMAP BITMAPBASE) |of| BITMAP)) - (SETQ BWBASE (|fetch| (BITMAP BITMAPBASE) |of| BWBITMAP)) - (SETQ RASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BITMAP)) - (SETQ BWRASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BWBITMAP)) + (COND + ((|type?| BITMAP BITMAP) + (SETQ BASE (|fetch| (BITMAP BITMAPBASE) |of| BITMAP)) + (SETQ BWBASE (|fetch| (BITMAP BITMAPBASE) |of| BWBITMAP)) + (SETQ RASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BITMAP)) + (SETQ BWRASTERWIDTH (|fetch| (BITMAP BITMAPRASTERWIDTH) |of| BWBITMAP)))) (SELECTQ BITSPERPIXEL (4 (|for| Y |from| 0 |to| MAXY |do| (SETQ WORD 0) @@ -1666,27 +1668,37 @@ ((NOT (EQ Y MAXY)) (SETQ BASE (\\ADDBASE BASE RASTERWIDTH)) (SETQ BWBASE (\\ADDBASE BWBASE BWRASTERWIDTH)))))) - (8 (|for| Y |from| 0 |to| MAXY - |do| (SETQ WORD 0) - (|for| X |from| 0 |to| MAXX - |do| (SETQ WORD (LOGOR (LLSH WORD 1) - (\\GETBASE TABLE (\\GETBASEBYTE BASE X)))) - (COND - ((EQ (LOGAND X 15) - 15) - (\\PUTBASE BWBASE (FOLDLO X 16) - WORD) - (SETQ WORD 0)))) - (COND - ((NOT (EQ (LOGAND MAXX 15) - 15)) - (SETQ WORD (LLSH WORD (IDIFFERENCE 15 (LOGAND MAXX 15)))) - (\\PUTBASE BWBASE (FOLDLO MAXX 16) - WORD))) - (COND - ((NOT (EQ Y MAXY)) - (SETQ BASE (\\ADDBASE BASE RASTERWIDTH)) - (SETQ BWBASE (\\ADDBASE BWBASE BWRASTERWIDTH)))))) + (8 (COND + ((NOT (|type?| BIGBM BITMAP)) + (SUBRCALL UNCOLORIZE-BITMAP BITMAP BWBITMAP TABLE)) + (T (PROG ((SRCBIGBMLIST (|fetch| (BIGBM BIGBMLIST) |of| BITMAP)) + SRCBITMAP + (WIDTH (ADD1 MAXX)) + HEIGHT + (DESTBOTTOM (ADD1 MAXY)) + (TEMPBM (BITMAPCREATE (ADD1 MAXX) + (ADD1 MAXY) + 1))) + (SETQ SRCBITMAP (|GetNewFragment| SRCBIGBMLIST)) + (|while| SRCBITMAP |do| (SETQ DESTBOTTOM + (IDIFFERENCE DESTBOTTOM + (SETQ HEIGHT (|fetch| + (BITMAP + BITMAPHEIGHT + ) + |of| + SRCBITMAP) + ))) + (SUBRCALL UNCOLORIZE-BITMAP SRCBITMAP + TEMPBM TABLE) + (BITBLT TEMPBM 0 (IDIFFERENCE + (ADD1 MAXY) + HEIGHT) + BWBITMAP 0 DESTBOTTOM WIDTH HEIGHT + 'INPUT + 'REPLACE) + (SETQ SRCBITMAP (|GetNewFragment| + SRCBIGBMLIST))))))) NIL) (RETURN BWBITMAP)))) ) @@ -1700,17 +1712,17 @@ (MOVD 'BITBLT 'BKBITBLT) ) -(PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994 2021)) +(PUTPROPS BIGBITMAPS COPYRIGHT ("Venue" 1991 1993 1994)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (3237 47935 (BIGBITMAPP 3247 . 3393) (BITBLT.BIGBM 3395 . 14218) (BITMAPCREATE.BIGBM -14220 . 15562) (BITMAPCREATE 15564 . 17166) (BITMAPCOPY 17168 . 17703) (BLTSHADE.BIGBM 17705 . 20841) -(BITBLT 20843 . 22491) (\\ORG.BITBLT 22493 . 34062) (\\BLTSHADE.DISPLAY 34064 . 43302) ( -\\RESHOWBORDER1 43304 . 47933)) (47936 71214 (\\DRAWCIRCLE.BIGBM 47946 . 51309) (\\FILLCIRCLE.BIGBM -51311 . 55357) (\\DRAWELLIPSE.BIGBM 55359 . 59879) (\\DRAWCURVE.BIGBM 59881 . 63731) ( -\\DRAWLINE.BIGBM.DASH 63733 . 68092) (\\DRAWLINE.BIGBM.NODASH 68094 . 71212)) (71215 86790 (DSPCREATE -71225 . 73655) (DSPDESTINATION 73657 . 77555) (|\\SFFixY| 77557 . 83279) (|\\SFFixDestination| 83281 - . 84464) (|\\SFFixClippingRegion| 84466 . 86788)) (86791 94877 (\\SW2BM 86801 . 91825) (BITMAPHEIGHT -91827 . 92325) (BITMAPWIDTH 92327 . 92819) (|\\SFFixFont| 92821 . 93793) (BITSPERPIXEL 93795 . 94875)) - (94878 109053 (COLORIZEBITMAP 94888 . 95920) (\\BWTOCOLORBLT 95922 . 104863) (UNCOLORIZEBITMAP 104865 - . 109051))))) + (FILEMAP (NIL (3215 47913 (BIGBITMAPP 3225 . 3371) (BITBLT.BIGBM 3373 . 14196) (BITMAPCREATE.BIGBM +14198 . 15540) (BITMAPCREATE 15542 . 17144) (BITMAPCOPY 17146 . 17681) (BLTSHADE.BIGBM 17683 . 20819) +(BITBLT 20821 . 22469) (\\ORG.BITBLT 22471 . 34040) (\\BLTSHADE.DISPLAY 34042 . 43280) ( +\\RESHOWBORDER1 43282 . 47911)) (47914 71192 (\\DRAWCIRCLE.BIGBM 47924 . 51287) (\\FILLCIRCLE.BIGBM +51289 . 55335) (\\DRAWELLIPSE.BIGBM 55337 . 59857) (\\DRAWCURVE.BIGBM 59859 . 63709) ( +\\DRAWLINE.BIGBM.DASH 63711 . 68070) (\\DRAWLINE.BIGBM.NODASH 68072 . 71190)) (71193 86768 (DSPCREATE +71203 . 73633) (DSPDESTINATION 73635 . 77533) (|\\SFFixY| 77535 . 83257) (|\\SFFixDestination| 83259 + . 84442) (|\\SFFixClippingRegion| 84444 . 86766)) (86769 94855 (\\SW2BM 86779 . 91803) (BITMAPHEIGHT +91805 . 92303) (BITMAPWIDTH 92305 . 92797) (|\\SFFixFont| 92799 . 93771) (BITSPERPIXEL 93773 . 94853)) + (94856 110209 (COLORIZEBITMAP 94866 . 97676) (\\BWTOCOLORBLT 97678 . 104271) (UNCOLORIZEBITMAP 104273 + . 110207))))) STOP diff --git a/library/BIGBITMAPS.LCOM b/library/BIGBITMAPS.LCOM index 6ed911c89c678bc467db6f655ff6a095b6b4d459..919e15a9a749923742e3d1f93e71ca8d2990bff8 100644 GIT binary patch delta 1423 zcmZ8hO>7%Q6yCLsnmS5i)3mA52nH*vY)IVQ*Nos|QrX9uSg^+7m)*1P6rFdnArrc(d!^gq1uy@4fln?0nxh z9(}`p@HPAKt#e{Y;!8r|{?7Hqd_RNYDJ-m#?Y&jZVIJ{Nl}cRk{*P-eo}{zcYzp-| zZ|v=K`Y44@RWL5`Qi;!}GVyf9v~;bhE3RIKMY#!_cBOl!ke7_Cp3nCY&vT;0d!Mok z-p}ld-q4xLW>ESyrRgBmG*r{Im4>4c+kvdDXiegv{??XLG2gzk^X^_h6Zf96uh3?! zG`JpltDF^(Lt0HuR|#=lVxtDasH{6~*a|{E3~kGFT;zRKQ7Wi{#Bma)(s)|cO{3~& z5OXgUVPeSyBM)QpFse;6@T_-!qOZYKx!b9BJGA7zWGw9a2Mb9qS{=nUSTpkd_LL8Z zNAAN|H8G5C$NgICw?}ff<_3tCqQz+wHGF9^L1*6#kq3{NG>Qzw3ML3UT)^$o5mL#OsAQ1#O zHwpLx<@fYj9v3F%qHu;56sQ3#iIkvyAhoGCEJf217DZ&%8!gxibCWDc6=tc9Cu?~= zA7-IRCf=$CVw#)!*q^0xA)W@$=27TB>fao4n%cMyp@dxBZg6Vg?XhwH^SXf6%(7dh zFdV`_#n9^S*ncduzb-LMBzZiWOw7sWDS^GC&6CN^aN@mRzmpE^eYi+Px#U|gUIr^i z+Kavg{#ADFb5!=YCD zR9K-1(J2!nf#Z;6IaP!O9#l4TS5+LnzM-m?jzC%+KzXXaVp&8};a5XB?raY+k8EY# zv|Dx{6KoP*954aGMY`63D>v0J*L4eF&PzK?->;Qp&E4@&Nm+)Zr)oah4 L%Vgqp(~AEK!})(j delta 1520 zcmb_c&u<$=6y9B@G`MYSha^N%wT!H&vePErncelSgHXF`Z@rG!JH~O;BsE>Cxf@94PY#AcX@5I5haifglc$v>b}Wq3Nlr)H9KC?4i8%{;*qdWF^breDh}B zd~d#aU;e-!{>XoQ^R%?A%FC*D@6MGuvXe*2EGaC~+jkdD;<|r?Z3pYe6xaPv)*w9jnx|jFwe?H3)|}*}KB!H^~mdQc;#9_AUQ5JG=T0 z`<+kmc{V9roa zuTQeSD$_kX&E*O@YPZenEn1=uZJJIC6)+lLcdc$(%?47HSI0y_X0=r}8i5qhrKll; zWGzCt5FtGT5SUMn=IVc8Grl8i&T!nB%2a22?09#N7xyzy&sEZu$)tb!fuuta5rU0K z+-3-b8^$yE+QxS3`3I#i>Sh2A65d3B*!s$Y-tHdvUFLrB|K9sR@Y3aH-ekG^+?%RQ zbTdMViuC+R|EuZ>70t&-wI|NwM|GF|yfV?FQ`c<&0O!Vib^BE8{_TnPA5^BcXF)vo zdFI3ENUDb-tzI?~>&-_Jy$i9%T!;j3VI=)GdoL3d(d^&|bpFXBgI=KQvzpj@ILHlG zuNI4F)uwAs*=-?JSHTEGfva_@uH_p+Q6-@C5k|%s7`S>Jk)njm8qE2T1UxewU=4ys zH^K#ZIGw;mXD@4WJ(a{}QDI5oDWpm+rXemR)$cHY>Q;# z`?cp=7|GyMquDez8i?o$YFZ7)C|QVTMO1YgYamTkhb$B%V6m#jELKU#7UOJsjI=l{ zyrb|~gZDBUki@lP*mTN&XkFv$E#|DP>S++Tt5G+m&% zlfF*Hr*%3*7k*>Ry~O{)es%5MCtOa^3dnI*Z787<00O$&?TXbhjaAFtFipooU@;2} zqWN9Ma2#4P;a5Y2NOsUekSe3Pv0kmO)d#HytQYhgxFTp9SdV%L!myKB#e>>m=v`q& eu^K};EA7f`J`KQlK%pD%6Z%X