TempleOSTS_130315.ISO

TempleOS/Apps/Span/Span.HPP

@@ -0,0 +1,54 @@
+#define SPAN_VERSION	1.0
+
+class SpanHeader
+{
+  F64 version;
+  I32 num_masses,num_springs;
+};
+
+class MyMass:CMass
+{
+  F64 radius,cost,load_t;
+  CColorROPU32 color;
+} *cursor_mass;
+
+class MySpring:CSpring
+{
+  F64 compression_strength,tensile_strength,cost;
+  F64 base_compression_strength,base_tensile_strength,
+	 base_constant,base_cost;
+ 
+  CColorROPU32 color;
+  I32 pen_width;
+};
+
+
+CMathODE *ode=NULL;
+
+CCtrlButtonState snap_button,run_button,mode_button;
+
+CColorROPU32 run_colors[2]={RED,GREEN};
+CColorROPU32 snap_colors[2]={RED,GREEN};
+
+#define SNAP_SIZE	4
+
+#define MD_MASS		0
+#define MD_CONCRETE	1
+#define MD_STEEL	2
+#define MD_WIRE		3
+#define MD_MOVE		4
+#define MD_DELETE	5
+#define MD_NUM_MODES	6
+CColorROPU32 mode_colors[MD_NUM_MODES]=
+{BROWN,LTGRAY,DKGRAY,RED,PURPLE,RED};
+DefineLstLoad("ST_SPAN_MODES","Mass\0Concrete\0Steel\0Wire\0Move\0Delete\0");
+
+class SpanAnimateStruct
+{
+  U8 *saved_ode;
+  F64 elapsed_t,start_wall_t;
+} a;
+
+
+extern MyMass PlaceMass(I64 x, I64 y);
+extern F64 SpanTime(CTask *task);