Some entertainment

[bdeshi]

Dull day at work? liven up! (or cringe in anger/hate/fear )

Code: Select all

 // tones
 $c = 261;
 $d = 294;
 $e = 329;
 $f = 349;
 $g = 391;
 $gS = 415;
 $a = 440;
 $aS = 455;
 $b = 466;
 $cH = 523;
 $cSH = 554;
 $dH = 587;
 $dSH = 622;
 $eH = 659;
 $fH = 698;
 $fSH = 740;
 $gH = 784;
 $gSH = 830;
 $aH = 880;

 // tunes
 beep $a, 500;
 beep $a, 500;
 beep $a, 500;
 beep $f, 350;
 beep $cH, 150;
 beep $a, 500;
 beep $f, 350;
 beep $cH, 150;
 beep $a, 650;
 wait 150;
 beep $eH, 500;
 beep $eH, 500;
 beep $eH, 500;
 beep $fH, 350;
 beep $cH, 150;
 beep $gS, 500;
 beep $f, 350;
 beep $cH, 150;
 beep $a, 650;
 wait 150;
 beep $aH, 500;
 beep $a, 300;
 beep $a, 150;
 beep $aH, 400;
 beep $gSH, 200;
 wait 50;
 beep $gH, 200;
 beep $fSH, 125;
 beep $fH, 125;
 beep $fSH, 250;
 wait 250;
 beep $aS, 250;
 beep $dSH, 400;
 beep $dH, 200;
 wait 50;
 beep $cSH, 200;
 beep $cH, 125;
 beep $b, 125;
 beep $cH, 250;
 wait 250;
 beep $f, 125;
 beep $gS, 500;
 beep $f, 375;
 beep $a, 125;
 beep $cH, 500;
 beep $a, 375;
 beep $cH, 125;
 beep $eH, 650;
 wait 120;
 beep $aH, 500;
 beep $a, 300;
 beep $a, 150;
 beep $aH, 400;
 beep $gSH, 200;
 beep $gH, 200;
 beep $fSH, 125;
 beep $fH, 125;
 beep $fSH, 250;
 wait 250;
 beep $aS, 250;
 beep $dSH, 400;
 beep $dH, 200;
 beep $cSH, 200;
 beep $cH, 125;
 beep $b, 125;
 beep $cH, 250;
 wait 250;
 beep $f, 250;
 beep $gS, 500;
 beep $f, 375;
 beep $cH, 125;
 beep $a, 500;
 beep $f, 375;
 beep $cH, 125;
 beep $b, 650;

 //plundered frm http://processors.wiki.ti.com/index.php/Playing_The_Imperial_March

[/size]

[admin]

LOL, thanks man! Tomorrow, the German national anthem please.

[bdeshi]

Tomorrow you can make it yourself!

[Filehero]

@Sammay: Cool - especially the laid back timing.

@Don: how about support for polyphonie, some chording would be interesting for sure. In combination with makecoffee I could think of some really cool slide shows.


Cheers,
Filehero

[admin]

I wrote an own app for this: Funkophon. But that's a different story...

[Marco]

Dull day at work? liven up! (or cringe in anger/hate/fear )

Code: Select all

...

[/size]

I. Knew. It. I was sure there was beep in the air as soon as I read the title!
Great job!

@Don: how about support for polyphonie, some chording would be interesting for sure. In combination with makecoffee I could think of some really cool slide shows.

XY as a midi sequencer Chording would be awesome. I did think, a while ago, what would be necessary in order to play more notes simultaneously. You'd need to start more XY instances, send to each of them a different "sheet" and, the most important thing, be sure the they all play perfectly in sync (but how?)... An "insider" solution (read: from Don) would sure sound better

[bdeshi]

Thanks for the kind words!!!

+1 for better musical abilities of XY (even though I have null musical talents)

Here's the script I promised a few post up. I've more plans for it (import, better input) but got no time right now.
Right now, you need to open the script and type in the input in raw!!!

Code: Select all

/*SC_Melody, aka BeepTuneMaker/SammaySarkar*/
/*a pointless piece of script that strives to ease
the process of playing simple melodies in XYplorer*/
/*I don't know the m of music, so forgive me for any mistakes
such as lack of examples ;)*/

 // frequency in Hz; A4 = 440Hz
 // the values may not accurately represent the output
 // 's' means sharp (Cs0 === C#0)
 $Rst	= "0";
 $C0	= "16.35";
 $Cs0	= "17.32";
 $Db0	= "17.32";
 $D0	= "18.35";
 $Ds0	= "19.45";
 $Eb0	= "19.45";
 $E0	= "20.60";
 $F0	= "21.83";
 $Fs0	= "23.12";
 $Gb0	= "23.12";
 $G0	= "24.50";
 $Gs0	= "25.96";
 $Ab0	= "25.96";
 $A0	= "27.50";
 $As0	= "29.14";
 $Bb0	= "29.14";
 $B0	= "30.87";
 $C1	= "32.70";
 $Cs1	= "34.65";
 $Db1	= "34.65";
 $D1	= "36.71";
 $Ds1	= "38.89";
 $Eb1	= "38.89";
 $E1	= "41.20";
 $F1	= "43.65";
 $Fs1	= "46.25";
 $Gb1	= "46.25";
 $G1	= "49.00";
 $Gs1	= "51.91";
 $Ab1	= "51.91";
 $A1	= "55.00";
 $As1	= "58.27";
 $Bb1	= "58.27";
 $B1	= "61.74";
 $C2	= "65.41";
 $Cs2	= "69.30";
 $Db2	= "69.30";
 $D2	= "73.42";
 $Ds2	= "77.78";
 $Eb2	= "77.78";
 $E2	= "82.41";
 $F2	= "87.31";
 $Fs2	= "92.50";
 $Gb2	= "92.50";
 $G2	= "98.00";
 $Gs2	= "103.83";
 $Ab2	= "103.83";
 $A2	= "110.00";
 $As2	= "116.54";
 $Bb2	= "116.54";
 $B2	= "123.47";
 $C3	= "130.81";
 $Cs3	= "138.59";
 $Db3	= "138.59";
 $D3	= "146.83";
 $Ds3	= "155.56";
 $Eb3	= "155.56";
 $E3	= "164.81";
 $F3	= "174.61";
 $Fs3	= "185.00";
 $Gb3	= "185.00";
 $G3	= "196.00";
 $Gs3	= "207.65";
 $Ab3	= "207.65";
 $A3	= "220.00";
 $As3	= "233.08";
 $Bb3	= "233.08";
 $B3	= "246.94";
 $C4	= "261.63";
 $Cs4	= "277.18";
 $Db4	= "277.18";
 $D4	= "293.66";
 $Ds4	= "311.13";
 $Eb4	= "311.13";
 $E4	= "329.63";
 $F4	= "349.23";
 $Fs4	= "369.99";
 $Gb4	= "369.99";
 $G4	= "392.00";
 $Gs4	= "415.30";
 $Ab4	= "415.30";
 $A4	= "440.00";
 $As4	= "466.16";
 $Bb4	= "466.16";
 $B4	= "493.88";
 $C5	= "523.25";
 $Cs5	= "554.37";
 $Db5	= "554.37";
 $D5	= "587.33";
 $Ds5	= "622.25";
 $Eb5	= "622.25";
 $E5	= "659.25";
 $F5	= "698.46";
 $Fs5	= "739.99";
 $Gb5	= "739.99";
 $G5	= "783.99";
 $Gs5	= "830.61";
 $Ab5	= "830.61";
 $A5	= "880.00";
 $As5	= "932.33";
 $Bb5	= "932.33";
 $B5	= "987.77";
 $C6	= "1046.50";
 $Cs6	= "1108.73";
 $Db6	= "1108.73";
 $D6	= "1174.66";
 $Ds6	= "1244.51";
 $Eb6	= "1244.51";
 $E6	= "1318.51";
 $F6	= "1396.91";
 $Fs6	= "1479.98";
 $Gb6	= "1479.98";
 $G6	= "1567.98";
 $Gs6	= "1661.22";
 $Ab6	= "1661.22";
 $A6	= "1760.00";
 $As6	= "1864.66";
 $Bb6	= "1864.66";
 $B6	= "1975.53";
 $C7	= "2093.00";
 $Cs7	= "2217.46";
 $Db7	= "2217.46";
 $D7	= "2349.32";
 $Ds7	= "2489.02";
 $Eb7	= "2489.02";
 $E7	= "2637.02";
 $F7	= "2793.83";
 $Fs7	= "2959.96";
 $Gb7	= "2959.96";
 $G7	= "3135.96";
 $Gs7	= "3322.44";
 $Ab7	= "3322.44";
 $A7	= "3520.00";
 $As7	= "3729.31";
 $Bb7	= "3729.31";
 $B7	= "3951.07";
 $C8	= "4186.01";
 $Cs8	= "4434.92";
 $Db8	= "4434.92";
 $D8	= "4698.63";
 $Ds8	= "4978.03";
 $Eb8	= "4978.03";
 $E8	= "5274.04";
 $F8	= "5587.65";
 $Fs8	= "5919.91";
 $Gb8	= "5919.91";
 $G8	= "6271.93";
 $Gs8	= "6644.88";
 $Ab8	= "6644.88";
 $A8	= "7040.00";
 $As8	= "7458.62";
 $Bb8	= "7458.62";
 $B8	= "7902.13";
 // list obtained from http://www.phy.mtu.edu/~suits/notefreqs.html

 // $notes : enter notes, notes can be raw Hz or one of above (include the '$' in the latter case)
 // $lngth : enter delay after each note in milliseconds, there may be a lower limit
 // $delay : enter length of each note in millisecs, there may be a lower limit
 // all are ','-separated
 $notes = "$Gb3,$As5,$Cs5,$E7";
 $lngth = "500, 300, 300, 500";
 $delay = "150,100,50";
 //better input planned

 $count = 1;
 $total = gettoken("$notes", count, ',');
 $melody= '';
 while($count <= $total){
 	//current note,length,delay
 	$cN   = gettoken("$notes", $count, ',');
 	$cL   = gettoken("$lngth", $count, ',');
 	$cD   = gettoken("$delay", $count, ',');

 	/*create a raw script so that there aren't any delays
 	related to code-processing*/
 	$melody = $melody." beep $cN, $cL;<crlf>";						//the note to play
 	if($cD != ''){$melody = $melody." wait $cD;<crlf>";}	//wait only if delay exists, to overcome any SC wait defaults

 	$count++;
 }

 text ' //export'.<crlf>.$melody;
 load "$melody",,s;
 status "SC_Melody performance is complete", "11DF22";

[/size]

Post them beeptunes!