83 lines
5.1 KiB
C++
83 lines
5.1 KiB
C++
//8 has graphics
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
#define SIDE 20
|
|
#define BLADES (SIDE*SIDE)
|
|
F64 blades_é[BLADES];
|
|
|
|
F64 t0=tMBeat;
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
I64 i,j,k;
|
|
F64 x,y,x2,y2,dt=tMBeat-t0;
|
|
DCAllocDepthBuf(dc);
|
|
dc->x=300;
|
|
dc->y=30;
|
|
dc->z=GR_Z_ALL;
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
if (dt<16)
|
|
GrRotZEqu(dc->r,(dt+5)*ã/4);
|
|
else
|
|
GrRotZEqu(dc->r,5*ã/4);
|
|
GrRotXEqu(dc->r,-5*ã/4);
|
|
GrScaleMatEqu(dc->r,0.75);
|
|
SpritePlot3(dc,0,0,0,$IB,"<1>",1$);
|
|
if (dt>=16) {
|
|
dc->color=GREEN;
|
|
dt=0.5*(dt-16);
|
|
k=0;
|
|
for (i=0,y=-50;i<SIDE;i++,y+=100.0/SIDE)
|
|
for (j=0,x=-50;j<SIDE;j++,x+=100.0/SIDE) {
|
|
P2R(&x2,&y2,dt,blades_é[k++]);
|
|
GrLine3(dc,x,y,-40,x+x2,y+y2,-40+dt*2);
|
|
}
|
|
}
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
I64 i;
|
|
for (i=0;i<BLADES;i++)
|
|
blades_é[i]=2*Rand*ã;
|
|
|
|
SettingsPush; //See $LK,"SettingsPush","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=tMBeat;
|
|
Play("3etAAA2eGF3A2GqF3etAAA2eGF3A2GqF",
|
|
"Je\0 \0sus \0 \0made \0fur\0ni\0ture.\n\0Je\0 \0sus \0 \0made \0fur\0ni\0ture.\n\0");
|
|
Play("etGGG3eAB2G3A2qGetGGG3eAB2G3A2qG",
|
|
"God \0 \0 \0made \0 \0all \0Na\0ture.\n\0God \0 \0 \0made \0 \0all \0Na\0ture.\n\0");
|
|
Play("G3etGDC2qG3eCDetDACCA2G3sBABA2eG3F");
|
|
Play("2qG3etGDC2qG3eCDetDACCA2G3sBABA2eG3F");
|
|
}
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
ê x ” çÿÿÿçÿÿÿ ìÿÿÿçÿÿÿ ìÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿçÿÿÿØÿÿÿìÿÿÿçÿÿÿØÿÿÿìÿÿÿìÿÿÿØÿÿÿçÿÿÿìÿÿÿØÿÿÿçÿÿÿìÿÿÿØÿÿÿ çÿÿÿ çÿÿÿ ìÿÿÿ ìÿÿÿ ìÿÿÿ çÿÿÿØÿÿÿ çÿÿÿØÿÿÿ ìÿÿÿØÿÿÿ ìÿÿÿØÿÿÿ ìÿÿÿØÿÿÿçÿÿÿçÿÿÿ ìÿÿÿçÿÿÿ ìÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿçÿÿÿØÿÿÿìÿÿÿçÿÿÿØÿÿÿìÿÿÿìÿÿÿØÿÿÿçÿÿÿìÿÿÿØÿÿÿçÿÿÿìÿÿÿØÿÿÿ çÿÿÿ çÿÿÿ ìÿÿÿ ìÿÿÿ ìÿÿÿ çÿÿÿØÿÿÿ çÿÿÿØÿÿÿ ìÿÿÿØÿÿÿ ìÿÿÿØÿÿÿ ìÿÿÿØÿÿÿçÿÿÿ ìÿÿÿ ìÿÿÿ çÿÿÿ çÿÿÿ çÿÿÿ Øÿÿÿìÿÿÿ Øÿÿÿìÿÿÿ Øÿÿÿçÿÿÿ Øÿÿÿçÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿçÿÿÿ ìÿÿÿ ìÿÿÿ çÿÿÿ çÿÿÿ çÿÿÿ Øÿÿÿìÿÿÿ Øÿÿÿìÿÿÿ Øÿÿÿçÿÿÿ Øÿÿÿçÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿ Øÿÿÿçÿÿÿçÿÿÿ ìÿÿÿçÿÿÿ ìÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿâÿÿÿ( ìÿÿÿâÿÿÿ( ìÿÿÿçÿÿÿ( çÿÿÿçÿÿÿ( çÿÿÿçÿÿÿ( çÿÿÿ çÿÿÿ ìÿÿÿ ìÿÿÿ ìÿÿÿ âÿÿÿ( âÿÿÿ( çÿÿÿ( çÿÿÿ( çÿÿÿ( çÿÿÿçÿÿÿ ìÿÿÿçÿÿÿ ìÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿìÿÿÿ çÿÿÿâÿÿÿ( ìÿÿÿâÿÿÿ( ìÿÿÿçÿÿÿ( çÿÿÿçÿÿÿ( çÿÿÿçÿÿÿ( çÿÿÿ çÿÿÿ ìÿÿÿ ìÿÿÿ ìÿÿÿ âÿÿÿ( âÿÿÿ( çÿÿÿ( çÿÿÿ( çÿÿÿ(
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
! ! & % $ $ # & % $ $ $ # $ ! % ! & % & # & ! + * ) ) ( + 0 / . . - 0 / . * . ) * . ) ( ( - . + / * + 0 / 0 - ( 0 ( + 5 3 4 3 5 2 : 9 8 8 7 : 9 8 4 8 3 4 8 3 2 2 7 8 5 9 4 5 : 9 : 7 2 : 2 5 ? > = = < ? D C B B A D C B > B = > B = < < A B ? C > ? D C D A < D < ? I G H G I F N M L L K N M L H L G H L G F F K L I M H I N M N K F N F I (
|
|
|
|
2 ( S R Q Q P S X V W V X U W V R V Q R V Q P P U V S W R S X W X U P X P S ] \ [ [ Z ] b a ` ` _ b a ` \ ` [ \ ` [ Z Z _ ` ] a \ ] b a b _ Z b Z ] g f e e d g l j k j l i k j f j e f j e d d i j g k f g l k l i d l d g q p o o n q v u t t s v u t p t o p t o n n s t q u p q v u v s n v n q _
|
|
U _ |