From 3787823288e706afe279b4ad5eb0409837210dd2 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Mon, 12 Jun 2023 19:39:56 +0200
Subject: [PATCH] Fast SoilDown ready! ??

---
 Atari/gr_basics.asm |  69 +++++++++++++++++++++++++++++---------------
 scorch.asm          |   3 +-
 scorch.xex          | Bin 56393 -> 56438 bytes
 3 files changed, 47 insertions(+), 25 deletions(-)

diff --git a/Atari/gr_basics.asm b/Atari/gr_basics.asm
index 5effad7..489f950 100644
--- a/Atari/gr_basics.asm
+++ b/Atari/gr_basics.asm
@@ -197,6 +197,14 @@ ClearPlot
     mva #1 color
 
 drawmountainsloop
+    jsr DrawMountainLine
+NoMountain
+    inw modify
+    inw xdraw
+    cpw xdraw #screenwidth
+    bne drawmountainsloop
+    rts
+DrawMountainLine
 .IF FASTER_GRAF_PROCS = 1
     ; calculate lower point in one screen byte
     lda xdraw
@@ -211,15 +219,26 @@ NotLower
     bpl @-
     sta temp2
     inc temp2	; this is our minimum
+    bit ClearSky
+    bpl NoClearSky
+    ; Clear Sky
+    mwa #0 ydraw
+    jsr plot.MakePlot    
+@   lda #$ff
+    sta (xbyte),y
+    adw xbyte #screenBytes
+    inc ydraw
+    lda ydraw
+    cmp temp2
+    bne @-   
+NoClearSky
 MinCalculated
-.ENDIF
     ldy #0
     lda (modify),y
     cmp #screenheight
     beq NoMountain
     sta ydraw
     sty ydraw+1
-.IF FASTER_GRAF_PROCS = 1
 ;    there was Drawline proc
     jsr plot.MakePlot
     ; after plot we have: (xbyte),y - addres of screen byte; X - index in bittable (number of bit)
@@ -254,6 +273,12 @@ MinCalculated
     bne @-   
 NotFillBytes
 .ELSE
+    ldy #0
+    lda (modify),y
+    cmp #screenheight
+    beq NoMountain
+    sta ydraw
+    sty ydraw+1
 ;    there was Drawline proc
 drawline
     jsr plot.MakePlot
@@ -263,19 +288,14 @@ drawline
     bne drawline
 ;    end of Drawline proc
 .ENDIF
-NoMountain
-    inw modify
-    inw xdraw
-    cpw xdraw #screenwidth
-    bne drawmountainsloop
     rts
 .endp
 ;--------------------------------------------------
-.proc CalculateMountainTable
+.proc CalcAndDrawMountains
 ;--------------------------------------------------
 ; Calculate mountaintable from screen data
 ; for speedup SoilDown, etc.
-
+    mva #$ff ClearSky
 ; Range alignment to full bytes.
     lda RangeLeft
     and #%11111000
@@ -287,17 +307,15 @@ NoMountain
     cpw RangeLeft RangeRight
     jcs NothingToFall
     ; convert range to bytes
-    mwa RangeLeft temp
-    lsr temp+1    ; temp / 8
+    lda RangeLeft
+    sta temp
+    sta xdraw
+    lda RangeLeft+1
+    sta xdraw+1
+    lsr @        ; temp / 8
     ror temp
     lsr temp     ; max range is 511 ! (9 bits)
     lsr temp     ; temp+1 = 0
-    mva RangeRight temp+1
-    mva RangeRight+1 temp2
-    lsr temp2    ; temp+1 / 8
-    ror temp+1
-    lsr temp+1   ; max range is 511 ! (9 bits)
-    lsr temp+1   ; temp+1 = 0
     
     ; mwa #0 temp+1 ; byte in screen line
     adw RangeLeft #mountaintable modify
@@ -335,13 +353,18 @@ NoPixel
     ;ldy ydraw
     cpx #screenheight
     bne ColumnLoop  ; next byte in colum
-    
-    adw modify #8
+    ; redrawing a column (byte) of mountains uses the drawmountains fragment
+    mva #7 temp+1   ; draw 8 mountain columns
+@   jsr drawmountains.DrawMountainLine
+    inw modify
+    inw xdraw
+    dec temp+1
+    bpl @-
     inc temp
-    lda temp
-    cmp temp+1
+    cpw xdraw RangeRight
     bne HorizontalByteLoop  ; next column of bytes
 NothingToFall
+    mva #$00 ClearSky
     rts
 .endp
 ;--------------------------------------------------
@@ -350,9 +373,7 @@ NothingToFall
 ; fast SoilDown froc - test
     jsr ClearTanks
 NoClearTanks
-    jsr CalculateMountainTable
-    jsr ClearScreen
-    jsr drawmountains
+    jsr CalcAndDrawMountains
     jmp DrawTanks
     ;rts
 .endp
diff --git a/scorch.asm b/scorch.asm
index 0712bad..7962390 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -36,8 +36,9 @@
     icl 'definitions.asm'
 ;---------------------------------------------------
 
-FirstZpageVariable = $56
+FirstZpageVariable = $55
     .zpvar DliColorBack        .byte = FirstZpageVariable
+    .zpvar ClearSky         .byte   ; $ff - Crear sky during drawmountains, 0 - no clear sky
     .zpvar PaddleState      .byte   ; old state 2nd button for 2 buttons joysticks
     .zpvar GradientNr        .byte
     .zpvar GradientColors    .word
diff --git a/scorch.xex b/scorch.xex
index fb392dbf069d9dbe86a0d57789130fad90f470ec..283eff5e653c91e9b96fdc45c44994340bbe558e 100644
GIT binary patch
delta 2656
zcmZuy4^&iD8t2Xo42;Md5EU?{%OA~2TM09<a&h;N5<S~C@lT!92N>&M2LmNdY=%F*
zME>ii!yg$Pfd}){k%3Wj+{WyPLl0Yh+G@6I9TzvwQreEDVP`wC-<#ZRPuqFtyzk!c
z{=Pr=yT9*V>A3p4<7(HEH6-1gz2<8*Sqcl*#***cudMx$kSp*|!8Dc83>gKSN(<0c
zkV?$(S%L92YgO`PJ>kS4{x5Xmrml6~os5*|pDa<oPMRS<L^I9oxEJWPopfZkGO&Ue
zWZTK0&2jFVForH^qW4T+%w@c_jAZafN%8&&%GCs13Mc(ZvYL+8(0%ZSb#i1zlT&xm
z_^`ydMjf8gS7<k6zFtqd-JibxatK-Ketg3wEg5o)TdE1kaX+!OOGOIZe>G1DAy?d^
z?=&m3#%;URxV>pLbt)plk-DoybnmE7B`EqEQZ?injKWPa;Qn%#O1*%VZW%6-Rl{!%
zbNJ5@awH;a1WsBYf5{1)Q7g~3YcG_zRJ|ot`cZzv@P_1NdWvPp<@4y+TjCh#o1?=<
z>_NRH(ntO-&@?X$=EO068RRu5MimJc_#&PYF7i29`9%xygRbVMQ$#Ia{Ij^eV*SnG
zA|dC@pOxrmK9QXmV;M(1>#4dFNXrzhiZ=-brfzpqOFAJH?!4B;WJ0}pa8Um}Ey`}+
z+<8V^%KK<NoZgeLc1{z!VWYP(oG<deJf1J^EqZQjM-fLen(*Li8J)x9HfMVJ%$Z!c
zWwIsS@`&Xzi^;Oql2CT4%vW~He9J7A%jK8L^DEz|yjnh7exsaJgjP(dh_5hICRaXM
zSyB0FrG49N^Q*wNO?@ee7bE!|`CBoT?-4b;O};4_aDGS8(nt$Uv(Ps-F6_+ja30X}
zU1B(IOB2qH1oLNID&NO6sul?lAx0p!-zo<4Hg*~hr`wW)`>hm5H`<<8Mb*MQThi|a
ztcV<^K*Vu~PU3woxelu|B<%OA>6|7`39BSPZDnZ!H<HM67$N6@CPv^)89djBXZ)iE
z4%()t*~(&sT-4{HK2OM#g0T9z(nl`s11oVNZ$ldJn}i&GvyjV|2zmUQ7#hayO(p}7
zvbPKw*1I>B48hsGt0(`9M}r=DG*EzBfdULz*}uVW_T|T_E0q*9Kc?V3$HbUaIvws~
z08Z_jLIAGrn@i3^w0(A@x^nG-LH*FVa}2^#)NDSiu+wO<6ie45>%>X;*N6`XOl$3r
zYcRqb_|P65I$*_WIN15{xjmU22GxEy*#pP+zaNpVR4&-QhF*Jt!+2%wHRLjccNocX
zc(Nk_p({EvNjmKB$X6xt?yydV;ND^dJ9!&U2-8DJm9NLIW`BUMgxRD73|*5gx2m1Y
zMQKb{vn|`D(SUG<T{M0mrOROoXFplRj^8egms4<p-Ef_1R#Q_p-T~BTrl-~?uY6HW
zS3>eCy_)Jl456QAW9paLMKw}AI=jDJYCtisS~`S6UnA|1!-Un(jq$4yVN91I3j8LC
z!6l|z3PI6cEoo6Ksg@E@EUuAeqPSHpO+_)QM*201^crct96}AN&;#3F<=m_?G7{q-
z=fJp&J=L$UncM03Y?or@d`E=_i)%3NR<<7u-H#?%tGs25Z6o8|!q^HK7N>=HemWdC
zp1;45VXuIx+c?Eqh0bhgxHb}4QX}w-jZDfHtQDNyNi%W%h;2nQYDI!1CcH>>Mcx(B
zX(Jj`OPWT--~j{;V&>jo5sk~z5ll<*{Y$nnrhu*Me<AR^BaRe8zQgcjVUz#593ze`
zo*rH|Jv>loEC9}p;dRDvnwTAM%rE9!>9lO2Rf@$N)Z5{NW0TT#v&9Co0ZxnmAYZ|u
z1FMlP;RjzMCMZ7mSa?>wFof6k?6=s7b#U-tcFg+?xci}Gt6t5%)*zge6`_n_@}WmU
z3mT-Uer2-o&=cfYC_VHNnFHqzEz(Y{?OI1ee-HN^hH<>Zz6Pr@#7?b+XPxCF0|uN~
zD(y~~aCj^E8X6Bzk1KBU2I+au8?5JZgtL6E@G+l<VNcR@xOn&}O>rYz4EmlYf@3U)
z4SI;|iH4OuQKT5&==t{Ht|qE(VVAXZt*iGj?LqIZdw10hALCE-&Sm`ZG#e^hGoH)_
zuXcHzPsRSpB+kT}q#AF`<drEpYHp>K_@?<oX?kE(#w*RXlB@MGv>&d!5>?}^pzWO(
zeiTu>gDxnhs9<}IQOc!@-D>mBXQXJPV3HNK_0D+c#x8c&uK&<b>rg0|wF{}|FJ))J
zxn3h_hkLzq;;-xy)yS20JbQX=z0yEM+4Syi*04))l-1X$((i_=eJ>FY%yLiCWHiyc
z@SHn74)1~se4p6GyTvv96-?<fypt;AXz`y==C)&L6OKUW>ZZEA3`Yy${UeFNeNCC3
zUbue5nEYwey{4*Wwxy)ybW3FGDdjyza(*vGxb7P7J3K!EQ;sH*K3H;eE>^eZ=yILQ
zMsGG#Lkl&-jibLJpTm@6Qzp7>1;tw`s&}@wN5v)1NPX(JS$G8S{IOM9#4c-L8^Coe
zF)A<?gRruJYPM1r{QcOhsXm(&;tEFE*J6(UkHJ@@V<Z*6Iu<uSwXQT;=rje@ZH=by
zy-0t-aLs?6+cmV$CUjuy3Z2-|)CUdk{h;aJL!W^Jj{%&=BO+7xqzRYsfx6_ogs)8r
zuB`GHbd6!YOTH4no?Q=jjvF<1S_2j{Bm4Kn2$xKV9{vgaNF-@f(hKH0@CoYlU1Gbz
z>PdJy3fa!-4h#-@*SBSQ3)?cex7$YB47Nr1ZNYDmjdSqDSy@?pQL_<A(Yd^{Xx^(U
z{JHF5xb0d0OmiE)OPiGQAb1{(>n?3>^KFv9;kwo-$^=wC`amg$`~-|wbYMFX7puVa
z-*_i5x}UGgC*p_&zCIC4EbibxhBK-t5he^mm`dbt3-@BxBJ>Q#giaD|d*eJaMECi@
aJQA_AE=G2?e=t*bF-0XTbuaihO#g2uf}kS+

delta 2689
zcmZuy3s@A_73R(^u&l@|NWx3tf~ahyijPK(u|BGln9-`mM{L#c5$cLn0jY|(u)rv?
zAjnk~Ru*{;?uaYk`dZ^k+UPbzQZpK%J`(GPkA$YlH}*?J8>2n5nkMa+Z@zENz32Sr
zKlk2q?zs=osKhg>j^C_BA<ne5U#QSxGJRbH5}nJ|{RyEqGIae2>d8(rYduTds3NWF
z$Dsw}`g;A_hLVI{9byF^?goBoYiowPiWcMLFcHgIag;O^M;Vzx^RTlDpF5xo3`Fp;
zRng#chW#pl#v?5Fk>S=v+FeGAF>;6)EeGN8W-ldwULGc?aJLy}k>6)X!C@AM_KH4M
zq&o)et{uy8E=k?67v(ztw&5*5wAeW|d#gV>=@fEH5t`tfkk?9~8P1!=C_mKZ94M|)
zW|g}Ss9<{|%;glyBPYr~L3z%7d&eOV7b?c7k&_INFOk)GZ$G7q=2^YJL^t?f&gq~!
zb4qjrT=xC!2A|Fx@qIak%&JL=xSu0Y_y2gGh5sskm53xY&x+F}jwKZ}@o^jZ%UmXZ
zh099GO3zGzkN=p<;;(YqDcR|uOUWYd)l9+Re2ziG<y0y}nSAEOEUAmdu1)x6E^gb2
z=jM{pwNd^(oPl3&Xm!r7orcgNXQg#68nVjR-K~3!Gt-*3wOkYyaUQ&i$Oq%{H5Mj&
zi@P$A%XGgrn9J(SeB;@^OcsY(AT?#Q*6!M6Om%U_RQB)2e;8%szl}cmujfz6|2m%(
z)D~PYUNF{~noWXfa?vk~+D$G~m+7kMrm5c~n;sMn6n<B@sAx=4_U?<uF~zK);cWPB
zd#j^c@VT2It85eLZXKzt3!)wtlZLt|^<5(#M7rvtL+_a(mq9`h*N!dKf-h%d9v2h2
zF2UDQjbRjFdy~3nCh4|ezqVEba*zTM1_AnEv8O{ShuZ4n8)X&NSXd#3YZufIcyqxd
zp6!q4*bd6G>V+npXAQGB77p`;hFr5HqRj-=N5en1K1^BJr1}J8CClpzpagE!N1&7B
zQT@uWOPuf$*Dehx{L%v<7=l}?nG<B=q4bE}LWNlUoY--R4mVI*tpXrl9*RQgB%om;
zY9ccl#s~Knt~=7L>$`M`23WF+nM}9_9GbU72n1HG@G|_>Laf)-)i73xpxF(vY>H0O
zct=yckzvbrMn|-b3CKjoG&<2na;NcJP>6Coz71>f?RhMOcQl!iKqfcq(JN$4bDW=P
z7o4$;BsYeV`sOhxgj{M)hb=o_ZJ`nDIfZXP^T}s?qUP#uPrIyQJ|bbQ<MUI^xH=84
zaBGGmR<i5Wa(s=Rl2puvQU`rSd<LTpd&B{+a0Fb@cZt)a0Hs7fUcuZh5eG}jFcF?{
zcd&XTHl)FI#!q(QcQ++0pRdBnBw>Y4h3`}ee)!Wg*i|nRX%_ba+2uWA1&F}XeDNsA
zJEh`2DS%)3#xrguK=jkZAlV?&VCmZ<`hmzP75zbsC>7&CV6&J6;zFr790X++e*q%I
zEKZgDaLfuIU@Rq$ZIqrCX?c(x;?8xIE@Pth;K6Af-klXIJH%#Kx5~;`$eV{>i8GYA
z3uxOG+MP?=Hqs1CH$tklFs}UQ=@y!4Bh`oXQHBy=vrPh9zt^M!;H@om@-4<dZX6z#
z1ojiQrJ<k|5F{3H0@h}_mxfO2SA$wqS1JxKAVhB;mah>0ltZ||>(Bw~{ShRLvnj1I
zR`Lh0GFnzWEmL|Yo?(&iNE3w@W*;!ef>~1C`jI(Ycs4gNusku)n+!N4nCpiImg@s?
ze3~~1H<z>G5ox?tjDU6amXOcvTa~NH3Kb}Y$inByO|BnV3FS7q?QQfrIn?&E!05ev
zpQOU$w=<uYk!x*f;T08dLVXF<Iu$dif<G@QLK%};M@MR=R*1u8Ws-e#0tzSgqYIIS
ze0%g){*TP98CbJ`j1po7arTC_aB_XjBQwczm{1t`+A)W^v5!nYmWR$0_p!vt*_Cb|
z9ml$Tb=)fc18z0{A-4v?p2s2N*|FEuvn!d|WNP~a>I);uZr4+@E6Ibl7;>)tYV39k
z?yX_;wXGR@J#>@Lu8dtP{^_CRc=tqFj>aQNd&j6(M-sRHl5!8l{M8^NL9<y7-7{f%
zvKB9};>GZS$r>Eu9TjlZ5Oq0Q=Ap5L=sM%6+Xu*m&dGr#fa2_UdKL!7_D+3>(tzQb
z+uT!WF%+uw;Q?}@bJWnT{S3AL`%3k<D^(i3-%(7-I~a<5+o?x6Wccx)N4M=4R8UP#
zP$>BJCgqN0rs4MwFb{}AwDou;b!R^ba4uX}cEDS5iCGX{fVA?BVu-AQ_77;hc}r^s
zT=Q^u6Ror}x1Bcla7wFeXROsi3wK;-<($G=?ix5>hfY{1g$jQr4rc>oVBQI$8D}Z4
zr&&CM^q+|L<t(YLVxl{#PdH-v!1CLg*xJ<E>e{=tM0uv6&L4|G9pC7m+Fj3q%TLB5
zjuf1nh-Q;BCzoi8Z1~+8{GbLeAQ7iVkL{@8dW59%?V$oH&kYsMmG1}@sPeo}e0n}p
zWLuw=TUc6UZ3>BuA2sf^nR6h6WZS6~{=lHGWmc0<PsN9L$AS+e#+wW)E+WCF$Hdm!
zM86JS?`2_?i2B<9#jHF%X7o>B*8Z2LL5(>Z-wbVlZ-MTBYstCOPt=x!m?raFG33UX
zpkUvFllY!~U#`c~15Z~DSj?^%ZDoL`$CD%Ln3*KbrC0yO>h(wpwj2!SdklcS{{wnt
z@KxYw299QU&ssb^OfGrP6*uJ`+zM8Eq`TWavo6&=qb`-5U)Nptpf1uDX`2gQq>Z(6
zS###h;WBIVP(Ce7S~4g9ZmGPQF_GA_n}%f6L3Xz)2|<t$y5k$1K^o77Mr71^whDef
zSfUjR=p=&PdD&~#edQiPYyS^HzB?NkwGeR6t?&wZxqW~e1H(e+xOW0+>YklU?<N5~
xcJ5#NqljKR`J_8s({H!cN4lQcolm;gprFO&;gX}ND@l7Lnc^2a|L|de?mwkMtB?Qy