TempleOSTS_130315.ISO

TempleOS/Apps/MusicOrgan/Examples/awake.CPP

@@ -0,0 +1,74 @@
+//8 has graphics
+
+#define R1	13
+#define R2	21
+
+U0 DrawIt(CTask *,CDC *dc)
+{
+  static F64 é=0;
+  I64 x1=200,y1=20,x2=x1,y2=y1+R2;
+  F64 tt=tMBeat%16.0,č;
+  é+=1/(tt*tt+1);
+  dc->color=BLACK;
+  dc->pen_width=4;
+  GrCircle3(dc,x2,y2,0,R2+10);
+  for (č=é;č<é+2*ă;č+=ă/3) {
+    dc->color=BLACK;
+    dc->pen_width=2;
+    GrCircle3(dc,x2+R2*Cos(č),y2-R2*Sin(č),0,8);
+    dc->color=WHITE;
+    dc->pen_width=2;
+    GrCircle3(dc,x2+(R2+15)*Cos(č+ă/6),y2-(R2+15)*Sin(č+ă/6),0,3);
+  }
+  dc->color=BROWN;
+  GrFloodFill(dc,x2+R2*Cos(č),y2-R2*Sin(č));
+  dc->color=DKGRAY;
+  GrFloodFill(dc,x2,y2);
+  dc->pen_width=6;
+  dc->color=RED;
+  GrCircle3(dc,x1,y1,0,R1-6);
+  dc->color=DKGRAY;
+  GrCircle3(dc,x1,y1,0,R1-2);
+  dc->color=LTGRAY;
+  GrRect(dc,x1-2,y1-R2-1,4,10);
+  GrCircle3(dc,x1,y1,0,R1);
+  dc->color=RED;
+  GrFloodFill(dc,x1,y1,TRUE);
+  dc->color=BLACK;
+  GrFloodFill(dc,x1,y1);
+}
+
+
+U0 Song()
+{
+  CTask *task;
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->draw_it=&DrawIt;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  task=PopUpViewStr(
+    "$LK,"Mark,14:37","BF:Mark,14:37"$\n"
+    );
+  TaskWait(task);
+  SetWinHorz(Fs->win_left,Fs->win_right,task);
+  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+  while (!ScanKey) {
+	"$$FG,GREEN$$Jesus talking...$$FG$$\n";
+	Play("W13eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
+		"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
+		"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
+		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
+	Play("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
+		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
+  }
+  } catch
+    CatchAll;
+  SettingsPop;
+}
+
+Song;