70 lines
6.4 KiB
C++
70 lines
6.4 KiB
C++
//8 has graphics
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
F64 t0=0;
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 dt=tMBeat-t0-6.0;
|
|
if (t0 && 0<=dt<1.0) {
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
GrRotZEqu(dc->r,5.0*(dt-0.5));
|
|
GrRotXEqu(dc->r,1.5-2.0*dt);
|
|
GrSetRotMat(dc,dc->r);
|
|
CSpritePlot3b(dc,200,55,0,$IB,"<1>",1$);
|
|
}
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
CTask *task;
|
|
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=2.5;
|
|
try {
|
|
task=PopUpViewStr(
|
|
"$LK,"Romans,12:19","BF:Romans,12:19"$\n"
|
|
"$LK,"Matthew,5:38","BF:Matthew,5:38"$\n"
|
|
);
|
|
TaskWait(task);
|
|
task->win_right=Fs->win_right;
|
|
task->win_left=Fs->win_left;
|
|
task->win_top=Fs->win_bottom+3;
|
|
task->win_bottom=task->win_top+12;
|
|
TaskDerivedValsUpdate(task);
|
|
while (!ScanKey) {
|
|
Play("etFDAqDqAqAqDqCeEGeDC",
|
|
"Leave \0it \0to \0God.\n\0");
|
|
Play("etFDAqDqAqAqDqCeEGeDC",
|
|
"Leave \0it \0to \0God.\n\0");
|
|
t0=tMBeat;
|
|
Play("qDqFqGqCqEqCetDGAeAA",
|
|
" \0 \0 \0 \0Stand \0back.\n\0");
|
|
t0=tMBeat;
|
|
Play("qDqFqGqCqEqCetDGAeAA",
|
|
" \0 \0 \0 \0Stand \0back.\n\0");
|
|
t0=0;
|
|
}
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
|