Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSTS_130707.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:45:45 +02:00
1 parent 17b71f1a2d
commit 1343005a29
617 files changed
+14399 -25130
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

TempleOS/Apps/Span/SpanBridge1.CPP
+14 -22
View File
@@ -2,7 +2,7 @@
#define SPRING_SCALE 6.0e6
#define COST_SCALE 375.0
#define MASS_RADIUS 3.0
#define MASS_WEIGHT 10.0
#define MASS_MASS 10.0
#define WIRE_PERCENT 0.99
#define RIVER_BANK_COLS 5
@@ -44,28 +44,20 @@ U0 SpanBridge1Init(CMathODE *)
tempm->color=RED;
}
"$$CL$$$$BG,LTCYAN$$";
NewLine(SKY_LINES);
DocClear;
"$$BG,LTCYAN$$"; NewLine(SKY_LINES);
for (i=0;i<10;i++) {
"$$BG,BROWN$$";
Spaces(RIVER_BANK_COLS);
"$$BG,LTCYAN$$";
Spaces(TEXT_COLS-2*RIVER_BANK_COLS);
"$$BG,BROWN$$";
Spaces(RIVER_BANK_COLS);
"$$BG,BROWN$$"; Spaces(RIVER_BANK_COLS);
"$$BG,LTCYAN$$"; Spaces(TEXT_COLS-2*RIVER_BANK_COLS);
"$$BG,BROWN$$"; Spaces(RIVER_BANK_COLS);
NewLine;
}
for (i=0;i<5;i++) {
"$$BG,BROWN$$";
Spaces(RIVER_BANK_COLS+i);
"$$BG,BLUE$$";
Spaces(TEXT_COLS/2-RIVER_BANK_COLS-2*i);
"$$BG,BROWN$$";
Spaces(2*i);
"$$BG,BLUE$$";
Spaces(TEXT_COLS/2-RIVER_BANK_COLS-2*i);
"$$BG,BROWN$$";
Spaces(RIVER_BANK_COLS+i);
for (i=0;i<5;i++) {
"$$BG,BROWN$$"; Spaces(RIVER_BANK_COLS+i);
"$$BG,BLUE$$"; Spaces(TEXT_COLS/2-RIVER_BANK_COLS-2*i);
"$$BG,BROWN$$"; Spaces(2*i);
"$$BG,BLUE$$"; Spaces(TEXT_COLS/2-RIVER_BANK_COLS-2*i);
"$$BG,BROWN$$"; Spaces(RIVER_BANK_COLS+i);
NewLine;
}
}
@@ -73,7 +65,7 @@ U0 SpanBridge1Init(CMathODE *)
U0 AdjustLoads(CTask *task,CMathODE *ode)
{
MyMass *tempm=ode->next_mass;
F64 d,tt=SpanTime(task)/10.0;
F64 d,tt=SpanTime/10.0;
while (tempm!=&ode->next_mass) {
if (tempm->load_t) {
if (tt) {
@@ -81,7 +73,7 @@ U0 AdjustLoads(CTask *task,CMathODE *ode)
tempm->mass=100.0*Sqr(Sqr(d+1.0));
tempm->radius=7.0*d+2.0;
} else {
tempm->mass=MASS_WEIGHT;
tempm->mass=MASS_MASS;
tempm->radius=MASS_RADIUS;
}
}