hschumann2/TempleOS-Source-Code

1 2#define T_MAN   03#define T_BALL  14 5U0 Models()6{7  I64 i;8  Bool old_form=LBts(&(DocPut)->flags,DOCf_FORM);9  DocClear;10  "Make a CSprite model.  Then, cut-and-Paste it.\n\n";11  "$LM,4$";12  "\n\n$BT,\"Man\",LE=T_MAN$\n\n";13  "\n\n$BT,\"Ball\",LE=T_BALL$\n\n";14  "$LM,0$";15  i=DocMenu(DocPut);16  LBEqu(&(DocPut)->flags,DOCf_FORM,old_form);17  DocBottom;18  switch (i) {19    case T_MAN:20      ManGen;21      break;22    case T_BALL:23      BallGen;24      break;25  }26}27