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

 


 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  178  179  180  ..  188  189  190  191  192  193
Auteur Sujet :

[Topic Outil] sauvegardez le contenu de votre presse papier

n°2127002
mareek
Et de 3 \o/
Posté le 18-02-2012 à 00:50:09  profilanswer
 

Reprise du message précédent :
http://upload.wikimedia.org/wikipe [...] 0_logo.svg


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
mood
Publicité
Posté le 18-02-2012 à 00:50:09  profilanswer
 

n°2127014
Dj YeLL
$question = $to_be || !$to_be;
Posté le 18-02-2012 à 10:24:05  profilanswer
 

line-height: 30px;


---------------
Gamertag: CoteBlack YeLL
n°2127020
Lone Morge​n
Posté le 18-02-2012 à 12:03:44  profilanswer
 

8ce11a464

n°2127021
masklinn
í dag viðrar vel til loftárása
Posté le 18-02-2012 à 12:20:35  profilanswer
 

http://www.youtube.com/watch?v=w2f6tgnZ1EI


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2127159
Profil sup​primé
Posté le 19-02-2012 à 20:36:15  answer
 

Code :
  1. ----------------------------------------
  2. --            Libmy.MIDI              --
  3. ----------------------------------------
  4. -- Date      : dimanche 19 février 2012,
  5. --             10:12:30 (UTC+0100)
  6. -- Author    : Manuel De Girardi
  7. -- Decription: It's my MIDI lib.
  8. ----------------------------------------
  9. with Ada.Text_Io;                        use Ada;
  10.  
  11. package body Libmy.MIDI.Driver.Radias is
  12.  
  13.  
  14.   procedure Initialize(Radias : out Radias_Type;
  15.                        Keyb   : Addr_Num;
  16.                        Input  : Addr_Num;
  17.                        Output : Addr_Num) is
  18.   begin
  19.      Radias := new Radias_Device_Type;
  20.      Radias.Keyb := Keyb;
  21.      Radias.Keyb_Driver := new Keyb_Driver_Type(Radias);
  22.      Radias.Input := Input;
  23.      Radias.Input_Driver := new Input_Driver_Type(Radias);
  24.      Radias.Output := Output;
  25.      Radias.Output_Driver := new Output_Driver_Type;
  26.      Radias.Output_Driver.Set_Output(Output);
  27.      Text_Io.Put_Line("output iniitlaized" );
  28.      Radias.Radias_Driver := new Radias_Driver_Type(Radias);
  29.      Radias.Program := new Radias_Program_Type(Radias);
  30.      Radias.Global_Driver := new Global_Driver_Type(Radias);
  31.  
  32.   end Initialize;
  33.  
  34.   procedure Start(Radias : in Radias_Type) is
  35.      Date : Time := Clock;
  36.   begin
  37.      Radias.Output_Driver.Start;
  38.      Text_Io.Put_Line("output started" );
  39.      Radias.Global_Driver.Start(Radias.Program.Tempo, date + 1.0);
  40.      Text_Io.Put_Line("Global started" );
  41.      Radias.Radias_Driver.Start(Radias.Program.Tempo, date + 1.0);
  42.      Text_Io.Put_Line("Radias started" );
  43.   end Start;
  44.  
  45.   procedure Stop(Radias : in Radias_Type) is
  46.   begin
  47.      null;
  48.   end Stop;
  49.  
  50.   procedure Halt(Radias : in Radias_Type) is
  51.   begin
  52.      null;
  53.   end Halt;
  54.  
  55.   task body Drums_Driver_Type is
  56.  
  57.      Suspended, End_Of_Task : Boolean := False;
  58.      Message : Message_Type;
  59.      Date : Time := Clock;
  60.   begin
  61.  
  62.      while not End_Of_Task loop
  63.         select
  64.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  65.               --if Timbre.Eq /= null then
  66.               --   Timbre.Eq.Eq_Driver.Start(Bpm, Top);
  67.               --end if;
  68.               --Start(Player, Bpm, Top);
  69.               Suspended := False;
  70.               Date := Top;
  71.               --Tempo := Bpm;
  72.  
  73.            end Start;
  74.         or
  75.            accept Halt do
  76.               --if Timbre.Eq /= null then
  77.               --   Timbre.Eq.Eq_Driver.Halt;
  78.               --end if;
  79.               --Halt(Player);
  80.               Suspended := True;
  81.               End_Of_Task := True;
  82.            end Halt;
  83.         end select;
  84.         delay until Date;
  85.         while not Suspended loop
  86.            select
  87.               accept Stop do
  88.                  --if Timbre.Eq /= null then
  89.                  --   Timbre.Eq.Eq_Driver.Stop;
  90.                  --end if;
  91.                  --Stop(Player);
  92.                  Suspended := True;
  93.               end Stop;
  94.            or
  95.               accept Halt do
  96.                  --if Timbre.Eq /= null then
  97.                  --   Timbre.Eq.Eq_Driver.Halt;
  98.                  --end if;
  99.                  --Halt(Player);
  100.                  Suspended := True;
  101.                  End_Of_Task := True;
  102.               end Halt;
  103.            or
  104.               accept Receive(Message : in C.Long) do
  105.                  null;
  106.               end Receive;
  107.            or
  108.               accept Receive(Chord : in MIDI_Ctrl_Type) do
  109.                  --Receive(Player, Chord);
  110.                  null;
  111.               end Receive;
  112.            or
  113.               delay 0.3;
  114.            end select;
  115.         end loop;
  116.      end loop;
  117.   exception
  118.      when others =>
  119.         Text_Io.Put("Exception in Drums" );
  120.   end Drums_Driver_Type;
  121.  
  122.   task body Synth_Driver_Type is
  123.  
  124.      Suspended, End_Of_Task : Boolean := False;
  125.      Message : Message_Type;
  126.      Date  : Time := Clock;
  127.   begin
  128.  
  129.      while not End_Of_Task loop
  130.         select
  131.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  132.               Date := Top;
  133.               Suspended := False;
  134.            end Start;
  135.         or
  136.            accept Halt do
  137.               Suspended := True;
  138.               End_Of_Task := True;
  139.            end Halt;
  140.         end select;
  141.         delay until Date;
  142.         while not Suspended loop
  143.            select
  144.               accept Stop do
  145.  
  146.                  Suspended := True;
  147.               end Stop;
  148.            or
  149.               accept Halt do
  150.                  Suspended := True;
  151.                  End_Of_Task := True;
  152.               end Halt;
  153.            or
  154.               accept Receive(Message : in C.Long) do
  155.                  null;
  156.               end Receive;
  157.            or
  158.               accept Receive(Chord : in MIDI_Ctrl_Type) do
  159.                  null;
  160.               end Receive;
  161.            end select;
  162.         end loop;
  163.      end loop;
  164.   exception
  165.      when others =>
  166.         Text_Io.Put("Exception in Synth" );
  167.   end Synth_Driver_Type;
  168.  
  169.   type Wave_Type is (Saw, Square, Tri, Sin, Formant,
  170.                      Noise, Synth_Pcm, Drum_Pcm, Audio_In);
  171.   type Osc_Mod1_Type is (Wave, Cross, Unison, Vpm);
  172.  
  173.   task body Osc1_Driver_Type is
  174.      Suspended, End_Of_Task : Boolean := False;
  175.      Message : Message_Type;
  176.      Date : Time := Clock;
  177.      Wave        : Wave_Type;
  178.      Osc_Mod     : Osc_Mod1_Type;
  179.      Controler_1 : Valu_Num := 0;
  180.      Controler_2 : Valu_Num := 0;
  181.   begin
  182.      while not End_Of_Task loop
  183.         select
  184.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  185.               Suspended := False;
  186.               --Tempo := Bpm;
  187.               Date := Top;
  188.            end Start;
  189.         or
  190.            accept Halt do
  191.               Suspended := True;
  192.               End_Of_Task := True;
  193.            end Halt;
  194.         end select;
  195.         delay until Date;
  196.         while not Suspended loop
  197.            select
  198.               accept Stop do
  199.                  Suspended := True;
  200.               end Stop;
  201.            or
  202.               accept Halt do
  203.                  Suspended := True;
  204.                  End_Of_Task := True;
  205.               end Halt;
  206.            or
  207.               accept Receive(Message : in C.Long) do
  208.                  null;
  209.               end Receive;
  210.            end select;
  211.         end loop;
  212.      end loop;
  213.   exception
  214.      when others =>
  215.         Text_Io.Put("Exception in Osc1" );
  216.   end Osc1_Driver_Type;
  217.  
  218.  
  219.   subtype Wave2_Type is Wave_Type range Saw .. Sin;
  220.  
  221.   type Osc_Mod2_Type is
  222.      record
  223.         Ring : Boolean := False;
  224.         Sync : Boolean := False;
  225.      end record;
  226.  
  227.   task body Osc2_Driver_Type is
  228.      Suspended, End_Of_Task : Boolean := False;
  229.      Message : Message_Type;
  230.      Date : Time := Clock;
  231.      Wave        : Wave2_Type;
  232.      Osc_Mod     : Osc_Mod2_Type;
  233.      Controler_1 : Valu_Num := 0;
  234.      Controler_2 : Valu_Num := 0;
  235.   begin
  236.  
  237.      while not End_Of_Task loop
  238.         select
  239.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  240.               Suspended := False;
  241.               Date := Top;
  242.               --Tempo := Bpm;
  243.            end Start;
  244.         or
  245.            accept Halt do
  246.               Suspended := True;
  247.               End_Of_Task := True;
  248.            end Halt;
  249.         end select;
  250.         delay until Date;
  251.         while not Suspended loop
  252.            select
  253.               accept Stop do
  254.                  Suspended := True;
  255.               end Stop;
  256.            or
  257.               accept Halt do
  258.                  Suspended := True;
  259.                  End_Of_Task := True;
  260.               end Halt;
  261.            or
  262.               accept Receive(Message : in C.Long) do
  263.                  null;
  264.               end Receive;
  265.            end select;
  266.         end loop;
  267.      end loop;
  268.   exception
  269.      when others =>
  270.         Text_Io.Put("Exception in Osc2" );
  271.   end Osc2_Driver_Type;
  272.  
  273.   task body Filters_Driver_Type is
  274.  
  275.      Suspended, End_Of_Task : Boolean := False;
  276.      Message : Message_Type;
  277.      Date : Time := Clock;
  278.   begin
  279.      while not End_Of_Task loop
  280.         select
  281.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  282.               Suspended := False;
  283.               Date := Top;
  284.               --Tempo := Bpm;
  285.            end Start;
  286.         or
  287.            accept Halt do
  288.               Suspended := True;
  289.               End_Of_Task := True;
  290.            end Halt;
  291.         end select;
  292.         delay until Date;
  293.         while not Suspended loop
  294.            select
  295.               accept Stop do
  296.                  Suspended := True;
  297.               end Stop;
  298.            or
  299.               accept Halt do
  300.                  Suspended := True;
  301.                  End_Of_Task := True;
  302.               end Halt;
  303.            or
  304.               accept Receive(Message : in C.Long) do
  305.                  null;
  306.               end Receive;
  307.            end select;
  308.         end loop;
  309.      end loop;
  310.   exception
  311.      when others =>
  312.         Text_Io.Put("Exception in Filters" );
  313.   end Filters_Driver_Type;
  314.  
  315.   task body Radias_Driver_Type is
  316.  
  317.      The_Status : Status_Type;
  318.      The_Control : Control_Type;
  319.      Suspended, End_Of_Task : Boolean := False;
  320.      date : Time := Clock;
  321.      Message : Message_Type;
  322.   begin
  323.  
  324.      while not End_Of_Task loop
  325.         select
  326.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  327.               Text_Io.Put_Line("Starting All timbres..." );
  328.               Date := Top;
  329.               --Tempo := Bpm;
  330.               Suspended := False;
  331.            end Start;
  332.         or
  333.            accept Halt do
  334.               Suspended := True;
  335.               End_Of_Task := True;
  336.            end Halt;
  337.         end select;
  338.         delay until Date;
  339.         while not Suspended loop
  340.            select
  341.               accept Stop do
  342.                  Text_Io.Put_Line("Stopping All timbre..." );
  343.                  Text_Io.Put_Line("Driver stopped." );
  344.                  Suspended := True;
  345.               end Stop;
  346.            or
  347.  
  348.               accept Halt do
  349.                  Suspended := True;
  350.                  End_Of_Task := True;
  351.               end Halt;
  352.            or
  353.               accept Receive(Message : in C.Long) do
  354.                  The_Status := Status(Message);
  355.                  case The_Status is
  356.                     when Noteon =>
  357.                        null;
  358.                     when Noteoff =>
  359.                        null;
  360.                     when others =>
  361.                        The_Control := Control(Message);
  362.                  end case;
  363.               end Receive;
  364.            or
  365.  
  366.               accept Receive(Chord : in Score.MIDI_Score_Type;
  367.                             Channel : in Chan_Num) do
  368.                     null;
  369.               end Receive;
  370.            or
  371.               delay 0.00025;
  372.  
  373.            end select;
  374.         end loop;
  375.      end loop;
  376.   exception
  377.      when others =>
  378.         Text_Io.Put("Exception in Radias_Driver" );
  379.   end Radias_Driver_Type;
  380.  
  381.   task body Input_Driver_Type is
  382.      task type T_Input(Input_address : Addr_Num) is
  383.         entry Initialize;
  384.         entry Send(Message : out C.Long);
  385.      end T_Input;
  386.      task body T_Input is
  387.         Pm_Event : PmEvent;
  388.      begin
  389.         accept Initialize;
  390.         loop
  391.            Pm_Event.Message := Read_handler(Input_address.All);
  392.            accept Send(Message : out C.Long) do
  393.               Message := Pm_Event.Message;
  394.            end Send;
  395.         end loop;
  396.      end T_Input;
  397.  
  398.      The_Chord :  Score.Midi_Score_Type(1..24);
  399.      The_Status : Status_Type;
  400.      Step_Time : Time := clock;
  401.      Step_Length : Duration := 0.1;
  402.      Index : Natural := 0;
  403.      Message : C.Long;
  404.      Input : T_Input(Radias.input);
  405.      End_Of_Task : Boolean := False;
  406.   begin
  407.      Input.Initialize;
  408.      Text_Io.Put_Line("Initialize input" );
  409.      while not End_Of_Task loop
  410.         select
  411.            accept Halt do
  412.               End_Of_Task := True;
  413.            end Halt;
  414.         or
  415.            delay 0.0;
  416.         end select;
  417.         select
  418.            Input.Send(Message);
  419.            Text_Io.Put("Receive message: " );
  420.            The_Status := Status(Message);
  421.            case The_Status is
  422.               when Noteon =>
  423.                  if Clock < Step_Time then
  424.                     if Index < 5 then
  425.                        Index := Index + 1;
  426.                        The_Chord(Index) :=
  427.                          (Valu_Num'Value("16#" & data1(Message) & '#'),
  428.                           Valu_Num'Value("16#" & data2(Message) & '#' ),
  429.                           0);
  430.                     end if;
  431.                  else
  432.                     if Index /= 0 then
  433.                        Radias.Radias_Driver.Receive(The_Chord(1..Index), Channel(Message));
  434.                        Index := 0;
  435.                     end if;
  436.                     Index := 1;
  437.                     The_Chord(Index) := (Valu_Num'Value("16#" & data1(Message) & '#'),
  438.                                          Valu_Num'Value("16#" & data2(Message) & '#' ),
  439.                                          0);
  440.                     Step_Time := Clock + 0.125;
  441.                  end if;
  442.               when Noteoff =>
  443.                  null;
  444.               when others =>
  445.                  Radias.Radias_Driver.Receive(Message);
  446.            end case;
  447.         or
  448.            delay 0.1;
  449.            if Index /= 0 then
  450.               Radias.Radias_Driver.Receive(The_Chord(1..Index), Channel(message));
  451.               Index := 0;
  452.            end if;
  453.         end select;
  454.      end loop;
  455.      abort Input;
  456.   exception
  457.      when others =>
  458.         Text_Io.Put_Line("Exception in input driver" );
  459.   end Input_Driver_Type;
  460.  
  461.   task body Keyb_Driver_Type is
  462.      task type T_Input(Input_address : Addr_Num) is
  463.         entry Initialize;
  464.         entry Send(Message : out C.Long);
  465.      end T_Input;
  466.      task body T_Input is
  467.         Pm_Event : PmEvent;
  468.      begin
  469.         accept Initialize;
  470.         loop
  471.            Pm_Event.Message := Read_handler(Input_address.All);
  472.            accept Send(Message : out C.Long) do
  473.               Message := Pm_Event.Message;
  474.            end Send;
  475.         end loop;
  476.      end T_Input;
  477.  
  478.      The_Chord :  Score.Midi_Score_Type(1..24);
  479.      The_Status : Status_Type;
  480.      Step_Time : Time := clock;
  481.      Step_Length : Duration := 0.1;
  482.      Index : Natural := 0;
  483.      Message : C.Long;
  484.      Input : T_Input(Radias.keyb);
  485.      End_Of_Task : Boolean := False;
  486.   begin
  487.      Input.Initialize;
  488.      Text_Io.Put_Line("Initialize Keyb" );
  489.      while not End_Of_Task loop
  490.         select
  491.            accept Halt do
  492.               End_Of_Task := True;
  493.            end Halt;
  494.         or
  495.            delay 0.0;
  496.         end select;
  497.         select
  498.            Input.Send(Message);
  499.            Text_Io.Put("Receive message: " );
  500.            The_Status := Status(Message);
  501.            Text_Io.Put_Line("TOTO -1.0" );
  502.            case The_Status is
  503.               when Noteon =>
  504.                  Text_Io.Put_Line("TOTO -1.1" );
  505.                  if Clock < Step_Time then
  506.                     if Index < 5 then
  507.                        Index := Index + 1;
  508.                        Text_Io.Put_Line("TOTO -1.2" );
  509.                        The_Chord(Index) :=
  510.                          (Valu_Num'Value("16#" & data1(Message) & '#'),
  511.                           Valu_Num'Value("16#" & data2(Message) & '#' ),
  512.                           0);
  513.                     end if;
  514.                  else
  515.                     Text_Io.Put_Line("TOTO -1.3" );
  516.                     if Index /= 0 then
  517.                        Text_Io.Put_Line("TOTO 0" );
  518.                        Radias.Radias_Driver.Receive(The_Chord(1..Index), Channel(Message));
  519.                        Index := 0;
  520.                     end if;
  521.                     Index := 1;
  522.                     The_Chord(Index) := (Valu_Num'Value("16#" & data1(Message) & '#'),
  523.                                          Valu_Num'Value("16#" & data2(Message) & '#' ),
  524.                                          0);
  525.                     Step_Time := Clock + 0.125;
  526.                  end if;
  527.               when Noteoff =>
  528.                  null;
  529.               when others =>
  530.                  Text_Io.Put_Line("TOTO 1" );
  531.                  Radias.Radias_Driver.Receive(Message);
  532.            end case;
  533.         or
  534.            delay 0.05;
  535.            if Index /= 0 then
  536.               Text_Io.Put_Line("TOTO 2" );
  537.               Radias.Radias_Driver.Receive(The_Chord(1..Index), Channel(message));
  538.               Index := 0;
  539.            end if;
  540.            Step_Time := Clock + 0.125;
  541.         end select;
  542.      end loop;
  543.      abort Input;
  544.   exception
  545.      when others =>
  546.         Text_Io.Put_Line("Exception in keyb driver" );
  547.   end Keyb_Driver_Type;
  548.  
  549.   task body Output_Driver_Type is
  550.      task Midi_Output is
  551.         entry Set_Output(Addr : in Addr_Num);
  552.         entry Start;
  553.         entry Stop;
  554.         entry Halt;
  555.         entry Receive(Pm_Event : in PmEvent);
  556.      end Midi_Output;
  557.      task body Midi_Output is
  558.         End_Of_Task : Boolean := False;
  559.         Suspended : Boolean := True;
  560.         Output_Address : Addr_Num;
  561.         Pm_Error : PmError;
  562.      begin
  563.         while not End_Of_Task loop
  564.            select
  565.               accept Stop;
  566.            or
  567.               accept Set_Output(Addr : in Addr_Num) do
  568.                  if Output_Address /= null then
  569.                     Pm_Error := Portmidi.Pm_Close(Output_Address.all);
  570.                  end if;
  571.                  Output_Address := Addr;
  572.               end Set_Output;
  573.            or
  574.               accept Start do
  575.                  Text_Io.Put_Line("running output" );
  576.                  Suspended := False;
  577.               end Start;
  578.            or
  579.               accept Halt do
  580.                  Suspended := True;
  581.                  End_Of_Task := True;
  582.               end Halt;
  583.            end select;
  584.            while not Suspended loop
  585.               select
  586.                  accept Set_Output(Addr : in Addr_Num) do
  587.                     if Output_Address /= null then
  588.                        Pm_Error := Portmidi.Pm_Close(Output_Address.all);
  589.                     end if;
  590.                     Output_Address := Addr;
  591.                  end Set_Output;
  592.               or
  593.                  accept Halt do
  594.                     Suspended := True;
  595.                     End_Of_Task := True;
  596.                  end Halt;
  597.               or
  598.                  accept Stop do
  599.                     Suspended := True;
  600.                  end Stop;
  601.               or
  602.                  accept Receive(Pm_Event : in PmEvent) do
  603.                     if Output_address /= null then
  604.                        Pm_Error := Pm_Write(Output_address.All, Pm_Event, 1);
  605.  
  606.                     end if;
  607.                  end Receive;
  608.               end select;
  609.            end loop;
  610.         end loop;
  611.      end Midi_Output;
  612.      End_Of_Task : Boolean := False;
  613.      Suspended : Boolean := True;
  614.      Message : Message_Type;
  615.      Pm_Event : PmEvent;
  616.   begin
  617.      while not End_Of_Task loop
  618.         select
  619.            accept Set_Output(Addr : in Addr_Num) do
  620.               Midi_Output.Set_Output(Addr);
  621.            end Set_Output;
  622.         or
  623.            accept Start do
  624.               Midi_Output.Start;
  625.               Suspended := False;
  626.            end Start;
  627.         or
  628.            accept Halt do
  629.               Midi_Output.Halt;
  630.               Suspended := True;
  631.               End_Of_Task := True;
  632.            end Halt;
  633.         end select;
  634.         while not Suspended loop
  635.            select
  636.               accept Set_Output(Addr : in Addr_Num) do
  637.                  Midi_Output.Set_Output(Addr);
  638.               end Set_Output;
  639.            or
  640.               accept Halt do
  641.                  Midi_Output.Halt;
  642.                  Suspended := True;
  643.                  End_Of_Task := True;
  644.               end Halt;
  645.            or
  646.               accept Stop do
  647.  
  648.  
  649.                  Midi_Output.stop;
  650.                  Text_Io.Put_Line("Stop output." );
  651.                  Suspended := True;
  652.               end Stop;
  653.            or
  654.               accept Receive(Message : in Message_Type) do
  655.                  Pm_Event.Message := Pm_Message(Message);
  656.                  Pm_Event.PmTimestamp := Pt_time;
  657.                  Midi_output.Receive(Pm_event);
  658.               end Receive;
  659.            end select;
  660.         end loop;
  661.      end loop;
  662.   exception
  663.      when others =>
  664.         Text_Io.Put_line("exception in output driver." );
  665.   end Output_Driver_Type;
  666.  
  667.   task body Global_Driver_Type is
  668.  
  669.      Suspended, End_Of_Task : Boolean := False;
  670.      Message : Message_Type;
  671.      Date : Time := Clock;
  672.      Sync : Duration;
  673.   begin
  674.      while not End_Of_Task loop
  675.         select
  676.            accept Start(Bpm : in Tempo_Type; Top : in Time) do
  677.               Suspended := False;
  678.               --Tempo := Bpm;
  679.               Sync := duration(((60000.0/Float(Bpm))/1000.0)/24.0);
  680.               date := Top;
  681.               --PC_Timer := Top;
  682.            end Start;
  683.         or
  684.            accept Halt do
  685.               Suspended := True;
  686.               End_Of_Task := True;
  687.            end Halt;
  688.         end select;
  689.         delay until Date;
  690.         while not Suspended loop
  691.            select
  692.               accept Stop do
  693.                  Suspended := True;
  694.               end Stop;
  695.            or
  696.               accept Halt do
  697.                  Suspended := True;
  698.                  End_Of_Task := True;
  699.               end Halt;
  700.            or
  701.               accept Receive(Message : in C.Long) do
  702.                  null;
  703.               end Receive;
  704.            or
  705.               delay 0.00025;
  706.               if Date <= Clock then
  707.                  Date := Date + Sync;
  708.                  Message := (16#F8#, 0, 0);
  709.                  Radias.Output_Driver.Receive(Message);
  710.               end if;
  711.            end select;
  712.         end loop;
  713.      end loop;
  714.   exception
  715.      when others =>
  716.         Text_Io.Put("Exception in Global Driver" );
  717.   end Global_Driver_Type;
  718. end Libmy.MIDI.Driver.Radias;

n°2127195
Dj YeLL
$question = $to_be || !$to_be;
Posté le 20-02-2012 à 07:46:31  profilanswer
 

Die Preise gelten vom 20.02.2012 bis zum 25.02.2012 in allen ATELCO-Filialen.
Eine Übersicht unserer Filialen finden Sie hier.
 
Ihre E-Mail-Adresse hat sich geändert?
Hier können Sie Ihre Daten ändern.
 
Sie wollen den ATELCO Sondernewsletter abbestellen?
Dann schreiben Sie bitte eine E-Mail an webmaster@atelco.de oder ändern Sie Ihr Profil hier.
 
Impressum
ATELCO Computer AG, Dieselweg 6 / Gewerbepark Möhnesee, D-59519 Möhnesee, Telefon: +49 (0)2924 / 99-00, USt Id Nr: DE 126638952, Steuernummer: 343/5782/2132, Arnsberg HRB 5469, D-59821 Arnsberg, Vorstand: Ralf Schwalbe


---------------
Gamertag: CoteBlack YeLL
n°2127196
masklinn
í dag viðrar vel til loftárása
Posté le 20-02-2012 à 07:59:37  profilanswer
 

In another case jailers killed this guy, it was ruled homicide, and no charges have been filed.


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2127260
sligor
Posté le 20-02-2012 à 14:46:11  profilanswer
 
n°2127282
Raistlin M​ajere
i bouh at you !
Posté le 20-02-2012 à 15:18:54  profilanswer
 
n°2127400
Tristou
Keep calm and hack cookies
Posté le 20-02-2012 à 22:20:09  profilanswer
 

http://www.google.fr/search?hl=fr& [...] 8gPvhbjdDw


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
mood
Publicité
Posté le 20-02-2012 à 22:20:09  profilanswer
 

n°2127421
Raistlin M​ajere
i bouh at you !
Posté le 21-02-2012 à 05:32:45  profilanswer
 
n°2127706
sligor
Posté le 21-02-2012 à 23:37:26  profilanswer
 

1 in every 200 Japanese women have appeared in an adult video, claim pornographers with an intimate knowledge of the industry’s vital statistics.  
Amongst Japan’s AV industry the claim has been made that of an average Japanese school year of some 400 students, of the 200 girls at least one will turn out to be a porn star.  
An industry insider supposedly explains that the figure is more than just delusional slander against Japan’s admittedly less than pristine womanfolk:  
The number of AV titles produced annually, if we include online and underground videos, is said to be in the region of 35,000 titles.  
Simple arithmetic suggests 100 videos a day are being released.  
Since we see from 2,000 to 3,000 new AV girls making their debut each year, it’s said that 150,000 women have worked in the industry.  
There are some 30 million women aged 19 to 55 in Japan, so the 150,000 performers give us the rough “1 in 200″ figure.

n°2128185
souk
Tourist
Posté le 24-02-2012 à 06:26:23  profilanswer
 
n°2128322
Tristou
Keep calm and hack cookies
Posté le 24-02-2012 à 16:53:51  profilanswer
 

Antoine De Caunes et José Garcia


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
n°2128514
masklinn
í dag viðrar vel til loftárása
Posté le 27-02-2012 à 12:59:27  profilanswer
 

-webkit-radial-gradient(50% 50%, 49% 17%, transparent, rgba(250, 250, 210, 0.251) 62%, rgba(148, 0, 211, 0.251), rgba(0, 0, 128, 0.251), rgba(0, 0, 255, 0.251), rgba(0, 128, 0, 0.251), rgba(255, 255, 0, 0.251), rgba(255, 165, 0, 0.251), rgba(255, 0, 0, 0.251), transparent 67%, transparent 90%, rgba(255, 0, 0, 0.126), rgba(255, 165, 0, 0.126), rgba(255, 255, 0, 0.126), rgba(0, 128, 0, 0.126), rgba(0, 0, 255, 0.126), rgba(0, 0, 128, 0.126), rgba(148, 0, 211, 0.126), transparent 100%), url("http://media.opera.com/media/press/2011/unicorn/clouds.jpg" )


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2129151
masklinn
í dag viðrar vel til loftárása
Posté le 01-03-2012 à 15:41:03  profilanswer
 

--- a/lib/py.js
+++ b/lib/py.js
@@ -104,6 +104,12 @@ var py = {};
     symbol(':'); symbol(')'); symbol(']'); symbol('}'); symbol(',');
     symbol('else');
 
+    infix('=', 10, function (left) {
+        this.first = left;
+        this.second = expression();
+        return this;
+    });
+
     symbol('lambda', 20).nud = function () {
         this.first = [];
         if (token.id !== ':') {


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2129199
vapeur_coc​honne
Stig de Loisir
Posté le 01-03-2012 à 18:54:11  profilanswer
 

seamicro


---------------
marilou repose sous la neige
n°2129365
masklinn
í dag viðrar vel til loftárása
Posté le 02-03-2012 à 13:56:32  profilanswer
 

A slot is a method slot if it contains a method (an object containing executable code). In response to the message, the method is executed, and its result is returned.
 
A data slot just contains a reference to anything other than a method, i.e., any other kind of object. If a message matches a data slot, its contents are returned.
 
Data slots can be constant or assignable. A constant data slot, foo, responds to a message, foo, by returning the value in the slot. An assignable data slot, bar, responds to bar by returning the value in the slot, but also responds to bar: v by replacing its contents with v.


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2129391
mareek
Et de 3 \o/
Posté le 02-03-2012 à 14:55:38  profilanswer
 

Code :
  1. for (var i = 0; i < this.cbxPlugin.Items.Count; i++)
  2. {
  3.    var pluginName = ((StringKeyStringValue)this.cbxPlugin.Items[i]).Value;
  4.    var plugInfo = PluginManagerService.Instance.GetPluginInfoByPluginName(pluginName);
  5.  
  6.    if (plugInfo.Id != idPlugin) continue;
  7.    this.cbxPlugin.SelectedIndex = i;
  8.  
  9.    break;
  10. }
  11.  
  12.  
  13. private void _timerSynchro_Tick(object sender, EventArgs e)
  14. {
  15.    if (this._isInEditMode == true)
  16.    {
  17.        // ne pas mettre à jour si on est en mode edition ou creation
  18.        return;
  19.    }
  20.    this.RefreshIhm();
  21. }


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°2129461
Tristou
Keep calm and hack cookies
Posté le 02-03-2012 à 21:50:02  profilanswer
 

9782253123729


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
n°2129464
sligor
Posté le 02-03-2012 à 22:08:29  profilanswer
 
n°2129516
Tristou
Keep calm and hack cookies
Posté le 03-03-2012 à 22:16:02  profilanswer
 

21 rue du mouton


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
n°2129518
Terminapor
I'll see you rise.
Posté le 03-03-2012 à 23:20:03  profilanswer
 

RefList["__engine__final_expression"]=FC;


---------------
Perhaps you don't deserve to breathe
n°2130311
sligor
Posté le 08-03-2012 à 14:29:51  profilanswer
 
n°2132109
sligor
Posté le 19-03-2012 à 15:53:12  profilanswer
 

   PAE c'est vraiment, vraiment pourri.
    La raison principale pour utiliser un processeur 64 bits c'est l'espace d'adressage physique. Il est nécessaire d'avoir un espace d'adressage virtuel plusieurs fois plus grand que l'espace physique.
    PAE a inversé ce simple fait et à royalement foutu la merde. Celui qui a inventé cette idée était totalement incompétent et avait oublié tous les problèmes de HIGHMEM DOS. Il y avait une putain de bonne raison pour que nous laissions tomber les 286 et que nous passions aux 386, plutôt que d'avoir cette saleté de HIGHMEM avec ces petites fenêtres virtuelles au sein d'un espace physique plus grand.
    Répétez après moi : l'espace virtuel doit être plus grand que l'espace physique. Pas « aussi grand ». Pas « moins grand ». Il doit être plus grand, d'un facteur deux au moins, mais c'est encore mieux d'avoir un facteur dix.
    Quiconque ne comprend pas ça est un abruti. Fin de la discussion.
    Oui Linux a supporté ça, et probablement mieux que tous les autres. Mais même « mieux que tous les autres » ce n'était vraiment pas terrible. Fondamentalement PAE n'a jamais rien corrigé. C'était une erreur. C'était juste un échec total, le résultat du travail d'ingénieurs hardware qui ne comprenaient rien au logiciel.

n°2132125
masklinn
í dag viðrar vel til loftárása
Posté le 19-03-2012 à 19:01:39  profilanswer
 

https://mail.mozilla.org/pipermail/ [...] 00999.html


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2132197
sligor
Posté le 20-03-2012 à 13:22:57  profilanswer
 

http://2.bp.blogspot.com/-v3A3QJelHKA/TvIKpprSmkI/AAAAAAAAQf0/OoP8bZRDh3I/s400/nskorea.jpg

n°2133913
Raistlin M​ajere
i bouh at you !
Posté le 30-03-2012 à 14:48:04  profilanswer
 
n°2136638
mareek
Et de 3 \o/
Posté le 15-04-2012 à 01:44:03  profilanswer
 

The Ripple Effect The Fate of Freshwater


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°2137382
Lone Morge​n
Posté le 18-04-2012 à 16:02:59  profilanswer
 

NJ68J-A2053-58K49-_-CNE1H

n°2138028
flo850
moi je
Posté le 20-04-2012 à 21:06:19  profilanswer
 

popcorn  
http://i.imgur.com/2gL5I.gif


---------------

n°2138035
sligor
Posté le 20-04-2012 à 23:55:35  profilanswer
 

   if (event.type == ClientMessage &&
      event.xclient.data.l[0] == wmDeleteMessage) {
      printf("fuck you! I won't close this window\n" );
    }

n°2138448
Lone Morge​n
Posté le 23-04-2012 à 13:03:45  profilanswer
 

Essentials Plus

n°2139573
kadreg
profil: Utilisateur
Posté le 27-04-2012 à 21:40:57  profilanswer
 

http://fr.wikipedia.org/wiki/Iridium_(satellite)


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
n°2139577
masklinn
í dag viðrar vel til loftárása
Posté le 27-04-2012 à 22:17:19  profilanswer
 

http://www.thedailyshow.com/watch/ [...] innovators


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°2139661
Tristou
Keep calm and hack cookies
Posté le 28-04-2012 à 23:33:21  profilanswer
 

#cccccc


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
n°2139669
Profil sup​primé
Posté le 29-04-2012 à 00:20:53  answer
 

#adaada

n°2139951
Raistlin M​ajere
i bouh at you !
Posté le 01-05-2012 à 16:56:19  profilanswer
 
n°2144206
Tristou
Keep calm and hack cookies
Posté le 31-05-2012 à 21:15:47  profilanswer
 

But de la France !


---------------
"About your cat Mr. Schrödinger : I have good news and bad news"
n°2144207
kadreg
profil: Utilisateur
Posté le 31-05-2012 à 21:26:43  profilanswer
 

les peluches mécaniques, ça fait pas le poids face à des Dr Martens


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
n°2144496
Talladega
Transcendance
Posté le 04-06-2012 à 13:02:37  profilanswer
 

NCZ4MQ


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

 Page :   1  2  3  4  5  ..  178  179  180  ..  188  189  190  191  192  193

Aller à :
Ajouter une réponse
 

Sujets relatifs
Récupérer le contenu d'une frame[ASP] Récupérer le contenu du buffer
afficher le contenu d'un requette SQL dans 1 DataGrid ou autre ?Recherche un outil de help-desk
effacer le contenu d'une text areaRécupérer le contenu d'un fichier distant. readfile(), include().
Lire une page web (php) à partir de vb pour afficher le contenuoutil de test de charge
(HTML/JS aussi)Recuperation de valeur contenu entre les TAGtype contenu ds un vector
Plus de sujets relatifs à : [Topic Outil] sauvegardez le contenu de votre presse papier


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