mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-24 13:32:23 +00:00
ksp: some more work on this project
This commit is contained in:
Vince Weaver
parent
0805a7c3ee
commit
9b332497fd
@ -1,12 +1,19 @@
|
||||
PCX2HGR = ../hgr-utils/pcx2hgr
|
||||
DOS33 = ../dos33fs-utils/dos33
|
||||
TXT2BAS = ../asoft_basic-utils/tokenize_asoft
|
||||
|
||||
all: ksp.dsk
|
||||
|
||||
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR
|
||||
basic: VAB.BAS
|
||||
|
||||
VAB.BAS: vab.bas
|
||||
$(TXT2BAS) < vab.bas > VAB.BAS
|
||||
|
||||
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR VAB.BAS
|
||||
$(DOS33) -y ksp.dsk SAVE B LOADING.HGR
|
||||
$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
|
||||
$(DOS33) -y ksp.dsk SAVE B TITLE.HGR
|
||||
$(DOS33) -y ksp.dsk SAVE A VAB.BAS
|
||||
|
||||
|
||||
LOADING.HGR: loading.pcx
|
||||
|
||||
@ -2,7 +2,13 @@ CC = gcc
|
||||
CFLAGS = -Wall -O2
|
||||
LFLAGS =
|
||||
|
||||
all: ksp_loading ksp_vab
|
||||
all: ksp_launch ksp_loading ksp_vab
|
||||
|
||||
ksp_launch: ksp_launch.o
|
||||
$(CC) $(LFLAGS) -o ksp_launch ksp_launch.o
|
||||
|
||||
ksp_launch.o: ksp_launch.c
|
||||
$(CC) $(CFLAGS) -c ksp_launch.c
|
||||
|
||||
ksp_loading: ksp_loading.o
|
||||
$(CC) $(LFLAGS) -o ksp_loading ksp_loading.o
|
||||
@ -18,5 +24,5 @@ ksp_vab.o: ksp_vab.c
|
||||
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o ksp_loading ksp_vab
|
||||
rm -f *~ *.o ksp_launch ksp_loading ksp_vab
|
||||
|
||||
|
||||
86
ksp/c/ksp_launch.c
Normal file
86
ksp/c/ksp_launch.c
Normal file
@ -0,0 +1,86 @@
|
||||
#include <stdio.h>
|
||||
#include <math.h>
|
||||
|
||||
/* http://wiki.kerbalspaceprogram.com/wiki/Tutorial:Advanced_Rocket_Design */
|
||||
|
||||
/* Also, high school physics (thanks Mr. Brennen) */
|
||||
|
||||
|
||||
/* TODO: want 2d-vectors at least */
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
|
||||
double capsule_mass=1.0;
|
||||
|
||||
double engine_isp=270.0; /* s */
|
||||
double engine_mass=1.5; /* tons */
|
||||
double engine_thrust=168.0; /* kN */
|
||||
double fuel_flow_rate;
|
||||
|
||||
double tank_mass=0.5; /* tons */
|
||||
double fuel_mass=4.0; /* tons */
|
||||
|
||||
double gravity=9.8; /* m/s^2 */
|
||||
|
||||
double rocket_velocity=0.0; /* m/s */
|
||||
double rocket_acceleration=0.0; /* m/s^2 */
|
||||
double rocket_altitude=0.0; /* m */
|
||||
|
||||
double deltav,twr;
|
||||
double total_mass,empty_mass;
|
||||
|
||||
double time=0.0; /* s */
|
||||
|
||||
total_mass=engine_mass+tank_mass+fuel_mass+capsule_mass;
|
||||
empty_mass=total_mass-fuel_mass;
|
||||
|
||||
deltav=engine_isp*gravity*log(total_mass/empty_mass);
|
||||
|
||||
twr=engine_thrust/(total_mass*gravity);
|
||||
|
||||
fuel_flow_rate=(engine_thrust)/(engine_isp*gravity);
|
||||
|
||||
printf("DeltaV=%lf m/s\n",deltav);
|
||||
printf("Thrust/weight=%lf\n",twr);
|
||||
printf("Fuel flow rate=%lf, time=%lfs\n",
|
||||
fuel_flow_rate,fuel_mass/fuel_flow_rate);
|
||||
|
||||
for(time=0.0;time<500.0;time++) {
|
||||
printf("Time: %lf\n",time);
|
||||
printf("\tFuel left: %lf\n",fuel_mass);
|
||||
if (fuel_mass<0.1) {
|
||||
fuel_mass=0.0;
|
||||
rocket_acceleration=-gravity;
|
||||
rocket_velocity=rocket_velocity+rocket_acceleration*1.0;
|
||||
rocket_altitude=rocket_altitude+
|
||||
(rocket_velocity*1.0)+
|
||||
0.5*rocket_acceleration+1.0*1.0;
|
||||
if (rocket_altitude<0.0) {
|
||||
printf("CRASH!\n");
|
||||
break;
|
||||
}
|
||||
}
|
||||
else {
|
||||
rocket_acceleration=(engine_thrust/total_mass)-gravity;
|
||||
rocket_velocity=rocket_velocity+rocket_acceleration*1.0;
|
||||
rocket_altitude=rocket_altitude+
|
||||
(rocket_velocity*1.0)+
|
||||
0.5*rocket_acceleration+1.0*1.0;
|
||||
fuel_mass=fuel_mass-fuel_flow_rate;
|
||||
total_mass=engine_mass+tank_mass+fuel_mass+capsule_mass;
|
||||
}
|
||||
printf("\tRocket acceleration: %lf g\n",rocket_acceleration/gravity);
|
||||
printf("\tRocket velocity: %lf m/s\n",rocket_velocity);
|
||||
printf("\tRocket altitude: %lf m\n",rocket_altitude);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* Notes */
|
||||
|
||||
/* Once altitude above 100m stop drawing ground */
|
||||
/* Once above 20k no more drag? */
|
||||
/* Once above 2100m/s sideways, orbit? */
|
||||
/* Once above 40k draw stars? */
|
||||
/* Kerbal neutral 0-1G, smiles 1-2G, frowns > 2G or -velocity? */
|
||||
@ -53,11 +53,11 @@ int main(int argc, char **argv) {
|
||||
printf("Available:\n");
|
||||
printf("1. Jebediah\tPilot\tS ***\tC ***\n");
|
||||
printf("2. Valentina\tPilot\tS ***\tC ***\n");
|
||||
printf("3. Kai\tEngineer\s ***\tC ***\n");
|
||||
printf("4. Kuroshin\tEngineer\s ***\tC ***\n");
|
||||
printf("5. Desktop\tScientist\s ***\tC ***\n");
|
||||
printf("6. Slashdot\tPilot\s ***\tC ***\n");
|
||||
printf("7. Zurgtroyd\tPilot\s ***\tC ***\n");
|
||||
printf("3. Kai\tEngineer\t ***\tC ***\n");
|
||||
printf("4. Kuroshin\tEngineer\t ***\tC ***\n");
|
||||
printf("5. Desktop\tScientist\t ***\tC ***\n");
|
||||
printf("6. Slashdot\tPilot\t ***\tC ***\n");
|
||||
printf("7. Zurgtroyd\tPilot\t ***\tC ***\n");
|
||||
|
||||
printf("Select three astronauts\n"); // highlight and say correct?
|
||||
|
||||
|
||||
BIN
ksp/ksp.dsk
BIN
ksp/ksp.dsk
Binary file not shown.
70
ksp/ship.table
Normal file
70
ksp/ship.table
Normal file
@ -0,0 +1,70 @@
|
||||
# Number of shapes
|
||||
3
|
||||
# "Engine"
|
||||
START
|
||||
RT
|
||||
DN
|
||||
RT
|
||||
DN
|
||||
RT
|
||||
DN
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
UP
|
||||
RT
|
||||
UP
|
||||
RT
|
||||
UP
|
||||
RT
|
||||
STOP
|
||||
# "Fuel Tank"
|
||||
START
|
||||
NUP
|
||||
NUP
|
||||
NUP
|
||||
RT
|
||||
RT
|
||||
RT
|
||||
DN
|
||||
DN
|
||||
DN
|
||||
DN
|
||||
DN
|
||||
DN
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
LT
|
||||
UP
|
||||
UP
|
||||
UP
|
||||
UP
|
||||
UP
|
||||
UP
|
||||
RT
|
||||
RT
|
||||
RT
|
||||
STOP
|
||||
# "Flame"
|
||||
START
|
||||
NUP
|
||||
RT
|
||||
RT
|
||||
DN
|
||||
LT
|
||||
DN
|
||||
LT
|
||||
LT
|
||||
UP
|
||||
LT
|
||||
UP
|
||||
RT
|
||||
RT
|
||||
STOP
|
||||
|
||||
34
ksp/ship_test.bas
Normal file
34
ksp/ship_test.bas
Normal file
@ -0,0 +1,34 @@
|
||||
5 EO = 0
|
||||
10 HIMEM: 8135
|
||||
20 POKE 232,199: POKE 233,31
|
||||
30 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
|
||||
35 HGR : ROT= 0: SCALE= 2
|
||||
40 GOTO 150
|
||||
90 END
|
||||
100 DATA 3,0,8,0,18,0,33,0,53,53
|
||||
101 DATA 53,63,63,63,44,44,44,0,0,40
|
||||
102 DATA 45,54,54,54,63,63,63,36,36,36
|
||||
103 DATA 45,5,0,40,53,55,63,60,44,5
|
||||
104 DATA 0
|
||||
150 GOSUB 2000
|
||||
200 REM
|
||||
300 GET A$
|
||||
305 IF A$ = "Q" THEN GOTO 1000
|
||||
310 IF A$ = " " THEN EO = 1
|
||||
320 IF A$ = "A" THEN R = R - 8
|
||||
325 IF A$ = "D" THEN R = R + 8
|
||||
330 IF R < 0 THEN R = 56
|
||||
335 IF R > 63 THEN R = 0
|
||||
337 GOSUB 2000
|
||||
340 ROT= R
|
||||
800 GOSUB 2000
|
||||
900 GOTO 200
|
||||
1000 END
|
||||
2000 REM DRAW SHIP
|
||||
2010 XDRAW 1 AT 140,50
|
||||
2020 XDRAW 2 AT 140,62
|
||||
2030 XDRAW 2 AT 140,74
|
||||
2040 XDRAW 1 AT 140,86
|
||||
2050 HCOLOR= 5
|
||||
2060 IF EO = 1 THEN DRAW 3 AT 140,92
|
||||
2070 RETURN
|
||||
42
ksp/vab.bas
Normal file
42
ksp/vab.bas
Normal file
@ -0,0 +1,42 @@
|
||||
10 HIMEM: 8135
|
||||
20 POKE 232,199: POKE 233,31
|
||||
30 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
|
||||
35 HGR : ROT= 0: SCALE= 2
|
||||
40 GOTO 150
|
||||
90 END
|
||||
100 DATA 3,0,8,0,18,0,33,0,53,53
|
||||
101 DATA 53,63,63,63,44,44,44,0,0,40
|
||||
102 DATA 45,54,54,54,63,63,63,36,36,36
|
||||
103 DATA 45,5,0,40,53,55,63,60,44,5
|
||||
104 DATA 0
|
||||
150 XDRAW 1 AT 140,20
|
||||
155 Y=18
|
||||
200 HOME
|
||||
205 INVERSE : VTAB 21: HTAB 8
|
||||
207 PRINT "VEHICLE ASSEMBLY BUILDING"
|
||||
208 NORMAL
|
||||
220 PRINT "HOW MANY STAGES? (1-3)";
|
||||
225 INPUT S
|
||||
230 FOR I = 1 TO S
|
||||
240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)";
|
||||
245 INPUT T
|
||||
247 ST(I) = T
|
||||
260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)";
|
||||
265 INPUT F
|
||||
267 FT(I) = F
|
||||
268 FOR J = 1 TO F
|
||||
270 XDRAW 2 AT 140, Y+13*J
|
||||
272 IF T >1 THEN XDRAW 2 AT 126, Y+13*J
|
||||
274 IF T >2 THEN XDRAW 2 AT 154, Y+13*J
|
||||
278 NEXT J
|
||||
279 Y=Y+13*F
|
||||
280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")";
|
||||
285 INPUT E
|
||||
287 EN(I) = E
|
||||
290 XDRAW 1 AT 140, Y+8
|
||||
292 IF E >1 THEN XDRAW 1 AT 126, Y+8
|
||||
294 IF E >2 THEN XDRAW 1 AT 154, Y+8
|
||||
297 Y=Y+6
|
||||
300 NEXT I
|
||||
510 PRINT "HOW MANY STRUTS? (1-20000)";
|
||||
520 INPUT ST
|
||||
Loading…
Reference in New Issue
Block a user