TempleOS-Rijn/LT/Apps/MusicOrgan/Examples/zip.CPZ

//has graphics


$PI,"<1>",1$





$PI,"<2>",2$





$PI,"<3>",3$




BoolU4 animate=FALSE;

void DrawIt(TssStruct *tss)
{
  I8 i;
  GrBitMap *base=GrAlias(grbase2,tss);

//$FG,2$The following draws the normal text.$FG$
  LtfUpdateBothLtf(tss);

  if (animate) {
    i=(t%0.5)/(0.5/4);
    switch (i) {
      case 0:
	GrElemsPlot(base,20,20,0,$IB,"<1>",1$);
	break;
      case 2:
	GrElemsPlot(base,20,20,0,$IB,"<3>",3$);
	break;
      default:
	GrElemsPlot(base,20,20,0,$IB,"<2>",2$);
	break;
    }
  }

  GrDel(base);
}

void EndTsk()
{
  Sound(0);
  Exit;
}

void Song()
{
  void *old_update=Fs->update_win;
  TssStruct *tss;
  Fs->update_win=&DrawIt;
  Fs->end_task_cb=&EndTsk;
  music_tempo=2.5;
  try {
  tss=PopUpViewStr(
    "$$LK-A,\"BF:Proverbs,10:19\"$$\r\n"
    "$$LK-A,\"BF:Proverbs,15:2\"$$\r\n"
    "$$LK-A,\"BF:Proverbs,17:28\"$$\r\n"
    "$$LK-A,\"BF:Proverbs,29:11\"$$\r\n"
    );
  WaitTskIdle(tss);
  tss->win_right=Fs->win_right;
  tss->win_left=Fs->win_left;
  tss->win_top=Fs->win_bottom+3;
  tss->win_bottom=tss->win_top+12;

  while (!ScanKey) {
	Play("3qGE2eG3BqGetDBDeDE2qGetG3BF",
		"Wise \0men \0use \0few \0words.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
	Play("qGE2eG3BqGetDBDeDE2qGetG3BF",
		"Wise \0men \0use \0few \0words.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
	animate=TRUE;
	Play("eEAsFEFEqFAetDBEAA2G3qCA",
		"Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\r\n\0 \0 \0");
	Play("eEAsFEFEqFAetDBEAA2G3qCA",
		"Fools \0 \0kinda \0 \0 \0 \0 \0 \0talk \0 \0 \0all \0day \0long.\r\n\0 \0 \0");
	animate=FALSE;
  }
  } catch
    Fs->catch_except=TRUE;
  Fs->update_win=old_update;
  Sound(0);
}

Song;

Âøÿÿÿ  

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

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

Îøÿÿÿ  

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

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



Îøÿÿÿ  

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

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