double: facier effect

vaporlock/doubledouble/Makefile

@@ -32,6 +32,7 @@ double.o:	double.s \
 	wait_a_bit.s wait.s pt3_lib_init.s \
 	music/fighting.zx02 \
 	effect_static.s effect_slide.s \
+	table/sin.table \
 	graphics/sworg_hgr.hgr.zx02 \
 	graphics/sworg_dhgr.aux.zx02 \
 	graphics/sworg_dhgr.bin.zx02 \

vaporlock/doubledouble/double.s

@@ -438,6 +438,15 @@ vblank_smc:
 	.include "effect_slide.s"
 
 
+	inc	FRAME
+	ldx	FRAME
+	lda	sin_table,X
+	sta	effect_top_smc+1
+
+	clc
+	adc	#32
+	sta	effect_bottom_smc+1
+
 	jmp	double_loop	; 3
 
 ;=======================================================
@@ -530,6 +539,8 @@ config_string:
 .include "wait.s"
 ;.include "load_music.s"
 
+sin_table:
+.incbin "table/sin.table"
 
 fighting_zx02:
 .incbin "music/fighting.zx02"

vaporlock/doubledouble/effect_slide.s

@@ -12,6 +12,7 @@
 
 	; 2+ X*(12+2+3) - 1
 
+effect_top_smc:
 	ldx	#100		; 2
 aloop:
 	jsr	delay_12	; 12
@@ -38,6 +39,7 @@ bloop:
 
 
 	bit	HIRES
+effect_bottom_smc:
 	ldx	#60		; 2
 cloop:
 	jsr	delay_12	; 12
@@ -45,8 +47,9 @@ cloop:
 	jsr	delay_12	; 12
 	jsr	delay_12	; 12
 	jsr	delay_12	; 12
-	dex			; 2
-	bne	cloop		; 2/3
+	inx			; 2
+	cpx	#192
+	bcs	cloop		; 2/3
 
 
 

vaporlock/doubledouble/table/Makefile

@@ -0,0 +1,15 @@
+LFLAGS = -lm
+
+all:	sin.table
+
+sin.table:	table
+	./table > sin.table
+
+table:	table.o
+	$(CC) -o table table.o $(LFLAGS)
+
+table.o:	table.c
+	$(CC) -c table.c
+
+clean:	
+	rm -f *~ *.o table sin.table

vaporlock/doubledouble/table/table.c

@@ -0,0 +1,16 @@
+#include <stdio.h>
+#include <math.h>
+
+int main(int argc, char **argv) {
+
+	int i;
+	int value;
+
+	for(i=0;i<256;i++) {
+		value=80.0+(sin(i*(2*3.141592653589)/256.0)*78.0);
+		//printf("%d %d\n",i,value);
+		putchar(value);
+	}
+
+	return 0;
+}

vaporlock/doubledouble/zp.inc

@@ -74,14 +74,7 @@ HGRPAGE = $E6
 
 TEMPY		= $F0
 XX		= $F1
-
-; rest of pt3_player
-;LOOP            = $F4
-;MB_VALUE        = $F5
-;MB_ADDR_L       = $F6
-;MB_ADDR_H       = $F7
-;DONE_PLAYING    = $F8
-;DONE_SONG       = $F9
+FRAME		= $F2
 
 
 YPOS		= $FA