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

Faster Circle

Browse Source
This commit is contained in:
Pecusx
2023-11-15 15:06:40 +01:00
parent 19caf28ac5
commit 47efa6292e
4 changed files with 23 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+22 -14
View File
@@ -362,11 +362,12 @@ not_endcircleloop
lda ycircle lda ycircle
adc YC adc YC
sta ydraw sta ydraw
sta tempcir sta ytempDRAW
lda ycircle+1 lda ycircle+1
adc #$00 adc #$00
sta ydraw+1 sta ydraw+1
sta tempcir+1 sta ytempDRAW+1
; plot xcircle+XC,ycircle+YC
jsr plot jsr plot
sec sec
@@ -376,6 +377,7 @@ not_endcircleloop
lda ycircle+1 lda ycircle+1
sbc #$00 sbc #$00
sta ydraw+1 sta ydraw+1
; plot xcircle+XC,ycircle-YC
jsr plot jsr plot
sec sec
@@ -385,54 +387,60 @@ not_endcircleloop
lda xcircle+1 lda xcircle+1
sbc #0 sbc #0
sta xdraw+1 sta xdraw+1
; plot xcircle-XC,ycircle-YC
jsr plot jsr plot
lda tempcir lda ytempDRAW
sta ydraw sta ydraw
lda tempcir+1 lda ytempDRAW+1
sta ydraw+1 sta ydraw+1
; plot xcircle-XC,ycircle+YC
jsr plot jsr plot
;--- ;---
clc clc
lda xcircle lda xcircle
adc yC adc YC
sta xdraw sta xdraw
lda xcircle+1 lda xcircle+1
adc #0 adc #0
sta xdraw+1 sta xdraw+1
;clc ;clc
lda ycircle lda ycircle
adc xC adc XC
sta ydraw sta ydraw
sta tempcir sta ytempDRAW
lda ycircle+1 lda ycircle+1
adc #$00 adc #$00
sta ydraw+1 sta ydraw+1
sta tempcir+1 sta ytempDRAW+1
; plot xcircle+YC,ycircle+XC
jsr plot jsr plot
sec sec
lda ycircle lda ycircle
sbc xC sbc XC
sta ydraw sta ydraw
lda ycircle+1 lda ycircle+1
sbc #$00 sbc #$00
sta ydraw+1 sta ydraw+1
; plot xcircle+YC,ycircle-XC
jsr plot jsr plot
sec sec
lda xcircle lda xcircle
sbc yC sbc YC
sta xdraw sta xdraw
lda xcircle+1 lda xcircle+1
sbc #0 sbc #0
sta xdraw+1 sta xdraw+1
; plot xcircle-YC,ycircle-XC
jsr plot jsr plot
lda tempcir lda ytempDRAW
sta ydraw sta ydraw
lda tempcir+1 lda ytempDRAW+1
sta ydraw+1 sta ydraw+1
; plot xcircle-YC,ycircle+XC
jsr plot jsr plot
;----- ;-----
@@ -450,7 +458,7 @@ not_endcircleloop
sbc FX sbc FX
sbc #4 sbc #4
sta FS sta FS
jmp endif01 jmp circleloop ; endif01
else01 else01
dec YC dec YC
sec sec
@@ -468,7 +476,7 @@ else01
endif01 endif01
jmp circleloop jmp circleloop
.endp .endp
;-------------------------------*------------------ ;--------------------------------------------------
.proc placetanks .proc placetanks
;-------------------------------------------------- ;--------------------------------------------------
ldx #(MaxPlayers-1) ;maxNumberOfPlayers-1 ldx #(MaxPlayers-1) ;maxNumberOfPlayers-1
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
variables.asm
+1 -1
View File
@@ -211,7 +211,7 @@ YHit .DS 2
;radius .DS 1 ;radius .DS 1
;xcircle .DS 2 ;xcircle .DS 2
;ycircle .DS 2 ;ycircle .DS 2
tempcir .DS 2 ;tempcir .DS 2
;TankFalls ;TankFalls
FallingSoundBit .DS 1 FallingSoundBit .DS 1
PreviousFall .DS 1 PreviousFall .DS 1