SparrowOSTS_121127.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
0e9364ff4c
commit
e57428affb
1218 files changed
+247142
-165507
No files matched your search
@@ -0,0 +1,75 @@
|
||||
//9 has graphics
|
||||
|
||||
#define X 330
|
||||
#define Y 15
|
||||
|
||||
#define NUM_BEAMS 256
|
||||
|
||||
F64 beams_r[NUM_BEAMS],beams_é[NUM_BEAMS];
|
||||
|
||||
U0 DrawIt(CTask *,CDC *dc)
|
||||
{
|
||||
I64 i;
|
||||
F64 r,x1,y1,x2,y2;
|
||||
dc->color=YELLOW;
|
||||
GrCircle(dc,X,Y,10);
|
||||
GrFloodFill(dc,X,Y,10);
|
||||
dc->color=BROWN;
|
||||
GrCircle(dc,X,Y,10);
|
||||
dc->color=YELLOW;
|
||||
for (i=0;i<NUM_BEAMS;i++) {
|
||||
r=125.0*((0.25*tMBeat+beams_r[i])%1.0);
|
||||
P2R(&x1,&y1,r ,beams_é[i]);
|
||||
P2R(&x2,&y2,r+10.0,beams_é[i]);
|
||||
GrLine(dc,x1+X,y1+Y,x2+X,y2+Y);
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
I64 i;
|
||||
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;
|
||||
for (i=0;i<NUM_BEAMS;i++) {
|
||||
beams_r[i]=Rand;
|
||||
beams_é[i]=2*ã*Rand;
|
||||
}
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Numbers,6:25","BF:Numbers,6:25"$\n"
|
||||
"$LK,"Psalms,31:16","BF:Psalms,31:16"$\n"
|
||||
"$LK,"Psalms,67:1","BF:Psalms,67:1"$\n"
|
||||
"$LK,"Psalms,80:3","BF:Psalms,80:3"$\n"
|
||||
"$LK,"Psalms,80:19","BF:Psalms,80:19"$\n"
|
||||
"$LK,"Psalms,119:135","BF:Psalms,119:135"$\n"
|
||||
"$LK,"Daniel,9:17","BF:Daniel,9:17"$\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);
|
||||
"$$BD+H,LTCYAN$$$$FD+H,BLACK$$";
|
||||
while (!ScanKey) {
|
||||
"$$FG,WHITE$$To God...\n$$FG$$";
|
||||
Play("W13etCFE!!sDDDDD2G!3D2G!!3qC2eG3EqEetAA!F2qG",
|
||||
"I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("3etCFE!!sDDDDD2G!3D2G!!3qC2eG3EqEetAA!F2qG",
|
||||
"I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("!3DBsFGF!G2eG!!3FRDqEGeB!E",
|
||||
"What \0a \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("!qDBsFGF!G2eG!!3FRDqEGeB!E",
|
||||
"I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,44 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.736;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"There are myths about the River\n"
|
||||
"Styx separating the land of the\n"
|
||||
"living from dead. Jesus' told a story\n"
|
||||
"about the land of living separate from\n"
|
||||
"land of dead. ($LK,"Luke,16:22","BF:Luke,16:22"$) In the Old\n"
|
||||
"Testament, the River Jordan was a special\n"
|
||||
"barrier. ($LK,"Deuteronomy,4:22","BF:Deuteronomy,4:22"$)\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("W13sBBBBqCq.BeAqBh.A",
|
||||
"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
|
||||
Play("M2/4");
|
||||
Play("eECqAM4/4");
|
||||
Play("sBBBBqCq.BeAqBh.A",
|
||||
"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
|
||||
Play("M2/4");
|
||||
Play("eDDqDM4/4");
|
||||
Play("DeEDqG!CeF2G3qG!!sFGFG!!eD!C",
|
||||
"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
|
||||
Play("qDeEDqG!CeF2G3qG!!sFGFG!!eD!C",
|
||||
"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("2qG3etC2GG3qARR2etG3FBqEeFE",
|
||||
"All \0righ\0 \0 \0ty.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("2qG3etC2GG3qARR2etG3FBqEeFE",
|
||||
"All \0migh\0 \0 \0ty.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qFFEEeEBqFCB",
|
||||
"Al\0read\0y, \0 \0I've \0 \0seen \0en\0ough.\n\0");
|
||||
Play("FFEEeEBqFCB",
|
||||
"Oh \0bo\0y, \0 \0was \0 \0that \0rough.\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("3etDGDqGeCGetAE2G3eEFsGBGBqEG",
|
||||
"Thanks, \0 \0 \0God! \0 \0 \0You \0 \0are \0might\0y \0 \0good \0 \0to \0me.\n\0 \0");
|
||||
Play("etDGDqGeCGetAE2G3eEFsGBGBqEG",
|
||||
"Thanks, \0 \0 \0God! \0 \0 \0You \0 \0are \0might\0y \0 \0good \0 \0to \0me.\n\0 \0");
|
||||
Play("EsBGBGeEC2G3AqF2G3sC2G3C2GqG",
|
||||
" \0 \0 \0 \0 \0 \0 \0I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
Play("3EsBGBGeEC2G3AqF2G3sC2G3C2GqG",
|
||||
" \0 \0 \0 \0 \0 \0 \0I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,77 @@
|
||||
//8 has graphics
|
||||
|
||||
#define R1 13
|
||||
#define R2 21
|
||||
|
||||
U0 DrawIt(CTask *,CDC *dc)
|
||||
{
|
||||
static F64 é=0;
|
||||
I64 x1=200,y1=20,x2=x1,y2=y1+R2;
|
||||
F64 tt=tMBeat%16.0,č;
|
||||
é+=1/(tt*tt+1);
|
||||
dc->color=BLACK;
|
||||
dc->pen_width=4;
|
||||
GrCircle3(dc,x2,y2,0,R2+10);
|
||||
for (č=é;č<é+2*ă;č+=ă/3) {
|
||||
dc->color=BLACK;
|
||||
dc->pen_width=2;
|
||||
GrCircle3(dc,x2+R2*Cos(č),y2-R2*Sin(č),0,8);
|
||||
dc->color=WHITE;
|
||||
dc->pen_width=2;
|
||||
GrCircle3(dc,x2+(R2+15)*Cos(č+ă/6),y2-(R2+15)*Sin(č+ă/6),0,3);
|
||||
}
|
||||
dc->color=BROWN;
|
||||
GrFloodFill(dc,x2+R2*Cos(č),y2-R2*Sin(č));
|
||||
dc->color=DKGRAY;
|
||||
GrFloodFill(dc,x2,y2);
|
||||
dc->pen_width=6;
|
||||
dc->color=RED;
|
||||
GrCircle3(dc,x1,y1,0,R1-6);
|
||||
dc->color=DKGRAY;
|
||||
GrCircle3(dc,x1,y1,0,R1-2);
|
||||
dc->color=LTGRAY;
|
||||
GrRect(dc,x1-2,y1-R2-1,4,10);
|
||||
GrCircle3(dc,x1,y1,0,R1);
|
||||
dc->color=RED;
|
||||
GrFloodFill(dc,x1,y1,TRUE);
|
||||
dc->color=BLACK;
|
||||
GrFloodFill(dc,x1,y1);
|
||||
}
|
||||
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
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 {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Mark,14:37","BF:Mark,14:37"$\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) {
|
||||
"$$FG,GREEN$$Jesus talking...$$FG$$\n";
|
||||
Play("W13eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
|
||||
"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
|
||||
"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
|
||||
" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
|
||||
Play("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
|
||||
" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,51 @@
|
||||
//7 has words
|
||||
|
||||
F64 t0=tMBeat;
|
||||
|
||||
U0 DrawIt(CTask *task,CDC *dc)
|
||||
{
|
||||
static I64 i=0;
|
||||
F64 dt=tMBeat-t0;
|
||||
if (dt>16.0 && i++&1) {
|
||||
dc->color=WHITE;
|
||||
GrRect(dc,0,0,task->win_pixel_width,task->win_pixel_height);
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
|
||||
task=PopUpViewStr(
|
||||
"$LK-A,"BF:Acts,9:3"$\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);
|
||||
music_tempo=2.5;
|
||||
DocCursor;
|
||||
DocClear;
|
||||
Fs->draw_it=&DrawIt;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
t0=tMBeat;
|
||||
Play("3qEeACA2G3qCEC2G3E",
|
||||
"Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
|
||||
Play("EeACA2G3qCEC2G3E",
|
||||
"Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
|
||||
Play("GCGBEeDFCAqD",
|
||||
"It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
|
||||
Play("GCGBEeDFCAqD",
|
||||
"It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,54 @@
|
||||
//9 has graphics
|
||||
|
||||
F64 t0;
|
||||
#define HORIZON_Y 50
|
||||
#define LEFT_EDGE 200
|
||||
|
||||
U0 DrawIt(CTask *task,CDC *dc)
|
||||
{
|
||||
I64 i;
|
||||
F64 dt=tMBeat-t0,d=Limit(0.1*dt,0,2),d2;
|
||||
|
||||
dc->color=ROPF_PROBABILITY_DITHER+LTCYAN<<16+CYAN;
|
||||
for (i=HORIZON_Y;i>=0;i--) {
|
||||
d2=ToF64(HORIZON_Y-i)/HORIZON_Y;
|
||||
dc->dither_probability=1<<16*Limit((4.0-d2)/4.0*d*d-0.15,0,1.0);
|
||||
GrLine(dc,LEFT_EDGE,i,task->win_pixel_width-1,i);
|
||||
}
|
||||
|
||||
d=(task->win_pixel_width-LEFT_EDGE)/2+LEFT_EDGE;
|
||||
dc->color=YELLOW;
|
||||
GrCircle(dc,d,HORIZON_Y+50-dt,40);
|
||||
GrFloodFill(dc,d,HORIZON_Y+15-dt,TRUE);
|
||||
|
||||
dc->color=GREEN;
|
||||
GrRect(dc,200,HORIZON_Y,task->win_pixel_width-200,task->win_pixel_height-HORIZON_Y);
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||||
Fs->draw_it=&DrawIt;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.500;
|
||||
music_stacatto_factor= 0.900;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
t0=tMBeat;
|
||||
Play("3qB!eB2G!3qA!!eF!!AsF!AFA!!qC2sG!3A!2G3ARBRB",
|
||||
"New \0day \0is \0born.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qB!eB2G!3qA!!eF!!AsF!AFA!!qC2sG!3A!2G3ARBRB",
|
||||
"Though \0it's \0the \0mourn',\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("!eDDR!!CqG!2eGR3qE!!etEA!!FqCsDGDG",
|
||||
"cheer-\0up \0 \0the \0heart\n\0 \0 \0 \0 \0 \0 \0 \0 \0as \0 \0you \0");
|
||||
Play("!eDDR!!CqG!2eGR3qE!!etEA!!FqCsDGDG",
|
||||
"hitch-\0up \0 \0the \0cart.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qEsCDCDqCDeEGsEBEBeCBsDADA",
|
||||
"Be \0like \0 \0a \0 \0child \0 \0 \0 \0some \0 \0re\0 \0spect.\n\0 \0 \0 \0 \0 \0");
|
||||
Play("qEsCDCDqCDeEGsEBEBeCBsDADA",
|
||||
"Ma\0tur\0 \0i\0 \0ty \0 \0 \0 \0don't \0 \0ne\0 \0glect.\n\0 \0 \0 \0 \0 \0");
|
||||
Play("eBDqF2sG3A2G3AqAAAetDAAsDBDB");
|
||||
Play("eBDqF2sG3A2G3AqAAAetDAAsDBDB");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,24 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qBAeEE!qAeA!EDB!2qG3F",
|
||||
"$$FG,RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
|
||||
Play("BAeEE!qAeA!EDB!2qG3F",
|
||||
"You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n$$FG$$\0");
|
||||
Play("!4eFG!!qDetF!E!D!eD!EetADEC3G4GqD3G",
|
||||
"Pat\0ron\0ize? \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
|
||||
Play("!4eFG!!qDetF!E!D!eD!EetADEC3G4GqD3G",
|
||||
"Pat\0ron\0ize? \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,30 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 3.966;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qABeCCqABAAR",
|
||||
"What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
|
||||
Play("ABeCCqABAAR",
|
||||
"What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
|
||||
Play("DeCCCCqCDCCR",
|
||||
"Do \0You \0 \0think \0 \0 \0I'll \0app\0laud?\n\0 \0");
|
||||
Play("ABeCCqABAAR",
|
||||
"What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
|
||||
Play("GD!G!!eGA2G3FqF!!eDRqB",
|
||||
"$$FG,RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
|
||||
Play("GD!G!!eGA2G3FqF!!eDRqB",
|
||||
"Are \0 \0you \0 \0 \0 \0a \0 \0fan?\n$$FG$$\0 \0 \0");
|
||||
"$$FG,GREEN$$(If God talks, how can you be sure it's not Him?\n"
|
||||
"You can't, so harden not your heart.)\n$$FG$$";
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,32 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK-A,"BF:Luke,12:16"$\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("3etGREqDDBRGCB",
|
||||
"It \0 \0de\0pends \0 \0on \0 \0the \0wea\0ther.\n\0");
|
||||
Play("etGREqDDBRGCB",
|
||||
"If \0 \0we \0reach \0 \0the \0 \0end \0ev\0er.\n\0");
|
||||
Play("2sG3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
|
||||
"Hand \0 \0of \0 \0God, \0 \0just \0 \0might, \0 \0in\0 \0ter\0 \0cedes.\n\0 \0 \0 \0 \0 \0");
|
||||
Play("2G3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
|
||||
"If \0 \0it's \0 \0not \0 \0deemed \0 \0right, \0 \0won't \0 \0suc\0 \0ceed.\n\0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,24 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("M9/8");
|
||||
Play("W13hDeFhDeFhDC");
|
||||
Play("FeDhFeDhFE");
|
||||
Play("M4/4");
|
||||
Play("qD!!2G3AeBF!FE2qG!!3D!!A",
|
||||
" \0 \0 \0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
|
||||
Play("D!!2G3AeBF!FE2qG!!3D!!A",
|
||||
" \0 \0 \0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("3sEAEAeFFsA2G3A2G3FGFGqCCBA",
|
||||
"All \0 \0 \0 \0hell \0 \0breaks \0 \0 \0 \0loose.\n\0 \0 \0 \0I \0will \0get \0through.\n\0");
|
||||
Play("sEAEAeFFsA2G3A2G3FGFGqCCBA",
|
||||
"All \0 \0 \0 \0hell \0 \0breaks \0 \0 \0 \0loose.\n\0 \0 \0 \0I \0will \0get \0through.\n\0");
|
||||
Play("ACeCCsBBBBqEsCCCCqAE");
|
||||
Play("ACeCCsBBBBqEsCCCCqAE");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,26 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("M3/4");
|
||||
Play("W13eECqAAeECqAA",
|
||||
"I \0hate \0you.\n\0 \0I \0hate \0you.\n\0 \0");
|
||||
Play("eDCqAAeECqAR",
|
||||
" \0 \0 \0 \0I \0hate \0you.\n\0 \0");
|
||||
Play("M6/8");
|
||||
Play("etAB!GqCsGEGE!!etGBDqCsCD!CD",
|
||||
"$$FG,RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("etAB!GqCsGEGE!!etGBDqCsCD!CD",
|
||||
"Don't \0 \0 \0smile.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,16 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
while (TRUE) {
|
||||
Play("et2G32G3Gq2G3qCq2G3sFAFAq2G3etGDAqA",
|
||||
"Don't \0 \0need \0 \0help. \0 \0Got \0 \0it \0 \0all \0figured \0 \0 \0out.\n\0");
|
||||
Play("et2G32G3Gq2G3qCq2G3sFAFAq2G3etGDAqA",
|
||||
"Don't \0 \0need \0 \0help. \0 \0Got \0 \0it \0 \0all \0figured \0 \0 \0out.\n\0");
|
||||
Play("etCCCq2G3qDeDFetCF2G3qBeGFsAGAG");
|
||||
Play("etCCCq2G3qDeDFetCF2G3qBeGFsAGAG");
|
||||
}
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,24 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qA!!sDGD!!GqAsCA!CAeCBsFDF!D!!etCGAsAD!A!!D",
|
||||
" \0I\0mag\0 \0ine.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qA!!sDGD!!GqAsCA!CAeCBsFDF!D!!etCGAsAD!A!!D",
|
||||
" \0 \0Fa\0 \0thom.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("!!GF!G!!FE!!BE!BeCB2qG3sFAFAqCEA",
|
||||
"Hi-\0 \0i-\0gh \0as \0 \0your \0 \0thoughts \0will \0go.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("!!sGF!G!!FE!!BE!BeCB2qG3sFAFAqCEA",
|
||||
"Stu-\0 \0u-\0ck \0on \0 \0this \0 \0Earth \0be\0low.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("2qG3sDADAeF2G3etFDCBA2G3qAetGFC2eG3E",
|
||||
" \0Let's \0 \0try. \0 \0 \0 \0O\0oh\0 \0h. \0 \0 \0 \0Didn't \0 \0 \0work.\n\0 \0");
|
||||
Play("2qG3sDADAeF2G3etFDCBA2G3qAetGFC2eG3E",
|
||||
" \0Let's \0 \0try. \0 \0 \0 \0O\0oh\0 \0h. \0 \0 \0 \0Didn't \0 \0 \0work.\n\0 \0");
|
||||
Play("sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
|
||||
Play("3sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,22 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
"$$FG,GREEN$$To God...$$FG$$\n";
|
||||
Play("M5/4");
|
||||
Play("W13eEqCeEFEDCqBeEqCeEFEDCqB",
|
||||
"Fa\0ther, \0for\0give \0them \0if \0you \0must.\n\0I'd \0like \0to \0see \0them \0turn \0to \0dust.\n\0");
|
||||
Play("M4/4");
|
||||
Play("sGBGBetAF!2G3eEF!sEGEGqDsB!!D!BDGFGF2etG3GB");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,42 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.500;
|
||||
music_stacatto_factor= 0.900;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$$WW+H,1$$You get what you pray for. "
|
||||
"Most people are fools like King Midas. People have laughable notions of Heaven. "
|
||||
"You'd be surprised -- I can't imagine things being much better than Earth "
|
||||
"because we need a sense of purpose. "
|
||||
"Don't ask for stuff, let God pick, but He might get annoyed at that. "
|
||||
"God wants us to be happy. He tries hard. If you do get what you pray for, you damn "
|
||||
"well better be happy, lil' sonfabitch!\n\n"
|
||||
"$LK,"Ecclesiastes,3:13","BF:Ecclesiastes,3:13"$\n"
|
||||
"$LK,"John,16:24","BF:John,16:24"$\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("W13qBeCDqCAetAACeECsF2G3F2GqG",
|
||||
"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
|
||||
Play("3BeCDqCAetAACeECsF2G3F2GqG",
|
||||
"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
|
||||
Play("3etEDDDGABG2GeG3E2G3GqF2G3etGCD",
|
||||
"He \0 \0 \0told \0 \0 \0me \0 \0 \0 \0to \0 \0be \0hap\0py.\n\0 \0 \0 \0");
|
||||
Play("EDDDGABG2GeG3E2G3GqF2G3etGCD",
|
||||
"He \0 \0 \0said \0 \0 \0to \0 \0 \0 \0make \0 \0it \0snap\0py.\n\0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,39 @@
|
||||
//9 has graphics
|
||||
|
||||
|
||||
U0 DrawIt(CTask *task,CDC *dc)
|
||||
{
|
||||
I64 i,cx=0.85*task->win_pixel_width,cy=task->win_pixel_height+10;
|
||||
dc->pen_width=5;
|
||||
for (i=2;i<=7;i++) {
|
||||
dc->color=gr_rainbow_10[9-i];
|
||||
GrCircle3(dc,cx,cy,0,(i+5)*5);
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||||
Fs->draw_it=&DrawIt;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
DocClear;
|
||||
"$$BG,LTCYAN$$$$FG,BLACK$$";
|
||||
Play("3eEDsBABA2qG3etGECFDBECFCBReBE",
|
||||
"Come \0and \0sing \0 \0a\0 \0long. \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0\n\0 \0 \0 \0");
|
||||
Play("EDsBABA2qG3etGECFDBECFCBReBE",
|
||||
"Of\0fer \0praise \0 \0to \0 \0God. \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0\n\0 \0 \0 \0");
|
||||
Play("qBeDF2qG3eFRqBetFFGeACDF",
|
||||
"Up \0in \0His \0hea\0ven \0 \0He \0is \0 \0 \0glor\0i\0ous.\n\0 \0");
|
||||
Play("qBeDF2qG3eFRqBetFFGeACDF",
|
||||
"Break \0in\0to \0song. \0 \0 \0Strike-\0up \0 \0 \0the \0chor\0us.\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,62 @@
|
||||
//8 has graphics
|
||||
|
||||
U0 DrawIt(CTask *,CDC *dc)
|
||||
{
|
||||
I64 i;
|
||||
F64 dt=tMBeat%8.0,z,w,x1,y1,z1,x2,y2,z2;
|
||||
Bool first=TRUE;
|
||||
DCAllocDepthBuf(dc);
|
||||
dc->flags|=DCF_TRANSFORMATION;
|
||||
dc->x=30*dt+20.0*Sin(dt)+25;
|
||||
dc->y=10*dt-15;
|
||||
dc->z=GR_Z_ALL;
|
||||
GrRotXEqu(dc->r,0.75*dt);
|
||||
GrRotYEqu(dc->r,0.45*dt);
|
||||
GrRotZEqu(dc->r,0.50*dt);
|
||||
GrScaleMatEqu(dc->r,0.5);
|
||||
for (i=-50;i<40;i+=2) {
|
||||
if (i&2)
|
||||
dc->color=LTGRAY;
|
||||
else
|
||||
dc->color=DKGRAY;
|
||||
z=10*Cos(i/10.0*ã/8.0)*Cos(dt);
|
||||
w=Tri(100+i,200);
|
||||
x1=i-3;y1=0;z1=z;
|
||||
if (-30<=i<=40) {
|
||||
GrLine3(dc,i,-10*w,z,i-3,0,z);
|
||||
GrLine3(dc,i,+10*w,z,i-3,0,z);
|
||||
}
|
||||
if (!first) {
|
||||
dc->color=DKGRAY;
|
||||
GrLine3(dc,x1,y1,z1,x2,y2,z2);
|
||||
}
|
||||
x2=x1;y2=y1;z2=z1;
|
||||
first=FALSE;
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
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 {
|
||||
"$$BG+H,LTCYAN$$";
|
||||
while (!ScanKey) {
|
||||
Play("W13qE!AA!etF2G3G!qDF!!etFE!D2eG!3G",
|
||||
"A\0dam... \0 \0no \0 \0 \0long\0er \0sees \0Your \0face.\n\0 \0 \0");
|
||||
Play("qE!AA!etF2G3G!qDF!!etFE!D2eG!3G",
|
||||
"Oh! \0 \0 \0What \0 \0a \0wretch\0ed \0bar\0ren \0waste!\n\0 \0 \0");
|
||||
Play("qACFeB!CB2GqG3E!D",
|
||||
" \0 \0 \0 \0 \0 \0 \0 \0Ex\0iled.\n\0");
|
||||
Play("ACFeB!CB2GqG3E!D");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,37 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
task=PopUpViewStr(
|
||||
"$LK-A,"BF:Luke,7:42"$\n"
|
||||
"\n"
|
||||
"Prodigal Son\n"
|
||||
"$LK-A,"BF:Luke,15:21"$\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);
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
"$$WW+H,1$$";
|
||||
while (!ScanKey) {
|
||||
Play("3qGGsEAEAqAsF2G3F2G3qCeEFqD",
|
||||
"Life, \0life, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
|
||||
Play("GGsEAEAqAsF2G3F2G3qCeEFqD",
|
||||
"Waaa, \0waaa, \0isn't \0 \0 \0 \0fair. \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
|
||||
Play("eFCqEBDBE2eG3EsFEFE",
|
||||
" \0 \0I \0 \0ne\0ver \0sin.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
Play("eFCqEBDBE2eG3EsFEFE",
|
||||
" \0 \0I \0 \0ne\0ver \0win.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
"$$FG,GREEN$$(A warning on presumption. 'Who loves more man -- forgiven big debt or little?' See prodigal son.)$$FG$$\n";
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.857;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13eEDEFqDDeEDEDqCC");
|
||||
Play("eD2G3BCqDsGGGGeD2G3BCqDsGGGG");
|
||||
Play("qF!FFetREA!qG!sG!FG!!F!GEGEqC");
|
||||
Play("F!FFetREA!qG!sG!FG!!F!GEGEqC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.758;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sDDeBCsAAeB2G3A2F3sCCeDsFFeEsFFEEeDE");
|
||||
Play("sDDeBCsAAeB2G3A2F3sCCeDsFFeEsFFEEeDE");
|
||||
Play("sGBGB2etG3EGqF!!ED2G3eBA!DG");
|
||||
Play("sGBGB2etG3EGqF!!ED2G3eBA!DG");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//8 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.714;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sBBBBEBDBeEBqDeBBEDEBqD");
|
||||
Play("sFEFEeFEDBqDeEFEBABqD");
|
||||
Play("eDGqEeBAABqF!eBD!qE!A");
|
||||
Play("eDGqEeBAABqF!eBD!qE!A");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,24 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 1.930;
|
||||
music_stacatto_factor= 0.604;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sEqAsDeCqAsEqAsDeCqAsDeEqEsE",
|
||||
"Jes\0us \0kind \0of \0freaks,\n\0Jes\0us \0kind \0of \0freaks,\n\0are \0dif\0ferent \0 \0");
|
||||
Play("eDqCsDeCqBsBeBqAetBED!qBeC!B",
|
||||
"from \0 \0oth\0er\n\0 \0 \0peo\0ple.\n\0 \0 \0 \0 \0They \0don't \0");
|
||||
Play("2qGeG!3FsCDC!!DqFetB!ACBED!qBeC!B",
|
||||
"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0They \0don't \0");
|
||||
Play("2qGeG!3FsCDC!!DqFetB!AC",
|
||||
"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,34 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Romans,8:28","BF:Romans,8:28"$\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("W13qEEBeBDsBBB!BqDsBFB!!FD2G3D!2G",
|
||||
"Free \0will... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0fail.\n\0 \0 \0 \0");
|
||||
Play("3qEEBeBDsBBB!BqDsBFB!!FD2G3D!2G",
|
||||
"God \0still... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0hail.\n\0 \0 \0 \0");
|
||||
Play("3qD2G3eA2G3qCetEC!AqBsA!!C!ACqA",
|
||||
"All \0things \0work \0for \0good... \0to \0the \0Lord.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
Play("D2G3eA2G3qCetEC!AqBsA!!C!ACqA",
|
||||
"It's \0all \0good... \0 \0 \0as\0 \0sured.\n\0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.758;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qBeABqA2G3AB2hG");
|
||||
Play("3sCCCCqBsAAAA2qG3sCCCCqE2GR");
|
||||
Play("!!3sBDB!!DA2G!3A2G!!3etAA!EsGCGCetFFEqDFeE2G");
|
||||
Play("!!3sBDB!!DA2G!3A2G!!3etAA!EsGCGCetFFEqDFeE2G");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,35 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"Asking God for stuff is like knocking on the door\n"
|
||||
"of a neighbor in the middle of the night.\n"
|
||||
"It's annoying! We're supposed to love God!\n"
|
||||
"$LK-A,"BF:Luke,11:5"$\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("3qBBE2GG3FFC",
|
||||
"We \0are \0in \0the \0image \0of \0God.\n\0 \0");
|
||||
Play("BBE2GG3FFC",
|
||||
"Some \0people's \0prayer \0is \0ver\0y \0odd.\n\0 \0");
|
||||
Play("eGDqCB2G3eGEqEC2G",
|
||||
"They \0don't \0love \0Him.\n\0 \0They \0love \0their \0neigh\0bor.\n\0");
|
||||
Play("3eGDqCB2G3eGEqEC2G",
|
||||
"Pest\0er\0ing \0Him.\n\0 \0Ask\0ing \0for \0fav\0ors.\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W12q.GeG3qB2GG3A2GeFF");
|
||||
Play("q.GeG3qB2GG3A2GeFF");
|
||||
Play("3CD!qGB!AF!C!FeDB");
|
||||
Play("CD!qGB!AF!C!FeDB");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.151;
|
||||
music_stacatto_factor= 0.780;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13eCsBBeA#BCDCBCsBBeA#BCDCB");
|
||||
Play("etDCBeCBCBABetDCBeCBCBAB");
|
||||
Play("!A2G!3sBG!B!GFC!FCBFBFetF!GAsFGF!G!qG!D",
|
||||
"I \0have \0kept \0 \0the \0 \0Lord's \0 \0day, \0 \0 \0 \0 \0 \0 \0 \0 \0all \0 \0 \0 \0day!\n\0 \0");
|
||||
Play("!eA2G!3sBG!B!GFC!FCBFBFetF!GAsFGF!G!qG!D",
|
||||
"O\0kay, \0 \0God... \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0where's \0 \0 \0is \0 \0my \0 \0pay?\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,33 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK-A,"BF:Matthew,19:16"$\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);
|
||||
"$$WW+H,1$$";
|
||||
while (!ScanKey) {
|
||||
Play("3eGAetCCCFFDqAeAAFAAFqG",
|
||||
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
|
||||
Play("eGAetCCCFFDqAeAAFAAFqG",
|
||||
"I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
|
||||
Play("EeEGqEeEEqDBetCCGqC",
|
||||
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
|
||||
Play("EeEGqEeEEqDBetCCGqC",
|
||||
"What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
|
||||
"$$FG,GREEN$$(Christ said sell all and follow me.)\n$$FG$$";
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,59 @@
|
||||
//8 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.976;
|
||||
music_stacatto_factor= 0.538;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qEDCDeEEqEeDDqD");
|
||||
Play("EDCDeEEqEeDDqD");
|
||||
Play("eD!!AsFDF!DqFsFBFB2qG3etBB!BqFC");
|
||||
Play("eD!!AsFDF!DqFsFBFB2qG3etBB!BqFC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,52 @@
|
||||
//8 has graphics
|
||||
|
||||
U0 DrawIt(CTask *task,CDC *dc)
|
||||
{
|
||||
F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=tMBeat,
|
||||
cx=335,cy=task->win_pixel_height>>1;
|
||||
Bool first=TRUE;
|
||||
|
||||
radius=cy*(1.0+Sin(2*ã*t));
|
||||
pedals=8;
|
||||
|
||||
dc->color=BLACK;
|
||||
for (é=0;é<2*ã;é+=2*ã/100) {
|
||||
P2R(&x2,&y2,radius*Abs(Sin(pedals/2*é))+5,é+t);
|
||||
if (!first)
|
||||
GrLine(dc,x1+cx,cy-y1,x2+cx,cy-y2);
|
||||
else {
|
||||
first=FALSE;
|
||||
x3=x2; y3=y2;
|
||||
}
|
||||
x1=x2; y1=y2;
|
||||
}
|
||||
GrLine(dc,x1+cx,cy-y1,x3+cx,cy-y3);
|
||||
|
||||
dc->color=(2*t)%16;
|
||||
GrFloodFill(dc,cx,cy);
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
||||
Fs->draw_it=&DrawIt;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (TRUE) {
|
||||
Play("qBq2G3sGAGAetCBBqAq2G3sBBBBeFE",
|
||||
"I \0am \0feeling \0 \0 \0 \0 \0 \0brave.\n\0");
|
||||
Play("qBq2G3sGAGAetCBBqAq2G3sBBBBeFE",
|
||||
"I \0am \0feeling \0 \0 \0 \0 \0 \0brave.\n\0");
|
||||
Play("qCsDEDEq2G3qDqBqAqGq2G3",
|
||||
"Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
|
||||
Play("qCsDEDEq2G3qDqBqAqGq2G3",
|
||||
"Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,23 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
"$$WW+H,1$$";
|
||||
while (!ScanKey) {
|
||||
Play("3qAAsG2G3G2G3qGF2eG3FqEetCBA",
|
||||
"Let's \0ask \0Mike\0 \0 \0 \0y; \0Hates \0 \0every\0thing.\n\0 \0 \0 \0");
|
||||
Play("qAAsG2G3G2G3qGF2eG3FqEetCBA",
|
||||
"Let's \0ask \0Mike\0 \0 \0 \0y; \0Hates \0 \0every\0thing.\n\0 \0 \0 \0");
|
||||
Play("2eG3GqE2eG3FqF2sG3G2G3GqAetGEBqD",
|
||||
"What \0do \0YOU \0 \0 \0know. \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\n\0");
|
||||
Play("2eG3GqE2eG3FqF2sG3G2G3GqAetGEBqD",
|
||||
"What \0do \0YOU \0 \0 \0know. \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
//9 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sC!G!CG!!etA!DD2sG!3G2G3G!F!A!!FADD!!DD!qGsB2G3B2G3qG");
|
||||
Play("sC!G!CG!!etA!DD2sG!3G2G3G!F!A!!FADD!!DD!qGsB2G3B2G3qG");
|
||||
Play("eG!2G3qEeAsA2G3qAsEAEAD!E!!DEqFeA!2G");
|
||||
Play("3G!2G3qEeAsA2G3qAsEAEAD!E!!DEqFeA!2G");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("2eG3DGDqGetA2G3B2qG3GCE",
|
||||
" \0 \0 \0 \0 \0 \0 \0 \0 \0It's \0ko\0sher.\n\0");
|
||||
Play("2eG3DGDqGetA2G3B2qG3GCE",
|
||||
" \0 \0 \0 \0 \0 \0 \0 \0 \0It's \0ko\0sher.\n\0");
|
||||
Play("C2G3sGFGFDCDCetE2G3CGFAqDeFC");
|
||||
Play("qC2G3sGFGFDCDCetE2G3CGFAqDeFC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("qRsR2GRGeGR3qA2etG3EEqEeDCB2G",
|
||||
" \0 \0He \0 \0is \0 \0 \0our \0 \0 \0 \0per\0son\0al \0sav\0ior.\n\0");
|
||||
Play("qRsRGRGeGR3qA2etG3EEqEeDCB2G",
|
||||
" \0 \0We \0 \0can \0ne\0 \0ver \0 \0 \0 \0re\0turn \0the \0fav\0or.\n\0");
|
||||
Play("3CBBGsF2G3F2G3qBsBBBB2eG3AetBBGeBF",
|
||||
" \0 \0 \0That's \0 \0O.\0 \0K. \0 \0 \0 \0 \0 \0 \0 \0works \0 \0 \0for \0me.\n\0");
|
||||
Play("CBBGsF2G3F2G3qBsBBBB2eG3AetBBGeBF",
|
||||
" \0 \0 \0That's \0 \0O.\0 \0K. \0 \0 \0 \0 \0 \0It's \0 \0works \0 \0 \0for \0me.\n\0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.780;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13eCDBCA2FFF3C2F3E2F3A2F3sEEeD");
|
||||
Play("F2FFF3qCeF2F3F2FFF3qCeF2F");
|
||||
Play("!3qG!sEAEAqB!etDC!F2qG3D!sGDGDetCRC");
|
||||
Play("!qG!sEAEAqB!etDC!F2qG3D!sGDGDetCRC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,16 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
while (TRUE) {
|
||||
Play("qCqAqAsEDEDqBqBetGGEs2G3C2G3C");
|
||||
Play("qCqAqAsEDEDqBqBetGGEs2G3C2G3C");
|
||||
Play("etCD2G3etEE2G3qFqFqAsACACsAFAFetECC",
|
||||
"In \0my \0 \0corn\0 \0 \0er? \0 \0 \0 \0 \0 \0 \0Hope \0we're \0right.\n\0");
|
||||
Play("etCD2G3etEE2G3qFqFqAsACACsAFAFetECC",
|
||||
"In \0my \0 \0corn\0 \0 \0er? \0 \0 \0 \0 \0 \0 \0Hope \0we're \0right.\n\0");
|
||||
}
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,21 @@
|
||||
//8 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 3.360;
|
||||
music_stacatto_factor= 0.846;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("M5/4");
|
||||
Play("W12qGGG3qtCBA2qGGG3qtCetBBqtA");
|
||||
Play("qEeCCqDqtCBAM4/4");
|
||||
Play("qD!eA!2G3DG2G3DF!FAC!!2qG3eAE");
|
||||
Play("qD!eA!2G3DG2G3DF!FAC!!2qG3eAE");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,22 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("3sF2G3F2G3eGDA2GqG3eEDsAAAA2eG3FsFGFG",
|
||||
"In \0 \0the \0 \0twi\0light \0zone,\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("F2G3F2G3eGDA2GqG3eEDsAAAA2eG3FsFGFG",
|
||||
"keep \0 \0a \0 \0friend\0ly \0tone.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("C2G3C2G3qFG2GG3sGDGDqGsDCDC",
|
||||
"Mind \0 \0in \0 \0knots? \0 \0 \0 \0Skip \0 \0de \0 \0bait.\n\0 \0 \0 \0 \0");
|
||||
Play("C2G3C2G3qFG2GG3sGDGDqGsDCDC",
|
||||
"Watch \0 \0those \0 \0thoughts. \0 \0 \0 \0Head \0 \0on \0 \0straight.\n\0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,39 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
task=PopUpViewStr(
|
||||
"$$WW+H,1$$$LK-A,"BF:Matthew,6:11"$\n\n"
|
||||
"I find two things interesting. Jesus asks for "
|
||||
"the bare minimum... can't ask for less than daily bread. "
|
||||
"Also, He actually demands it. I find that funny.\n\n"
|
||||
"$LK-A,"BF:Matthew,10:31"$\n\n"
|
||||
"I have a funny story. I used to shoot birds with a BB-gun. "
|
||||
"That passage didn't snd so comforting!! How many sparrows "
|
||||
"am I worth?\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);
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("3qGsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
|
||||
"Where's \0my \0 \0 \0next \0 \0 \0meal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("GsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
|
||||
"God, \0we \0 \0 \0had \0 \0a \0deal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("B2GsG3A2G3AeCCsCECEqACsGFGF",
|
||||
"Day \0old \0bread?\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qB2GsG3A2G3AeCCsCECEqACsGFGF",
|
||||
"'Dai\0ly' \0I \0 \0 \0 \0said.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,24 @@
|
||||
//9 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 1.820;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13eC2G3DDEDqCeEEGFGFqE",
|
||||
"Sit\0ting \0 \0 \0on \0the \0fence,\n\0is \0 \0 \0 \0no \0de\0fence.\n\0");
|
||||
Play("sFFeGFEFEqDsCCeDCBqBB",
|
||||
"Is \0this \0seat \0 \0 \0tak\0 \0en?\n\0An\0 \0y\0one \0op\0 \0pose?\n\0");
|
||||
Play("etB2GG!3qE!2eG3F!EEetFBA!qFDetF!CC",
|
||||
"Take \0 \0a \0step.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("B2GG!3qE!2eG3F!EEetFBA!qFDetF!CC",
|
||||
"Take \0 \0the \0step,\n\0 \0 \0 \0 \0 \0 \0 \0not \0back.\n\0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,19 @@
|
||||
//9 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 1.710;
|
||||
music_stacatto_factor= 0.736;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D");
|
||||
Play("qD2sG3G2G3G!etGDAeF2GqG3etF!BA!!EACE!CE");
|
||||
Play("qD2sG3G2G3G!etGDAeF2GqG3etF!BA!!EACE!CE");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,21 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 1.930;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("M9/8");
|
||||
Play("W13qAeCBAq.CsAAqAeCBA2q.G3sBC");
|
||||
Play("qAeDCAhBeFsEEeDq.CM4/4");
|
||||
Play("sAFAFeF!!2GsG3B2G!!3BqGeA!sAAetEGDE2G!3DeGsGG");
|
||||
Play("AFAFeF!!2GsG3B2G!!3BqGeA!sAAetEGDE2G!3DeGsGG");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,89 @@
|
||||
//9 has graphics
|
||||
|
||||
/*
|
||||
This is one of the oldest songs. I picked
|
||||
the random name "risen" and said to God
|
||||
"Oh, you're ambitious," thinking it was
|
||||
an epic name. He laughed and gave an
|
||||
epic song!
|
||||
*/
|
||||
|
||||
F64 t0=tMBeat;
|
||||
|
||||
#define WING 6
|
||||
#define BODY 2
|
||||
|
||||
U0 Bird(CDC *dc,F64 wing_é)
|
||||
{
|
||||
CD3I32 p[3];
|
||||
dc->color=WHITE;
|
||||
|
||||
p[0].x=0; p[0].y=0; p[0].z=-BODY;
|
||||
p[1].x=0; p[1].y=0; p[1].z=BODY;
|
||||
p[2].x=-WING*Cos(wing_é); p[2].y=-WING*Sin(wing_é); p[2].z=0;
|
||||
GrFillPoly3(dc,3,p);
|
||||
|
||||
p[0].x=0; p[0].y=0; p[0].z=-BODY;
|
||||
p[1].x=0; p[1].y=0; p[1].z=BODY;
|
||||
p[2].x=WING*Cos(wing_é); p[2].y=-WING*Sin(wing_é); p[2].z=0;
|
||||
GrFillPoly3(dc,3,p);
|
||||
|
||||
dc->color=ROPF_DITHER+WHITE<<16+LTGRAY;
|
||||
GrLine3(dc,0,0,-BODY,0,0,BODY);
|
||||
}
|
||||
|
||||
#define NUM_BIRDS 7
|
||||
#define RANGE 5
|
||||
|
||||
F64 bx[NUM_BIRDS],by[NUM_BIRDS];
|
||||
|
||||
U0 DrawIt(CTask *,CDC *dc)
|
||||
{
|
||||
I64 i;
|
||||
F64 é,dt=tMBeat-t0;
|
||||
DCAllocDepthBuf(dc);
|
||||
dc->x=325;
|
||||
dc->y=95;
|
||||
dc->z=GR_Z_ALL;
|
||||
dc->flags|=DCF_TRANSFORMATION;
|
||||
for (i=0;i<NUM_BIRDS;i++) {
|
||||
bx[i]=Limit(bx[i]+0.25*SignI64(RandI16),-RANGE,RANGE);
|
||||
by[i]=Limit(by[i]+0.25*SignI64(RandI16),-RANGE,RANGE);
|
||||
é=ã/2*i/NUM_BIRDS+0.2*ã*dt+ã/2;
|
||||
GrIdentEqu(dc->r);
|
||||
GrRotXEqu(dc->r,ã/2);
|
||||
GrRotZEqu(dc->r,é);
|
||||
GrSetTranslation(dc->r,50*Cos(é)+bx[i],50*Sin(é)+by[i],30*i/NUM_BIRDS+4*dt);
|
||||
GrRotXEqu(dc->r,0.35*ã);
|
||||
Bird(dc,Sin(2*ã*dt+i*2*ã/NUM_BIRDS));
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
I64 i;
|
||||
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;
|
||||
for (i=0;i<NUM_BIRDS;i++) {
|
||||
bx[i]=RANGE*RandI16/RANGE;
|
||||
by[i]=RANGE*RandI16/RANGE;
|
||||
}
|
||||
try {
|
||||
"$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
|
||||
while (!ScanKey) {
|
||||
t0=tMBeat;
|
||||
Play("W13eDEqFFetEEFqDeCDDEetCGF");
|
||||
Play("eDEqFFetEEFqDeCDDEetCGF");
|
||||
Play("eDCqDEeAAetEEFEDGBDCqF");
|
||||
Play("eDCqDEeAAetEEFEDGBDCqF");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,35 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Matthew,20:28","BF:Matthew,20:28"$\n"
|
||||
"$LK,"Mark,10:45","BF:Mark,10:45"$\n"
|
||||
"$LK,"John,13:14","BF:John,13:14"$\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) {
|
||||
"$$FG,GREEN$$Jesus talking...\n$$FG$$";
|
||||
Play("M6/8");
|
||||
Play("W13eAACADAADACAR",
|
||||
" \0 \0I \0 \0came \0 \0 \0to \0 \0serve.\n\0 \0 \0");
|
||||
Play("AACADAADACAR",
|
||||
" \0 \0I \0 \0give \0 \0 \0my \0 \0word.\n\0 \0 \0");
|
||||
Play("FG!etFEGA!!B!C!DA!C2qG!3sECEC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
//8 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13hDeDA2qG3hDeD2GqF");
|
||||
Play("3hDeD2sFG3qAhDeDA2qG");
|
||||
Play("3eC!!EsACACeD2G3qA!AFeE2G!3etFCC");
|
||||
Play("eC!!EsACACeD2G3qA!AFeE2G!3etFCC");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,25 @@
|
||||
//8 has words
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
|
||||
"Love \0 \0 \0 \0 \0 \0ev\0 \0ery \0 \0sec\0ond.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
|
||||
"World -- \0 \0 \0 \0 \0 \0all \0 \0that \0 \0beck\0ons.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("qBG!!FsEAEAqEFGeF!C",
|
||||
" \0Life \0is \0too \0 \0 \0 \0prec\0i\0ous.\n\0 \0 \0");
|
||||
Play("qBG!!FsEAEAqEFGeF!C",
|
||||
" \0Can \0be \0 \0 \0 \0 \0worr\0i\0ous.\n\0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,35 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Proverbs,11:25","BF:Proverbs,11:25"$\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("W12eG3CD!AqE!!sACACG!EGEqDsAAA!AetCDD",
|
||||
"Ple\0ase \0te\0ach \0me.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("2eG3CD!AqE!!sACACG!EGEqDsAAA!AetCDD",
|
||||
"Wa\0ter \0thi\0s \0tree.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("2qG!G3eEBqAGeFE!!sF!GFG!etD!BD",
|
||||
" \0 \0$$FG,RED$$I \0will \0teach \0thee.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("2qG!G3eEBqAGeFE!!sF!GFG!etD!BD",
|
||||
" \0 \0Wat\0er \0that \0tree.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,76 @@
|
||||
//7 has graphics
|
||||
|
||||
#define X 330
|
||||
#define Y 15
|
||||
|
||||
#define NUM_BEAMS 256
|
||||
|
||||
F64 beams_r[NUM_BEAMS],beams_é[NUM_BEAMS];
|
||||
|
||||
U0 DrawIt(CTask *,CDC *dc)
|
||||
{
|
||||
I64 i;
|
||||
F64 r,x1,y1,x2,y2;
|
||||
dc->color=YELLOW;
|
||||
GrCircle(dc,X,Y,10);
|
||||
GrFloodFill(dc,X,Y,10);
|
||||
dc->color=BROWN;
|
||||
GrCircle(dc,X,Y,10);
|
||||
dc->color=YELLOW;
|
||||
for (i=0;i<NUM_BEAMS;i++) {
|
||||
r=125.0*((0.25*tMBeat+beams_r[i])%1.0);
|
||||
P2R(&x1,&y1,r ,beams_é[i]);
|
||||
P2R(&x2,&y2,r+10.0,beams_é[i]);
|
||||
GrLine(dc,x1+X,y1+Y,x2+X,y2+Y);
|
||||
}
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
I64 i;
|
||||
CTask *task;
|
||||
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;
|
||||
for (i=0;i<NUM_BEAMS;i++) {
|
||||
beams_r[i]=Rand;
|
||||
beams_é[i]=2*ã*Rand;
|
||||
}
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Numbers,6:25","BF:Numbers,6:25"$\n"
|
||||
"$LK,"Psalms,31:16","BF:Psalms,31:16"$\n"
|
||||
"$LK,"Psalms,67:1","BF:Psalms,67:1"$\n"
|
||||
"$LK,"Psalms,80:3","BF:Psalms,80:3"$\n"
|
||||
"$LK,"Psalms,80:19","BF:Psalms,80:19"$\n"
|
||||
"$LK,"Psalms,119:135","BF:Psalms,119:135"$\n"
|
||||
"$LK,"Daniel,9:17","BF:Daniel,9:17"$\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);
|
||||
"$$BD+H,LTCYAN$$$$FD+H,BLACK$$";
|
||||
while (!ScanKey) {
|
||||
Play("W12qG3eCB2hGqG3eCB2qG3A",
|
||||
"Umm... \0God?\n\0 \0 \0Let \0Your \0 \0 \0 \0");
|
||||
Play("CeBA2G3DqEeDCBA2qG3A",
|
||||
"face \0shine \0on \0down\n\0on \0us, \0Your \0 \0luck\0y \0 \0peo\0");
|
||||
Play("eBA2h.G3qE!!CAF",
|
||||
" \0ple.\n\0 \0Fath\0e\0r \0a\0");
|
||||
Play("FD!A!eEDqE!!CAF",
|
||||
"bove,\n\0 \0 \0I \0 \0feel \0 \0 \0Your \0");
|
||||
Play("FD!A!eED",
|
||||
"love.\n\0 \0 \0 \0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
SettingsPop;
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,24 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13sC#C#D#D#C#C#CCC#C#D#D#C#C#CCEEDDC#C#DDEEDDC#C#DD",
|
||||
"Still \0 \0 \0 \0there.\n\0 \0 \0 \0Still \0 \0 \0 \0there.\n\0 \0 \0 \0Not \0 \0 \0 \0fair.\n\0 \0 \0 \0Not \0 \0 \0 \0fair.\n\0 \0 \0 \0");
|
||||
Play("C#C#D#D#C#C#CCC#C#D#D#C#C#CCEEDDC#C#DDEEDDC#C#DD",
|
||||
"Un\0 \0 \0 \0aware!\n\0 \0 \0 \0Un\0 \0 \0 \0aware!\n\0 \0 \0 \0Every\0 \0 \0 \0where!\n\0 \0 \0 \0Every\0 \0 \0 \0where!\n\0 \0 \0 \0");
|
||||
Play("eB!!DetFGAeF!EBE!etE!FEqCeFEDA",
|
||||
"$$FG,RED$$Running \0 \0 \0a\0way \0 \0 \0 \0 \0 \0from \0the \0Lord \0won't \0 \0work.\n\0 \0");
|
||||
Play("B!!DetFGAeF!EBE!etE!FEqCeFEDA",
|
||||
"Running \0 \0 \0a\0way \0 \0 \0 \0 \0 \0from \0the \0Lord \0won't \0 \0work.$$FG$$\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,25 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.260;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
"$$FG,GREEN$$As I look back on my sinful past...$$FG$$\n";
|
||||
Play("W13qCAABAeAECEqB",
|
||||
"Who \0was \0that \0per\0son? \0 \0It \0wasn't \0 \0me?\n\0");
|
||||
Play("CAABAeAECEqB",
|
||||
"Who \0was \0that \0per\0son? \0 \0It \0wasn't \0 \0me?\n\0");
|
||||
Play("etDEDqFetBEDeAFGEqFDE",
|
||||
"Sad \0to \0say, \0 \0I \0guess \0 \0it \0 \0was \0 \0 \0me.\n\0 \0");
|
||||
Play("etDEDqFetBEDeAFGEqFDE",
|
||||
"Sad \0to \0say, \0 \0I \0guess \0 \0it \0 \0was \0 \0 \0me.\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,49 @@
|
||||
//8 special
|
||||
U8 *bible;
|
||||
I64 size;
|
||||
|
||||
U0 TaskEndCB()
|
||||
{
|
||||
Snd(0);
|
||||
Free(bible);
|
||||
Exit;
|
||||
}
|
||||
|
||||
#define LEN 256
|
||||
|
||||
U0 PutVerse()
|
||||
{
|
||||
U8 *ch;
|
||||
I64 *start;
|
||||
|
||||
"$$CL$$";
|
||||
start=GetTimeStamp/16%size;
|
||||
if (start>size-LEN) start=size-LEN;
|
||||
ch=bible[start+LEN-1];
|
||||
bible[start+LEN-1]=0;
|
||||
"" bible+start;
|
||||
bible[start+LEN-1]=ch;
|
||||
}
|
||||
|
||||
U0 Song()
|
||||
{
|
||||
U8 *bible_filename=Define("ST_BIBLE_FILE");
|
||||
Fs->task_end_cb=&TaskEndCB;
|
||||
music_tempo=2.5;
|
||||
bible=FileRead(bible_filename,&size);
|
||||
"$$WW+H,1$$";
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
PutVerse;
|
||||
Play("3qAeABCBqCetABBqCetAAREE2G");
|
||||
Play("3qAeABCBqCetABBqCetAAREE2G");
|
||||
Play("3eDRRRqGReRRGGGGqE");
|
||||
Play("eDRRRqGReRRGGGGqE");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
Free(bible);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,22 @@
|
||||
//8 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W14etEEEqBetDDqtDqBetCCqtCqBhB");
|
||||
Play("etEEEqBetDDqtDqBetCCqtCqBhB");
|
||||
Play("etABCqDetBCCqDetDCBqAhA");
|
||||
Play("etABCqDetBCCqDetDCBqAhA");
|
||||
Play("!qAetC!!AEsG!!CGCetBC3G4ADAqAGetDAD");
|
||||
Play("!qAetC!!AEsG!!CGCetBC3G4ADAqAGetDAD");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,35 @@
|
||||
//7 has words
|
||||
U0 Song()
|
||||
{
|
||||
CTask *task;
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
music_tempo=2.5;
|
||||
try {
|
||||
task=PopUpViewStr(
|
||||
"$LK,"Mark,11:12","BF:Mark,11:12"$\n"
|
||||
"$LK,"Matthew,3:10","BF:Matthew,3:10"$\n"
|
||||
"$LK,"Matthew,25:18","BF:Matthew,25:18"$\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("2qG3sFEFEqDBEetCB2G3qFsBDBD",
|
||||
" \0Damn \0 \0 \0 \0 \0 \0fig \0 \0 \0 \0tree.\n\0 \0 \0 \0 \0");
|
||||
Play("2qG3sFEFEqDBEetCB2G3qFsBDBD",
|
||||
" \0On\0ly \0 \0 \0good \0 \0for \0a \0 \0 \0pee.\n\0 \0 \0 \0 \0");
|
||||
Play("qC2G3eFC2G3EqACDA",
|
||||
"Has \0no \0fruit.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
Play("C2G3eFC2G3EqACDA",
|
||||
"Kill \0the \0root.\n\0 \0 \0 \0 \0 \0 \0 \0");
|
||||
"$$FG,GREEN$$Be sure to bear 'fruit'.$$FG$$\n\n";
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,20 @@
|
||||
//7 no nothing
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.902;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
Play("W13qEDeCC!etEAAqEetCDCA!!GFqG");
|
||||
Play("EDeCC!etEAAqEetCDCA!!GFqG");
|
||||
Play("eGEetFDAqF!sGF!GF!G!!FG!F!etBGFqGeDE");
|
||||
Play("GEetFDAqF!sGF!GF!G!!FG!F!etBGFqGeDE");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
@@ -0,0 +1,26 @@
|
||||
//8 has words
|
||||
U0 Song()
|
||||
{
|
||||
Fs->task_end_cb=&SndTaskEndCB;
|
||||
MusicSettingsRst;
|
||||
music_tempo= 2.480;
|
||||
music_stacatto_factor= 0.802;
|
||||
try {
|
||||
while (!ScanKey) {
|
||||
DocClear;
|
||||
Play("W13qDsCCCCeBBCCqDsCCCCeBBCC",
|
||||
"I'm \0 \0 \0 \0 \0on \0my \0way.\n\0 \0Got \0a \0 \0 \0 \0bus\0y \0day.\n\0 \0");
|
||||
Play("sBBBBeAAsBA2G3AqAsBBBBeAAsBA2G3AqA",
|
||||
"Woe, \0 \0 \0 \0I \0for\0got \0 \0to \0 \0pray.\n\0What's \0 \0 \0 \0God \0 \0have \0 \0to \0 \0say?\n\0");
|
||||
"$$FG,GREEN$$God talking...\n$$FG$$";
|
||||
Play("AeB2G3GGqE2etG3F!B!eFGqFeEC",
|
||||
"$$FG,RED$$Oh, \0 \0 \0hi-\0a \0you!\n\0What\0ch\0u \0been \0 \0do\0ing?\n\0 \0");
|
||||
Play("qAeB2G3GGqE2etG3F!B!eFGqFeEC",
|
||||
"Oh, \0 \0 \0hi-\0a \0you!\n\0What\0ch\0u \0been \0 \0do\0ing?$$FG$$\n\0 \0");
|
||||
}
|
||||
} catch
|
||||
CatchAll;
|
||||
Snd(0);
|
||||
}
|
||||
|
||||
Song;
|
||||
Binary file not shown.
@@ -0,0 +1,26 @@
|
||||
$WW,1$$FG,5$$TX+CX,"Music Organ Help"$$FG$
|
||||
|
||||
* The keyboard can be used as an organ by typing letter keys or clicking the mouse on the keyboard diagram$FG$. You can "record" notes by pressing the red button and typing letters. They will appear on the musical staff. You can edit and save them.
|
||||
|
||||
* The clipboard can be used to cut and paste.
|
||||
|
||||
* $FG,2$MusicOrgan$FG$ uses $FG,2$C+$FG$ files as it's fmt! See $LK,"::/SparrowOS/Apps/MusicOrgan/Examples/personal.CPP.Z","FI:::/SparrowOS/Apps/MusicOrgan/Examples/personal.CPP.Z"$. It does not fully parse them when loading back in, so changes made outside $FG,2$MusicOrgan$FG$ can be lost.
|
||||
|
||||
* The first line of the $FG,2$C+$FG$ files has a comment with a category recognized by $LK,"JukeBox","FF:::/SparrowOS/Apps/MusicOrgan/JukeBox.CPP.Z,JukeBox"$(). The categories are $FG,2$"no nothing"$FG$, $FG,2$"has words"$FG$, $FG,2$"has graphics"$FG$, or $FG,2$"special"$FG$. The third character in the comment is a digit rating number.
|
||||
|
||||
* You can take the $LK,"Play","MN:Play"$() statements out of a song file and place them in your programs. You can also add a song to a document with $FG,2$<CTRL-L>$FG$, but you should do it after pressing $FG,2$<CTRL-T>$FG$ because the clipboard-insert in $FG,2$<CTRL-L>$FG$ is screwy. See this $SO,"<Song>","2qG3ECB2eGG3qCeFDsBGBG2qG3ECB2eGG3qCeFDsBGBGqEeEFqEB2eG3FetCAGqFCEeEFqEB2eG3FetCAGqFC"$ after pressing $FG,2$<CTRL-T>$FG$, now.
|
||||
|
||||
* You can call $LK,"JukeBox","FF:::/SparrowOS/Apps/MusicOrgan/JukeBox.CPP.Z,JukeBox"$("HOME/MusicOrgan"); to play your songs.
|
||||
|
||||
* To create a $FG,2$.SND$FG$ file which can be exported and played under Windows, set the $FG,2$Bool$FG$ $LK,"snd_record","MN:snd_record"$ to $FG,2$TRUE$FG$, play music, and set it to $FG,2$FALSE$FG$. Then, call $LK,"SndFileCreate","MN:SndFileCreate"$(). You might wish to make a $FG,2$<CTRL-ALT-key>$FG$ to toggle this system level recording feat. See $LK,"Snd","MN:Snd"$(). Add this code to your $LK,"HOME/Adam3dKeyPlugIns.CPP.Z","FI:HOME/Adam3dKeyPlugIns.CPP.Z"$ file.
|
||||
|
||||
|
||||
$FG,5$U0 CtrlAltR(I64)
|
||||
{
|
||||
snd_record=!snd_record;
|
||||
}
|
||||
SetCtrlAltLetCB('R',&CtrlAltR,"Toggle snd_record");$FG$
|
||||
|
||||
|
||||
* The note accent feat only works when exporting songs. When calling $LK,"SndFileCreate","MN:SndFileCreate"$() you can set a waveform. The PC speaker is $LK,"WF_SQUARE","MN:WF_SQUARE"$. You can select reverb and averaging, also.
|
||||
|
||||
@@ -0,0 +1 @@
|
||||
MkDir("HOME/MusicOrgan");
|
||||
@@ -0,0 +1,148 @@
|
||||
CTask *SingleSong(U8 *msg,U8 *name)
|
||||
{
|
||||
Bool old_preempt=Preempt(OFF);
|
||||
CTask *task=Spawn(&ServantUserCmdLine,NULL,name,Fs);
|
||||
LBts(&task->task_flags,TASKf_LOCK_TITLE);
|
||||
StrCpy(task->task_title,name);
|
||||
TaskRqstQue(task,Fs,";",1<<TASKCf_WAKE_MASTER);
|
||||
task->win_top=2;
|
||||
task->win_bottom=task->win_top+8;
|
||||
task->win_right=task->win_left+50;
|
||||
TaskDerivedValsUpdate(task);
|
||||
Preempt(old_preempt);
|
||||
TaskRqstQue(task,NULL,msg,1<<TASKCf_EXIT_ON_COMPLETE);
|
||||
DocCur(task)->max_entries=100;
|
||||
return task;
|
||||
}
|
||||
|
||||
#define JB_RUN_LEVEL_NULL 0
|
||||
#define JB_RUN_LEVEL_ONE 1
|
||||
#define JB_RUN_LEVEL_TWO 2
|
||||
|
||||
Bool JBPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
|
||||
{ //ch=ASCII; sc=scancode
|
||||
CDocEntry *doc_ce=doc->cur_entry,*doc_e;
|
||||
CDirEntry *tempm;
|
||||
CDoc *s;
|
||||
if (!(sc&(SCF_ALT|SCF_CTRL|SCF_SHIFT))
|
||||
&& doc_ce->type_u8==DOCT_MENU_VAL && doc_ce->left_exp>=0) {
|
||||
tempm=doc_ce->left_exp;
|
||||
if (sc.u8[0]==SC_DELETE ) {
|
||||
Beep;
|
||||
Silent(ON);
|
||||
Del(tempm->full_name);
|
||||
Silent(OFF);
|
||||
} else if ('0'<=ch<='9') {
|
||||
if (StrLen(doc_ce->tag)>1)
|
||||
doc_ce->tag[0]=ch;
|
||||
s=DocRead(tempm->full_name);
|
||||
doc_e=s->root.next;
|
||||
while (doc_e!=s && doc_e->type_u8!=DOCT_TEXT)
|
||||
doc_e=doc_e->next;
|
||||
if (doc_e!=s && doc_e->type_u8==DOCT_TEXT && StrLen(doc_e->tag)>=3) {
|
||||
doc_e->tag[2]=ch;
|
||||
DocWrite(s);
|
||||
}
|
||||
DocDel(s);
|
||||
return TRUE;
|
||||
} else if (ch==CH_SPACE||ch==CH_ESC)
|
||||
tempm->user_data++; //JB_RUN_LEVEL++
|
||||
//<SPACE BAR> is followed by <ESC> --> JB_RUN_LEVEL_TWO
|
||||
//Actual <ESC> just exits --> JB_RUN_LEVEL_ONE
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
public U0 JukeBox(U8 *dirname=NULL,U8 **_filename=NULL)
|
||||
{
|
||||
//_filename is for using this as a song-chooser program.
|
||||
I64 i=0,rating;
|
||||
U8 *st,*st2;
|
||||
CDirEntry *tempm,*tempm1;
|
||||
CDoc *doc=DocNew,*s;
|
||||
CDocEntry *doc_e;
|
||||
StrCpy(doc->desc,"JukeBox");
|
||||
CTask *task=NULL;
|
||||
if (_filename)
|
||||
*_filename=NULL;
|
||||
if (!dirname)
|
||||
dirname=StrNew("HOME/MusicOrgan");
|
||||
else
|
||||
dirname=StrNew(dirname);
|
||||
st=MSPrintF("%s/*.CPP.Z",dirname);
|
||||
tempm=FilesFind(st);
|
||||
Free(st);
|
||||
Free(dirname);
|
||||
doc->user_put_key=&JBPutKey;
|
||||
tempm1=tempm;
|
||||
DocPutS(doc,
|
||||
"Key: $$FG,GREEN$$Graphics $$FG,BLUE$$Words $$FG,RED$$No Nothing "
|
||||
"$$FG,BLACK$$Incomplete $$FG,CYAN$$Special$$FG$$\n\n"
|
||||
"$$FG,GREEN$$<DELETE>$$FG$$ to delete a song.\n"
|
||||
"Press a number to rate a song.\n");
|
||||
while (tempm1) {
|
||||
if (!(i++%5))
|
||||
DocPutS(doc,"\n");
|
||||
if (FileOcc("Play(",tempm1->full_name,"")) {
|
||||
st=StrNew(tempm1->name);
|
||||
FileExtRem(st);
|
||||
s=DocRead(tempm1->full_name);
|
||||
doc_e=s->root.next;
|
||||
while (doc_e!=s && doc_e->type_u8!=DOCT_TEXT)
|
||||
doc_e=doc_e->next;
|
||||
rating='0';
|
||||
if (doc_e!=s && doc_e->type_u8==DOCT_TEXT) {
|
||||
if ('0'<=doc_e->tag[2]<='9')
|
||||
rating=doc_e->tag[2];
|
||||
if (StrStr(doc_e->tag,"incomplete"))
|
||||
DocPutS(doc,"$$FM,BLACK$$");
|
||||
else if (StrStr(doc_e->tag,"has graphics"))
|
||||
DocPutS(doc,"$$FM,GREEN$$");
|
||||
else if (StrStr(doc_e->tag,"has words"))
|
||||
DocPutS(doc,"$$FM,BLUE$$");
|
||||
else if (StrStr(doc_e->tag,"special"))
|
||||
DocPutS(doc,"$$FM,CYAN$$");
|
||||
else if (StrStr(doc_e->tag,"no nothing")) {
|
||||
DocPutS(doc,"$$FM,RED$$");
|
||||
if (FileOcc("\\0",tempm1->full_name,"")) {
|
||||
s->cur_entry=doc_e->next;
|
||||
s->cur_data_col=0;
|
||||
DocEntryDel(s,doc_e);
|
||||
DocPutS(s,"//0 has words\n");
|
||||
DocWrite(s);
|
||||
}
|
||||
}
|
||||
DocPrintF(doc,"$$MU-UL,\"%c%-8ts\",%d$$ ",rating,st,tempm1);
|
||||
tempm1->user_data=JB_RUN_LEVEL_NULL;
|
||||
}
|
||||
DocDel(s);
|
||||
Free(st);
|
||||
}
|
||||
tempm1=tempm1->next;
|
||||
}
|
||||
DocPrintF(doc,"\n$$FM,CYAN$$$$MU-UL,\"DONE\",%d$$\n",DOCM_CANCEL);
|
||||
while (TRUE) {
|
||||
if (_filename)
|
||||
tempm1=PopUpMenu(doc,DOF_INTERCEPT_TASK_END);
|
||||
else
|
||||
tempm1=PopUpMenu(doc);
|
||||
if (task)
|
||||
Kill(task);
|
||||
if (tempm1<0) break;
|
||||
st2=StrNew(tempm1->name);
|
||||
if (_filename) {
|
||||
Free(*_filename);
|
||||
*_filename=StrNew(tempm1->full_name);
|
||||
}
|
||||
if (tempm1->user_data==JB_RUN_LEVEL_ONE) break; //<ESC>
|
||||
tempm1->user_data=JB_RUN_LEVEL_NULL; //Rst from <SPACE BAR>
|
||||
FileExtRem(st2);
|
||||
st=MSPrintF("ExeFile(\"%s\");",tempm1->full_name);
|
||||
MusicSettingsRst;
|
||||
task=SingleSong(st,st2);
|
||||
Free(st2);
|
||||
Free(st);
|
||||
}
|
||||
DocDel(doc);
|
||||
CDirListDel(tempm);
|
||||
}
|
||||
@@ -0,0 +1,7 @@
|
||||
#help_index "Snd"
|
||||
#include "/SparrowOS/Apps/HolySpirit/HolySpirit.CPP.Z"
|
||||
#include "/SparrowOS/Apps/MusicOrgan/MakeSong.CPP.Z"
|
||||
#include "/SparrowOS/Apps/MusicOrgan/JukeBox.CPP.Z"
|
||||
#include "/SparrowOS/Apps/MusicOrgan/OrganCtrls.CPP.Z"
|
||||
#include "/SparrowOS/Apps/MusicOrgan/Organ.CPP.Z"
|
||||
#help_index ""
|
||||
@@ -0,0 +1,155 @@
|
||||
class MakeSongSettings
|
||||
{
|
||||
Bool simple_rhythms fmtstr "$$CB,\"Simple Rhythms\"$$\n";
|
||||
Bool rests fmtstr "$$CB,\"Rests\"$$\n";
|
||||
Bool change_waveforms fmtstr "$$CB,\"Change Waveforms\"$$\n";
|
||||
Bool six_eight fmtstr "$$CB,\"Six Eight\"$$\n";
|
||||
I64 octave fmtstr "$$DA-T,32,\"Octave:%d\"$$\n";
|
||||
};
|
||||
|
||||
U0 InsNote(MakeSongSettings *mss,U8 *buf,I64 k,I64 *j)
|
||||
{ //k is a random note nibble
|
||||
I64 a=TimerPickedNibble; //accent
|
||||
if (!a) {
|
||||
buf[*j]='!';
|
||||
*j+=1;
|
||||
}
|
||||
if (a<4) {
|
||||
buf[*j]='!';
|
||||
*j+=1;
|
||||
}
|
||||
if (!k && mss->rests) {
|
||||
buf[*j]='R';
|
||||
*j+=1;
|
||||
} else {
|
||||
k/=2;
|
||||
if (!k) {
|
||||
if (music_octave) {
|
||||
buf[*j]=music_octave-1+'0';
|
||||
*j+=1;
|
||||
buf[*j]='G';
|
||||
*j+=1;
|
||||
buf[*j]=music_octave+'0';
|
||||
*j+=1;
|
||||
} else {
|
||||
buf[*j]='G';
|
||||
*j+=1;
|
||||
}
|
||||
} else {
|
||||
buf[*j]=k-1+'A';
|
||||
*j+=1;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
#define DUR_QUARTER 0
|
||||
#define DUR_EIGHTH 1
|
||||
#define DUR_TRIPLET 2
|
||||
#define DUR_SIXTEENTH 3
|
||||
|
||||
U8 simple_songs [5]={DUR_EIGHTH,DUR_QUARTER,DUR_QUARTER,DUR_QUARTER,DUR_QUARTER};
|
||||
U8 complex_songs[6]={DUR_EIGHTH,DUR_TRIPLET,DUR_SIXTEENTH,DUR_QUARTER,DUR_QUARTER,DUR_QUARTER};
|
||||
|
||||
U8 *MakeSong()
|
||||
{
|
||||
MakeSongSettings mss;
|
||||
U8 *buf;
|
||||
I64 i,j=0,k,n,k2,duration,last_duration=-1,
|
||||
wf[2],w=0,len;
|
||||
|
||||
mss.simple_rhythms=FALSE;
|
||||
mss.rests=FALSE;
|
||||
mss.change_waveforms=FALSE;
|
||||
mss.octave=music_octave;
|
||||
|
||||
if (!PopUpForm(&mss,"MakeSongSettings"))
|
||||
return NULL;
|
||||
|
||||
buf=CAlloc(256);
|
||||
music_octave=LimitI64(mss.octave,0,6);
|
||||
progress4=0;
|
||||
if (mss.six_eight)
|
||||
progress4_max=6;
|
||||
else
|
||||
progress4_max=8;
|
||||
|
||||
n=TimerPickedNi$WW,0$bble/2;
|
||||
if (WF_NULL<n<WF_NOISE)
|
||||
wf[0]=n;
|
||||
else
|
||||
wf[0]=WF_SQUARE;
|
||||
|
||||
n=TimerPickedNibble/2;
|
||||
if (WF_NULL<n<WF_NOISE)
|
||||
wf[1]=n;
|
||||
else
|
||||
wf[1]=wf[0];
|
||||
|
||||
buf[j++]='0'+music_octave;
|
||||
if (mss.six_eight) {
|
||||
len=6;
|
||||
buf[j++]='M';
|
||||
buf[j++]='6';
|
||||
buf[j++]='/';
|
||||
buf[j++]='8';
|
||||
} else
|
||||
len=8;
|
||||
if (mss.change_waveforms) {
|
||||
buf[j++]='W';
|
||||
buf[j++]='0'+wf[w++&1];
|
||||
}
|
||||
for (i=0;i<len;i++) {
|
||||
if (mss.change_waveforms) {
|
||||
if (TimerPickedNibble<6) {
|
||||
buf[j++]='W';
|
||||
buf[j++]='0'+wf[w++&1];
|
||||
}
|
||||
}
|
||||
|
||||
n=TimerPickedNibble;
|
||||
k=TimerPickedNibble;
|
||||
if (mss.simple_rhythms)
|
||||
duration=simple_songs[n%5];
|
||||
else
|
||||
duration=complex_songs[n%6];
|
||||
switch (duration) {
|
||||
case DUR_EIGHTH:
|
||||
if (last_duration!=DUR_EIGHTH)
|
||||
buf[j++]='e';
|
||||
InsNote(&mss,buf,k,&j);
|
||||
k=TimerPickedNibble;
|
||||
InsNote(&mss,buf,k,&j);
|
||||
break;
|
||||
case DUR_TRIPLET:
|
||||
if (last_duration!=DUR_TRIPLET) {
|
||||
buf[j++]='e';
|
||||
buf[j++]='t';
|
||||
}
|
||||
InsNote(&mss,buf,k,&j);
|
||||
k=TimerPickedNibble;
|
||||
InsNote(&mss,buf,k,&j);
|
||||
k=TimerPickedNibble;
|
||||
InsNote(&mss,buf,k,&j);
|
||||
break;
|
||||
case DUR_SIXTEENTH:
|
||||
if (last_duration!=DUR_SIXTEENTH)
|
||||
buf[j++]='s';
|
||||
InsNote(&mss,buf,k,&j);
|
||||
k2=k;
|
||||
k=TimerPickedNibble;
|
||||
InsNote(&mss,buf,k,&j);
|
||||
InsNote(&mss,buf,k2,&j);
|
||||
InsNote(&mss,buf,k,&j);
|
||||
break;
|
||||
default:
|
||||
if (last_duration!=DUR_QUARTER)
|
||||
buf[j++]='q';
|
||||
InsNote(&mss,buf,k,&j);
|
||||
}
|
||||
last_duration=duration;
|
||||
progress4++;
|
||||
}
|
||||
buf[j++]=0;
|
||||
progress4=progress4_max=0;
|
||||
return buf;
|
||||
}
|
||||
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1,87 @@
|
||||
#define TEMPO_SPACING 15
|
||||
#define TEMPO_RANGE 80
|
||||
#define TEMPO_BORDER 2
|
||||
|
||||
class TempoState
|
||||
{
|
||||
I64 tempo,stacatto;
|
||||
} tempo_state;
|
||||
|
||||
U0 DrawTempoCtrl(CDC *dc,CCtrl *c)
|
||||
{
|
||||
TempoState *s=c->state;
|
||||
|
||||
dc->color=LTGREEN;
|
||||
GrRect(dc, c->left,c->top,TEMPO_SPACING*3+2,TEMPO_SPACING*2+TEMPO_RANGE);
|
||||
dc->color=BLACK;
|
||||
GrRect(dc, c->left+TEMPO_BORDER,c->top+TEMPO_BORDER,
|
||||
TEMPO_SPACING*3+2-2*TEMPO_BORDER,TEMPO_SPACING*2+TEMPO_RANGE-2*TEMPO_BORDER);
|
||||
dc->color=WHITE;
|
||||
GrLine(dc,c->left+TEMPO_SPACING,c->top+TEMPO_SPACING,
|
||||
c->left+TEMPO_SPACING,c->top+TEMPO_SPACING+TEMPO_RANGE-1);
|
||||
GrLine(dc,c->left+2*TEMPO_SPACING+1,c->top+TEMPO_SPACING,
|
||||
c->left+2*TEMPO_SPACING+1,c->top+TEMPO_SPACING+TEMPO_RANGE-1);
|
||||
|
||||
dc->color=LTGREEN;
|
||||
GrPrintF(dc,c->left+TEMPO_SPACING-FONT_WIDTH/2,
|
||||
c->top+TEMPO_SPACING+TEMPO_RANGE+3,"%d",s->tempo*10/TEMPO_RANGE);
|
||||
GrPrintF(dc,c->left+2*TEMPO_SPACING+1-FONT_WIDTH/2,
|
||||
c->top+TEMPO_SPACING+TEMPO_RANGE+3,"%d",s->stacatto*10/TEMPO_RANGE);
|
||||
GrRect(dc,c->left+TEMPO_SPACING-3, c->top+TEMPO_SPACING+TEMPO_RANGE-1-s->tempo-2 ,7,5);
|
||||
GrRect(dc,c->left+2*TEMPO_SPACING+1-3,c->top+TEMPO_SPACING+TEMPO_RANGE-1-s->stacatto-2,7,5);
|
||||
dc->color=YELLOW;
|
||||
GrRect(dc,c->left+TEMPO_SPACING-2, c->top+TEMPO_SPACING+TEMPO_RANGE-1-s->tempo-1 ,5,3);
|
||||
GrRect(dc,c->left+2*TEMPO_SPACING+1-2,c->top+TEMPO_SPACING+TEMPO_RANGE-1-s->stacatto-1,5,3);
|
||||
|
||||
dc->color=GREEN;
|
||||
GrVPutS(dc,c->left+TEMPO_BORDER+2,c->top+TEMPO_SPACING+2,"Tempo");
|
||||
GrVPutS(dc,c->right-TEMPO_BORDER-2-FONT_WIDTH,c->top+TEMPO_SPACING+2,"Stacatto");
|
||||
}
|
||||
|
||||
U0 UpdateDerivedTempoCtrl(CCtrl *c)
|
||||
{
|
||||
TempoState *s=c->state;
|
||||
c->right=c->left+TEMPO_SPACING*3+2;
|
||||
c->bottom=c->top+TEMPO_SPACING*2+TEMPO_RANGE;
|
||||
s->tempo =LimitI64(s->tempo,0,TEMPO_RANGE-1);
|
||||
s->stacatto=LimitI64(s->stacatto,0,TEMPO_RANGE-1);
|
||||
}
|
||||
|
||||
U0 LeftClickTempo(CCtrl *c,I64 x,I64 y,Bool)
|
||||
{
|
||||
TempoState *s=c->state;
|
||||
if (x<(c->right+c->left)/2)
|
||||
s->tempo=TEMPO_RANGE-1-(y-(c->top+TEMPO_SPACING));
|
||||
else
|
||||
s->stacatto=TEMPO_RANGE-1-(y-(c->top+TEMPO_SPACING));
|
||||
if (c->update_derived_vals)
|
||||
(*c->update_derived_vals)(c);
|
||||
}
|
||||
|
||||
CCtrl *TempoNew()
|
||||
{
|
||||
Bool old_preempt;
|
||||
CCtrl *c=CAlloc(sizeof(CCtrl));
|
||||
c->win_task=Fs;
|
||||
c->flags=CTRLF_SHOW|CTRLF_CAPTURE_LEFT_IP;
|
||||
c->type=CTRLT_GENERIC;
|
||||
c->state=&tempo_state;
|
||||
c->draw_it=&DrawTempoCtrl;
|
||||
c->left_click=&LeftClickTempo;
|
||||
c->update_derived_vals=&UpdateDerivedTempoCtrl;
|
||||
c->left=396;
|
||||
c->top=96;
|
||||
old_preempt=Preempt(OFF);
|
||||
QueIns(c,Fs->last_ctrl);
|
||||
TaskDerivedValsUpdate;
|
||||
Preempt(old_preempt);
|
||||
return c;
|
||||
}
|
||||
|
||||
U0 TempoDel(CCtrl *c)
|
||||
{
|
||||
Bool old_preempt=Preempt(OFF);
|
||||
QueRem(c);
|
||||
Preempt(old_preempt);
|
||||
Free(c);
|
||||
}
|
||||
@@ -0,0 +1,3 @@
|
||||
#include "/SparrowOS/Apps/MusicOrgan/Load"
|
||||
MusicOrgan;
|
||||
|
||||
Reference in new issue
Block a user