% ladeprozeduren. 200904 pc
% $HEADER$
:-dynamic(loadedValue/3).

load(File,Liste):- 
	seeing(Old),
        see(File),        /* open this file */ 
        repeat, 
        read(Data),       /* read from File */ 
        (
	(Data \= 'end_of_File', Liste =Data) ;	
        seen,             % close File  
        see(Old),          %  previous read source  
	!). %stop now


%%%% get them vowel with two Formants and store them in loadedValues/3
loadFormants(File):-
	load(File,Liste),
	getAllFormants(Liste), !.
	
getAllFormants([]).

getAllFormants(Liste):-
	getEleList(Liste, Vowel, ListeNeu),
	getEleList(ListeNeu, F1, ListeNeuer),
	getEleList(ListeNeuer, F2, ListeNeuest),
	asserta(loadedValue(Vowel,F1,F2)),
	getAllFormants(ListeNeuest).
		
getEleList([H|T], H,T).