Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

New (faster) Circle proc - 43b saved

Browse Source
This commit is contained in:
Pecusx
2024-11-05 18:13:10 +01:00
parent df456e5544
commit 4b5316a5f5
4 changed files with 380 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files
circle1.asm
+204
View File
@@ -0,0 +1,204 @@
.IF *>0 ;this is a trick that prevents compiling this file alone
;--------------------------------------------------
.proc circle ;fxxxing good circle drawing :)
; xdraw,ydraw (word) - coordinates of circle center
; radius (byte) - radius of circle
;--------------------------------------------------
;Turbo Basic source
; R=30
; XC=0:YC=R
; FX=0:FY=8*R:FS=4*R+3
; WHILE FX<FY
; splot8 //splot8 are eight plotz around the circle
; XC=XC+1
; FX=FX+8
; IF FS>0
; FS=FS-FX-4
; ELSE
; YC=YC-1
; FY=FY-8
; FS=FS-FX-4+FY
; ENDIF
; WEND
; splot8
mwa xdraw xcircle
mwa ydraw ycircle
; XC=0:YC=R
mwa #0 xc
mva radius yc
; FX=0:FY=8*R:FS=4*R+3
mva #0 fx
mva radius fy
asl FY
asl FY
mva FY FS
asl FY
; A = FS and C = 0
;clc
;lda FS
adc #3
sta FS
circleloop
; WHILE FX<FY
lda FX
cmp FY
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 - allways after BCC
lda xcircle
adc XC
sta xdraw
lda xcircle+1
adc #0
sta xdraw+1
;clc
lda ycircle
adc YC
sta ydraw
sta ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+XC,ycircle+YC
jsr plot
sec
lda ycircle
sbc YC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+XC,ycircle-YC
jsr plot
sec
lda xcircle
sbc XC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-XC,ycircle-YC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-XC,ycircle+YC
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 ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+YC,ycircle+XC
jsr plot
sec
lda ycircle
sbc XC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+YC,ycircle-XC
jsr plot
sec
lda xcircle
sbc YC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-YC,ycircle-XC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-YC,ycircle+XC
jsr plot
;-----
; XC=XC+1
inc XC
; FX=FX+8
clc
lda FX
adc #8
sta FX
; IF FS>0
; FS=FS-FX-4
lda FS
beq else01
bmi else01
sec
sbc FX
sbc #4
sta FS
jmp circleloop ; endif01
else01
; ELSE
; YC=YC-1
dec YC
; FY=FY-8
sec
lda FY
sbc #8
sta FY
; FS=FS-FX-4+FY
lda FS
sec
sbc FX
sbc #4
clc
adc FY
sta FS
endif01
; ENDIF
jmp circleloop
; WEND
.endp
.endif
circle2.asm
+174
View File
@@ -0,0 +1,174 @@
.IF *>0 ;this is a trick that prevents compiling this file alone
;--------------------------------------------------
.proc circle ;fxxxing good circle drawing :)
; xdraw,ydraw (word) - coordinates of circle center
; radius (byte) - radius of circle
;--------------------------------------------------
;Turbo Basic source
;XC=0
;YC=R
;PC=R (FS)
;
;WHILE XC<=YC
;
; SPLOT(XC,YC)
; IF PC>YC THEN
; YC=YC-1
; PC=PC-YC
; ENDIF
; XC=XC+1
; PC=PC+XC
;
;WEND
mwa xdraw xcircle
mwa ydraw ycircle
; XC=0:YC=R:FS=R
mwa #0 xc
mva radius yc
sta FS
circleloop
;WHILE XC<=YC
lda XC
cmp YC
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 - allways after BCC
lda xcircle
adc XC
sta xdraw
lda xcircle+1
adc #0
sta xdraw+1
;clc
lda ycircle
adc YC
sta ydraw
sta ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+XC,ycircle+YC
jsr plot
sec
lda ycircle
sbc YC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+XC,ycircle-YC
jsr plot
sec
lda xcircle
sbc XC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-XC,ycircle-YC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-XC,ycircle+YC
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 ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+YC,ycircle+XC
jsr plot
sec
lda ycircle
sbc XC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+YC,ycircle-XC
jsr plot
sec
lda xcircle
sbc YC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-YC,ycircle-XC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-YC,ycircle+XC
jsr plot
;-----
; IF FS>YC THEN
lda YC
cmp FS
bcc endif01
; YC=YC-1
dec YC
; FS=FS-YC
sec
lda FS
sbc YC
sta FS
endif01
; ENDIF
; XC=XC+1
inc XC
; FS=FS+XC
clc
lda FS
adc XC
sta FS
jmp circleloop
; WEND
.endp
.endif
grafproc.asm
+2 -186
View File
@@ -289,193 +289,9 @@ EndOfDraw
rts
.endp
;--------------------------------------------------
.proc circle ;fxxxing good circle drawing :)
; xdraw,ydraw (word) - coordinates of circle center
; radius (byte) - radius of circle
;--------------------------------------------------
;Turbo Basic source
; R=30
; XC=0:YC=R
; FX=0:FY=8*R:FS=4*R+3
; WHILE FX<FY
; splot8 //splot8 are eight plotz around the circle
; XC=XC+1
; FX=FX+8
; IF FS>0
; FS=FS-FX-4
; ELSE
; YC=YC-1
; FY=FY-8
; FS=FS-FX-4+FY
; ENDIF
; WEND
; splot8
; Circle is now in external file
icl 'circle2.asm'
mwa xdraw xcircle
mwa ydraw ycircle
mwa #0 xc
mva radius yc
mva #0 fx
mva radius fy
asl FY
asl FY
mva FY FS
asl FY
; A = FS and C = 0
;clc
;lda FS
adc #3
sta FS
circleloop
lda FX
cmp FY
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 - allways after BCC
lda xcircle
adc XC
sta xdraw
lda xcircle+1
adc #0
sta xdraw+1
;clc
lda ycircle
adc YC
sta ydraw
sta ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+XC,ycircle+YC
jsr plot
sec
lda ycircle
sbc YC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+XC,ycircle-YC
jsr plot
sec
lda xcircle
sbc XC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-XC,ycircle-YC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-XC,ycircle+YC
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 ytempDRAW
lda ycircle+1
adc #$00
sta ydraw+1
sta ytempDRAW+1
; plot xcircle+YC,ycircle+XC
jsr plot
sec
lda ycircle
sbc XC
sta ydraw
lda ycircle+1
sbc #$00
sta ydraw+1
; plot xcircle+YC,ycircle-XC
jsr plot
sec
lda xcircle
sbc YC
sta xdraw
lda xcircle+1
sbc #0
sta xdraw+1
; plot xcircle-YC,ycircle-XC
jsr plot
lda ytempDRAW
sta ydraw
lda ytempDRAW+1
sta ydraw+1
; plot xcircle-YC,ycircle+XC
jsr plot
;-----
inc XC
clc
lda FX
adc #8
sta FX
lda FS
beq else01
bmi else01
sec
sbc FX
sbc #4
sta FS
jmp circleloop ; endif01
else01
dec YC
sec
lda FY
sbc #8
sta FY
lda FS
sec
sbc FX
sbc #4
clc
adc FY
sta FS
endif01
jmp circleloop
.endp
;--------------------------------------------------
.proc placetanks
;--------------------------------------------------
scorch.xex
BIN
View File
Binary file not shown.