TempleOS-Rijn/TempleOS/Accts/TS/TAD/MusicOrgan/gutenberg.CPP

//8 has graphics




$SP,"<1>",1$



$SP,"<2>",2$

F64 t0=tMBeat;

U0 DrawIt(CTask *,CDC *dc)
{
  F64 é,dt=tMBeat-t0;
  if (dt>12) dt=12;
  é=0.2*FullTri(dt,4);
  SpritePlotRotZ3b(dc,140+30*Sin(dt),40,0,$IB,"<1>",1$,é);
  SpritePlot3(dc,170,15,0,$IB,"<2>",2$);
}


U0 Song()
{
  CTask *task;
  task=PopUpViewStr(
    "$LK,"Revelation,22:18","BF:Revelation,22:18"$\n"
  );
  TaskWait(task);
  SetWinHorz(Fs->win_left,Fs->win_right,task);
  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
  Fs->task_end_cb=&SndTaskEndCB;
  Fs->draw_it=&DrawIt;
  MusicSettingsRst;
  music_tempo= 2.500;
  music_stacatto_factor= 0.900;
  "$$WW+H,1$$";
  try {
  while (!ScanKey) {
	t0=tMBeat;
	Play("!3qBRE2sG3C!2G!3CeCF!qEeG!!AsR2GR!G",
		"The \0 \0quill\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
	Play("!3qBRE2sG3C!2G!3CeCF!qEeG!!AsR2GR!G",
		"is \0 \0still\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
	Play("3qER!!etA!!C!GqF2G3etD2G3F!BF!2G3DRF",
		" \0 \0God's \0 \0 \0word \0for \0all \0 \0his \0 \0hap\0 \0py \0 \0peo\0");
	Play("qER!!etA!!C!G!qF2G3etD2G3F!BF!2G3DRF",
		"ple.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
	"$$FG,GREEN$$Gutenberg invented the printing press and made Bibles.  Until then, "
	"I wonder how many man-hours for one word in the Bible!\n$$FG$$";
  }
  } catch
    CatchAll;
  Snd(0);
}

Song;

2"ýÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb
ýÿÿÿøÿÿÿÿÿÿÿÿ