TempleOS-Rijn/Apps/Psalmody/Examples/night.HC

//9 has graphics
$BG,0$
	 $SP,"<1>",BI=1$






$BG$
#define X	330
#define Y	35

F64 t0=Beat;

U0 DrawIt(CTask *,CDC *dc)
{
  I64 i;
  F64 x,y,dt=Beat-t0;
  Sprite3(dc,X,Y,0,$IB,"<1>",BI=1$);
  if (Beat-t0<24) {
    if (Rand<0.7) {
      dc->color=YELLOW;
      GrPlot(dc,X-12,Y+1);
      GrPlot(dc,X-12,Y+2);
      GrPlot(dc,X-11,Y+4);
      GrPlot(dc,X+10,Y+4);
      GrPlot(dc,X+4,Y+4);
      GrPlot(dc,X+5,Y+4);
      GrPlot(dc,X+6,Y+4);
      GrPlot(dc,X+7,Y+5);
      GrPlot(dc,X+8,Y+5);
    }
    for (i=0;i<512;i++) {
      x=1.0-Rand`3.0;
      y=Rand;
      x=5.0*Sin(ã*Sqrt(y))*x;
      y=25.0*y;
      if (Rand*(x*x+2.0)*Sqrt(y)<4.0) {
	if (Rand<0.5)
	  dc->color=BLUE;
	else
	  dc->color=LTBLUE;
      } else
	dc->color=YELLOW;
      if (RandI16<0)
	x=-x;
      x+=150.0*Sin(ã*dt)/(35-y)`1.5;
      GrPlot(dc,X+x,Y-y);
    }
  }
}

U0 Song()
{
  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
  Fs->text_attr=BLACK<<4+LTGRAY;
  Fs->draw_it=&DrawIt;
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  music.tempo=2.0;
  try {
    "$$BG+H,BLACK$$$$FD+H,LTGRAY$$";
    while (TRUE) {
      t0=Beat;
      "$$WHITE$$God said this was a dirge.\n$$FG$$";
      Play("FqDqDeACqEqEqDqDq",
	    "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
      Play("FqDqDeACqEqEqDqDq",
	    "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
      Play("DqGqFeGFqFqEqEqBq",
	    " \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
      Play("DqGqFeGFqFqEqEqBq",
	    " \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
    }
  } catch
    PutExcept;
  SettingsPop;
}

Song;

òðÿÿÿúÿÿÿ7ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ