TempleOSTS_140317.ISO

Accts/TS/TAD/MusicOrgan/exiled.CPP

@@ -0,0 +1,63 @@
+//8 has graphics
+
+U0 DrawIt(CTask *,CDC *dc)
+{
+  I64 i;
+  F64 dt=Beat%8.0,z,w,x1,y1,z1,x2,y2,z2;
+  Bool first=TRUE;
+  DCAllocDepthBuf(dc);
+  dc->flags|=DCF_TRANSFORMATION;
+  dc->x=30*dt+20.0*Sin(dt)+25;
+  dc->y=10*dt-15;
+  dc->z=GR_Z_ALL;
+  GrRotXEqu(dc->r,0.75*dt);
+  GrRotYEqu(dc->r,0.45*dt);
+  GrRotZEqu(dc->r,0.50*dt);
+  GrScaleEqu(dc->r,0.5);
+  for (i=-50;i<40;i+=2) {
+    if (i&2)
+      dc->color=LTGRAY;
+    else
+      dc->color=DKGRAY;
+    z=10*Cos(i/10.0*ã/8.0)*Cos(dt);
+    w=Tri(100+i,200);
+    x1=i-3;y1=0;z1=z;
+    if (-30<=i<=40) {
+      GrLine3(dc,i,-10*w,z,i-3,0,z);
+      GrLine3(dc,i,+10*w,z,i-3,0,z);
+    }
+    if (!first) {
+      dc->color=DKGRAY;
+      GrLine3(dc,x1,y1,z1,x2,y2,z2);
+    }
+    x2=x1;y2=y1;z2=z1;
+    first=FALSE;
+  }
+}
+
+U0 Song()
+{
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
+  Fs->draw_it=&DrawIt;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+    "$$BG+H,LTCYAN$$";
+    while (!ScanKey) {
+	Play("3qEAAetF2G3GqDFetFED2eG3G",
+		"A\0dam... \0 \0no \0 \0 \0long\0er \0sees \0Your \0face.\n\0 \0 \0");
+	Play("qEAAetF2G3GqDFetFED2eG3G",
+		"Oh! \0 \0 \0What \0 \0a \0wretch\0ed \0bar\0ren \0waste!\n\0 \0 \0");
+	Play("qACFeBCB2GqG3ED",
+		" \0 \0 \0 \0 \0 \0 \0 \0Ex\0iled.\n\0");
+	Play("ACFeBCB2GqG3ED");
+    }
+  } catch
+    PutExcept;
+  SettingsPop;
+}
+
+Song;