Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-19 21:29:38 +00:00
Code Issues Projects Releases Wiki Activity

add REDLINES transition effect

Browse Source
This commit is contained in:
4am 2020-08-14 11:35:55 -04:00
parent ad175e31e4
commit e5111c33ca
2 changed files with 101 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
res/FX.CONF
View File

@ -104,7 +104,7 @@ INTERLOCK.UD
LITTLE.BOXES
SPIRAL
WAVY.CORNER
REDLINES
[eof]
#

100
src/fx/fx.hgr.redlines.a Normal file
View File

@ -0,0 +1,100 @@
;license:MIT
;(c) 2018 by 4am
;
!cpu 6502
!to "build/FX/REDLINES",plain
*=$6000
row1 = $fe
row2 = $ff
!source "src/constants.a"
lda #$00
sta row1
lda #$BF
sta row2
@loop1
jsr WaitForVBL
lda row1
jsr DrawRedLine
lda row2
jsr DrawRedLine
ldx row1
beq +
dex
txa
jsr DrawBlackLine
+ ldx row2
inx
cpx #$C0
beq +
txa
jsr DrawBlackLine
+
lda #$30
jsr WaitForKeyWithTimeout
bmi @exit
inc row1
dec row2
lda row1
cmp #$60
bne @loop1
@loop2
jsr WaitForVBL
lda row1
cmp #$C0
beq +
jsr DrawRedLine
+ lda row2
bmi +
jsr DrawRedLine
+ ldx row1
dex
txa
jsr CopyLine
ldx row2
inx
txa
jsr CopyLine
lda #$30
jsr WaitForKeyWithTimeout
bmi @exit
inc row1
dec row2
lda row1
cmp #$C1
bne @loop2
@exit jmp UnwaitForVBL
DrawRedLine
jsr HGRCalc
ldy #$27
lda #$AA
- eor #$7F
sta ($26), y
dey
bpl -
rts
DrawBlackLine
jsr HGRCalc
ldy #$27
lda #$00
- sta ($26), y
dey
bpl -
rts
CopyLine
jsr HGRCalc
ldy #$27
- lda ($3c), y
sta ($26), y
dey
bpl -
rts
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"