Play music tones
lazarus / 62-General

----------------------------------------------------------------------
tygraphics · 2020-06-05 18:25

In some of my pascal code from 25 years ago I used: note(440, AMP,
DURATION);
Is there an something comperable in FPC?

----------------------------------------------------------------------
Fred vS · 2020-06-05 18:34

Hello.

With uos you may use his build-in synthesizer.

   Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
uos_InputSetSynth(PlayerIndex: cint32; InputIndex: cint32; Frequency:
float; VolumeL: float; VolumeR: float; Duration: cint32; Enable :
boolean);// Frequency : in Hertz (-1 = do not change)// VolumeL :
 from 0 to 1 (-1 = do not change)// VolumeR :  from 0 to 1 (-1 = do
not change)// Duration : in msec (-1 = do not change)// Enabled : true
or false ; 
Example:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
uos_InputSetSynth(PlayerIndex1,inindex1, 440, 0.2,1, -1 ,true);

There is a console demo too:

https://github.com/fredvs/uos/blob/master/examples/consolesynth.pas

----------------------------------------------------------------------
tygraphics · 2020-06-05 18:43

Thanks Fred!

----------------------------------------------------------------------
Fred vS · 2020-06-05 18:49

Re-hello.

You may also use the pre-defined tones:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i const //
musical note ==> frequency in hertzla0  = 55.0; la0_d = 58.3;si0 =
61.7;do0 =  65.4;do0_d = 69.3;re0 = 73.4;re0_d =77.8;mi0  =82.4;fa0  =
87.3; fa0_d = 92.5;sol0 = 98.0;sol0_d = 103.8;la1  = 110.0; la1_d =
116.5;si1 = 123.5;do1 =  130.8;do1_d = 138.6;re1 = 146.8;re1_d
=155.6;mi1  =164.8;fa1  = 174.6; fa1_d = 185.0;sol1 = 196.0;sol1_d =
207.7;la2 = 220.0; la2_d = 233.1;si2 = 2246.9;do2 =  261.6;do2_d =
277.2;re2 = 293.7;re2_d =311.1;mi2  =329.6;fa2  = 349.2; fa2_d =
370.0;sol2 = 392.0;sol2_d = 415.3;la3  = 440.0;la3_d = 466.2;si3 =
493.9;do3 =  523.3;do3_d = 554.4;re3 = 587.3;re3_d = 622.3;mi3 =
659.3;fa3  = 698.5;fa3_d = 740.0;sol3 = 784.0;sol3_d = 830.6;la4 =
880.0;la4_d = 932.4;si4 = 987.8;do4 =  1046.6;do4_d = 1108.8;re4 =
1174.6;re4_d = 1244.6;mi4 = 1318.6;fa4  = 1397.0;fa4_d = 1480.0;sol4 =
1568.0;sol4_d = 1661.2;la5 = 1760.0;