|
|
|
|
|
|
Je m'ennuie alors...
04/05/2007 11:52
...Comme je bosse un peu sur SAS, je vous ai composé le tube de l'été hihi... Executez ça vous verrez bien...
Adrien.
%let pc=1.25;
%macro df3(note,octave,length);
select(¬e.);
when('A') call sound(55*(2**&octave.),&length.*160*&pc.);
when('A#') call sound(58*(2**&octave.),&length.*160*&pc.);
when('Bb') call sound(58*(2**&octave.),&length.*160*&pc.);
when('B') call sound(62*(2**&octave.),&length.*160*&pc.);
when('C') call sound(65*(2**&octave.),&length.*160*&pc.);
when('C#') call sound(69*(2**&octave.),&length.*160*&pc.);
when('Db') call sound(69*(2**&octave.),&length.*160*&pc.);
when('D') call sound(73.5*(2**&octave.),&length.*160*&pc.);
when('D#') call sound(73.5*(2**&octave.),&length.*160*&pc.);
when('Eb') call sound(78*(2**&octave.),&length.*160*&pc.);
when('E') call sound(82*(2**&octave.),&length.*160*&pc.);
when('F') call sound(87*(2**&octave.),&length.*160*&pc.);
when('F#') call sound(92.5*(2**&octave.),&length.*160*&pc.);
when('Gb') call sound(92.5*(2**&octave.),&length.*160*&pc.);
when('G') call sound(98*(2**&octave.),&length.*160*&pc.);
when('G#') call sound(104*(2**&octave.),&length.*160*&pc.);
when('Ab') call sound(104*(2**&octave.),&length.*160*&pc.);
when('R') call sleep((&length./3)*&pc.,1);
otherwise;
end;
%mend;
data _null_;
do i=1 to 2;
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,1);
%df3('A',3,1);
%df3('A',3,1);
%df3('G',2,2);
%df3('E',3,1);
%df3('E',3,1);
%df3('D',3,1);
%df3('D',3,1);
%df3('C',3,2);
if i=1 then do;
%df3('R',1,2);
%df3('G',2,2);
end;
end;
%df3('G',2,.5);
%df3('G',2,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,.5);
%df3('G',2,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,2);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,1);
%df3('A',3,1);
%df3('A',3,1);
%df3('G',2,2);
%df3('E',3,1);
%df3('E',3,1);
%df3('D',3,1);
%df3('D',3,1);
%df3('C',3,3);
run;
|
Commentaire de Adrien (04/05/2007 11:54) :
A mon humble avis, je ne suis pas sur que ça marche sur un portable essayez
plutôt sur un PC de bureau. A l'iut par ex.
|
|
Commentaire de maryline (04/05/2007 23:21) :
ça marche sur mon portable !!!!
|
|
Commentaire de Timon (04/05/2007 23:57) :
Quel virtuose !!!
|
|
Commentaire de adrien (05/05/2007 15:31) :
merci merci...
|
|
Commentaire de Dubosc (09/05/2007 12:54) :
On dirait du modified toy orchestra qui est un groupe qui comme son nom
l'indique détourne les musiques des jeux électroniques.
|
|
Commentaire de adrien (10/05/2007 17:18) :
Ah je ne connaissais pas, faudra que j'en télécharge...
|
|
Commentaire de Cédric (13/05/2007 19:09) :
Ca m\'a l\'air vraiment sympa ton stage !! Au fait, c\'est
qui Octave?
|
|
Commentaire de Octave (14/05/2007 10:10) :
Je ne suis ni plus ni moins qu'une macrovariable hihi
|
| |
|
|
|
|
