megademo: fly off into blue

megademo/TODO

@@ -1,6 +1,4 @@
 TODO TODO:
-	+ Add in fly off scene
-	+ Moving heart
 	+ Get timing right
 	+ Fix qkumbas seek code
 	+ Fix one-line glitch
@@ -31,7 +29,8 @@ Music:
 	DONE???
 
 1: falling_apple:
-	TODO: roll in the change from all page1 to page1/page2
+	DONE?
+	REACH: roll in the change from all page1 to page1/page2
 	REACH: make it fall?
 	REACH: some sort of wipe?
 
@@ -71,13 +70,11 @@ Music:
 	REACH: change ground to night-time darkness.  grey water
 
 9: spacebars:
-	auto movement
-	REACH: when done, ship move up (shrink) and disappear w blue horiz line?
+	DONE?
 
 10: arrive at frogysue:
 	DONE?
 	add text?
-	REACH: have heart zigzag up?
 
 11: fireworks:
 	DONE?

megademo/megademo.s

@@ -46,6 +46,8 @@ apple_iie:
 
 ;	jsr	space_bars
 
+;	jsr	arriving_there
+
 	; C64 Opening Sequence
 
 	jsr	c64_opener

megademo/space_bars.s

@@ -381,12 +381,12 @@ sb_check_right:
 
 	jmp	sb_display_loop				; 3
 
-
-
-
 sb_exit:
-	bit	KEYRESET
 	cli		; re-enable interrupt music
+	jmp	blue_line
+
+sb_real_exit:
+	bit	KEYRESET
 	rts						; 6
 
 
@@ -566,3 +566,142 @@ setup_fb_loop:
 									; -1
 	rts								; 6
 
+
+
+
+blue_line:
+	bit	PAGE0			; set page 0
+	bit	LORES			; Lo-res graphics
+	bit	FULLGR
+        bit	SET_GR			; set graphics
+
+	lda	#0
+	sta	DRAW_PAGE
+	jsr	clear_all
+;	jsr	clear_screens_notext	; clear top/bottom of page 0/1
+
+blueline_loop:
+
+	;================
+	; draw the ship
+	;================
+draw_ship_big:
+	jsr	clear_all
+
+	lda	#>ship_forward
+	sta	INH
+	lda	#<ship_forward
+	sta	INL
+
+	lda	#15
+	sta	XPOS
+	lda	#34
+	sta	YPOS
+	jsr	put_sprite
+
+draw_ship_small:
+	jsr	delay_1s
+	jsr	clear_all
+
+	lda	#>ship_small
+	sta	INH
+	lda	#<ship_small
+	sta	INL
+
+	lda	#17
+	sta	XPOS
+	lda	#30
+	sta	YPOS
+	jsr	put_sprite
+
+draw_ship_tiny:
+	jsr	delay_1s
+	jsr	clear_all
+
+	lda	#>ship_tiny
+	sta	INH
+	lda	#<ship_tiny
+	sta	INL
+
+	lda	#18
+	sta	XPOS
+	lda	#28
+	sta	YPOS
+	jsr	put_sprite
+
+	lda	#18
+	sta	SPEED
+
+	jsr	delay_1s
+
+draw_ship_line:
+	lda	#2
+	jsr	delay_custom
+	jsr	clear_all
+
+	lda	#COLOR_LIGHTBLUE
+	sta	COLOR
+
+	clc
+	lda	#20
+	adc	SPEED
+	sta	V2
+
+	sec
+	lda	#20
+	sbc	SPEED
+	tay
+
+	; 20 - 0 to 0 - 20, 20 - 40
+
+	lda	#26
+	jsr	hlin_double
+
+	dec	SPEED
+	bne	draw_ship_line
+
+draw_ship_done:
+	lda	#$77
+	sta	clear_all_color+1
+	jsr	clear_all
+
+	lda	#2
+	jsr	delay_custom
+
+	lda	#$0
+	sta	clear_all_color+1
+	jsr	clear_all
+
+	jsr	delay_1s
+
+	lda	#40
+	jsr	delay_custom
+
+	jmp	sb_real_exit
+
+;1s = 17030*60 = 1021800
+
+
+delay_1s:
+	lda	#20
+delay_custom:
+	sta	STATE
+delay_1s_loop:
+
+	; 17030 - 1038 = 15992
+
+;	jsr	play_music	; 6+1032
+
+	; Try X=113 Y=28 cycles=15989 R3
+
+	ldy	#28							; 2
+sbloopU:ldx	#113							; 2
+sbloopV:dex								; 2
+	bne	sbloopV							; 2nt/3
+	dey								; 2
+	bne	sbloopU							; 2nt/3
+
+	dec	STATE
+	bne	delay_1s_loop
+
+	rts