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

//2 has words



      $SP,"<1>",1$



$BG,7$

      $SP,"<2>",2$

$BG$
U0 DrawIt(CTask *task,CDC *dc)
{
  I64 w=task->win_pixel_width,h=task->win_pixel_height;
  F64 t=tM,
      x=w*Saw(t,2.0),
      y=h*Sqr((x-w>>1)/w>>1),
      dx=w/2,
      dy=h*2*((x-w>>1)/w>>1),
      é=Arg(dx,dy);
  SpritePlotRotZ3B(dc,x,y,0,$IB,"<1>",1$,0.3*Sin(30*t)+é);
  SpritePlotRotZ3B(dc,x,y+20*FullSaw(30*t,0.5),0,$IB,"<2>",2$,0.3*Sin(t)+é);
}


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,"Luke,18:11","BF:Luke,18:11"$\n"
    );
  TaskWait(task);
  SetWinHorz(Fs->win_left,Fs->win_right,task);
  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
  while (!ScanKey) {
	Play("2eGGqG3eCCADqFeFBqGeCB",
		"Hey! \0Hey! \0Hey! \0That's \0 \0 \0a \0foul!\n\0 \0 \0 \0 \0 \0");
	Play("2GGqG3eCCADqFeFBqGeCB",
		"$$FG,RED$$Hey!\n\0 \0 \0 \0 \0 \0Don't \0 \0you \0 \0scowl!\n$$FG$$\0 \0 \0");
  }
  } catch
    CatchAll;
  SettingsPop;
}

Song;

J5!çÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ