Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
5829 connectés 

 
 


 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  21173  21174  21175  ..  35623  35624  35625  35626  35627  35628
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

[Topic Insomniaks] Il est entre 1h et 7h du mat' et tu erres? Entre...

n°19452981
Profil sup​primé
Posté le 10-08-2009 à 05:24:56  answer
 

Reprise du message précédent :
:o

mood
Publicité
Posté le 10-08-2009 à 05:24:56  profilanswer
 

n°19452984
pisus
Posté le 10-08-2009 à 05:27:42  profilanswer
 

alerte   [:gregosv]  
 
sinon qui peut me passez 5 euros par paypal contre une pipe virtuel ?
 
(ou 10 euros contre un football manager 2009  :o)

Message cité 1 fois
Message édité par pisus le 10-08-2009 à 05:28:19
n°19452989
Profil sup​primé
Posté le 10-08-2009 à 05:29:05  answer
 

t'as pas un CB ? :o

n°19452990
Thermostat​ 6
... pendant 20mn.
Posté le 10-08-2009 à 05:30:07  profilanswer
 

pisus a écrit :

alerte   [:gregosv]  
 
sinon qui peut me passez 5 euros par paypal contre une pipe virtuel ?
 
(ou 10 euros contre un football manager 2009  :o)


 
Je te donne mon compte steam :o

Message cité 1 fois

---------------
N'oubliez pas d'arroser régulièrement.
n°19452992
pisus
Posté le 10-08-2009 à 05:31:30  profilanswer
 

Pas avec moi :o  
et meme déja lié a  un compte duquel j'ai perdu le pass

n°19452993
Profil sup​primé
Posté le 10-08-2009 à 05:31:35  answer
 
n°19452994
pisus
Posté le 10-08-2009 à 05:31:58  profilanswer
 

Thermostat 6 a écrit :


 
Je te donne mon compte steam :o


envoie (contre une pipe virtuel )
 
je le revend sur un irc

Message cité 1 fois
n°19452996
Profil sup​primé
Posté le 10-08-2009 à 05:33:14  answer
 

ça se vend encore ce genre de truc serieux ?

Message cité 1 fois
n°19452997
Thermostat​ 6
... pendant 20mn.
Posté le 10-08-2009 à 05:33:18  profilanswer
 


pisus a écrit :


envoie (contre une pipe virtuel )
 
je le revend sur un irc


 
j'vais le revendre moi meme kthxbye


---------------
N'oubliez pas d'arroser régulièrement.
n°19452999
Profil sup​primé
Posté le 10-08-2009 à 05:33:51  answer
 

pas bête la guepe

Message cité 1 fois
mood
Publicité
Posté le 10-08-2009 à 05:33:51  profilanswer
 

n°19453001
Profil sup​primé
Posté le 10-08-2009 à 05:34:39  answer
 


 
 
 
 
 
 
[:ilovezadig] ?

Message cité 1 fois
n°19453002
pisus
Posté le 10-08-2009 à 05:35:29  profilanswer
 

:'( mais toi un jar dans le q

n°19453003
Thermostat​ 6
... pendant 20mn.
Posté le 10-08-2009 à 05:36:12  profilanswer
 


 
 
[:ilovezadig] ouais, pour toi :o

Message cité 1 fois

---------------
N'oubliez pas d'arroser régulièrement.
n°19453005
Profil sup​primé
Posté le 10-08-2009 à 05:41:08  answer
 

http://4.bp.blogspot.com/_SV9RU5STp7Q/SmlXQmZeHnI/AAAAAAAAAHo/dVaZ5Ozp6Kk/s320/Radio_Swan_Is_Down_02.jpg

n°19453006
Profil sup​primé
Posté le 10-08-2009 à 05:41:57  answer
 

Thermostat 6 a écrit :


[:ilovezadig] ouais, pour toi :o


 
[:lapin_vert:1]

n°19453007
Profil sup​primé
Posté le 10-08-2009 à 05:42:10  answer
 

:o

n°19453009
daaadou
o O ° O o Meggy le chat o O °
Posté le 10-08-2009 à 05:47:25  profilanswer
 

Putain, on peut domestiquer un puma! J'en veux un!

Message cité 3 fois
n°19453011
pisus
Posté le 10-08-2009 à 05:55:21  profilanswer
 

daaadou a écrit :

Putain, on peut domestiquer un puma! J'en veux un!


taggle ta peur des chat

n°19453012
potemkin
Optimisateur relativiste.
Posté le 10-08-2009 à 05:56:23  profilanswer
 

daaadou a écrit :

Putain, on peut domestiquer un puma! J'en veux un!


http://www.bysneaker.com/images/shoes/Puma-Shoes-41.jpg

n°19453013
potemkin
Optimisateur relativiste.
Posté le 10-08-2009 à 05:56:44  profilanswer
 

1h left :love:
 
Je m'écroule :(

n°19453014
BaF - FlOp
Posté le 10-08-2009 à 05:56:53  profilanswer
 

daaadou a écrit :

Putain, on peut domestiquer un puma! J'en veux un!


Super, acheter des pompes à Go Sport, tout le monde peut le faire, hein :/
/blague de merde

n°19453015
BaF - FlOp
Posté le 10-08-2009 à 05:57:35  profilanswer
 

Et en plus, jme fait burn [:prozac]
 
 
[:sadnoir]

n°19453018
Profil sup​primé
Posté le 10-08-2009 à 06:02:08  answer
 

[:haha]

n°19453023
Profil sup​primé
Posté le 10-08-2009 à 06:20:23  answer
 

:o

n°19453029
amdvsintel
Posté le 10-08-2009 à 06:28:51  profilanswer
 

:D

n°19453032
amdvsintel
Posté le 10-08-2009 à 06:31:21  profilanswer
 

j'ai trop bus [:sadnwar]

n°19453036
potemkin
Optimisateur relativiste.
Posté le 10-08-2009 à 06:41:41  profilanswer
 

Je poste une dernière fois, histoire que les tocards qui arriveront à 00h59 ce soir en scrutant les secondes me lisent et comprennent à quel point ils sont pathétiques.
 
Et amdvsintel, je te souhaite cordialement une mort rapide :jap:
 
Sur ce [:clooney6]

Message cité 1 fois
Message édité par potemkin le 10-08-2009 à 06:41:55
n°19453037
amdvsintel
Posté le 10-08-2009 à 06:43:17  profilanswer
 

potemkin a écrit :

Je poste une dernière fois, histoire que les tocards qui arriveront à 00h59 ce soir en scrutant les secondes me lisent et comprennent à quel point ils sont pathétiques.

 

Et amdvsintel, je te souhaite cordialement une mort rapide :jap:

 

Sur ce [:clooney6]


Moi, tocard, je te souhaite une bonne sodomie par ta soeur enfulé :jap:
Oui je suis un enculé et alors?C'est pour autant qu'il faut souhaiter ma mort? Non so va te faire enculer par un ours enfulé d'mes fesses/


Message édité par amdvsintel le 10-08-2009 à 06:44:28
n°19463597
The matrix
Chacun fait ce qu'il en veut.
Posté le 11-08-2009 à 00:59:26  profilanswer
 

Code :
  1. -- Program name : harmonie ; -- Description : Ordonnanceur.    -- Copyright © 2009 Manuel De Girardi
  2.  
  3.     -- Ce programme est un logiciel libre ; vous pouvez le redistribuer et/ou le modifier au titre
  4.     -- des clauses de la Licence Publique Générale GNU, telle que publiée par la Free
  5.     --Software Foundation ; soit la version 2 de la Licence, ou (à  votre discrétion) une version
  6.     --ultérieure quelconque. Ce programme est distribué dans l'espoir qu'il sera utile, mais
  7.     --SANS AUCUNE GARANTIE ; sans même une garantie implicite de COMMERCIABILITE
  8.     --ou DE CONFORMITE A UNE UTILISATION PARTICULIERE. Voir la Licence Publique
  9.     --Générale GNU pour plus de détails. Vous devriez avoir reçu un exemplaire de la Licence
  10.     --Publique Générale GNU avec ce programme ; si ce n'est pas le cas, écrivez à  la Free
  11.     --Software Foundation Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  12.  
  13.  
  14.  
  15. -------------------------------------------------------------------------------
  16. -- Author      : Manuel De Girardi
  17. -- Date        : 2009/08/09
  18. -- Version     : 0.0.0-0a
  19. -- Description : Compositeur-intepreteur de musique automatique.
  20. -------------------------------------------------------------------------------
  21.  
  22.  
  23. with Text_Io;
  24. with Ada.Characters.Handling;
  25. with Ada.Characters.Latin_1;
  26. with Ada.Strings, Ada.Strings.Fixed;
  27. with Pragmarc.Ansi_Tty_Control;
  28. with Calendar, Time_To_Date;
  29. with Ada.Integer_Text_Io;
  30. with System;
  31. with System.Address_To_Access_Conversions;
  32. with Interfaces.C;
  33. with Portmidi, Porttime;
  34. use Ada.Integer_Text_Io;
  35. use Text_Io;
  36. use Ada.Characters;
  37. use Ada.Characters.Handling;
  38. use Ada.Strings, Ada.Strings.Fixed;
  39. use Pragmarc.Ansi_Tty_Control;
  40. use Calendar, Time_To_Date;
  41. use System;
  42. use Interfaces.C;
  43. use Portmidi, Porttime;
  44.  
  45. with Harmonia;
  46.  
  47. procedure Main is
  48.  
  49.  
  50.  
  51.  
  52.    Clear_Screen : constant String := Latin_1.Esc & "ÿ;H" & Latin_1.Esc & "ÿ2J";
  53.  
  54.    task Harmonie is
  55.       entry Start;
  56.       entry Receive(Char : in Character);
  57.       entry Halt;
  58.    end Harmonie;
  59.  
  60.    task body Harmonie is
  61.       Date   : String(1..80) := (others => ' ');
  62.       Banner : String(1..80) := (others => ' ');
  63.       Help   : String(1..80) := (others => ' ');
  64.  
  65.       End_Of_Task : Boolean := False;
  66.       Line : String(1..256) :=  (others => ' ');
  67.       Last : Natural := 0;
  68.  
  69.  
  70.       type T_Command is (Null_Item, Start, Halt);
  71.  
  72.       function Value(Command : String) return T_Command is
  73.          Result : T_Command := Null_Item;
  74.       begin
  75.          if Ada.Strings.Fixed.Index(Command , " ",  Ada.Strings.Fixed.Index_Non_Blank(command)) /= 0 then
  76.             return T_Command'Value(Command(Ada.Strings.Fixed.Index_Non_Blank(Command)..Ada.Strings.Fixed.Index(Command, " ", Ada.St
  77. rings.Fixed.Index_Non_Blank(Command)) - 1));
  78.          else
  79.             return T_Command'Value(Command(Index_Non_Blank(Command)..Command'last));
  80.          end if;
  81.       exception
  82.             when Constraint_Error =>
  83.             Return Result;
  84.       end Value;
  85.  
  86.       command : T_Command;
  87.  
  88.  
  89.    begin
  90.       accept Start;
  91.       Move("Commands : HALT, START ; 'Esc' to quit.", Help, Error, Center);
  92.       Move("""Welcome to Harmonie.""", Banner, Error, Center);
  93.  
  94.       while not End_Of_Task loop
  95.          Move((80 * ' '), Date, Error, Center);
  96.          Move(Full_Datify_String(Clock), Date, Error, Center);
  97.          select
  98.             accept Receive(Char : in Character) do
  99.                if Is_Control(Char) then
  100.                   case Char is
  101.                      when Character'Val(10) =>
  102.                         Command := Value(Line(1..Last));
  103.                         Last := 0;
  104.                         case Command is
  105.                            when Halt =>
  106.                               Harmonia.Conductor.halt;
  107.                            when Start =>
  108.                               Harmonia.Conductor.start;
  109.                              delay 10.0;
  110.                            when others =>
  111.                               null;
  112.                         end case;
  113.                      when Character'Val(127) =>
  114.                         if Last /= 0 then
  115.                            Line(Last) := ' ';
  116.                            Last := Last - 1;
  117.                         end if;
  118.                      when others =>
  119.                         null;
  120.                   end case;
  121.                elsif Is_Special(Char) then
  122.                   null;
  123.                else
  124.                   if Last < Line'Length then
  125.                      Line(Last+1) := Char;
  126.                      Last := Last + 1;
  127.                   end if;
  128.                end if;
  129.             end Receive;
  130.          or
  131.             accept Halt do
  132.                Harmonia.Conductor.Stop;
  133.                End_Of_Task := True;
  134.             end Halt;
  135.          or
  136.             delay 0.05;
  137.             Put(Clear_Screen);
  138.             Put_line(Banner);
  139.             Put_Line(Date);
  140.             Put_line(help);
  141.             if Last /= 0 then
  142.                Put(Position((30 - Last/80),1));
  143.                put(Line(1..Last));
  144.             end if;
  145.          end select;
  146.       end loop;
  147.    end Harmonie;
  148.  
  149.  
  150.  
  151.  
  152.    subtype subString is Char_array(1..64);
  153.  
  154.    package String_Address_Conversion is new System.Address_To_Access_Conversions(substring);
  155.    use String_Address_conversion;
  156.  
  157.  
  158.    Pm_Error : PmError;
  159.  
  160.    PortMidiStream_Ptr,
  161.    OutputDriverInfo_Ptr,
  162.    Time_Info_Ptr  : System.Address;
  163.   Current_DeviceInfo : DeviceInfo;
  164.  
  165.    Device : Natural;
  166.  
  167.    Pt_Error : PtError;
  168.    Resolution : Integer;
  169.    PtCallback,
  170.    UserData : System.Address;
  171.  
  172.    Pm_Event : PmEvent;
  173.  
  174.  
  175.    Char : Character;
  176.  
  177.    Errno : Interfaces.C.Int;
  178.  
  179.  
  180. begin
  181.    Pt_Error := Pt_Start(Resolution, PtCallback, UserData);
  182.    Pm_Error := Pm_Initialize;
  183.    New_Line;
  184.    for I in 0..Pm_CountDevices-1 loop
  185.       Current_DeviceInfo := DeviceInfo_Conversion.To_Pointer(Pm_GetDeviceInfo(I)).all;
  186.       if Current_DeviceInfo.Output /= 0 then
  187.          Put(I);
  188.          Put_Line(" : " & To_Ada(To_Pointer(Current_DeviceInfo.Name).all));
  189.       end if;
  190.    end loop;
  191.    New_Line;
  192.    Put("Choose device : " );
  193.    Get(Device);
  194.    Pm_Error := Pm_OpenOutput( PortMidiStream => PortMidiStream_Ptr,
  195.                               OutputDevice => device,
  196.                               outputDriverInfo => OutputDriverInfo_ptr,
  197.                               BufferSize => 10,
  198.                               Time_Proc => Pt_Time'access,
  199.                               Time_Info => Time_Info_ptr,
  200.                               latency => 2);
  201.  
  202.    Put("Pm_OpenOutput... Ok !" );
  203.    if Pm_HasHostError(PortMidiStream_Ptr) /= 0 then
  204.       Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  205.    end if;
  206.    Pm_Event.Message := 16£90£+ 60+ 100;
  207.    Pm_Error := Pm_Write(PortMidiStream_Ptr, Pm_Event , 1);
  208.    Put("Pm_Write... Ok !" );
  209.    delay 5.0;
  210.  
  211.    Harmonie.Start;
  212.  
  213.    loop
  214.       Get_Immediate(Char);
  215.       case Char is
  216.          when Character'Val(27) =>
  217.             Harmonie.Halt;
  218.             exit;
  219.          when others =>
  220.             Harmonie.Receive(Char);
  221.       end case;
  222.    end loop;
  223.  
  224.    Pm_Error := Pm_Close(PortMidiStream => PortMidiStream_ptr);
  225.    Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  226.    Pm_Error := Pm_Terminate;
  227.  
  228.    New_Line;
  229.  
  230. end Main;


 
 

Code :
  1. with Porttime;
  2. with System;
  3. with Interfaces.C;
  4. with System.Address_To_Access_Conversions;
  5. package Portmidi is
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.    type PmError is (pmNoErro,
  13.                     PmHostError,
  14.                     pmInvalidDeviceId,
  15.                     pmInsufficientMemory,
  16.                     pmBufferTooSmall,
  17.                     pmBufferOverflow,
  18.                     pmBadPtr,
  19.                     pmBadData,
  20.                     pmInternalError,
  21.                     PmBufferMaxSize);
  22.  
  23.  
  24.    function Pm_GetErrorText( Errnum : PmError  ) return Interfaces.C.Char_Array;
  25.    Pragma Import (C, Pm_GetErrorText, "Pm_GetErrorText" );
  26.  
  27.    type DeviceInfo is
  28.       record
  29.          StructVersion : Integer;
  30.          Interf : System.address;
  31.          Name : System.Address;
  32.          Input : Integer;
  33.          Output : Integer;
  34.          Opened : integer;
  35.       end record;
  36.  
  37.  
  38.    function Pm_HasHostError( PortMidiStream : System.Address ) return Interfaces.C.Int;
  39.    pragma Import (C, Pm_HasHostError, "Pm_HasHostError" );
  40.  
  41.  
  42.    package DeviceInfo_Conversion is new System.Address_To_Access_Conversions(DeviceInfo);
  43.    use DeviceInfo_Conversion;
  44.  
  45.    function Pm_CountDevices return Integer;
  46.    pragma Import (C, Pm_CountDevices, "Pm_CountDevices" );
  47.  
  48.    function Pm_GetDeviceInfo(PmDeviceID : Integer) return System.address;
  49.    pragma Import (C, Pm_GetDeviceInfo, "Pm_GetDeviceInfo" );
  50.  
  51.  
  52.    function Pm_GetDefaultInputDeviceID return Interfaces.C.int;
  53.    pragma Import (C, Pm_GetDefaultInputDeviceID, "Pm_GetDefaultInputDeviceID" );
  54.  
  55.    function Pm_GetDefaultOutputDeviceID return Interfaces.C.Int;
  56.   pragma Import (C, Pm_GetDefaultOutputDeviceID, "Pm_GetDefaultOutputDeviceID" );
  57.  
  58.  
  59.    function Pm_Initialize return PmError;
  60.    pragma Import (C, Pm_Initialize, "Pm_Initialize" );
  61.  
  62.    function Pm_Terminate return PmError;
  63.    pragma Import (C, Pm_Terminate, "Pm_Terminate" );
  64.  
  65.  
  66.  
  67.    function Pm_OpenInput(PortMidiStream : System.address;
  68.                          PmDeviceID : Integer;
  69.                          InputDriverInfo : Integer;
  70.                          BufferSize : Long_Integer;
  71.                          PmTimeProcPtr : Porttime.Time_Access;
  72.                          time_info : integer) return PmError;
  73.    pragma Import (C, Pm_OpenInput, "Pm_OpenInput" );
  74.  
  75.  
  76.    function Pm_OpenOutput( PortMidiStream :System.address;
  77.                            OutputDevice : Integer;
  78.                            outputDriverInfo : System.address;
  79.                            BufferSize : Long_Integer;
  80.                            Time_Proc : Porttime.Time_Access;
  81.                            Time_Info : System.address;
  82.                            latency : Long_integer) return PmError;
  83.    pragma Import (C, Pm_OpenOutput, "Pm_OpenOutput" );
  84.  
  85.    function Pm_SetFilter(PortMidiStream : System.address;
  86.                          filters : Long_Integer) return PmError;
  87.    pragma Import (C, Pm_SetFilter, "Pm_SetFilter" );
  88.  
  89.    function Pm_SetChannelMask(PortMidiStream : System.address;
  90.                               Mask : integer) return PmError;
  91.    pragma Import (C, Pm_SetChannelMask, "Pm_SetChannelMask" );
  92.  
  93.    function Pm_Abort( PortMidiStream : System.address) return PmError;
  94.    pragma Import (C, Pm_Abort, "Pm_Abort" );
  95.  
  96.    function Pm_Close( PortMidiStream : System.address) return PmError;
  97.    pragma Import (C, Pm_Close, "Pm_Close" );
  98.  
  99.    type PmEvent is
  100.       record
  101.          Message : Interfaces.C.Long;
  102.          PmTimestamp : Interfaces.C.Long;
  103.       end record;
  104.  
  105.    function Pm_Read( PortMidiStream : System.address;
  106.                      Pm_Event : PmEvent;
  107.                      Length :Long_integer) return PmError;
  108.    pragma Import (C, Pm_Read, "Pm_Read" );
  109.  
  110.    function Pm_Poll( PortMidiStream : System.address) return PmError;
  111.   pragma Import (C, Pm_Poll, "Pm_Poll" );
  112.  
  113.    function Pm_Write( PortMidiStream : System.address;
  114.                       Pm_Event : PmEvent;
  115.                       length : Long_integer) return PmError ;
  116.    pragma Import (C, Pm_Write, "Pm_Write" );
  117.  
  118.  
  119.    function Pm_WriteShort( PortMidiStream :System.address;
  120.                            PmTimestamp : Float;
  121.                            Msg : Long_integer) return PmError;
  122.    pragma Import (C, Pm_WriteShort, "Pm_WriteShort" );
  123.  
  124.    function Pm_WriteSysEx( PortMidiStream : System.address;
  125.                            PmTimestamp : Float;
  126.                            Msg : integer) return PmError;
  127.    pragma Import (C, Pm_WriteSysEx, "Pm_WriteSysEx" );
  128.  
  129. end Portmidi;

Message cité 3 fois

---------------
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
n°19463604
Talladega
Transcendance
Posté le 11-08-2009 à 01:00:48  profilanswer
 

no niin, TERVE [:hurle]


---------------
Le topic de la Scandinavie | last.fm
n°19463608
Talladega
Transcendance
Posté le 11-08-2009 à 01:01:37  profilanswer
 

cte tentation de tout quoter [:totoz]


---------------
Le topic de la Scandinavie | last.fm
n°19463612
Thermostat​ 6
... pendant 20mn.
Posté le 11-08-2009 à 01:02:35  profilanswer
 

The matrix a écrit :

Code :
  1. -- Program name : harmonie ; -- Description : Ordonnanceur.    -- Copyright © 2009 Manuel De Girardi
  2.  
  3.     -- Ce programme est un logiciel libre ; vous pouvez le redistribuer et/ou le modifier au titre
  4.     -- des clauses de la Licence Publique Générale GNU, telle que publiée par la Free
  5.     --Software Foundation ; soit la version 2 de la Licence, ou (à  votre discrétion) une version
  6.     --ultérieure quelconque. Ce programme est distribué dans l'espoir qu'il sera utile, mais
  7.     --SANS AUCUNE GARANTIE ; sans même une garantie implicite de COMMERCIABILITE
  8.     --ou DE CONFORMITE A UNE UTILISATION PARTICULIERE. Voir la Licence Publique
  9.     --Générale GNU pour plus de détails. Vous devriez avoir reçu un exemplaire de la Licence
  10.     --Publique Générale GNU avec ce programme ; si ce n'est pas le cas, écrivez à  la Free
  11.     --Software Foundation Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  12.  
  13.  
  14.  
  15. -------------------------------------------------------------------------------
  16. -- Author      : Manuel De Girardi
  17. -- Date        : 2009/08/09
  18. -- Version     : 0.0.0-0a
  19. -- Description : Compositeur-intepreteur de musique automatique.
  20. -------------------------------------------------------------------------------
  21.  
  22.  
  23. with Text_Io;
  24. with Ada.Characters.Handling;
  25. with Ada.Characters.Latin_1;
  26. with Ada.Strings, Ada.Strings.Fixed;
  27. with Pragmarc.Ansi_Tty_Control;
  28. with Calendar, Time_To_Date;
  29. with Ada.Integer_Text_Io;
  30. with System;
  31. with System.Address_To_Access_Conversions;
  32. with Interfaces.C;
  33. with Portmidi, Porttime;
  34. use Ada.Integer_Text_Io;
  35. use Text_Io;
  36. use Ada.Characters;
  37. use Ada.Characters.Handling;
  38. use Ada.Strings, Ada.Strings.Fixed;
  39. use Pragmarc.Ansi_Tty_Control;
  40. use Calendar, Time_To_Date;
  41. use System;
  42. use Interfaces.C;
  43. use Portmidi, Porttime;
  44.  
  45. with Harmonia;
  46.  
  47. procedure Main is
  48.  
  49.  
  50.  
  51.  
  52.    Clear_Screen : constant String := Latin_1.Esc & "ÿ;H" & Latin_1.Esc & "ÿ2J";
  53.  
  54.    task Harmonie is
  55.       entry Start;
  56.       entry Receive(Char : in Character);
  57.       entry Halt;
  58.    end Harmonie;
  59.  
  60.    task body Harmonie is
  61.       Date   : String(1..80) := (others => ' ');
  62.       Banner : String(1..80) := (others => ' ');
  63.       Help   : String(1..80) := (others => ' ');
  64.  
  65.       End_Of_Task : Boolean := False;
  66.       Line : String(1..256) :=  (others => ' ');
  67.       Last : Natural := 0;
  68.  
  69.  
  70.       type T_Command is (Null_Item, Start, Halt);
  71.  
  72.       function Value(Command : String) return T_Command is
  73.          Result : T_Command := Null_Item;
  74.       begin
  75.          if Ada.Strings.Fixed.Index(Command , " ",  Ada.Strings.Fixed.Index_Non_Blank(command)) /= 0 then
  76.             return T_Command'Value(Command(Ada.Strings.Fixed.Index_Non_Blank(Command)..Ada.Strings.Fixed.Index(Command, " ", Ada.St
  77. rings.Fixed.Index_Non_Blank(Command)) - 1));
  78.          else
  79.             return T_Command'Value(Command(Index_Non_Blank(Command)..Command'last));
  80.          end if;
  81.       exception
  82.             when Constraint_Error =>
  83.             Return Result;
  84.       end Value;
  85.  
  86.       command : T_Command;
  87.  
  88.  
  89.    begin
  90.       accept Start;
  91.       Move("Commands : HALT, START ; 'Esc' to quit.", Help, Error, Center);
  92.       Move("""Welcome to Harmonie.""", Banner, Error, Center);
  93.  
  94.       while not End_Of_Task loop
  95.          Move((80 * ' '), Date, Error, Center);
  96.          Move(Full_Datify_String(Clock), Date, Error, Center);
  97.          select
  98.             accept Receive(Char : in Character) do
  99.                if Is_Control(Char) then
  100.                   case Char is
  101.                      when Character'Val(10) =>
  102.                         Command := Value(Line(1..Last));
  103.                         Last := 0;
  104.                         case Command is
  105.                            when Halt =>
  106.                               Harmonia.Conductor.halt;
  107.                            when Start =>
  108.                               Harmonia.Conductor.start;
  109.                              delay 10.0;
  110.                            when others =>
  111.                               null;
  112.                         end case;
  113.                      when Character'Val(127) =>
  114.                         if Last /= 0 then
  115.                            Line(Last) := ' ';
  116.                            Last := Last - 1;
  117.                         end if;
  118.                      when others =>
  119.                         null;
  120.                   end case;
  121.                elsif Is_Special(Char) then
  122.                   null;
  123.                else
  124.                   if Last < Line'Length then
  125.                      Line(Last+1) := Char;
  126.                      Last := Last + 1;
  127.                   end if;
  128.                end if;
  129.             end Receive;
  130.          or
  131.             accept Halt do
  132.                Harmonia.Conductor.Stop;
  133.                End_Of_Task := True;
  134.             end Halt;
  135.          or
  136.             delay 0.05;
  137.             Put(Clear_Screen);
  138.             Put_line(Banner);
  139.             Put_Line(Date);
  140.             Put_line(help);
  141.             if Last /= 0 then
  142.                Put(Position((30 - Last/80),1));
  143.                put(Line(1..Last));
  144.             end if;
  145.          end select;
  146.       end loop;
  147.    end Harmonie;
  148.  
  149.  
  150.  
  151.  
  152.    subtype subString is Char_array(1..64);
  153.  
  154.    package String_Address_Conversion is new System.Address_To_Access_Conversions(substring);
  155.    use String_Address_conversion;
  156.  
  157.  
  158.    Pm_Error : PmError;
  159.  
  160.    PortMidiStream_Ptr,
  161.    OutputDriverInfo_Ptr,
  162.    Time_Info_Ptr  : System.Address;
  163.   Current_DeviceInfo : DeviceInfo;
  164.  
  165.    Device : Natural;
  166.  
  167.    Pt_Error : PtError;
  168.    Resolution : Integer;
  169.    PtCallback,
  170.    UserData : System.Address;
  171.  
  172.    Pm_Event : PmEvent;
  173.  
  174.  
  175.    Char : Character;
  176.  
  177.    Errno : Interfaces.C.Int;
  178.  
  179.  
  180. begin
  181.    Pt_Error := Pt_Start(Resolution, PtCallback, UserData);
  182.    Pm_Error := Pm_Initialize;
  183.    New_Line;
  184.    for I in 0..Pm_CountDevices-1 loop
  185.       Current_DeviceInfo := DeviceInfo_Conversion.To_Pointer(Pm_GetDeviceInfo(I)).all;
  186.       if Current_DeviceInfo.Output /= 0 then
  187.          Put(I);
  188.          Put_Line(" : " & To_Ada(To_Pointer(Current_DeviceInfo.Name).all));
  189.       end if;
  190.    end loop;
  191.    New_Line;
  192.    Put("Choose device : " );
  193.    Get(Device);
  194.    Pm_Error := Pm_OpenOutput( PortMidiStream => PortMidiStream_Ptr,
  195.                               OutputDevice => device,
  196.                               outputDriverInfo => OutputDriverInfo_ptr,
  197.                               BufferSize => 10,
  198.                               Time_Proc => Pt_Time'access,
  199.                               Time_Info => Time_Info_ptr,
  200.                               latency => 2);
  201.  
  202.    Put("Pm_OpenOutput... Ok !" );
  203.    if Pm_HasHostError(PortMidiStream_Ptr) /= 0 then
  204.       Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  205.    end if;
  206.    Pm_Event.Message := 16£90£+ 60+ 100;
  207.    Pm_Error := Pm_Write(PortMidiStream_Ptr, Pm_Event , 1);
  208.    Put("Pm_Write... Ok !" );
  209.    delay 5.0;
  210.  
  211.    Harmonie.Start;
  212.  
  213.    loop
  214.       Get_Immediate(Char);
  215.       case Char is
  216.          when Character'Val(27) =>
  217.             Harmonie.Halt;
  218.             exit;
  219.          when others =>
  220.             Harmonie.Receive(Char);
  221.       end case;
  222.    end loop;
  223.  
  224.    Pm_Error := Pm_Close(PortMidiStream => PortMidiStream_ptr);
  225.    Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  226.    Pm_Error := Pm_Terminate;
  227.  
  228.    New_Line;
  229.  
  230. end Main;


 
 

Code :
  1. with Porttime;
  2. with System;
  3. with Interfaces.C;
  4. with System.Address_To_Access_Conversions;
  5. package Portmidi is
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.    type PmError is (pmNoErro,
  13.                     PmHostError,
  14.                     pmInvalidDeviceId,
  15.                     pmInsufficientMemory,
  16.                     pmBufferTooSmall,
  17.                     pmBufferOverflow,
  18.                     pmBadPtr,
  19.                     pmBadData,
  20.                     pmInternalError,
  21.                     PmBufferMaxSize);
  22.  
  23.  
  24.    function Pm_GetErrorText( Errnum : PmError  ) return Interfaces.C.Char_Array;
  25.    Pragma Import (C, Pm_GetErrorText, "Pm_GetErrorText" );
  26.  
  27.    type DeviceInfo is
  28.       record
  29.          StructVersion : Integer;
  30.          Interf : System.address;
  31.          Name : System.Address;
  32.          Input : Integer;
  33.          Output : Integer;
  34.          Opened : integer;
  35.       end record;
  36.  
  37.  
  38.    function Pm_HasHostError( PortMidiStream : System.Address ) return Interfaces.C.Int;
  39.    pragma Import (C, Pm_HasHostError, "Pm_HasHostError" );
  40.  
  41.  
  42.    package DeviceInfo_Conversion is new System.Address_To_Access_Conversions(DeviceInfo);
  43.    use DeviceInfo_Conversion;
  44.  
  45.    function Pm_CountDevices return Integer;
  46.    pragma Import (C, Pm_CountDevices, "Pm_CountDevices" );
  47.  
  48.    function Pm_GetDeviceInfo(PmDeviceID : Integer) return System.address;
  49.    pragma Import (C, Pm_GetDeviceInfo, "Pm_GetDeviceInfo" );
  50.  
  51.  
  52.    function Pm_GetDefaultInputDeviceID return Interfaces.C.int;
  53.    pragma Import (C, Pm_GetDefaultInputDeviceID, "Pm_GetDefaultInputDeviceID" );
  54.  
  55.    function Pm_GetDefaultOutputDeviceID return Interfaces.C.Int;
  56.   pragma Import (C, Pm_GetDefaultOutputDeviceID, "Pm_GetDefaultOutputDeviceID" );
  57.  
  58.  
  59.    function Pm_Initialize return PmError;
  60.    pragma Import (C, Pm_Initialize, "Pm_Initialize" );
  61.  
  62.    function Pm_Terminate return PmError;
  63.    pragma Import (C, Pm_Terminate, "Pm_Terminate" );
  64.  
  65.  
  66.  
  67.    function Pm_OpenInput(PortMidiStream : System.address;
  68.                          PmDeviceID : Integer;
  69.                          InputDriverInfo : Integer;
  70.                          BufferSize : Long_Integer;
  71.                          PmTimeProcPtr : Porttime.Time_Access;
  72.                          time_info : integer) return PmError;
  73.    pragma Import (C, Pm_OpenInput, "Pm_OpenInput" );
  74.  
  75.  
  76.    function Pm_OpenOutput( PortMidiStream :System.address;
  77.                            OutputDevice : Integer;
  78.                            outputDriverInfo : System.address;
  79.                            BufferSize : Long_Integer;
  80.                            Time_Proc : Porttime.Time_Access;
  81.                            Time_Info : System.address;
  82.                            latency : Long_integer) return PmError;
  83.    pragma Import (C, Pm_OpenOutput, "Pm_OpenOutput" );
  84.  
  85.    function Pm_SetFilter(PortMidiStream : System.address;
  86.                          filters : Long_Integer) return PmError;
  87.    pragma Import (C, Pm_SetFilter, "Pm_SetFilter" );
  88.  
  89.    function Pm_SetChannelMask(PortMidiStream : System.address;
  90.                               Mask : integer) return PmError;
  91.    pragma Import (C, Pm_SetChannelMask, "Pm_SetChannelMask" );
  92.  
  93.    function Pm_Abort( PortMidiStream : System.address) return PmError;
  94.    pragma Import (C, Pm_Abort, "Pm_Abort" );
  95.  
  96.    function Pm_Close( PortMidiStream : System.address) return PmError;
  97.    pragma Import (C, Pm_Close, "Pm_Close" );
  98.  
  99.    type PmEvent is
  100.       record
  101.          Message : Interfaces.C.Long;
  102.          PmTimestamp : Interfaces.C.Long;
  103.       end record;
  104.  
  105.    function Pm_Read( PortMidiStream : System.address;
  106.                      Pm_Event : PmEvent;
  107.                      Length :Long_integer) return PmError;
  108.    pragma Import (C, Pm_Read, "Pm_Read" );
  109.  
  110.    function Pm_Poll( PortMidiStream : System.address) return PmError;
  111.   pragma Import (C, Pm_Poll, "Pm_Poll" );
  112.  
  113.    function Pm_Write( PortMidiStream : System.address;
  114.                       Pm_Event : PmEvent;
  115.                       length : Long_integer) return PmError ;
  116.    pragma Import (C, Pm_Write, "Pm_Write" );
  117.  
  118.  
  119.    function Pm_WriteShort( PortMidiStream :System.address;
  120.                            PmTimestamp : Float;
  121.                            Msg : Long_integer) return PmError;
  122.    pragma Import (C, Pm_WriteShort, "Pm_WriteShort" );
  123.  
  124.    function Pm_WriteSysEx( PortMidiStream : System.address;
  125.                            PmTimestamp : Float;
  126.                            Msg : integer) return PmError;
  127.    pragma Import (C, Pm_WriteSysEx, "Pm_WriteSysEx" );
  128.  
  129. end Portmidi;



 
Pourquoi se gêner de tout quoter ?
 

Message cité 2 fois

---------------
N'oubliez pas d'arroser régulièrement.
n°19463617
Giuvral
Posté le 11-08-2009 à 01:03:43  profilanswer
 

The matrix a écrit :

Code :
  1. -- Program name : harmonie ; -- Description : Ordonnanceur.    -- Copyright © 2009 Manuel De Girardi
  2.  
  3.     -- Ce programme est un logiciel libre ; vous pouvez le redistribuer et/ou le modifier au titre
  4.     -- des clauses de la Licence Publique Générale GNU, telle que publiée par la Free
  5.     --Software Foundation ; soit la version 2 de la Licence, ou (à  votre discrétion) une version
  6.     --ultérieure quelconque. Ce programme est distribué dans l'espoir qu'il sera utile, mais
  7.     --SANS AUCUNE GARANTIE ; sans même une garantie implicite de COMMERCIABILITE
  8.     --ou DE CONFORMITE A UNE UTILISATION PARTICULIERE. Voir la Licence Publique
  9.     --Générale GNU pour plus de détails. Vous devriez avoir reçu un exemplaire de la Licence
  10.     --Publique Générale GNU avec ce programme ; si ce n'est pas le cas, écrivez à  la Free
  11.     --Software Foundation Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  12.  
  13.  
  14.  
  15. -------------------------------------------------------------------------------
  16. -- Author      : Manuel De Girardi
  17. -- Date        : 2009/08/09
  18. -- Version     : 0.0.0-0a
  19. -- Description : Compositeur-intepreteur de musique automatique.
  20. -------------------------------------------------------------------------------
  21.  
  22.  
  23. with Text_Io;
  24. with Ada.Characters.Handling;
  25. with Ada.Characters.Latin_1;
  26. with Ada.Strings, Ada.Strings.Fixed;
  27. with Pragmarc.Ansi_Tty_Control;
  28. with Calendar, Time_To_Date;
  29. with Ada.Integer_Text_Io;
  30. with System;
  31. with System.Address_To_Access_Conversions;
  32. with Interfaces.C;
  33. with Portmidi, Porttime;
  34. use Ada.Integer_Text_Io;
  35. use Text_Io;
  36. use Ada.Characters;
  37. use Ada.Characters.Handling;
  38. use Ada.Strings, Ada.Strings.Fixed;
  39. use Pragmarc.Ansi_Tty_Control;
  40. use Calendar, Time_To_Date;
  41. use System;
  42. use Interfaces.C;
  43. use Portmidi, Porttime;
  44.  
  45. with Harmonia;
  46.  
  47. procedure Main is
  48.  
  49.  
  50.  
  51.  
  52.    Clear_Screen : constant String := Latin_1.Esc & "ÿ;H" & Latin_1.Esc & "ÿ2J";
  53.  
  54.    task Harmonie is
  55.       entry Start;
  56.       entry Receive(Char : in Character);
  57.       entry Halt;
  58.    end Harmonie;
  59.  
  60.    task body Harmonie is
  61.       Date   : String(1..80) := (others => ' ');
  62.       Banner : String(1..80) := (others => ' ');
  63.       Help   : String(1..80) := (others => ' ');
  64.  
  65.       End_Of_Task : Boolean := False;
  66.       Line : String(1..256) :=  (others => ' ');
  67.       Last : Natural := 0;
  68.  
  69.  
  70.       type T_Command is (Null_Item, Start, Halt);
  71.  
  72.       function Value(Command : String) return T_Command is
  73.          Result : T_Command := Null_Item;
  74.       begin
  75.          if Ada.Strings.Fixed.Index(Command , " ",  Ada.Strings.Fixed.Index_Non_Blank(command)) /= 0 then
  76.             return T_Command'Value(Command(Ada.Strings.Fixed.Index_Non_Blank(Command)..Ada.Strings.Fixed.Index(Command, " ", Ada.St
  77. rings.Fixed.Index_Non_Blank(Command)) - 1));
  78.          else
  79.             return T_Command'Value(Command(Index_Non_Blank(Command)..Command'last));
  80.          end if;
  81.       exception
  82.             when Constraint_Error =>
  83.             Return Result;
  84.       end Value;
  85.  
  86.       command : T_Command;
  87.  
  88.  
  89.    begin
  90.       accept Start;
  91.       Move("Commands : HALT, START ; 'Esc' to quit.", Help, Error, Center);
  92.       Move("""Welcome to Harmonie.""", Banner, Error, Center);
  93.  
  94.       while not End_Of_Task loop
  95.          Move((80 * ' '), Date, Error, Center);
  96.          Move(Full_Datify_String(Clock), Date, Error, Center);
  97.          select
  98.             accept Receive(Char : in Character) do
  99.                if Is_Control(Char) then
  100.                   case Char is
  101.                      when Character'Val(10) =>
  102.                         Command := Value(Line(1..Last));
  103.                         Last := 0;
  104.                         case Command is
  105.                            when Halt =>
  106.                               Harmonia.Conductor.halt;
  107.                            when Start =>
  108.                               Harmonia.Conductor.start;
  109.                              delay 10.0;
  110.                            when others =>
  111.                               null;
  112.                         end case;
  113.                      when Character'Val(127) =>
  114.                         if Last /= 0 then
  115.                            Line(Last) := ' ';
  116.                            Last := Last - 1;
  117.                         end if;
  118.                      when others =>
  119.                         null;
  120.                   end case;
  121.                elsif Is_Special(Char) then
  122.                   null;
  123.                else
  124.                   if Last < Line'Length then
  125.                      Line(Last+1) := Char;
  126.                      Last := Last + 1;
  127.                   end if;
  128.                end if;
  129.             end Receive;
  130.          or
  131.             accept Halt do
  132.                Harmonia.Conductor.Stop;
  133.                End_Of_Task := True;
  134.             end Halt;
  135.          or
  136.             delay 0.05;
  137.             Put(Clear_Screen);
  138.             Put_line(Banner);
  139.             Put_Line(Date);
  140.             Put_line(help);
  141.             if Last /= 0 then
  142.                Put(Position((30 - Last/80),1));
  143.                put(Line(1..Last));
  144.             end if;
  145.          end select;
  146.       end loop;
  147.    end Harmonie;
  148.  
  149.  
  150.  
  151.  
  152.    subtype subString is Char_array(1..64);
  153.  
  154.    package String_Address_Conversion is new System.Address_To_Access_Conversions(substring);
  155.    use String_Address_conversion;
  156.  
  157.  
  158.    Pm_Error : PmError;
  159.  
  160.    PortMidiStream_Ptr,
  161.    OutputDriverInfo_Ptr,
  162.    Time_Info_Ptr  : System.Address;
  163.   Current_DeviceInfo : DeviceInfo;
  164.  
  165.    Device : Natural;
  166.  
  167.    Pt_Error : PtError;
  168.    Resolution : Integer;
  169.    PtCallback,
  170.    UserData : System.Address;
  171.  
  172.    Pm_Event : PmEvent;
  173.  
  174.  
  175.    Char : Character;
  176.  
  177.    Errno : Interfaces.C.Int;
  178.  
  179.  
  180. begin
  181.    Pt_Error := Pt_Start(Resolution, PtCallback, UserData);
  182.    Pm_Error := Pm_Initialize;
  183.    New_Line;
  184.    for I in 0..Pm_CountDevices-1 loop
  185.       Current_DeviceInfo := DeviceInfo_Conversion.To_Pointer(Pm_GetDeviceInfo(I)).all;
  186.       if Current_DeviceInfo.Output /= 0 then
  187.          Put(I);
  188.          Put_Line(" : " & To_Ada(To_Pointer(Current_DeviceInfo.Name).all));
  189.       end if;
  190.    end loop;
  191.    New_Line;
  192.    Put("Choose device : " );
  193.    Get(Device);
  194.    Pm_Error := Pm_OpenOutput( PortMidiStream => PortMidiStream_Ptr,
  195.                               OutputDevice => device,
  196.                               outputDriverInfo => OutputDriverInfo_ptr,
  197.                               BufferSize => 10,
  198.                               Time_Proc => Pt_Time'access,
  199.                               Time_Info => Time_Info_ptr,
  200.                               latency => 2);
  201.  
  202.    Put("Pm_OpenOutput... Ok !" );
  203.    if Pm_HasHostError(PortMidiStream_Ptr) /= 0 then
  204.       Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  205.    end if;
  206.    Pm_Event.Message := 16£90£+ 60+ 100;
  207.    Pm_Error := Pm_Write(PortMidiStream_Ptr, Pm_Event , 1);
  208.    Put("Pm_Write... Ok !" );
  209.    delay 5.0;
  210.  
  211.    Harmonie.Start;
  212.  
  213.    loop
  214.       Get_Immediate(Char);
  215.       case Char is
  216.          when Character'Val(27) =>
  217.             Harmonie.Halt;
  218.             exit;
  219.          when others =>
  220.             Harmonie.Receive(Char);
  221.       end case;
  222.    end loop;
  223.  
  224.    Pm_Error := Pm_Close(PortMidiStream => PortMidiStream_ptr);
  225.    Put_line(To_Ada(Pm_GetErrorText(Pm_Error)));
  226.    Pm_Error := Pm_Terminate;
  227.  
  228.    New_Line;
  229.  
  230. end Main;


 
 

Code :
  1. with Porttime;
  2. with System;
  3. with Interfaces.C;
  4. with System.Address_To_Access_Conversions;
  5. package Portmidi is
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.    type PmError is (pmNoErro,
  13.                     PmHostError,
  14.                     pmInvalidDeviceId,
  15.                     pmInsufficientMemory,
  16.                     pmBufferTooSmall,
  17.                     pmBufferOverflow,
  18.                     pmBadPtr,
  19.                     pmBadData,
  20.                     pmInternalError,
  21.                     PmBufferMaxSize);
  22.  
  23.  
  24.    function Pm_GetErrorText( Errnum : PmError  ) return Interfaces.C.Char_Array;
  25.    Pragma Import (C, Pm_GetErrorText, "Pm_GetErrorText" );
  26.  
  27.    type DeviceInfo is
  28.       record
  29.          StructVersion : Integer;
  30.          Interf : System.address;
  31.          Name : System.Address;
  32.          Input : Integer;
  33.          Output : Integer;
  34.          Opened : integer;
  35.       end record;
  36.  
  37.  
  38.    function Pm_HasHostError( PortMidiStream : System.Address ) return Interfaces.C.Int;
  39.    pragma Import (C, Pm_HasHostError, "Pm_HasHostError" );
  40.  
  41.  
  42.    package DeviceInfo_Conversion is new System.Address_To_Access_Conversions(DeviceInfo);
  43.    use DeviceInfo_Conversion;
  44.  
  45.    function Pm_CountDevices return Integer;
  46.    pragma Import (C, Pm_CountDevices, "Pm_CountDevices" );
  47.  
  48.    function Pm_GetDeviceInfo(PmDeviceID : Integer) return System.address;
  49.    pragma Import (C, Pm_GetDeviceInfo, "Pm_GetDeviceInfo" );
  50.  
  51.  
  52.    function Pm_GetDefaultInputDeviceID return Interfaces.C.int;
  53.    pragma Import (C, Pm_GetDefaultInputDeviceID, "Pm_GetDefaultInputDeviceID" );
  54.  
  55.    function Pm_GetDefaultOutputDeviceID return Interfaces.C.Int;
  56.   pragma Import (C, Pm_GetDefaultOutputDeviceID, "Pm_GetDefaultOutputDeviceID" );
  57.  
  58.  
  59.    function Pm_Initialize return PmError;
  60.    pragma Import (C, Pm_Initialize, "Pm_Initialize" );
  61.  
  62.    function Pm_Terminate return PmError;
  63.    pragma Import (C, Pm_Terminate, "Pm_Terminate" );
  64.  
  65.  
  66.  
  67.    function Pm_OpenInput(PortMidiStream : System.address;
  68.                          PmDeviceID : Integer;
  69.                          InputDriverInfo : Integer;
  70.                          BufferSize : Long_Integer;
  71.                          PmTimeProcPtr : Porttime.Time_Access;
  72.                          time_info : integer) return PmError;
  73.    pragma Import (C, Pm_OpenInput, "Pm_OpenInput" );
  74.  
  75.  
  76.    function Pm_OpenOutput( PortMidiStream :System.address;
  77.                            OutputDevice : Integer;
  78.                            outputDriverInfo : System.address;
  79.                            BufferSize : Long_Integer;
  80.                            Time_Proc : Porttime.Time_Access;
  81.                            Time_Info : System.address;
  82.                            latency : Long_integer) return PmError;
  83.    pragma Import (C, Pm_OpenOutput, "Pm_OpenOutput" );
  84.  
  85.    function Pm_SetFilter(PortMidiStream : System.address;
  86.                          filters : Long_Integer) return PmError;
  87.    pragma Import (C, Pm_SetFilter, "Pm_SetFilter" );
  88.  
  89.    function Pm_SetChannelMask(PortMidiStream : System.address;
  90.                               Mask : integer) return PmError;
  91.    pragma Import (C, Pm_SetChannelMask, "Pm_SetChannelMask" );
  92.  
  93.    function Pm_Abort( PortMidiStream : System.address) return PmError;
  94.    pragma Import (C, Pm_Abort, "Pm_Abort" );
  95.  
  96.    function Pm_Close( PortMidiStream : System.address) return PmError;
  97.    pragma Import (C, Pm_Close, "Pm_Close" );
  98.  
  99.    type PmEvent is
  100.       record
  101.          Message : Interfaces.C.Long;
  102.          PmTimestamp : Interfaces.C.Long;
  103.       end record;
  104.  
  105.    function Pm_Read( PortMidiStream : System.address;
  106.                      Pm_Event : PmEvent;
  107.                      Length :Long_integer) return PmError;
  108.    pragma Import (C, Pm_Read, "Pm_Read" );
  109.  
  110.    function Pm_Poll( PortMidiStream : System.address) return PmError;
  111.   pragma Import (C, Pm_Poll, "Pm_Poll" );
  112.  
  113.    function Pm_Write( PortMidiStream : System.address;
  114.                       Pm_Event : PmEvent;
  115.                       length : Long_integer) return PmError ;
  116.    pragma Import (C, Pm_Write, "Pm_Write" );
  117.  
  118.  
  119.    function Pm_WriteShort( PortMidiStream :System.address;
  120.                            PmTimestamp : Float;
  121.                            Msg : Long_integer) return PmError;
  122.    pragma Import (C, Pm_WriteShort, "Pm_WriteShort" );
  123.  
  124.    function Pm_WriteSysEx( PortMidiStream : System.address;
  125.                            PmTimestamp : Float;
  126.                            Msg : integer) return PmError;
  127.    pragma Import (C, Pm_WriteSysEx, "Pm_WriteSysEx" );
  128.  
  129. end Portmidi;



 
s'quoi  :o ?

Message cité 1 fois
n°19463623
shadowdim
Perdu
Posté le 11-08-2009 à 01:04:24  profilanswer
 

Bonsoir Inso [:totozz]  
 
J'ai passé mon aprem a essayer d'avoir du son sur mon *tout nouveau* Hp Pavilion dv6 1225sf, que j'ai passé sous Crunchbang Linux. Mais j'y arrive pas :o

Message cité 3 fois

---------------
Mangas/DVD - Chiptune
n°19463624
Talladega
Transcendance
Posté le 11-08-2009 à 01:04:26  profilanswer
 

Thermostat 6 a écrit :


 
Pourquoi se gêner de tout quoter ?
 


bonum est judicium tuum


---------------
Le topic de la Scandinavie | last.fm
n°19463628
Talladega
Transcendance
Posté le 11-08-2009 à 01:04:47  profilanswer
 

shadowdim a écrit :

Bonsoir Inso [:totozz]  
 
J'ai passé mon aprem a essayer d'avoir du son sur mon *tout nouveau* Hp Pavilion dv6 1225sf, que j'ai passé sous Crunchbang Linux. Mais j'y arrive pas :o


cocu


---------------
Le topic de la Scandinavie | last.fm
n°19463630
The matrix
Chacun fait ce qu'il en veut.
Posté le 11-08-2009 à 01:05:02  profilanswer
 

Thermostat 6 a écrit :


 
Pourquoi se gêner de tout quoter ?
 


 
Parce que ça marche pas.
M'enfin c'est mon cadal du jour.

Message cité 1 fois

---------------
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
n°19463631
Talladega
Transcendance
Posté le 11-08-2009 à 01:05:08  profilanswer
 

regardez ca plutot
http://www.youtube.com/watch?v=mbMzsPwehNg
 
son de qualitaÿÿÿ

Message cité 2 fois

---------------
Le topic de la Scandinavie | last.fm
n°19463636
The matrix
Chacun fait ce qu'il en veut.
Posté le 11-08-2009 à 01:06:01  profilanswer
 

Giuvral a écrit :


 
s'quoi  :o ?


 
C'est le début d'un programme de pilotage de synthétiseur et autre instrument midi.

Message cité 1 fois

---------------
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
n°19463642
Thermostat​ 6
... pendant 20mn.
Posté le 11-08-2009 à 01:06:38  profilanswer
 

shadowdim a écrit :

Bonsoir Inso [:totozz]  
 
J'ai passé mon aprem a essayer d'avoir du son sur mon *tout nouveau* Hp Pavilion dv6 1225sf, que j'ai passé sous Crunchbang Linux. Mais j'y arrive pas :o


 
 
Linux fail.

The matrix a écrit :


 
Parce que ça marche pas.
M'enfin c'est mon cadal du jour.


 
Taggle sale con.
 

Talladega a écrit :

regardez ca plutot
http://www.youtube.com/watch?v=mbMzsPwehNg
 
son de qualitaÿÿÿ


 
Sauf Shadowdim.

Message cité 1 fois

---------------
N'oubliez pas d'arroser régulièrement.
n°19463651
Talladega
Transcendance
Posté le 11-08-2009 à 01:08:05  profilanswer
 

LE SECRET LE SECRET DE NOUUUUUUS [:echocedric]


---------------
Le topic de la Scandinavie | last.fm
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  ..  21173  21174  21175  ..  35623  35624  35625  35626  35627  35628
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
[Topic unique] Du snowboardRecherche d un lien/topic
[Topic sérieux] Accident mortel à Lons le Saunier le 6/10/2003Recherche d'un topic célèbre de l'ancien forum...
[ hugh ] - Le topic pour commencer à fumer !!Délai minimum entre un repas et une séance de sport ?
[Topic football féminin]Le topic de Guy Carlier
Question psycho : Un topic existe a ce sujet ? (rechercher failled)[Topic officiel] Nuit blanche sur Paris!! Vos bons plans
Plus de sujets relatifs à : [Topic Insomniaks] Il est entre 1h et 7h du mat' et tu erres? Entre...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.295 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)