From a317b392b1a2825a2906980a1eb1782dc7b57c7e Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 29 Oct 2018 16:23:43 -0400
Subject: [PATCH] megademo: change path a pit for mode7 part

---
 megademo/TODO       | 10 ++++------
 megademo/megademo.s |  2 +-
 megademo/mode7.s    | 26 ++++++++++++++------------
 3 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/megademo/TODO b/megademo/TODO
index 8bf15af2..efa4e005 100644
--- a/megademo/TODO
+++ b/megademo/TODO
@@ -55,14 +55,12 @@ Music:
 	REACH: waterfall sound effect?
 
 7: arrival at ship
-	close door
-	flames going
-	tree goes from big to small, horizon drops?
-	auto timeout to next screen
+	DONE?
+	REACH: tree goes from big to small, horizon drops?
 
 8: mode7:
-	change path
-	change ground to night-time darkness.  grey water
+	DONE?
+	REACH: change ground to night-time darkness.  grey water
 
 9: spacebars:
 	auto movement
diff --git a/megademo/megademo.s b/megademo/megademo.s
index 59acdc91..6f8c93cb 100644
--- a/megademo/megademo.s
+++ b/megademo/megademo.s
@@ -44,7 +44,7 @@ apple_iie:
 	;===================
 	jsr	HOME
 
-;	jsr	rocket_takeoff
+;	jsr	mode7_flying
 
 	; C64 Opening Sequence
 
diff --git a/megademo/mode7.s b/megademo/mode7.s
index 18f3eac5..f8668f70 100644
--- a/megademo/mode7.s
+++ b/megademo/mode7.s
@@ -32,28 +32,28 @@ CONST_LOWRES_HALF_F	=	$00
 
 island_flying_directions:
 	.byte	$2,$00		; 2 frames, do nothing
-	.byte	$1,'Z'		; start moving forward
-	.byte	$10,$00		; 16 frames, do nothing
+	.byte	$2,'Z'		; start moving forward
+	.byte	$8,$00		; 8 frames, do nothing
 	.byte	$3,'D'		; 3 frames, turn right
 	.byte	$1,'Z'		; move faster
-	.byte	$8,$00		; 8 frames, do nothing
+	.byte	$6,$00		; 6 frames, do nothing
 	.byte	$2,'D'		; 2 frames, turn left
-	.byte	$8,$00		; 8 frames, do nothing
+	.byte	$6,$00		; 8 frames, do nothing
 	.byte	$3,'A'		; 3 frames, turn left
 	.byte	$1,'Z'		; speedup
-	.byte	$8,$00		; 8 frames, do nothing
+	.byte	$6,$00		; 6 frames, do nothing
 	.byte	$6,'S'		; 6 frames down
-	.byte	$6,$00		; 6 frames do nothing
+	.byte	$4,$00		; 4 frames do nothing
 	.byte	$3,'A'		; 3 frames left
 	.byte	$3,'D'		; 3 frames right
 	.byte	$2,$00		; 2 frames nothing
 	.byte	$1,'D'		; 1 frame right
 	.byte	$2,$00		; 2 frames nothing
 	.byte	$8,'D'		; 8 frame right
-	.byte	$1,'Z'		; 8 frames up
+	.byte	$1,'Z'		; 1 frames up
 	.byte	$6,'W'		; 2 speedup
-	.byte	$a,$00		; 10 nothing
-	.byte	$3,'S'		; 3 down
+	.byte	$8,$00		; 8 nothing
+	.byte	$2,'S'		; 2 down
 	.byte	$1,'Q'		; quit
 
 	;=====================
@@ -91,14 +91,16 @@ mode7_flying:
 	;===============
 	lda	#20
 	sta	SHIPY
+	lda	#4
+	sta	ANGLE
+	sta	CY_I
+	lda	#6
+	sta	CX_I
 	lda	#0
 	sta	TURNING
-	sta	ANGLE
 	sta	SPACEX_I
 	sta	SPACEY_I
-	sta	CX_I
 	sta	CX_F
-	sta	CY_I
 	sta	CY_F
 	sta	DRAW_SPLASH
 	sta	SPEED