with Interfaces.C;
package body Libsens.Data.Neural is
   
   use Interfaces.C;
   procedure To_Sentence(From : in Node_Set; Index : in Word16_Index_Type; To : in out Sentence_Type) is
      
   begin      
      -----------------------------------
      -- Make sentence from neural set.--
      -----------------------------------
      for I in 1..To'length loop
	 if From(I) = 1.0 then
	    To(Long(I)+(To'First-1)).Sentence := To(Long(I)+(To'First-1)).Sentence or 2**Integer(Index);
	 end if;
      end loop;
   end To_Sentence;
   
   
   
end Libsens.Data.Neural;