slightly re-arranged distance announcements in de-tts

This commit is contained in:
sonora 2011-07-07 15:14:04 -07:00
parent 7512fc67f4
commit c2813620c3

View file

@ -67,7 +67,8 @@ nth(17, 'siebzehnte ').
%%% distance measure %%% distance measure
distance(Dist) == T :- Dist < 1000, dist(Dist, F), append(F, ' meters',T). distance(Dist) == T :- Dist < 1000, dist(Dist, F), append(F, ' meters',T).
dist(D, ['10 ']) :- D < 20, !. dist(D, ['10 ']) :- D < 15, !.
dist(D, ['15 ']) :- D < 20, !.
dist(D, ['20 ']) :- D < 30, !. dist(D, ['20 ']) :- D < 30, !.
dist(D, ['30 ']) :- D < 40, !. dist(D, ['30 ']) :- D < 40, !.
dist(D, ['40 ']) :- D < 50, !. dist(D, ['40 ']) :- D < 50, !.