nl-tts v3 as improved by Harro

This commit is contained in:
sonora 2012-02-07 22:55:50 +01:00
parent 5a76a7edcd
commit 13fed67b8a

View file

@ -18,15 +18,15 @@ prepare_turn(Turn, Dist) == ['Na ', D, M] :- distance(Dist) == D, turn(Turn, M).
turn(Turn, Dist) == ['Na ', D, M] :- distance(Dist) == D, turn(Turn, M). turn(Turn, Dist) == ['Na ', D, M] :- distance(Dist) == D, turn(Turn, M).
turn(Turn) == M :- turn(Turn, M). turn(Turn) == M :- turn(Turn, M).
prepare_make_ut(Dist) == ['Houdt rekening met een afslag over ', D] :- distance(Dist) == D. prepare_make_ut(Dist) == ['Houdt rekening met een ommekeer na ', D ] :- distance(Dist) == D.
make_ut(Dist) == ['Na ', D, ' afslaan '] :- distance(Dist) == D. make_ut(Dist) == ['Na ', D, ' omkeren'] :- distance(Dist) == D.
make_ut == ['Graag afslaan ']. make_ut == ['Graag nu omkeren '].
prepare_roundabout(Dist) == ['Afslaan bij een rotonde over ', D] :- distance(Dist) == D. prepare_roundabout(Dist) == ['Houdt rekening met een rotonde na ', D] :- distance(Dist) == D.
roundabout(Dist, _Angle, Exit) == ['Na ', D, ' de rotonde oprijden en dan neemt u de ', E, 'afslag'] :- distance(Dist) == D, nth(Exit, E). roundabout(Dist, _Angle, Exit) == ['Na ', D, ' de rotonde oprijden en dan neemt u de ', E, 'afslag'] :- distance(Dist) == D, nth(Exit, E).
roundabout(_Angle, Exit) == ['Neemt u de ', E, 'afslag'] :- nth(Exit, E). roundabout(_Angle, Exit) == ['Neemt u de ', E, 'afslag'] :- nth(Exit, E).
go_ahead == ['Verder doorrijden ']. go_ahead == ['Verder dóorrijden '].
go_ahead(Dist) == ['De weg', D,'volgen']:- distance(Dist) == D. go_ahead(Dist) == ['De weg', D,'volgen']:- distance(Dist) == D.
and_arrive_destination == ['dan heeft u uw bestemming bereikt ']. and_arrive_destination == ['dan heeft u uw bestemming bereikt '].