TempleOS-Rijn/Apps/MusicOrgan/Examples/fishermen.CPP

//8 has graphics


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





U0 DrawIt(CTask *task,CDC *dc)
{
  I64 i,w=task->pix_width,h=task->pix_height;
  dc->color=BROWN;
  for (i=60*Saw(Beat,20);i<w;i+=20)
    GrLine(dc,i,h,w,h-i/4);
  dc->color=BLACK;
  GrLine(dc,0,h-1,w,h-1);
  GrLine(dc,w-1,0,w-1,h);
}

U0 Song()
{
  CTask *task;
  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
  Fs->text_attr=LTCYAN<<4+BLACK;
  Fs->draw_it=&DrawIt;
  Fs->task_end_cb=&SndTaskEndCB;
  music_tempo=2.5;
  try {
    task=PopUpViewStr(
	  "$LK,"BF:Matthew,4:19"$\n"
	  "$LK,"BF:Luke,5:4"$\n"
	  );
    TaskWait(task);
    SetWinHorz(Fs->win_left,Fs->win_right,task);
    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
    while (!ScanKey) {
      "$$CL$$$$BG,LTCYAN$$";
      Play("3qEsGEGEeF2G3BCqCeDEqBsERER",
	    "$$FG$$Lord, \0I \0 \0am \0 \0feel\0ing \0just \0a \0bit \0un\0in\0spired.\n\0With \0 \0 \0 \0");
      Play("qEsGEGEeF2G3BCqCeDEqBsERER",
	    "net \0or \0 \0with \0 \0reel\0ing \0 \0I \0keep \0get\0ting \0mired.\n\0 \0 \0 \0 \0");
      Play("qDetRAFqDGetFC2G3sBCBCqDF",
	    "$$RED$$Throw \0 \0out \0your \0net.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      Sprite($IB,"<1>",BI=1$);
      Play("DetRAFqDGetFC2G3sBCBCqDF",
	    "Make \0 \0you \0a \0bet.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
      NewLine(5);
    }
  } catch
    PutExcept;
  SettingsPop;
}

Song;




"
"-
-; 
; F
IF#
F#P
L T
T]
]`
`R
RB
B7	
7	6

6
%
%

UX
VY

NNNPSTWSPPJJJLPPFECCCF
FFGHEE@
AAACDA>==<<9689::::7644666321--.0-+))**%%%YURTWYZ][