//8 has graphics

#define		X	25
#define		H	5

F64 t0=Beat;
U0 DrawIt(CTask *,CDC *dc)
{
  I64 i;
  F64 dt=Beat-t0;
  dc->x=325;
  dc->y=40;
  dc->z=GR_Z_ALL;
  dc->flags|=DCF_TRANSFORMATION;
  Mat4x4RotZ(dc->r,ã*dt/8);
  Mat4x4RotX(dc->r,3*ã/8);

  for (i=0;i<=2*H;i+=H) {
    GrLine3(dc,-X,-X,i,X,-X,i);
    GrLine3(dc,X,-X,i,X,X,i);
    GrLine3(dc,X,X,i,-X,X,i);
    GrLine3(dc,-X,X,i,-X,-X,i);
  }

  GrLine3(dc,-X,-X,0,-X,-X,2*H);
  GrLine3(dc,X,-X,0,X,-X,2*H);
  GrLine3(dc,-X,X,0,-X,X,2*H);
  GrLine3(dc,X,X,0,X,X,2*H);
}

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 (TRUE) {
      t0=Beat;
      Play("qCqAqAsEDEDqBqBetGGEs2G3C2G3C");
      Play("qCqAqAsEDEDqBqBetGGEs2G3C2G3C");
      Play("etCD2G3etEE2G3qFqFqAsACACsAFAFetECC",
	    "In \0my \0 \0corn\0 \0 \0er? \0 \0 \0 \0 \0 \0 \0"
	    "Hope \0we're \0right.\n\0");
      Play("etCD2G3etEE2G3qFqFqAsACACsAFAFetECC",
	    "In \0my \0 \0corn\0 \0 \0er? \0 \0 \0 \0 \0 \0 \0"
	    "Hope \0we're \0right.\n\0");
    }
  } catch
    PutExcept;
  SettingsPop;
}

Song;