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

//8 has graphics


$SP,"<1>",1$






$SP,"<2>",2$




F64 t0=tMBeat;

U0 DrawIt(CTask *,CDC *dc)
{
  F64 dt=tMBeat-t0;
  U8 *temps;
  if (dt>=16.0) {
    temps=SpriteInterpolate($IB,"<1>",1$,$IB,"<2>",2$,Abs((4.0*tM%2-1)%1));
    SpritePlot3(dc,20,20,0,temps);
    Free(temps);
  }
}

U0 Song()
{
  CTask *task;

  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
  Fs->draw_it=&DrawIt;
  Fs->task_end_cb=&SndTaskEndCB;

  music_tempo=2.5;
  try {
    task=PopUpViewStr(
    "$LK-A,"BF:Proverbs,10:19"$\n"
    "$LK-A,"BF:Proverbs,15:2"$\n"
    "$LK-A,"BF:Proverbs,17:28"$\n"
	"$LK-A,"BF:Proverbs,29:11"$\n"
	);
    TaskWait(task);
    SetWinHorz(Fs->win_left,Fs->win_right,task);
    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);

    while (!ScanKey) {
      t0=tMBeat;
      Play("3qGE2eG3BqGetDBDeDE2qGetG3BF",
	  "$$FG,RED$$Wise \0men \0use \0few \0words.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Play("qGE2eG3BqGetDBDeDE2qGetG3BF",
	  "Not \0the \0king \0of \0nerds.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Play("eEAsFEFEqFAetDBEAA2G3qCA",
	  "Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.$$FG$$\n\0 \0 \0");
      Play("eEAsFEFEqFAetDBEAA2G3qCA",
	  "What? \0 \0Tell \0 \0me! \0 \0 \0 \0Is \0 \0 \0some\0thing \0wrong?\n\0 \0 \0");
    }
  } catch
    CatchAll;
  SettingsPop;
}

Song;

A
øÿÿÿ  




	÷ÿÿÿ
	÷ÿÿÿ÷ÿÿÿ
÷ÿÿÿ!

!
















ÿÿÿÿ

þÿÿÿ


ùÿÿÿ

ùÿÿÿùÿÿÿ
ùÿÿÿþÿÿÿ
ýÿÿÿýÿÿÿ
	ûÿÿÿûÿÿÿ










A
øÿÿÿ!$




	÷ÿÿÿ
	÷ÿÿÿ÷ÿÿÿ
÷ÿÿÿ!

!

















ÿÿÿÿ

þÿÿÿ


ùÿÿÿ

ùÿÿÿùÿÿÿ
ùÿÿÿþÿÿÿ
ýÿÿÿýÿÿÿ
	ûÿÿÿûÿÿÿ




!
!!
!