diff options
| author | Simon Rettberg | 2018-10-16 10:08:48 +0200 |
|---|---|---|
| committer | Simon Rettberg | 2018-10-16 10:08:48 +0200 |
| commit | d3a98cf6cbc3bd0b9efc570f58e8812c03931c18 (patch) | |
| tree | cbddf8e50f35a9c6e878a5bfe3c6d625d99e12ba /hacks/images/m6502/dragon-fractal.asm | |
| download | xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.tar.gz xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.tar.xz xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.zip | |
Original 5.40
Diffstat (limited to 'hacks/images/m6502/dragon-fractal.asm')
| -rw-r--r-- | hacks/images/m6502/dragon-fractal.asm | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/hacks/images/m6502/dragon-fractal.asm b/hacks/images/m6502/dragon-fractal.asm new file mode 100644 index 0000000..ce05ad4 --- /dev/null +++ b/hacks/images/m6502/dragon-fractal.asm @@ -0,0 +1,49 @@ +;; dmsc +;; +;; PostPosted: Thu Dec 13, 2007 11:57 pm Post subject: Dragon curve +;; fractal +;; +;; +;; Hi! +;; +;; This draws the dragon curve fractal (really a "twin dragon"): + +lda #0 + sta $0 + +lop: + lda $0 + sta $1 + lda #3 + sta $6 + lda #232 + sta $5 + + ldx #0 +lpN: + lsr $1 + bcc nos + lda $5 + clc + adc tL,x + sta $5 + lda $6 + adc tH,x + sta $6 +nos: + inx + lda $1 + bne lpN + inx + txa + ldy #0 + sta ($5),y + + inc $0 + bne lop + rts + +tL: + dcb 32, 31, 254, 190, 128, 132, 8, 8 +tH: + dcb 0, 0, 255, 255, 255, 255, 0, 1 |