TempleOSCD_150216.ISO

2018-09-08 21:46:15 +02:00
1 parent 64f679eeb9
commit 401601816c
@@ -0,0 +1,144 @@
+U0 AnimateTask(I64)
+{//Preemption is off after Spawn
+  I64 i;
+  F64 t;
+  Obj *tempo;
+  while (TRUE) {
+    t=tS;
+    for (i=0;i<O_NUM_OBJS+O_NUM_PEBBLES;i++) {
+      tempo=&objs[i];
+      if (tempo->type==OT_SHEEP || tempo->type==OT_GOAT1 || tempo->type==OT_GOAT2) {
+	tempo->x+=tempo->dx;
+	tempo->y+=tempo->dy;
+	tempo->z+=tempo->dz;
+	tempo->dx=5*Cos(0.5*t+tempo->é);
+	tempo->dz=5*Sin(0.5*t+tempo->é);
+      }
+    }
+    Sleep(20);
+  }
+}
+
+U0 Init()
+{
+  Obj *tempo;
+  I64 i,j,k,total=0;
+
+  for (i=0;i<OT_NUM_TYPES;i++)
+    total+=type_weights[i];
+
+  MemSet(objs,0,sizeof(objs));
+  for (i=0;i<O_NUM_OBJS+O_NUM_PEBBLES;i++) {
+    tempo=&objs[i];
+    tempo->num=i;
+    tempo->x=RandU32&0x1FFF-0x1000;
+    tempo->y=0;
+    tempo->z=RandU32&0x1FFF-0x1000;
+    tempo->é=2*ã*Rand;
+    tempo->sym=RandU16&1;
+
+    if (i<O_NUM_OBJS) {
+      k=0;
+      j=RandU32%total;
+      while (TRUE) {
+	j-=type_weights[k];
+	if (j<0)
+	  break;
+	else
+	  k++;
+      }
+      tempo->type=k;
+    } else
+      tempo->type=OT_PEBBLE;
+  }
+  objs[O_BURNING_BUSH].type=OT_BUSH1;
+
+  vx=0; vz=0; é=0;
+  horeb_done=FALSE;
+}
+
+#define ANIMATE_STEPS	5
+
+U0 AnimateéTask(F64 a)
+{
+  I64 i;
+  for (i=0;i<ANIMATE_STEPS;i++) {
+    é+=a/ANIMATE_STEPS;
+    Sleep(20);
+  }
+}
+
+U0 AnimateVTask(F64 v)
+{
+  I64 i;
+  for (i=0;i<ANIMATE_STEPS;i++) {
+    vx+=v/ANIMATE_STEPS*Sin(é);
+    vz+=v/ANIMATE_STEPS*Cos(é);
+    Sleep(20);
+  }
+}
+
+U0 Horeb()
+{
+  I64 sc;
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Fwd(,,SC_CURSOR_UP);"
+	"  Bwd(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"}"
+	);
+  SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  try {
+    Fs->text_attr=YELLOW<<4+BLUE;
+    Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-WIF_SELF_GRAB_SCROLL-WIF_FOCUS_TASK_MENU;
+    AutoComplete;
+    WinMax;
+    WinBorder;
+    Preempt(OFF);
+
+    DocClear;
+    "$$BG,LTCYAN$$%h6c",'\n';
+    "$$BG,YELLOW$$%h30c",'\n';
+    BibleVerse(,"Exodus,3:1",21);
+    Init;
+    Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+    Fs->draw_it=&DrawHoreb;
+    while (!horeb_done)
+      switch (GetKey(&sc)) {
+	case 0:
+	  switch (sc.u8[0]) {
+	    case SC_CURSOR_LEFT:
+	      Spawn(&AnimateéTask,(-ã/100)(I64),"Animate é",,Fs);
+	      break;
+	    case SC_CURSOR_RIGHT:
+	      Spawn(&AnimateéTask,( ã/100)(I64),"Animate é",,Fs);
+	      break;
+	    case SC_CURSOR_UP:
+	      Spawn(&AnimateVTask,(-40.0 )(I64),"Animate V",,Fs);
+	      break;
+	    case SC_CURSOR_DOWN:
+	      Spawn(&AnimateVTask,( 40.0 )(I64),"Animate V",,Fs);
+	      break;
+	  }
+	  break;
+	case '\n':
+	  Init;
+	  break;
+	case CH_SHIFT_ESC:
+	case CH_ESC:
+	  goto hr_done;
+      }
+hr_done: //Don't goto out of try
+  } catch
+    Fs->catch_except=TRUE;
+  DocClear;
+  SettingsPop(Fs,TSF_SAME_SONG);
+  MenuPop;
+}