[Ada] [Conception] Un compositeur interprète avec Ada.

Marsh Posté le 09-08-2009 à 15:52:34

Bonjour,
j'ai rien fais, parce que je reprend tout depuis le début.

Donc, je souhaite modéliser un compositeur interprète de musique avec Ada.

Seulement, malgré mon expérience de quelque 10 de programmes, je ne sais toujours pas programmer correctement. Je viens donc chercher conseil ou modèle pour ce nouveau projet.

Merci de votre contribution.

Message édité par The matrix le 13-08-2009 à 09:39:10

---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter

Marsh Posté le 09-08-2009 à 15:52:34

Marsh Posté le 12-08-2009 à 20:49:49

Bonjour,
En attendant d'avoir conseil, j'ai fait ceci.
@+

Marsh Posté le 13-08-2009 à 08:04:07

Bonjour :hello: , j'ai oublié de préciser que pour ce projet, je souhaite modéliser une solution orienté objet.
N'ayant suivit que 30minutes de cours sur le sujet, toute précisions sera la bienvenue.
J'utilise une bibliothèque MIDI, libportmidi, pour envoyer les messages MIDI aux instruments.
Je ne sais pourtant pas si une modélisation objet serait adapté à ce programme temps réel.
Par temps réel, j'entends un programme qui va suivre une horloge.
Merci pour votre contribution. :jap:

Marsh Posté le 13-08-2009 à 08:17:28

Pour vous faire un topo... J'ai :

- un orchestre composé de :
- N musicien(s)
- N instrument(s)

- une œuvre composé de :
- N partitions

- un compositeur qui
- écrit les partitions (l'œuvre) sans fin et en continu.

- un chef d'orchestre qui
- donne la mesure
- démarre le concert
- stop le concert
- reprend le concert.

Marsh Posté le 13-08-2009 à 08:36:08

Quelqu'un pour m'aider à établir le graphe de dépendance ?

Marsh Posté le 13-08-2009 à 08:42:11

C'est pas très clair, ton histoire. Il y a des données quelque part ? Si oui elles sont modélisées comment ? Tes musiciens, ce sont des agents indépendants ? Tu veux faire quoi ? Modéliser un échange de messages entre le chef et les musiciens ?

Message cité 1 fois

---------------
Les aéroports où il fait bon attendre, voila un topic qu'il est bien

Marsh Posté le 13-08-2009 à 08:54:18

el muchacho a écrit :

C'est pas très clair, ton histoire.

C'est la vue que j'ai d'un concert (symphonique)

el muchacho a écrit :

Il y a des données quelque part ?

Bonne question, qu'entends-tu par donnée ?

el muchacho a écrit :

Tes musiciens, ce sont des agents indépendants ?

Pas compris le sens de la question Tu peux reformuler ?

el muchacho a écrit :

Tu veux faire quoi ?

Un concert.

el muchacho a écrit :

Modéliser un échange de messages entre le chef et les musiciens ?

Entre autre oui, mes musicien reçoive les partitions de du compositeur et le tempo ainsi qu'un "start" et "stop" du chef d'orchestre.

A priori, pour le moment.

Marsh Posté le 13-08-2009 à 11:17:07

OK, j'avais pas vu ta référence à MIDI. En fait, tu veux coder un séquenceur MIDI. Tu aurais mis ça dès le départ, ça aurait été tout de suite plus clair. Je crains qu'on ne puisse pas te répondre correctement si on ne connait pas précisément la norme MIDI et si on n'a pas jeté un oeil à ta lib, parce que là on fait du temps réel dur (càd avec des délais fixes à ne pas dépasser). C'est pas incompatible avec de l'objet, mais il y a des impératifs de performance qui vont fortement influer sur l'architecture du programme. Donc ça va être un peu dur de répondre comme ça.
Mais si tu changes ton titre en "un séquenceur MIDI avec ADA", p-ê que ça peut intéresser des gens.

Message édité par el muchacho le 13-08-2009 à 11:18:00

---------------
Les aéroports où il fait bon attendre, voila un topic qu'il est bien

Marsh Posté le 13-08-2009 à 11:31:54

Merci pour ta réponse el muchacho,

J'ai une grande interrogation sur l'avantage à tirer d'une modélisation orienté objet.

Par ailleurs, bien que mon programme soit constitué en partie comme un séquenceur, un point important est la partie composition. En effet, le programme est sensé composer la musique seul.
Donc, c'est plus qu'un séquenceur. Voilà pour le titre. Mais je vais découper le projet en deux, tu as raison, deux problème, - le séquenceur temps-réel et le compositeur.
Merci pour ton aide, ton attention...

Marsh Posté le 16-08-2009 à 08:53:46

J'en suis là harmonie-0.0.1-0a.tar.gz,

README=Faites : "modeprobe snd_seq" dans la console root si nécessaire.
TODO="Hello !
make !
call harmonie !
initialize and run or load file betwen and try START and STOP or 'Esc' to return to main menu."

Je ne sais pas encore exactement comment je vais exploiter les ANN mais, j'ai mon idée.
Je même peut-être utiliser A* en combinaison.

J'ai trouvé une bibliothèque MIDI, MIDI.FILE , ada-midi, avec Ada, mais un soucis, pas moyen d'extraire directement le contenu d'un fichier. Obligé de le ré-écrire par une bidouille de l'implémentation de la bibliothèque.
Good luck !

Marsh Posté le 16-08-2009 à 08:53:46

Marsh Posté le 18-08-2009 à 14:26:40

Bonjour, voici l'évolution du développement ::= Harmonie-0.0.1-3a.tar.gz exploitant les réseaux de neurones artificiels.
Un fichier midi est fourni en exemple, Au clair de la lune . Mais j'ai pas testé encore. :whistle:

Le code est pas terrible.. mais ça tourne. Et j'ai oublié de supprimer les infos de tracage. Masi toujours 'Esc' pour sortir. Enfin débrouillez-vous jusqu'à la prochaine version.

Bien sûr, si vous souhaitez participer ... n'hésitez pas ! :jap:

Voilou !

Marsh Posté le 19-08-2009 à 11:16:08

Salut,

Je comprends pas pourquoi j'ai 145 au lieu de 144 dans mon octet de Status.
Et j'ai l'impression que je parcoure plusieurs fois la même section du registre au décodage.
C'est plus qu'un impression, mais ça fais dix fois que je relis le code, je trouve pas.

Vous avez jeter un œil au code ? Qu'en pensez-vous ?

Marsh Posté le 20-08-2009 à 12:46:43

Bonjour,

Vous êtes quelque uns à vous intéresser au projet...Voici quelques corrections du paquet précédent ::= Harmonie-0.0.1-4a.tar.gz

Vous trouverais un fichier Hello.mid, le fichier avec lequel j'ai testé le programme qui génère un note-on suivie d'un note-off et ce en boucle. j'ai ajouter une note dans le fichier TODO, Les meta évènements ne sont pas gérés, et la gestion du temps n'est pas implémentée.

Merci à ceux qui me filent des coups de pouce pour réaliser ce programme. :jap:

Voilou !

Good luck !

Edit : j'ai encore oublié de supprimer les info de traçage et de décommenter quelque ligne dans la tache Harmonie dans midi_engine.adb !

Message cité 1 fois
Message édité par The matrix le 20-08-2009 à 13:02:41

Marsh Posté le 22-08-2009 à 15:25:48

The matrix a écrit :

Bonjour,
.../...
Vous êtes quelque uns à vous intéresser au projet...Voici quelques corrections du paquet précédent
.../..
Edit : j'ai encore oublié de supprimer les info de traçage et de décommenter quelque ligne dans la tache Harmonie dans midi_engine.adb !

Ah non, cette fois j'ai tout mis propre !

Up et Link ::= Harmonie-0.0.1-5b

N'hésitez pas...

What else? Merci, bien à vous !

Message édité par The matrix le 22-08-2009 à 15:28:15

Marsh Posté le 22-08-2009 à 17:58:06

Re- !

En attendant que je gère les méta évènements, il semble qu'un instruction "Buffer_Length := 0;" dans le case Meta de Section s'impose. C'est dans les ligne 610 du fichier midi_engine.adb , mais je suis tout décalé là.

Message édité par The matrix le 22-08-2009 à 17:58:51

Marsh Posté le 26-08-2009 à 18:09:12

Bonjour,
je viens vous soumettre pour analyse un petit bout de code. Mon projet est copieux, je vais y allez petit à petit. Sans prétention, j'aimerai parvenir à écrire du code correct avec Ada, n'ayant suivi que 300 en gros de cours de prog je ne sais pas si je suis bon.

Il s'agit du que du main file dans le lequel je réalise l'acquisition de paramètres nécessaire à l'exploitation de la suite du programme.

Pseudo-Code ::

Si aucun nom de fichier n'est fournit en ligne de commande, on lit le fichier par défault;
En cas d'exception, on saisie les données, puis selon l'utilisateur, on les enregistre.
Si non (si un nom de fichier est founit), on lit le fichier dont le nom est donné en ligne de commande ;
En cas d'exception, on saisie les données, puis selon l'utilisateur, on les enregistre.

Pour le code, c'est un poil plus fastidieux :

Les boucle Prepare0 et Prepare1 sont strictement les même.

Code :

--    Harmonie is an virtual music composer.
--    Copyright (C) 2009 Manuel De Girardi
 
--    This program is free software: you can redistribute it and/or modify
--    it under the terms of the GNU General Public License as published by
--    the Free Software Foundation, either version 3 of the License, or
--    (at your option) any later version.
 
--    This program is distributed in the hope that it will be useful,
--    but WITHOUT ANY WARRANTY; without even the implied warranty of
--    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--    GNU General Public License for more details.
 
--    You should have received a copy of the GNU General Public License
--    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-------------------------------------------------------------------------------
-- Author      : Manuel De Girardi
-- Date        : 2009/08/26
-- Version     : 0.1.0-0a
-- Description : Compositeur-intepreteur de musique automatique.
-------------------------------------------------------------------------------
 
with Text_Io, Ada.Command_Line;
use Text_Io, Ada.Command_Line;
with Ada.Strings.Fixed;
use Ada.Strings.Fixed;
 
with Portmidi;
use Portmidi;
 
with Interfaces.C;
use Interfaces.C;
 
procedure Main is
 
   subtype T_Channel is Natural range 0..15;
 
   Default : constant String := "orchester.txt";
   File : File_Type;
   type T_Info is
      record
         Global_Channel : T_Channel;
         Device_Id : Natural;
      end record;
   type T_Tab_Pos is array (Positive range 1..256) of T_info;
   Tab_Pos : T_Tab_Pos;
   line : String(1..64);
   Last,
   Choice : Natural := 0;
   Char : Character;
   Name : T_ErrorText;
   device : Positive := 1;
   Channel : Natural;
   The_Deviceinfo : DeviceInfo;
 
   use DeviceInfo_Conversion;
   use ErrorText_Conversion;
 
begin
 
   if Argument_count = 0 then
      begin
         Open(File, In_File, Default);
         while not End_Of_File(File) loop
            Get_Line(File, Line, Last);
            Tab_Pos(Device).Device_Id := Natural'Value(Line(1..Index(Line, "," )-1));
            Tab_Pos(Device).Global_Channel := Natural'Value(Line(Index(Line, "," )+1..last));
            Device := Device+1;
         end loop;
         Close(File);
      exception
         when Name_Error =>
            begin
           Prepare0:
               loop
                  Put_line("ID, Device Name" );
                  for I in 0..Pm_CountDevices-1 loop
                     The_DeviceInfo :=
                       DeviceInfo_Conversion.To_pointer
                       (Pm_GetDeviceInfo(I)).all;
                     if The_Deviceinfo.Output = 1 then
                        Name := To_Pointer(The_Deviceinfo.name).all;
                        Put(Integer'Image(I));
                        Put_line(", " & Interfaces.C.To_Ada(Name));
                     end if;
                  end loop;
                  loop
                     begin
                        Put("Enter output device ID of instrument" & Integer'Image(Device) & " or 'Enter' to terminate : " );
                        Get_line(line, Last);
                        if Last /= 0 then
                           Choice := Natural'Value(Line(1..Last));
                        else
                           exit Prepare0;
                        end if;
                        case Choice is
                           when 0..255 =>
                              Tab_Pos(Device).Device_Id := Choice;
                              exit;
                           when others =>
                              New_Line;
                        end case;
                     exception
                        when others =>
                           Last := 0;
                           Put("Press any key to continue" );
                           Skip_Line;
                           New_Line;
                     end;
                  end loop;
                  loop
                     begin
                        Put("Enter global channel for device ID " &
                            Integer'Image(Tab_Pos(Device).Device_Id) & ": " );
                        Get_line(line, Last);
                        if Last /= 0 then
                           Channel := Natural'Value(Line(1..Last));
                        else
                           Channel := 0;
                        end if;
                        case Channel is
                           when 0..15 =>
                              Tab_Pos(Device).Global_Channel := T_Channel(Channel);
                              Device := Device+1;
                              exit;
                           when others =>
                              New_Line;
                        end case;
                     exception
                        when others =>
                           Last := 0;
                           Put("Press any key to continue" );
                           Skip_Line;
                           New_Line;
                     end;
                  end loop;
               end loop Prepare0;
               if Device /= 0 then
                  loop
                     Put("Save configuration ? (y/n) : " );
                     Get_Immediate(Char);
                     case Char is
                        when 'Y' | 'y' =>
                           loop
                              begin
                                 New_Line;
                                 Put("Enter filename (Default=""orchester.txt"" ) : " );
                                 Get_Line(Line, Last);
                                 if Last /= 0 then
                                    Create(File, Out_File, Line(1..Last));
                                 else
                                    Create(File, Out_File, Default);
                                 end if;
                                 for I in 1..Device-1 loop
                                    Put_line(File, Integer'Image(Tab_Pos(I).Device_Id) &
                                             ',' &
                                             Integer'Image(Tab_Pos(I).Global_Channel));
                                 end loop;
                                 Close(File);
                                 exit;
                              exception
                                 when Name_Error =>
                                    Put_line("Filename is too long!" );
                              end;
                           end loop;
                           exit;
                        when 'N' | 'n' =>
                           exit;
                        when others =>
                           New_Line;
                     end case;
                  end loop;
               end if;
            end;
      end;
   else
      begin
         Open(File, In_File, Argument(1));
         while not End_Of_File(File) loop
            Get_Line(File, Line, Last);
            Tab_Pos(Device).Device_Id := Natural'Value(Line(1..Index(Line, "," )-1));
            Tab_Pos(Device).Global_channel := Natural'Value(Line(Index(Line, "," )+1..last));
            Device := Device+1;
         end loop;
         Close(File);
 
      exception
         when Name_Error =>
            begin
           Prepare1:
               loop
                  Put_line("ID, Device Name" );
                  for I in 0..Pm_CountDevices-1 loop
                     The_DeviceInfo :=
                       DeviceInfo_Conversion.To_pointer
                       (Pm_GetDeviceInfo(I)).all;
                     if The_Deviceinfo.Output = 1 then
                        Name := To_Pointer(The_Deviceinfo.name).all;
                        Put(Integer'Image(I));
                        Put_line(", " & Interfaces.C.To_Ada(Name));
                     end if;
                  end loop;
                  loop
                     begin
                        Put("Enter output device ID of instrument" & Integer'Image(Device) & " or 'Enter' to terminate : " );
                        Get_line(line, Last);
                        if Last /= 0 then
                           Choice := Natural'Value(Line(1..Last));
                        else
                           exit Prepare1;
                        end if;
                        case Choice is
                           when 0..255 =>
                              Tab_Pos(Device).Device_Id := Choice;
                              exit;
                           when others =>
                              New_Line;
                        end case;
                     exception
                        when others =>
                           Last := 0;
                           Put("Press any key to continue" );
                           Skip_Line;
                           New_Line;
                     end;
                  end loop;
                  loop
                     begin
                        Put("Enter global channel for device ID " &
                            Integer'Image(Tab_Pos(Device).Device_Id) & ": " );
                        Get_line(line, Last);
                        if Last /= 0 then
                           Channel := Natural'Value(Line(1..Last));
                        else
                           Channel := 0;
                        end if;
                        case Channel is
                           when 0..15 =>
                              Tab_Pos(Device).Global_Channel := T_Channel(Channel);
                              Device := Device+1;
                              exit;
                           when others =>
                              New_Line;
                        end case;
                     exception
                        when others =>
                           Last := 0;
                           Put("Press any key to continue" );
                           Skip_Line;
                           New_Line;
                     end;
                  end loop;
               end loop Prepare1;
               if Device /= 0 then
                  loop
                     Put("Save configuration ? (y/n) : " );
                     Get_Immediate(Char);
                     case Char is
                        when 'Y' | 'y' =>
                           loop
                              begin
                                 New_Line;
                                 Put("Enter filename (Default=""orchester.txt"" ) : " );
                                 Get_Line(Line, Last);
                                 if Last /= 0 then
                                    Create(File, Out_File, Line(1..Last));
                                 else
                                    Create(File, Out_File, Default);
                                 end if;
                                 for I in 1..Device-1 loop
                                    Put_line(File, Integer'Image(Tab_Pos(I).Device_Id) &
                                             ',' &
                                             Integer'Image(Tab_Pos(I).Global_Channel));
                                 end loop;
                                 Close(File);
                                 exit;
                              exception
                                 when Name_Error =>
                                    Put_line("Filename is too long!" );
                              end;
                           end loop;
                           exit;
                        when 'N' | 'n' =>
                           exit;
                        when others =>
                           New_Line;
                     end case;
                  end loop;
               end if;
            end;
 
      end;
   end if;
 
end Main;

Voilà, manque t-il quelque chose ?
S'il vos plaît, merci, bien à vous.

Marsh Posté le 16-09-2009 à 21:33:22

Bonjour,

Je viens poster les dernière sources du projet,

Alors, je ne peux pas bien tester les dernière fonctionnalités...Car je n'ai pas de clavier et en plus je ne sais pas en jouer, enfin bon, j'aurais pu mieux faire.... Donc, j'ai pas tester si l'interaction entre le jeu au clavier et le jeu de l'ordinateur étaient équilibré... Car les dernière modif, justement, c'est la lecture du jeu au clavier. Ca passe dans un réseaux de neurones et c'est sensé modifier le jeu de l'ordinateur.

Voila. Et le lien Harmonie-1.1.0.7a pour Gnu/linux, nécessité la lib portmidi0-dev

Message édité par The matrix le 16-09-2009 à 21:34:04

Marsh Posté le 16-10-2012 à 17:53:58

Hey !

Salutations à tous les accro de technologie, pour vous satisfaire sur ce sujet, j'ai un peu de code.

Mais là n'est pas la question, ce que je veux ces comparer le les codes d'année en année.

Voici comment je génère mes drums aujourd'hui !

Code :

with Alchemist.Midi.Implementation;
use Alchemist.Midi.Implementation;
with Alchemist.Midi.Sheduler;
with Calendar;
use Calendar;
generic
   Channel : Channel_Type;
   with package Sheduler is new Alchemist.Midi.Sheduler(<> );
package Alchemist.Drums_Producer is
   
   task Drums_Process is
      entry Initialize;
      entry Start(Date : in Time; Tempo : in Float);
      entry Stop;
      entry Halt;
   end Drums_Process;
   
end Alchemist.Drums_Producer;

Code :

with Text_Io;
 
with Interfaces.C;
 
with Ada.Numerics.Discrete_Random;
 
package body Alchemist.Drums_Producer is   
   
   use Interfaces;                  
            
   use Sheduler, Sheduler.Messages_vectors;                                       
   
   
   
   
   type Step_Seq_Type is array (Positive range <> ) of Vector;
   
   type Step_Seq_Access is access Step_Seq_Type;
   
   type Part_Type is array (Positive range <> ) of Step_Seq_Access;
   
   
   Empty : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                           Empty_Vector,
                           Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                           Empty_Vector,
                           Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                           Empty_Vector,
                           Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector);
   
   Foot : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector & Note_On(Channel, 36, 100),                          
                          Empty_Vector & Note_Off(Channel, 36),
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector & Note_On(Channel, 36, 100),
                          Empty_Vector & Note_Off(Channel, 36),
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector);
   
   hats : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector & Note_On(Channel, 36, 100),                          
                          Empty_Vector & Note_Off(Channel, 36),
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector & Note_On(Channel, 46, 100),
                          Empty_Vector & Note_Off(Channel, 46),
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector & Note_On(Channel, 36, 100),
                          Empty_Vector & Note_Off(Channel, 36),
                          Empty_Vector,
                          Empty_Vector,
                          Empty_Vector & Note_On(Channel, 46, 100),
                          Empty_Vector & Note_Off(Channel, 46),
                          Empty_Vector,
                          Empty_Vector);
   
   Hats2 : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector & Note_On(Channel, 36, 100) & Note_On(Channel, 44, 100),                  
                           Empty_Vector & Note_Off(Channel, 36)  & Note_Off(Channel, 44),
                           Empty_Vector,
                           Empty_Vector,
                           Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100),
                           Empty_Vector & Note_Off(Channel, 46)  & Note_Off(Channel, 44),
                           Empty_Vector & Note_On(Channel, 44, 100),
                           Empty_Vector & Note_Off(Channel, 44),
                           Empty_Vector & Note_On(Channel, 36, 100) & Note_On(Channel, 44, 100),
                           Empty_Vector & Note_Off(Channel, 36)  & Note_Off(Channel, 44),
                           Empty_Vector,
                           Empty_Vector,
                           Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100),
                           Empty_Vector & Note_Off(Channel, 46) & Note_Off(Channel, 44),
                           Empty_Vector & Note_On(Channel, 44, 100),
                           Empty_Vector & Note_Off(Channel, 44));
   
   
   
   
   Break_Foot : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector & Note_On(Channel, 44, 100),                  
                            Empty_Vector,
                            Empty_Vector,
                            Empty_Vector,
                            Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100),
                            Empty_Vector,
                            Empty_Vector & Note_On(Channel, 44, 100),
                            Empty_Vector,
                            Empty_Vector & Note_On(Channel, 44, 100),
                            Empty_Vector,
                            Empty_Vector,
                            Empty_Vector,
                            Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100),
                            Empty_Vector,
                            Empty_Vector & Note_On(Channel, 44, 100),
                            Empty_Vector);
   
   Break_End : Step_Seq_Access := new Step_Seq_Type ' (Empty_Vector & Note_On(Channel, 44, 100) & Note_On(Channel, 36, 100),                  
                               Empty_Vector,
                               Empty_Vector,
                               Empty_Vector,
                               Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100),
                               Empty_Vector,
                               Empty_Vector & Note_On(Channel, 44, 100),
                               Empty_Vector,
                               Empty_Vector & Note_On(Channel, 44, 100) & Note_On(Channel, 36, 100),
                               Empty_Vector,
                               Empty_Vector,
                               Empty_Vector,
                               Empty_Vector & Note_On(Channel, 46, 100)  & Note_On(Channel, 44, 100) & Note_On(Channel, 36, 100),
                               Empty_Vector,
                               Empty_Vector & Note_On(Channel, 44, 100)  & Note_On(Channel, 36, 100),
                               Empty_Vector);
   
   
   
   
   Num_Part : constant Positive := Max_Step / 64;
   
   subtype Part_Index_Type is Positive range 1..Num_Part;
      
   
   
   Parts : Part_Type(Part_Index_type) := (1 => hats, 2 => foot, 3 => Break_Foot, 4 => Break_end, 5 => Break_Foot, 6 => foot, 7=> Empty, 8 => Break_End,
                      9 .. 16 => Hats2,
                      17 => Break_End, 18 => Empty, 19 => Foot, 20 => Empty, 21 => hats, 22 => Break_end, 23 => Empty, 24 => Hats2,  
                        Others => hats2);         
   
   
   
   
   function Step_Of(Step_Seq : in Step_Seq_Type; Step : in Step_Index_Type) return Vector is
   begin
      return Step_Seq(Step_Seq'First+( Step mod Step_Seq'Length));
   end Step_Of;
     
   
   package Part_Index_Rand is new Ada.Numerics.Discrete_Random(Part_Index_Type);
   Part_Gen : Part_Index_Rand.Generator;
   
   task body Drums_Process is
      End_Of_Task : Boolean := False;
      Suspended   : Boolean := True;
      Start_Time  : Time;
      Quantum     : Duration;
      
      Current_Step: Step_Index_Type := 1;
      The_Vector : Vector;
      The_Tempo   : Float := 120.0;      
      
      
   begin
      Part_Index_Rand.Reset(Part_Gen);
      accept Initialize do     
     for I in Step_Index_Type loop                    
        Sheduler_Process.Receive(Step_Of(Parts(Part_Index_Rand.Random(Part_Gen)).all, I), I);
     end loop;
      end Initialize;
      
      while not End_Of_Task loop
     while Suspended loop
        select
           accept Start(Date : in Time; Tempo : in Float) do
          Start_Time := Date;
          Quantum :=  Duration(60000.0/Tempo/8.0/1000.0);
          The_Tempo := Tempo;
          Suspended := False;             
           end Start;
        or
           accept Stop;
        or
           accept Halt do
          End_Of_Task := True;
           end Halt;
           exit;
        end select;
     end loop;
     Sheduler_Process.Receive(Empty_Vector & Message(16#FA#, 0,0), Current_step);
     while not Suspended loop
        select
           accept Start(Date : in Time; Tempo : in Float) do
          Start_Time := Date;
          Quantum :=  Duration(60000.0/Tempo/8.0/1000.0);
          The_Tempo := Tempo;
           end Start;
        or
           accept Stop do
          Suspended := True;
           end Stop;           
        or
           accept Halt do
          End_Of_Task := True;
           end Halt;
           exit;
        or
           delay until Start_Time;
           Start_Time := Start_Time + Quantum;
           Clear(The_Vector);
           
           The_Vector := Step_Of(Parts(Part_Index_Rand.Random(Part_Gen)).all, Current_Step);
           
           Sheduler_Process.Receive(The_Vector, Current_step);
           
           if Current_Step + 1 > Step_Index_Type'Last-1 then
          Current_Step := 1;
           else
          Current_Step := Current_Step + 1;
          
           end if;
           
           
           
           
        end select;
     end loop;
      end loop;
   end Drums_Process;
   
end Alchemist.Drums_Producer;

J'accorde 5 à 10 degrés d'efficacité à cette méthode.

Ce que je veux c'est comparer les code avec ce de demain ou de dans dix ans.
En même temps si vous avez un avis sur la question... Bienvenue.

Message édité par Profil supprimé le 16-10-2012 à 17:58:14

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *