67 lines
3.4 KiB
C++
67 lines
3.4 KiB
C++
//9 has graphics
|
|
|
|
|
|
|
|
$SP,"<1>",BI=1$
|
|
|
|
|
|
F64 t0=Beat;
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
F64 dt=Beat-t0,a_x,a_y;
|
|
if (dt<8) {
|
|
a_y=ă/2;
|
|
a_x=Wrap(ă*dt/4,0);
|
|
} else if (dt<32) {
|
|
a_x=0;
|
|
a_y=Wrap(ă*dt/16,0);
|
|
if (ă/2<=a_y<=3*ă/2) a_y=-a_y;
|
|
} else if (dt<44) {
|
|
a_y=0;
|
|
a_x=0;
|
|
} else {
|
|
a_x=0;
|
|
a_y=Wrap(ă*dt/8+ă/2,0);
|
|
if (ă/2<=a_y<=3*ă/2) a_y=-a_y;
|
|
}
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
Mat4x4RotX(dc->r,a_x);
|
|
Mat4x4RotY(dc->r,a_y);
|
|
dc->x=325;
|
|
dc->y=35;
|
|
Sprite3(dc,0,0,0,$IB,"<1>",BI=1$);
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
MusicSettingsRst;
|
|
music.tempo= 2.480;
|
|
music.stacatto_factor= 0.902;
|
|
try {
|
|
while (!ScanKey) {
|
|
t0=Beat;
|
|
Play("2qG3eAAqBA2G3BhA",
|
|
"The \0Cre\0 \0a\0tor \0on \0His \0thone,\n\0");
|
|
Play("2qG3eAAqBA2G3BhA",
|
|
"Believe \0or \0 \0not, \0we're \0not \0a\0lone.\n\0");
|
|
Play("qCeBA2qG3A2GFhE",
|
|
"God \0wat\0ches \0al\0ways \0o\0ver \0us.\n\0");
|
|
Play("3qCeBA2qG3A2GF3hA",
|
|
"Is \0there \0 \0some\0thing \0to \0dis\0cuss?\n\0");
|
|
Play("qEeB2G3qAsE2G3E2G3qEetBFEqDF",
|
|
"God, \0 \0 \0 \0won't \0 \0You \0 \0"
|
|
"talk \0 \0to \0me?\n\0 \0 \0");
|
|
Play("EeB2G3qAsE2G3E2G3qEetBFEqDF",
|
|
"God, \0 \0 \0 \0won't \0 \0You \0 \0"
|
|
"talk \0 \0to \0me?\n\0 \0 \0");
|
|
}
|
|
} catch
|
|
PutExcept;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
|