Initial (manual) import

TempleOSCD/Apps/GrModels/Models.HC

@@ -0,0 +1,25 @@
+#define T_MAN	0
+#define T_BALL	1
+
+U0 Models()
+{
+  I64 i;
+  Bool old_form=LBts(&(DocPut)->flags,DOCf_FORM);
+  DocClear;
+  "Make a CSprite model.  Then, cut-and-Paste it.\n\n";
+  "$$LM,4$$";
+  "\n\n$$BT,\"Man\",LE=T_MAN$$\n\n";
+  "\n\n$$BT,\"Ball\",LE=T_BALL$$\n\n";
+  "$$LM,0$$";
+  i=DocMenu(DocPut);
+  LBEqu(&(DocPut)->flags,DOCf_FORM,old_form);
+  DocBottom;
+  switch (i) {
+    case T_MAN:
+      ManGen;
+      break;
+    case T_BALL:
+      BallGen;
+      break;
+  }
+}