XYplorer Beta Club

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

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";