56 lines
1.1 KiB
C++
56 lines
1.1 KiB
C++
//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;
|