Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

optimize circle draw (more code cleanup)

Browse source
This commit is contained in:
hugova 2025-07-02 00:45:41 +02:00
parent 5bb62aed88
commit 913a6ba072
1 changed files with 19 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
wip-hugo/routines/circle/circle_help.s
View file

@ -15,6 +15,7 @@
;; qcb | qdb
;; |
;; v Y
;; The q stands for quarter, whe have 4 quarter, and each quarter is split into 2
;; We first calculate all btp_mem_pos for the inverted half quarters!
@ -55,16 +56,20 @@ calculate:
end_calculation:
;; Lets draw all half-quatrons of the circle. This draws only 8 pixels per iteration.
;; Note that I have the draw_qxx in listed pairs. Each pair chair the same Y-register :)
draw_qaa:
LDA byte_to_paint ;A byte containing a single 1. Coresponds to X position in the chunk.
ORA (btp_mem_pos), Y
STA (btp_mem_pos), Y
draw_qba: ;;mirror_technique
LDX byte_to_paint
LDA inverse_factor_value, X;; (see END.s)
ORA (btp_mem_pos_qba), Y
STA (btp_mem_pos_qba), Y
draw_qcb:; xy swoped
STY temp
LDX byte_to_paint
LDA inverse_factor_value, X;; (see END.s)
TAX
LDA log, X
@ -73,36 +78,36 @@ draw_qcb:; xy swoped
;;modify X_pos
LDX temp
LDA binary_factor, X; (see END.s)
TAX
ORA (btp_mem_pos_qcb), Y
STA (btp_mem_pos_qcb), Y
draw_qdb:; xy swaped and y is inverted.
;;modify X
LDA #$07
SBC temp
TAX
LDA binary_factor, X; (see END.s)
TAX
draw_qdb:; xy swaped and y is inverted. ;;;;;;;;;;;;;;;;;;;
LDA inverse_factor_value, X
STA temp__
;;Uses modifyed Y from above
ORA (btp_mem_pos_qdb), Y
STA (btp_mem_pos_qdb), Y
draw_qbb:;; the one not working
draw_qbb:
STY temp_
LDA #$07
SBC temp_
TAY
LDA inverse_factor_value, X;; (see END.s)
LDX temp
LDA binary_factor, X; (see END.s)
TAX
ORA (btp_mem_pos_qbb), Y
STA (btp_mem_pos_qbb), Y
draw_qab:; xy swoped + mirroring
draw_qab:; xy swoped + mirroring ;!!!!!!!!!!!!!!!!!!!!!!!!!!1111111!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TXA
LDA temp__
ORA (btp_mem_pos_qab), Y
STA (btp_mem_pos_qab), Y
@ -123,8 +128,6 @@ draw_qca: ;;mirror technique
;; uses a table!
LDX byte_to_paint
LDA inverse_factor_value, X;; (see END.s)
TAX ;; A is saved to x because qba use this as well
; A = byte_to_paint_inv
ORA (btp_mem_pos_qca), Y
STA (btp_mem_pos_qca), Y
@ -132,12 +135,6 @@ draw_qca: ;;mirror technique
;;Recover the Y value (we changed it because evrything is inverted)
LDY temp
draw_qba: ;;mirror_technique
TXA
ORA (btp_mem_pos_qba), Y
STA (btp_mem_pos_qba), Y
increment_y_pos:
INC Y_rel ; y++
DEY