From 46c446433b09eece6dc6550d821be17724899c07 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 26 May 2016 14:28:17 -0400
Subject: [PATCH] ksp: better space

---
 ksp/TODO          |   2 +-
 ksp/flight.bas    |  16 ++++++++++------
 ksp/orbit_top.pcx | Bin 5176 -> 5189 bytes
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/ksp/TODO b/ksp/TODO
index c59f9e88..cd6dd3bb 100644
--- a/ksp/TODO
+++ b/ksp/TODO
@@ -1,7 +1,7 @@
 parachutes?
 Mun?
-stars in background?
 EVA?
 auto-generated shape tabe for ship based on VAB choices
 more expressive kerbals
 atmospheric drag
+support all four qudrants in space view
diff --git a/ksp/flight.bas b/ksp/flight.bas
index 03553986..c50ec467 100644
--- a/ksp/flight.bas
+++ b/ksp/flight.bas
@@ -5,15 +5,17 @@
 7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L
 7032 HGR:ROT=0:SCALE=2:H=0:RA=0
 7035 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000"
-7036 HCOLOR=1:HPLOT 1,80 TO 247,80
+7036 HCOLOR=1:HPLOT 1,80 TO 132,80: HPLOT 148,80 TO 247,80
 7037 HCOLOR=3:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70
 7039 TH=0:S=2
 7040 XDRAW 1+(S*2)+TH AT 140,80
-7045 IF RA<1800 THEN HCOLOR=0:HPLOT 1,80+H TO 247,80+H:H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 247,80+H
-7046 IF RA<10000 AND CQ<>0 THEN GOSUB 7600
-7047 IF RA<10000 GOTO 7050
-7048 IF RA>10000 AND CQ<>1 THEN GOSUB 7700
-7050 GET A$
+7045 IF RA>1800 THEN GOTO 7053
+7045 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
+7047 H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
+7053 IF RA<10000 AND CQ<>0 THEN GOSUB 7600
+7054 IF RA<10000 GOTO 7058
+7055 IF RA>10000 AND CQ<>1 THEN GOSUB 7700
+7058 GET A$
 7060 IF A$="Q" THEN END
 7061 XDRAW 1+(S*2)+TH AT 140,80
 7062 IF A$="A" THEN R=R-8
@@ -66,10 +68,12 @@
 7540 RETURN
 7600 REM *** GROUND ***
 7610 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000"
+7615 XDRAW 1+(S*2)+TH AT 140,80
 7620 CQ=0
 7650 RETURN
 7700 REM *** SPACE_UP ***
 7710 PRINT CHR$(4);"BLOAD ORBIT_TOP.HGR,A$2000"
+7715 XDRAW 1+(S*2)+TH AT 140,80
 7720 CQ=1
 7750 RETURN
 8000 REM *** CRASH ***
diff --git a/ksp/orbit_top.pcx b/ksp/orbit_top.pcx
index 94130e9c50d7a014a201667859cdb855ee8e29f4..4a05dea6388808197aa6b75f7b89f67a0c5d7a16 100644
GIT binary patch
delta 84
zcmdm?aa3c%4VF_3%!emV%w>DY!2F-#@x+P7ERPtNUrn4?%yu3m@^|9IbhZ~D){}`7
leOZn%Fdv^dF_z^v1M|m;6K&aVF&qL)0h#%mk1&@A008#1BlG|O

delta 54
kcmX@Au|s3RjmZK`VUsT~c}-Sea>GYYT)?yWB6EoV05KX9&;S4c