Faster circle

2026-05-20 22:33:43 +02:00 · 2023-08-10 09:09:33 +02:00
parent 2775e7d0f9
commit ee54f0014f
2 changed files with 106 additions and 11 deletions
@@ -333,8 +333,110 @@ EndOfDraw
 circleloop
    lda FX
    cmp FY
-    bcs endcircleloop
-    jsr splot8
+    bcc not_endcircleloop
+endcircleloop
+    mwa xcircle xdraw
+    mwa ycircle ydraw
+    rts
+not_endcircleloop
+;    jsr splot8
+;----
+; splot8
+; plot xcircle+XC,ycircle+YC
+; plot xcircle+XC,ycircle-YC
+; plot xcircle-XC,ycircle-YC
+; plot xcircle-XC,ycircle+YC
+
+; plot xcircle+YC,ycircle+XC
+; plot xcircle+YC,ycircle-XC
+; plot xcircle-YC,ycircle-XC
+; plot xcircle-YC,ycircle+XC
+
+    clc
+    lda xcircle
+    adc XC
+    sta xdraw
+    lda xcircle+1
+    adc #0
+    sta xdraw+1
+    ;clc
+    lda ycircle
+    adc YC
+    sta ydraw
+    sta tempcir
+    lda ycircle+1
+    adc #$00
+    sta ydraw+1
+    sta tempcir+1
+    jsr plot
+
+    sec
+    lda ycircle
+    sbc YC
+    sta ydraw
+    lda ycircle+1
+    sbc #$00
+    sta ydraw+1
+    jsr plot
+
+    sec
+    lda xcircle
+    sbc XC
+    sta xdraw
+    lda xcircle+1
+    sbc #0
+    sta xdraw+1
+    jsr plot
+
+    lda tempcir
+    sta ydraw
+    lda tempcir+1
+    sta ydraw+1
+    jsr plot
+;---
+    clc
+    lda xcircle
+    adc yC
+    sta xdraw
+    lda xcircle+1
+    adc #0
+    sta xdraw+1
+    ;clc
+    lda ycircle
+    adc xC
+    sta ydraw
+    sta tempcir
+    lda ycircle+1
+    adc #$00
+    sta ydraw+1
+    sta tempcir+1
+    jsr plot
+
+    sec
+    lda ycircle
+    sbc xC
+    sta ydraw
+    lda ycircle+1
+    sbc #$00
+    sta ydraw+1
+    jsr plot
+
+    sec
+    lda xcircle
+    sbc yC
+    sta xdraw
+    lda xcircle+1
+    sbc #0
+    sta xdraw+1
+    jsr plot
+
+    lda tempcir
+    sta ydraw
+    lda tempcir+1
+    sta ydraw+1
+    jsr plot
+;-----
+
    inc XC

    clc
@@ -366,16 +468,9 @@ else01
    sta FS
 endif01
    jmp circleloop
-endcircleloop
-
-    jsr splot8
-
-    mwa xcircle xdraw
-    mwa ycircle ydraw
-    rts
 .endp
 ;----
-.proc splot8
+/* .proc splot8
 ; plot xcircle+XC,ycircle+YC
 ; plot xcircle+XC,ycircle-YC
 ; plot xcircle-XC,ycircle-YC
@@ -472,7 +567,7 @@ endcircleloop

    ; RTS
 .endp
-
+ */
 ;-------------------------------*------------------
 .proc placetanks
 ;--------------------------------------------------