some wipes

res/fx.conf

@@ -1 +1 @@
-RIPPLE
+RIPPLE

src/fx/fx.hgr.color.fizzle.a

@@ -0,0 +1,82 @@
+;license:MIT
+;(c) 2018 by 4am
+;
+!cpu 6502
+!to "build/FX/LITTLE.BOXES",plain
+*=$6000
+
+phase = $FC               ; byte, $80 or $00
+color = $FD               ; byte
+coord = $FE               ; word
+
+         !source "src/fx/macros.a"
+
+         lda   #$80
+         sta   phase
+@outerloop
+         lda   #0
+         sta   color
+         lda   #<Coordinates
+         sta   coord
+         lda   #>Coordinates
+         sta   coord+1
+@loop
+         dec   color
+         bpl   +
+         lda   #4
+         sta   color
++        ldx   color
+         lda   colors,x
+         sta   @colorLoop+1
+         ldy   #0
+         lda   (coord),y
+         bmi   @nextPhase
+         tax
+         iny
+         lda   (coord),y
+         tay
+         txa
+         bit   phase
+         bmi   +
+         jsr   HGRBlockCopy
+         jmp   @wait
++
+         +HGR_ROW_CALC
+         ldx   #7
+@colorLoop
+         lda   #$FD                  ; SMC
+         sta   ($26),y
+         clc
+         +HGR_INC_WITHIN_BLOCK
+         dex
+         bpl   @colorLoop
+@wait
+         lda   #$0C
+         jsr   WaitForKeyWithTimeout
+         bmi   @exit
+         inc   coord
+         bne   +
+         inc   coord+1
++        inc   coord
+         bne   +
+         inc   coord+1
++        bne   @loop
+@nextPhase
+         bit   phase
+         bpl   @exit
+         asl   phase
+         +LBCS @outerloop            ; always branches
+@exit    rts
+
+colors
+         !byte %00101010
+         !byte %00101010
+         !byte %11010101
+         !byte %11010101
+         !byte %11111111
+
+Coordinates
+         !source "src/fx/fx.hgr.block.fizzle.data.a"
+
+         !source "src/wait.a"
+         !source "src/fx/fx.hgr.common.a"

src/fx/fx.hgr.tri.fizzle.a

@@ -11,7 +11,7 @@ coord = $FE               ; word
 
          lda   #$80
          sta   phase
-         lda   #4
+         lda   #0
          sta   maskindex
 @outerloop
          lda   #<Coordinates
@@ -21,7 +21,7 @@ coord = $FE               ; word
 @loop
          dec   maskindex
          bpl   +
-         lda   #4
+         lda   #3
          sta   maskindex
 +        ldx   maskindex
          lda   maskslo,x