remove old checkerboard effects

This commit is contained in:
4am 2020-09-07 16:30:44 -04:00
parent 93784cb174
commit 3b0149f9e9
4 changed files with 1 additions and 1172 deletions

View File

@ -70,9 +70,8 @@ CASCADE
SNOWFLAKE SNOWFLAKE
VERTICAL.BLINDS VERTICAL.BLINDS
BUTTERFLY.IN BUTTERFLY.IN
CHECKERBOARD
LR.BY.PIXEL LR.BY.PIXEL
CHECKER.FIZZLE CHECKERB.FIZZLE
STAGGERWHITE.LR STAGGERWHITE.LR
SOFT.UD.OUT SOFT.UD.OUT
ONESQUARE ONESQUARE
@ -106,7 +105,6 @@ LITTLE.BOXES
SPIRAL SPIRAL
WAVY.CORNER WAVY.CORNER
REDLINES REDLINES
CHECKERB.FIZZLE
[eof] [eof]
# #

View File

@ -1,106 +0,0 @@
;license:MIT
;(c) 2017-2019 by qkumba and 4am
!cpu 6502
!to "build/FX/CHECKER.FIZZLE",plain
*=$6000
copymask_even = $f0
copymask_odd = $f1
counter = $f2
!source "src/fx/macros.a"
;init masks
lda #%10000000
sta copymask_even
lda #%11111111
sta copymask_odd
lda #2
sta counter
@outerloop
;init RNG
ldx #1
stx @rnd1+1
dex
stx @rnd2+1
;iterate
@loop
ldy @rnd1+1
ldx @rnd2+1
lsr @rnd2+1
ror @rnd1+1
bcc +
;feedback polynomial forms #$100D for period of 8191
lda @rnd1+1
eor #$0d
sta @rnd1+1
lda @rnd2+1
eor #$10
sta @rnd2+1
;little hack to avoid missing offset zero
;screen hole at $xxFF is missed instead
+ tya
eor #$ff
sta $26
sta $3c
txa
;target page 1
ora #$20
sta $27
eor #$60
sta $3d
;copy pixel from other page to this page
ldy #0
lda $26
and #1
sta $00
lda $26
rol
rol
and #1
eor $00
bne @odd
lda ($26),y
eor ($3c),y
and copymask_even
eor ($26),y
sta ($26),y
jmp @next
@odd
lda ($26),y
eor ($3c),y
and copymask_odd
eor ($26),y
sta ($26),y
@next
lda $c000
bmi @exit
;and exit condition
@rnd2 lda #0
bne @loop
@rnd1 lda #0
cmp #1
bne @loop
lda #$FF
sta copymask_even
sta copymask_odd
dec counter
+LBNE @outerloop
@exit rts

File diff suppressed because it is too large Load Diff

View File

@ -1,54 +0,0 @@
;license:MIT
;(c) 2018 by 4am
;
!cpu 6502
!to "build/FX/CHECKERBOARD",plain
*=$6000
lda #$01
sta $FD
@outerloop
dec $FD
lda #<@coords
sta $FE
lda #>@coords
sta $FF
ldy #$00
@loop
lda ($fe),y
bpl @copy
lda #$20
jsr WaitForKeyWithTimeout
bmi @exit
bpl @next ; always branches
@copy
tax
iny
lda ($fe),y
tay
txa
bit $FD
bpl +
jsr HGRBlockCopy
beq @next ; always branches
+ jsr HGRBlockToWhite
@next
inc $FE
bne +
inc $FF
+ inc $FE
bne +
inc $FF
+ ldy #$00
lda ($FE),y
cmp #$80
bne @loop
bit $FD
bpl @outerloop
@exit rts
@coords
!source "src/fx/fx.hgr.checkerboard.data.a"
!byte $80
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"