//9 has graphics

         ....<1>/* Graphics Not Rendered in HTML */







#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,<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(pi*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(pi*dt)/(35-y)`1.5;
      GrPlot(dc,X+x,Y-y);
    }
  }
}

U0 Song()
{
  SettingsPush; //See 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("5FqDqD4eA5CqEqEqDqDq",
            "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
      Play("5FqDqD4eA5CqEqEqDqDq",
            "Gone \0to \0sleep \0for \0the \0fi\0nal \0time.\n\0");
      Play("5DqGqFeGFqFqEqE4qBq",
            " \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
      Play("5DqGqFeGFqFqEqE4qBq",
            " \0Ash \0to... \0and \0 \0dust \0to \0dust.\n\0");
    }
  } catch
    PutExcept;
  SettingsPop;
}

Song;