TempleOSCD_150216.ISO

Apps/Psalmody/Examples/abiding.CPP

@@ -1,72 +0,0 @@
-//9 has graphics
-#define X	330
-#define Y	15
-
-#define NUM_BEAMS	256
-
-F64 beams_r[NUM_BEAMS],beams_é[NUM_BEAMS];
-
-U0 DrawIt(CTask *,CDC *dc)
-{
-  I64 i;
-  F64 r,x1,y1,x2,y2;
-  dc->color=YELLOW;
-  GrCircle(dc,X,Y,10);
-  GrFloodFill(dc,X,Y,10);
-  dc->color=BROWN;
-  GrCircle(dc,X,Y,10);
-  dc->color=YELLOW;
-  for (i=0;i<NUM_BEAMS;i++) {
-    r=125.0*((0.25*Beat+beams_r[i])%1.0);
-    P2R(&x1,&y1,r     ,beams_é[i]);
-    P2R(&x2,&y2,r+10.0,beams_é[i]);
-    GrLine(dc,x1+X,y1+Y,x2+X,y2+Y);
-  }
-}
-
-U0 Song()
-{
-  CTask *task;
-  I64 i;
-  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;
-  for (i=0;i<NUM_BEAMS;i++) {
-    beams_r[i]=Rand;
-    beams_é[i]=2*ã*Rand;
-  }
-  try {
-    task=PopUpViewPrint(
-	  "$LK,"Numbers,6:25",A="BF:Numbers,6:25"$\n"
-	  "$LK,"Psalms,31:16",A="BF:Psalms,31:16"$\n"
-	  "$LK,"Psalms,67:1",A="BF:Psalms,67:1"$\n"
-	  "$LK,"Psalms,80:3",A="BF:Psalms,80:3"$\n"
-	  "$LK,"Psalms,80:19",A="BF:Psalms,80:19"$\n"
-	  "$LK,"Psalms,119:135",A="BF:Psalms,119:135"$\n"
-	  "$LK,"Daniel,9:17",A="BF:Daniel,9:17"$\n"
-	  );
-    TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    "$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
-    while (!ScanKey) {
-      "$$WHITE$$To God...\n$$FG$$";
-      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("3DBsFGFG2eG3FRDqEGeBE",
-	    "What \0a \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("qDBsFGFG2eG3FRDqEGeBE",
-	    "I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/abyss.CPP

@@ -17,8 +17,8 @@ U0 Song()
 	  "barrier.  ($LK,"Deuteronomy,4:22",A="BF:Deuteronomy,4:22"$)\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3sBBBBqCq.BeAqBh.A",
 	    "Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");

Apps/Psalmody/Examples/almighty.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/appreciate.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/awake.CPP

@@ -49,8 +49,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Mark,14:37",A="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);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       "$$GREEN$$Jesus talking...$$FG$$\n";
       Play("3eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",

Apps/Psalmody/Examples/blinded.CPP

@@ -16,6 +16,7 @@ U0 Song()
   CTask *task;
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   DocCursor;
   DocClear;
@@ -23,8 +24,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"BF:Acts,9:3"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       t0=Beat;
       Play("3qEeACA2G3qCEC2G3E",

Apps/Psalmody/Examples/depending.CPP

@@ -3,12 +3,13 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint("$LK,"BF:Luke,12:16"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3etGREqDDBRGCB",
 	    "It \0 \0de\0pends \0 \0on \0 \0the \0wea\0ther.\n\0");

Apps/Psalmody/Examples/determination.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/downfall.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   while (TRUE) {
     Play("et2G32G3Gq2G3qCq2G3sFAFAq2G3etGDAqA",

Apps/Psalmody/Examples/efforts.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/epicurus.CPP

@@ -19,8 +19,8 @@ U0 Song()
 	  "$LK,"John,16:24",A="BF:John,16:24"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
     while (!ScanKey) {
       Play("3qBeCDqCAetAACeECsF2G3F2GqG",

Apps/Psalmody/Examples/exalt.CPP

@@ -16,6 +16,7 @@ U0 Song()
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
 
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     while (!ScanKey) {

Apps/Psalmody/Examples/fairness.CPP

@@ -3,6 +3,7 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint(
@@ -12,8 +13,8 @@ U0 Song()
 	  "$LK,"BF:Luke,15:21"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     "$$WW+H,1$$";
     while (!ScanKey) {
       Play("3qGGsEAEAqAsF2G3F2G3qCeEFqD",

Apps/Psalmody/Examples/free.CPP

@@ -144,8 +144,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Romans,8:28",A="BF:Romans,8:28"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
 	    "Free \0will... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0fail.\n\0 \0 \0 \0");

Apps/Psalmody/Examples/image.CPP

@@ -3,6 +3,7 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint(
@@ -12,8 +13,8 @@ U0 Song()
 	  "$LK,"BF:Luke,11:5"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3qBBE2GG3FFC",
 	    "We \0are \0in \0the \0image \0of \0God.\n\0 \0");

Apps/Psalmody/Examples/kept.CPP

@@ -3,11 +3,12 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   try {
     task=PopUpViewPrint("$LK,"BF:Matthew,19:16"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     "$$WW+H,1$$";
     while (!ScanKey) {
       Play("3eGAetCCCFFDqAeAAFAAFqG",

Apps/Psalmody/Examples/killed.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("qBsEGeBDe.AsCeA2qF3sBBeACBBsBB",
 		"I'm \0not \0 \0 \0spry.\n\0 \0 \0 \0 \0 \0 \0 \0I \0best \0chill.\n\0 \0 \0");
 	Play("eDDsGFGFeEBqGM5/4",
-		"If \0 \0God \0 \0 \0 \0 \0 \0ask,\n\0");
+		"If \0 \0God \0 \0 \0 \0 \0 \0asked,\n\0");
 	Play("eBGF4A3e.FsEqAAM4/4",
 		" \0\"$$RED$$Can \0 \0 \0you \0 \0Kill?$$FG$$\"\n\0 \0");
 	Play("eDDsGFGFeEBqGM5/4",

Apps/Psalmody/Examples/mightest.CPP

@@ -28,6 +28,7 @@ U0 DrawIt(CTask *task,CDC *dc)
 U0 Song()
 {
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  MusicSettingsRst;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
 

Apps/Psalmody/Examples/nay.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   "$$WW+H,1$$";

Apps/Psalmody/Examples/permitted.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/personal.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/proponent.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   while (TRUE) {
     Play("qCqAqAsEDEDqBqBetGGEs2G3C2G3C");

Apps/Psalmody/Examples/reasoning.CPP

@@ -2,6 +2,7 @@
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
   while (!ScanKey) {

Apps/Psalmody/Examples/reliance.CPP

@@ -3,6 +3,7 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint(
@@ -16,8 +17,8 @@ U0 Song()
 	  "am I worth?\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
     while (!ScanKey) {
       Play("3qGsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",

Apps/Psalmody/Examples/restless.CPP

@@ -9,8 +9,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Ecclesiastes,5:12",A="BF:Ecclesiastes,5:12"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D",
 	    "I \0 \0 \0 \0got \0 \0 \0paid, \0 \0 \0to\0 \0 \0day.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");

Apps/Psalmody/Examples/savour.CPP

@@ -0,0 +1,30 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music.tempo= 2.480;
+  music.stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("3qFCeEAEAqDeCEqBA",
+		"This \0 \0 \0 \0 \0 \0sand\0wich \0is \0bland.\n\0 \0");
+	Play("eCCqDeDDqEeAECECEqA",
+		"God \0 \0damn, \0my \0 \0tastes \0 \0 \0 \0sure \0 \0are \0grand.\n\0");
+	Play("M6/8");
+	Play("FEB2G3sAGeCqE",
+		"Ho \0hum.  \0 \0 \0 \0How \0 \0rude!\n\0");
+	Play("FEB2G3sAGeCqE",
+		"That \0bum \0 \0 \0 \0likes \0his \0food.\n\0");
+	Play("2G3sAGeDqGFEB",
+		" \0 \0Likes \0his \0food!\n\0 \0 \0 \0");
+	Play("2G3sAAeEqD2G3sDBDB2eGG");
+	Play("3AsEDqAeAsBGEBEB2qG3sDBDB");
+	Play("2eGG3AsEDqAeAsBGEBEB");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Apps/Psalmody/Examples/service.CPP

@@ -13,8 +13,8 @@ U0 Song()
 	  "$LK,"John,13:14",A="BF:John,13:14"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       "$$GREEN$$Jesus talking...\n$$FG$$";
       Play("M6/8");

Apps/Psalmody/Examples/signifies.CPP

@@ -9,8 +9,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Luke,12:12",A="BF:Luke,12:12"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3hDeDA2qG3hDeD2GqF",
 	    "It \0sig\0ni\0fies\n\0a \0big \0sur\0prise.\n\0");

Apps/Psalmody/Examples/teachings.CPP

@@ -9,8 +9,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Proverbs,11:25",A="BF:Proverbs,11:25"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("2eG3CDAqEsACACGEGEqDsAAAAetCDD",
 	    "Ple\0ase \0te\0ach \0me.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");

Apps/Psalmody/Examples/thereupon.CPP

@@ -50,8 +50,8 @@ U0 Song()
 	  "$LK,"Daniel,9:17",A="BF:Daniel,9:17"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     "$$BG+H,LTCYAN$$$$FG+H,BLACK$$";
     while (!ScanKey) {
       Play("2qG3eCB2hGqG3eCB2qG3A",

Apps/Psalmody/Examples/tookest.CPP

@@ -9,8 +9,8 @@ U0 Song()
   try {
     task=PopUpViewPrint("$LK,"Luke,17:36",A="BF:Luke,17:36"$\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("3qABeCq.AqCDeEq.A",
 	    "Pile \0of \0clo\0ths.\n\0Pile \0of \0clo\0ths.\n\0");

Apps/Psalmody/Examples/verses.CPP

@@ -3,6 +3,7 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint(
@@ -12,8 +13,8 @@ U0 Song()
 	  "want God to talk some more.  The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.TXT"$ can "
 	  "puppet you.\n");
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     "$$WW+H,1$$";
     DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
     while (!ScanKey) {

Apps/Psalmody/Examples/witherto.CPP

@@ -3,6 +3,7 @@ U0 Song()
 {
   CTask *task;
   Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
   music.tempo=2.5;
   try {
     task=PopUpViewPrint(
@@ -11,8 +12,8 @@ U0 Song()
 	  "$LK,"Matthew,25:18",A="BF:Matthew,25:18"$\n"
 	  );
     TaskWait(task);
-    SetWinHorz(Fs->win_left,Fs->win_right,task);
-    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    WinHorz(Fs->win_left,Fs->win_right,task);
+    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     while (!ScanKey) {
       Play("2qG3sFEFEqDBEetCB2G3qFsBDBD",
 	    " \0Damn \0 \0 \0 \0 \0 \0fig \0 \0 \0 \0tree.\n\0 \0 \0 \0 \0");