From 50a4fbc230ce4b369614307c3b2ebb8d189d4130 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Wed, 13 Nov 2024 18:36:29 -0800 Subject: [PATCH] Add pixel read routine --- images/apple/DCGR-TK.PO | Bin 143360 -> 143360 bytes src/inc/dcgrlib.plh | 1 + src/inc/dcgrutils.plh | 1 + src/libsrc/apple/dcgrlib.pla | 32 ++++++++++++++++++++++++++++++++ src/libsrc/apple/dcgrutils.pla | 15 +++++++++++++++ src/mkrel | 1 + src/samplesrc/MONARCH.BIN | Bin 0 -> 16384 bytes src/samplesrc/dcgrtest.pla | 10 ++++------ 8 files changed, 54 insertions(+), 6 deletions(-) create mode 100644 src/samplesrc/MONARCH.BIN diff --git a/images/apple/DCGR-TK.PO b/images/apple/DCGR-TK.PO index 4a4597b96c493d33690d84a6ba3e3f0fe757905d..a0e21eaa45f72dde1ebde8ce43b8180dad0e9d0e 100755 GIT binary patch delta 800 zcmYk4Ur1AN6vxl+-21y5n_RE1#Sj$>ON5!D>_LMN-85~?;oQKLPHnR>3`$Cw3Ufj9 zkf^td4$6mEv0i+rU1;D#*`GZG(Sr#-^pKGc(NhRQQCP=+;1520&pqFB&+qW#Os*Rz z*Nx9^iHNc`Dt<>%*8BN$NtpzIMq>8}i9{+{%M!YRA(oXFP(azJGmJ1@EdCoZyCjSN z)L06jSvL>=W-LPHAC?_CC9oo`HeOOVqQTkEvI1hTDyAGoMWk(pvtcx9i0BL0rM7s{>96LRQ zFdn`_2n#_`s~oH1i&nr5%{%tg-@!}O9^xu-gBT}fi8)@TE|5MU&64JcRpK+TPPreX zTLeg@s)eW`>{6L}hV-1~9M{qlviS|ih##gcB6Q@;+iZ)8uGR}}Ix|fPsacLcSw5AN zaL#Z7D!Kq1DVqUHm0(Nsp2aP}P9`jP8d6OL+~~1!hg!o$^)zvo3&{o!Y9p7_cFKEc z9v?4H1~??Ui9RAm{&j9m#wnhlI6?kxiti9p#0=%`b4zlb^kpt##1WRxqTKH8><(VK z+#BlaAGi{xNjHV`1Jh&0gy~Fy_Uo%fcPxdtKKyzbvr7zh_U@k{Gr%xoLQz{Aub!9D zt}I$Vy7ryG{1HiE_&FiuGGtfJ43EutWD~3`aA|tSKWPdx6Lp it?~@Z(fiMt7)za0(9R&`Q}DP*tIcTGyDU?T<^KUZ($&BK delta 2168 zcmb_eO>7%Q6rPz~yPNgeS=&kMT4~r=C_k&3BRH`g_cD)su{Eo|kJA@na3l&UOafJ{4ectz^ zm#iZ6R9HgsitpNA7#}h)**CAA!Ci(-ek#9};IM2A7GwU?XV4m251{z__fdpftzfvtjF1uKHx1iJ-x+jC_56S!8vz6Sda?0cB|5w5?0 z{Q<^#JGVn%hrzmxD{mX`f74%jC-9+y^Q!o4YoA&l5|XH^3WU1*^px(SkmaSK$mKKT<^2+iEfIYIB_yNbxNPv+G`Pg zl0VQY2Seeu_Kpbjf)D6JGJKRP1=J+E9#J=4=BR{(R4;4 zt+7R9@p&qRHq<^KB$zRW!lW&%^2Z(nK=?`XXqfoS76tb@iC{j_d4W^dc1kY!e(q;gGs9ourFM)xC~>Iq$pc_k*tw6#zu> 3 + if dcgrSurface // Memory + dcgrMemBl7Mem(x7, y, surfWidth, surfHeight, surfPtr, surfSpan, 1, 1, @pix7) + else // Screen + dcgrScrBl7Mem(x7, y, 1, 1, @pix7, 4) + fin + m7 = divmod7[x] & $07 + amask = auxclrmsk[m7] + if amask & $80; amask = (amask & $7F) << 8; fin + mmask = memclrmsk[m7] + if mmask & $80; mmask = (mmask & $7F) << 8; fin + pix7[0] = pix7[0] & amask + pix7[1] = pix7[1] & mmask + for i = 0 to 15 +// clr7[0] = (auxclrsl[i] | (auxclrsh[i] << 8)) & amask +// clr7[1] = (memclrsl[i] | (memclrsh[i] << 8)) & mmask +// if pix7[0] == clr7[0] and pix7[1] == clr7[1] + if pix7[0] == (auxclrsl[i] | (auxclrsh[i] << 8)) & amask + if pix7[1] == (memclrsl[i] | (memclrsh[i] << 8)) & mmask + return i // Color match + fin; fin + next + return 15 +end +// // Hack to extend parameters for memory functions // def extPlotMem#0 diff --git a/src/libsrc/apple/dcgrutils.pla b/src/libsrc/apple/dcgrutils.pla index 4245ce4..7044cc7 100644 --- a/src/libsrc/apple/dcgrutils.pla +++ b/src/libsrc/apple/dcgrutils.pla @@ -126,6 +126,21 @@ export def dcgrRect(x, y, w, h)#0 dcgrHLin(x, x2, v) next end +export def dcgrGetPixMap(x, y, w, h)#1 + var pixmap, pixptr + byte i, j + + pixmap = heapalloc((w + 1)/2 * h) + pixptr = pixmap + w--; h-- + for j = 0 to h + for i = 0 to w step 2 + ^pixptr = dcgrPixel(i+x, j+y) | (dcgrPixel(i+x+1, j+y) << 4) + pixptr++ + next + next + return pixmap +end export def dhgrSet(dhx, y)#0 dcgrColor(dhgrPix[dhx & $03]) dcgrOp(OP_OR) diff --git a/src/mkrel b/src/mkrel index 3b467e9..13cf5cf 100755 --- a/src/mkrel +++ b/src/mkrel @@ -112,6 +112,7 @@ cp rel/apple/DGRTEST#FE1000 prodos/demos/apple2/DGRTEST.REL mkdir prodos/demos/apple2/dcgr cp rel/apple/DCGRTEST#FE1000 prodos/demos/apple2/dcgr/DCGRTEST.REL cp samplesrc/ENT.* prodos/demos/apple2/dcgr +cp samplesrc/MONARCH.BIN prodos/demos/apple2/dcgr mkdir prodos/demos/apple2/spiders cp rel/apple/SFM#FE1000 prodos/demos/apple2/spiders/SFM.REL diff --git a/src/samplesrc/MONARCH.BIN b/src/samplesrc/MONARCH.BIN new file mode 100644 index 0000000000000000000000000000000000000000..8812c4b2d7417154b750dcc86499142668a496aa GIT binary patch literal 16384 zcmZ{rjb9pP*7wf<>R?bo;|78>2(B?U>xwi%N_soGBOxug@rmt&4MY|R=E;YQMz-Kx zBlE96-!q8OZTIRYfG}LI=l62XP?4LqIeIlcdU5Ny5p9^MU{ZXhT)M|qx89%HFwds5 zHr?MA)^LM%^c-^F@pV!@xJ8dSz<9R1|tLxFr!ux15 zxGc^>J09}hYyafDY7f6H4Ktb7etp8Y{i&4MpV>Ie?iD&&hihx%3r>p_<#pUySdON` zKB=e7-={V{rTKV0v{5>)Z$#%`7yVGL z-aloYORVu$+jR2HxRYOwJB9?4o2kiEI2BwqeR@f7HM|_ZzBanbn#8JG@}lFtHC>R1 z<9Gaf{#sVft8P-7_m)hFrDRN;l^rwr#qCeIS7~!&s&BetitEa}zl*#%Hl5Vcsjubv=}o z7o0&j6?0^{^h=C6M15u>$E>83wF({KpWm?p1&y!J_cOU<*b08kJNKIr#t$w>SG_sx zOt!*1!KRMCk}_Ln>fuMTeZ8XL(+SrySH>c?Wmg7U)qhw8i=EZ8TqdUe%J+F~`pjRh zN@cXeYVsrFH&>Q} zk6F>zHf=iW{cvn?>$#Hax~KGA%kE`$t-cs%`LLO%hyRxfaz*;*ZgrJ8q~-f^VUH`! z?@Qg8-YIiUMVtBeS+DQ)<^w0uj<0PF<2R}28$6H8_ScdB@ahKtx92yysu66&S{fN5 zxufTUetn~qmUR#RSy|WBw>ib8Umo>>oMuqIyXueSswuFc>v&S-(|*dGty9P)E8-neK84wAX%Q&YhBmO9ra7;naeBKK`y4nH<@HjYZ|kows{^~ z^B6N_eiR?fxdYR|G{lqc)#}3D^_3~J5gsTj5cQmUAqoCp8;-CC@;W#8ea2i`*||4V ziQdCiJp(;2@7q4+ZYcuwV1MWJJx)XGWlE2Fqk4X>3cHuguOSL5AVkJ zd9(@BgI+WF+Gj3bT=l1R%2_MhQS=2{L zvbV71!{z)rD&l(!`lBgx8AL9dkAuvO*iJF0=0Y!id;GSp--H>(XNX%phOzsubo{Dp z0&6G3IzA}2dVhh%-1_qm{ZOi8$%dsY$Q(=kP``3~8s^&Ia{L|dXnUM!zw(r2_;+lT z`K)dJy#4ca8(wwi5jFGL<{f^7U9~m928iH9-7PnbrlmvAr7J{#xgg29v16kD(G$PK z*PfsuL=aK$PNhPibB6Dix&A6QNJ-hy315o>5A(OP9^@3Crjlk2jj-|HKnj{kOUrpwtY*WD=f zkG6D2@96K%43ZH=So_t-C(U11H)WFO<@9^kLcme&-Ct2e; z`rp7KjOztN&5iyGp2n0fQ|o8aVGiZ=^u_c+gY`FZ;J;fso@V~5s{boK(TEm#=i)#5 z)toZW5Q)hZjl}kKjCga{Tnn~efiV5gA5i_*by^zZXNsQEC|Vn`Y^Wy6hNP#nHC4!h z#XEZi=Y{<4>HlO3{l{a-nu(@K3MBhX9T`SZ1bS#(T0kXkwY3CV?R}<chMnX6t4Gcred0%28uxlksqW?-Wo*kUJ0T+7E`k@2hPDcE;LX4dzl zv+fimC1M?;|I9TNTn+w}_}@YQ88euQK7P_ZbYk!6C-so=qmP5jG3S48@4sWNMRd=1 z*d^&tf$q9{B^5#0veKVnPMqZ=csW}m{^hcsHr@KS)5M_^U;xx0^q|_G>YbXCuun5T zI<4kgC*LNfLTnr@%-EZ~7(x5r+vfFm+10Pj8sR@E>duHN_jsy#bv(6EN}a)yl^i>@ zuB&g$(i2uzXg>tSrdV!&W~sB1 z?|;$%Bzi&Q;?fRQ&f^V@qA1ZbVyZ$a=;OWDM4)`%$?o|Z4SN&hgFsf3hIh@S1s^W8 z$VoP%ORWE0&iq#><+?}nrQ^Z>t!Ix=Vc2I9Ci&Vnn?XDWYX#}(z9NB0s&av!zhlkO z3Cc2ipZra}o$*g+J4v#Rb;lANJKHFnrDu9GF&HQ&X7PT~B+@~l<6gl4_5Kl_5+u?k zYeN6YG`_aYX6z%{&{PK=+(Cym61mntv#w{gly8srYceJ1KhD#_@$3~s;GYZx|FI`l zZg4qc{<>0(Hb808>^($lO_)G+P4~moU;Ke;bo8$NbKdBmo=X7zzuuedbgs-;zF;%o zHdm|oF?M!Ik{82xE@h`z$_3TGT~#fADd%np?9!~RMVE=w#yya(Y%{rp4_RFqXZ%#K z2@`x=S)RNd--tKk7mcLH?u>#4hcv6pG7`#*_N%vLE~zLAjqf#6T!jbekoP#>!G`|O zhU!0iwUUZ0=bMbbTW~(;o}Q~3#ft0!=!X%`sGl z-qrv6e4TH#m7~#sUTpPAb8>Y73~{2V6*zO)?s4pVPTu9WveVypcn+)!*(Ynx%Ky~- zd_TtL_gRBDPuM5-6S;Ra{hK?MuJ+vDj$j{+=+?@e{CCqyG=Cxo#_NomCJ`&)O%FFnOP+4CmoFI9529d0CwzX*fkkt`=#%O^amSN|&brJuGy@_3 zzdD}QJQ@A}7%2*w+vJkz1MQ3pqx`Dqz=6}>@()|yj|MMS%JEoOT_rF8F&3@v%$vVBU zn`nJgv&66M-kLfe<~gZbds#U)pI7N02Jo&S{~p%0s8cjxfAlxS9Pt0s>mU5AJSkE- zb~XPG7jgJb+<7%d9pxO?fBwn|_TD~b_cXRR%Tj9L{MFj#ZT~Z%7PiCQ>poFiO1Yfb z6d6?rZz*H~zTgQSuRs9vHP#LWqWKG^*5h-FQ`O$k@0qISVLfq>L7*}HCB9Dq2Yw;$1?-8HFc2_ zqK`bqf35#i%vf1I6P4i|&Xshm$p1?akolZ~9S$NSOzvU!eG&C>dT28j$lMe2A`J$e#4eG}s_`H(4 zqFVT2aq9A_@CW_h4BYDFQ> zeS*;39+^cm@ACf%pvZf#{xuEq_CP=b_bcSTAu6!wKYN~vzYZ2*DKY`} zN-hw7S0lD)LlwJwFj%Ru<6wSgWtmHLthPLl0M6oLBVg zwUe5;ZNaF8GGoD(g4jH(T`m3%a`;rm9*!fBSf)U4q>~p^vO)xk_BWS_6e%7Ii&? zwI@z2rOL`$&$dkUYsXXTopoK|**RuYtFk726qfIChSpK8wD`}gnHI6Kcn>i8Azg8+ znkfX6`LFta0{ZW)Gk=aBcy0ac;r~zdABXFJoCYhno?O9Mcz?|yjeE)AEM?~T9ywAe z<>t`;oH}7il7FL9z91{Rhr^0;nnIrb16hJ!G?&a)slCtePt3rIV(U*@FlFG}RR5!E ze5+}uf(Pn+hK<@b$l?U**(rUec@!}{p0aRiuiYtBZyBwSEO8%CS-y*--qhvHM%6v) zT^%2}rQ>%S)tsv?{jUCRIt699cKm=GY+1;^(f^MNf|J6jo4wIq#8Y9kPwJ{f%6i!| zzZiR)>eR||Hu$i``0=F3JS-JlGkwOHOTFW{2~(DiYi@<|yP}X9xw));jM^sEKM<&H zvCTaWul}z3j~%3<#(UG(SFVPW(YEp&wQ&c3YWW+u-%w$1vrIMUpVZ$$%Vq-y@995G zoiy$aJ(DZA~K5!(zyPDZi+i%}%1{ojZr4;SVNmWDhZ;uVgFsL_t9i3Oy>NWok2FSrh z#_>2;eoM9eAFBUae@}_(f8&XT{#VlaWj^=qkq5mlShDxx?AY}3Z#3Tgjami~K>m$? zd;^u7)~$J`nyl>2Qkkvvw=f@ z=b?{}zVG(t-1vWv!(f5+STVpKLkTfS+6c8_g-0TY~W@MhSX7t~M9BFgF$ zUwCkA;{NN;&2voTf&JIjCk=hJ1Y-LW9i>@Xv~xe>OV#T?*|aPceU0AF-*fY?q4C z^~DQ2vIdWy^{M+?GeqH4*erx(FI(bctUtNy!R@GE_) zZ@qdN{pU<~ylU>v6v%prh_@e!iljLfCI6p1AnKFc0aN{Nj`W|(SQ18hhjxZGx${H( zi&np-v$@CkA@skM_dS$IQLA>;-vutOOt7xyV^7XX`ihcmL0#3{;Vs^wIa|f4KSZHEx#NWm4U*FW7Jc zg8K)d$~+z#xuf+T`S&X{5%gOiWT^joWYcgfj50|r#!M}ERnYseuZKP|Z*qQE(C>uV z1!~i!+|0mZi%AF6QLiT2ar)%@No9er`VSi057%xsUtct-lkWtTeUoA3r-obip>5Q_ zHC9rv#qx?WRs&xl7gXOYPy6_stdBbo;AE74b9Zk!(bPJ@+mGg7aU#ngG8Ltw$of(+ z5==wA+iXm|IA3D|FE)o&JMQe_ci(dr(p$f1K%~Q zzo$d}e{yFR|M;XGYZp56+}+-MjG~<6!4LkDxlgvV8u%ym_m0`1F0o@IxysF%eKOWG z`VYUC^{%Ss|J3#I<%Q{Y!s3-s9d9XQgu;sTEF*&;HO}}f$))sD3?#jU52 z;?@Lx>|b~JA5RB!V-ZU#517R~6|GDu5?Hk(qwz21#gMQimk#TtHINkPGyX}u7nSH> zTP(xQLJrI^u##L1xCJND*&0MX76ye=*N(ff_W!yGL&w*MxM_cFhAzKFYESVKndrx z;JoFW-kxp|o?qNVxXc*#8+-Wu;Ui~ZXY9Fh#C|h1D{sd1jKd|?M~XOGiga?Li*2JU zTME7&H;CHod#@&w{a9bekM<&t7=cJ_?tO%LuJ64G%v#1h9239Ia1(qh5VjVHpG7-- zFh^v6ZMoW9d7k-3N{fL9)*G(Vb@rld*3Vvbaz>;)_f(_VACO0Z1}_dLV!gyzY@&W* ztXlnAU#!?5GeQ6J_UGL!eTDZpL-vvR+q#~4`s8(G-cIk%A9OwcIGTZuA1Td^g-gi* z=Z^*WlA-^YBy{}6-Av3F%PerUo#tE}LX_7DVyfQQ?k`Lrh!S>U&ZDrkZ%4}ApB~tA ztbud1=XNvpewn{*!&=`0}(++;Zk$^7WJG_@UH?vF$_#2G>?Hc9(aw^@*v^l?Qv>x<_`U{YuX6 z+AB%l@MBrIe!l%QinRW9eBJ&`_KZ&vlUZ8EyI$OOi}4QF#u_FR|E)*i(wq@48hw{9-A?=^YnW)zQ>+&$UbZe>qGZp;vE{6OqNM_(5f|%oKuY<9fTp<><|%HWc+ZU#<1IsAf@1uO zTP(CLCoDsr-5T`P%O5i^*GetIDdlZF?Qkh$KdUK!(5yFOVVm){TCBGbYsCFqaBrMYp`D2`g`W&hk?QV*X(fVoe{J2)v%NPqY*(JGEm{#pKS+YHxmg60+n-0# z5D*)wr}d+~a63M+O)X~<_BjOq;nUcF_0QQ4_R?cv##c16R<0g?9VCH3{pa_h`Rn+7 z*k_;Xb>I9T(2#k{FYN{5s?7Cver(;&?6Ovi&jv;PVoYKu#`xhx{VcI!^{ok`k-?_I zmiv_q$j?~vK69|YJ8LTg><8BEh{3b{?0|6&-c;`He_xTxclo|3I*6P21PsHzmX!gz ziIvivBDOrsJ@=Qf-NChW_T z!{3Yv>FrOzfEUtw+l2j2w_h{Hn{w{DZ_xiKTgzAaL#{zvQJB4z)tfdN|JL*9q`O0f zyY&e#ca7R&$X7CK+4>SuZ7W7vu(T69;p*ZR`Y%RV_5Z=%Tu3AJ%U1iW82k4q0P-*6 z&Smit`ft6FM%_dB-4U$JkD1aUm9#fhxoGe*d^XaGtBfeGf`EiwaAJ0$82dtK_2Ih- zfD@J+JIKzWqi@gvt}EE8|8XbQ2K}AO(|fIm<4zEP5m@9;8d^JNoqHCfdiMk2&;)yXu{~?Psi>#%8VE7AE|^zu69zb(FwV9oR^_l!2mi5N#zFs{ss6M6 zbs}BY5e^V9GQ-U|gm_tE1B@swZCxkZR27@_lE@BH@pFNosB;PyE$tO-WIQ%*g;H;lNbz`kcPe0&NIF-E5f-?Sb@tnPN$)3EL?C}yt3%hPW= zk>80PMNp&A&O5IC)qoZuGwk zGR1P(%C@wOcC058#%gV%K3+RX$o3#MkPLclu!nPUWdV3Pvh0MqIVF2b~Gv7gmpA@jZ?oGC+?mt)S z-zfQdt?)iqTUqr@ssrHBTf^OlbY1(CYWM5>>Z-3^BWgGeW^jT2lc%8nwoD|P!}eS9 zZ&sKwj53jBJ+t@6ypwVVg_p5^4>5{MDJBMF4T^vW9sUXaYx_SDeLs471fm2d2Np+K z@nv4J8XI4n1o>?23+&_jmk^ro=g)*lAo`7Rj#E03-YyPo>=fNUjdjl2@lL*-z*+s! ziJ!WhL@Dye>SvWG0vWSbw?*Wl9sU5hvW@QuyMCq?nS`0Y-GJu*o^INiZ&+Js z7FHPT6sM2=IhK6WmY4iU`h?wIwP4^Hd3f?mM)PkF^dtKq>x{t}@B?7gfBvcOQ3jwk z@JIcBgYVKDc#*KeF?&exCTO9V<=m_5eBFX!AMpb@Svu^;dUzf&`bl41>J!EV4wURd zBk=t!XbSJ4|5gT1!JKqlT{jLKl$W0kYa2H^p!%OlF7mm7`&a!xyP}@32?qEcjIzDI z8`g*<8wd+|ZiClkeT_t;Ize=vX#EHM4_mKs`yfu4r!t4$s@slKo|Qm7Of-M6Z)Xl7 zl}wo|@oTfr&|mc*I!AtF>ryX?G!p!b-18qW;IOU*r?LJkCt}B1jL5jS*pmd_LmCl> z{7>il?4XOwPBBk1*S$BLId%Uv*asg0^OVVKTdK=nhv%36#JQ*cmciKlOR`(=-)4Om zNzE#sjq?8_`zj#)+tXN)6;Pvyo^S@8d+kHj|L}oSvi8VVYyN+o`ws{E5oY=c{hy=; zkkmZqk4-C4yjz>Q$q&iXM_f=_^c=BIE;2n%8y>uJW&H3Y;cy16M^ZwcO5`ckF4Z@7 zO3v1I;>8F*Nb{QW6CC}hMIO2s*x;SU@a@}=o$LzEoN5$Nw7^|1+|vG!&qi~pk=H7+ zww$=GUSjq(KgX)RpZ|p_q#n#aWkg<{@`731xK8|xJ8g6jWb z;Mw%;VZj$Hms{Zb=s(#~KZ8sejNgAvA-ab{>=}Ks-xC<<#1g8Vntw0uPVCLuv(_2;JgB2seCpl(f`l^ zhGb4-?j-w%zGYa4ptI<$dMHJ{wJ%|FQPIzPpLabs?e(Y+ntw;|9gL6uud{4-OQI(W z_(~8TIp`YUr~9h^jigiTRRdEbA@$b)ERX<3;A6 zs$kW7L}FXnCvv*Y_{0mSt9%QKJ+QyG=k`8V=E%XvB^lU&jk5OVR(3Cc*Z-;7cqQ^qqW$jQpCE5xAq;}e{t&z3ZzIN z|4)Re`72jy{T(eqdp?k(lYb-jaW(dGxtT!OZBAQKRnr%$%di6fqgdG=>KB* zfkl<7WK0^MiSm1)1M7GmV9Ql4c72KlBJlS3>KOH&0~vrZOa0r^{}S$+i)N`-4Y4P( zg7;e88jrrG>T+VV^L?XV$NgF-Mh~ohi8$If4pXa`>j(71-{-E2?|=f{lAS2REb@D0 z>06Ebm$5x|x5ELwhWiKl`8SMDwJ^86`2K;17?=(Hr>Xwe`9Wx+FDWt*7&P9?!0hZ> zmorQU463NgC?2YHUP8a6#VOTb{Ku5n%k_ii-?Jt4{RVY%FlY@fFJisgNlZNp6~%31 z%*z6I(Z7JB`~MC3xz(sQs(7zSZl)SLv9{*lsvLG!E4SPOf>l@-Ik!Hu?s>EyM&R$y zsvo0PCs*N2U`Kotwf{#bJo-=l9hB=iqW`vLOyNCGeIjU+I<&>Eea8vWp8>#^N)o%I`;m-g>Tt_vQk#CVf*1rus)_-T9^s{!uj<>OYEs zub$)n+lK94{u28VEACS&iBW}R9@OF9zAOybIlr>cb=N5OkSV_oMcqU3zv}7#pVa@Y zzvIj@0fDowd#QbH{f(7-t)3>b*`>fmp?FDUEAr*CNF;FgD?$DrH>@sPSs-sIeEOCM z^aak)X=?s@UO1#;zH^BNUruOL414^~M?I;4QO{S{;$6+7Gn^XTTjR+^kNfe zt}7SZ`{`*enr}yC{Zz>RO4JP&&{*kO^X4G)lKlTPKA`^2oyT}DOm1}qOO&}wc&kw* z0sXkLDZRV+VDAlec67|bq8vnS=`V=F{C>z>VE6eyd8z5h>KS*x`d$U}CCnzZMO%_+ zO-L&9R`?yxJ9Ci>6gNk+$yfBWQ-pin&k zIr7b(dXwnC&w>)YXM_HF*Nu^(v8O~Wj7a@|mb;UBDa^FR6X+ZF^naq>qXGd^Wdi-z z$|~7{I)AFg)Y@$j&wGm@PyZF2_9E=Czk4_T?z2Wv#@TB99~_{;7gRUNe_@V{`bsOW zjB$NecTBbSQ0})6E$LS$_{oq&+2Kc;+0plR`Ca-d&mDZ$Y8%LXLseR1bAQMNdvm*- z-PdNHdE3h82HMGKaCgnTYSG4rt(oo|06HG z`g>Tyw(5Vsp5^p%cE0kU*6my)@<)`c{NT^(?|NTN&q}l6t=84)qfVwMy>0N1uOX|a z_TVwL6;WRr_`p5&9jfoJ0~z2rwGgV>TPL5jvP|}Ib6>3+`ntrguQdN(N#4o-|35|9 Beq{gv literal 0 HcmV?d00001 diff --git a/src/samplesrc/dcgrtest.pla b/src/samplesrc/dcgrtest.pla index c68a3e0..34213dc 100644 --- a/src/samplesrc/dcgrtest.pla +++ b/src/samplesrc/dcgrtest.pla @@ -122,7 +122,6 @@ def dcgrCompMask(offset)#0 dcgrMemBl7(sprite7w, i * SPR_H, sprite7w, SPR_H, sprite7msk[i], sprite7span) next end - def readEnterprise#0 var xorg, yorg, width, height, pixptr, t_ptr, f_ptr byte i @@ -145,7 +144,6 @@ def readEnterprise#0 f_ptr = f_ptr + 12 next end - //////////////////////////////////////////////////////////////// // // // Test Harness // @@ -159,10 +157,7 @@ def dhgrTest#0 // dcgrSurfScr(OP_OR) setlineplot(@dhgrSet) - for i = 0 to 191 step 4 - line(0, 0, 559, i) - next - for i = 559 downto 0 step 7 + for i = 559 downto 0 step 20 line(0, 0, i, 191) next getc @@ -441,6 +436,9 @@ end dcgrMode(0) dhgrTest screenRead("monarch") +dcgrOp(OP_SRC) +dcgrPixMap(10, 10, 20, 20, dcgrGetPixMap(60, 66, 20, 20)) +getc readEnterprise dcgrCompSprite(2) dcgrCompMask(2)