TempleOS-Rijn/Apps/Psalmody/Examples/happy.CPP

//8 has graphics

#define SUN_X	240
#define SUN_Y	40

F64 t0=Beat;

$SP,"<1>",BI=1$

U0 DrawIt(CTask *,CDC *dc)
{
  F64 é=0,dt=Beat-t0;
  I64 x=100.0*Cos(dt*2*ã/8.0),y=30.0*Sin(-dt*2*ã/8.0);

  dc->color=BLACK;
  GrCircle(dc,SUN_X,SUN_Y,10);
  dc->color=YELLOW;
  GrFloodFill(dc,SUN_X,SUN_Y,FALSE);

  if (dt>16)
    é=(dt-16)*2*ã;
  SpriteZ3B(dc,x+SUN_X-32,y+SUN_Y,0,$IB,"<1>",BI=1$,é);
}

U0 Song()
{
  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
  Fs->draw_it=&DrawIt;
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  music.tempo=2.5;
  try {
    while (!ScanKey) {
      t0=Beat;
      Play("3qBetARFqER2G3sBABA2etG3GFsC2G3C2G",
	  "A \0hap\0 \0py \0God.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Play("3qBetARFqER2G3sBABA2etG3GFsC2G3C2G",
	  "Takes \0nap\0 \0py \0nod.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Play("3eBFsDR4DR3qGetAERqBetBGDeABsRERE",
	  " \0World \0comes \0 \0un\0 \0done.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Play("eBFsDRDRqGetAERqBetBGDeABsRERE",
	  " \0Too \0bad \0 \0only \0 \0one!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
    }
  } catch
    PutExcept;
  SettingsPop;
}

Song;
Úöÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ