prescott66's sk-tts

OsmAnd/voice/sk-tts/_ttsconfig.p

@@ -1,79 +1,71 @@
 :- op('==', xfy, 500).
 version(100).
-language(sk).
+language(pl).
-
 
 % before each announcement (beep)
 preamble - [].
 
-
 %% TURNS 
-turn('left', ['odbočte doľava']).
+turn('left', ['skręć w lewo ']).
-turn('left_sh', ['odbočte ostro doľava']).
+turn('left_sh', ['skręć ostro w lewo ']).
-turn('left_sl', ['odbočte mierne doľava']).
+turn('left_sl', ['skręć lekko w lewo ']).
-turn('right', ['odbočte doprava']).
+turn('right', ['skręć w prawo ']).
-turn('right_sh', ['odbočte ostro doprava']).
+turn('right_sh', ['skręć ostro w prawo ']).
-turn('right_sl', ['odbočte mierne doprava']).
+turn('right_sl', ['skręć lekko w prawo ']).
 
-pturn('left', ['doľava']).
+prepare_turn(Turn, Dist) == ['Za ', D, M] :- 
-pturn('left_sh', ['ostro doľava']).
+			distance(Dist) == D, turn(Turn, M).
-pturn('left_sl', ['mierne doľava']).
+turn(Turn, Dist) == ['Za ', D, M] :- 
-pturn('right', ['doprava']).
+			distance(Dist) == D, turn(Turn, M).
-pturn('right_sh', ['ostro doprava']).
+turn(Turn) == M :- turn(Turn, M).
-pturn('right_sl', ['mierne doprava']).
 
-prepare_turn(Turn, Dist) == ['o', D, 'budete odbáčať', M] :-
-			distance(Dist) == D, pturn(Turn, M).
-turn(Turn, Dist) == ['o', D, M] :- 
-			distance(Dist) == D, turn(Turn, M).turn(Turn) == M :- turn(Turn, M).
 
-prepare_make_ut(Dist) == ['o', D, 'sa otočte naspäť'] :- 
+prepare_make_ut(Dist) == ['Za ', D, ' zawróć'] :- 
 		distance(Dist) == D.
 
-prepare_roundabout(Dist) == ['o', D, 'vojdete na kruhový objazd'] :- 
+prepare_roundabout(Dist) == ['Za ', D, ' wjedź na rondo'] :- 
 		distance(Dist) == D.
 
-make_ut(Dist) == ['o', D, 'sa otočte naspäť'] :- 
+make_ut(Dist) ==  ['Za ', D, ' zawróć'] :-
 			distance(Dist) == D.
-make_ut == ['otočte sa naspäť'].
+make_ut == ['Zawróć '].
 
-roundabout(Dist, _Angle, Exit) == ['o', D, 'vojdite na kruhový objazd', 'a zvoľte', E, 'výjazd'] :- 
+roundabout(Dist, _Angle, Exit) == ['Za ', D, ' wjedź na rondo ', E, 'wyjazd'] :- distance(Dist) == D, nth(Exit, E).
-		distance(Dist) == D, nth(Exit, E).
+roundabout(_Angle, Exit) == [ E, ' wyjazd'] :- nth(Exit, E).
-roundabout(_Angle, Exit) == ['pôjdete cez', E, 'výjazd'] :- nth(Exit, E).
 
-and_arrive_destination == ['a dorazíte do cieľa']. % Miss and?
+and_arrive_destination == ['następnie dojedź do celu ']. % Miss and?
-then == ['potom'].
+then == ['następnie '].
-reached_destination == ['dorazili ste do cieľa'].
+reached_destination == ['Cel został osiągnięty! '].
-bear_right == ['držte sa vpravo'].
+bear_right == ['trzymaj się prawej '].
-bear_left == ['držte sa vľavo'].
+bear_left == ['trzymaj się lewej '].
-route_recalc(_Dist) == ['prepočítavam']. % nothing to said possibly beep?	
+route_recalc(_Dist) == []. % ['Wyznaczam nową trasę '].  %nothing to said possibly beep?	
-route_new_calc(Dist) == ['cesta je dlhá', D] :- distance(Dist) == D. % nothing to said possibly beep?
+route_new_calc(Dist) == ['Długość trasy to ', D] :- distance(Dist) == D. % nothing to said possibly beep?
 
-go_ahead(Dist) == ['pokračujte', D]:- distance(Dist) == D.
+go_ahead(Dist) == ['Jedź prosto ', D]:- distance(Dist) == D.
-go_ahead == ['pokračujte rovno'].
+go_ahead == ['Jedź prosto '].
 
 %% 
-nth(1, 'prvý').
+nth(1, 'pierwszy ').
-nth(2, 'druhý').
+nth(2, 'drugi ').
-nth(3, 'tretí').
+nth(3, 'trzeci ').
-nth(4, 'štvrtý').
+nth(4, 'czwarty ').
-nth(5, 'piaty').
+nth(5, 'piąty ').
-nth(6, 'šiesty').
+nth(6, 'szósty ').
-nth(7, 'siedmy').
+nth(7, 'siódmy ').  
-nth(8, 'ôsmy').
+nth(8, 'ósmy ').
-nth(9, 'deviaty').
+nth(9, 'dziewiąty ').
-nth(10, 'desiaty').
+nth(10, 'dziesiąty ').
-nth(11, 'jedenásty').
+nth(11, 'jedenasty ').
-nth(12, 'dvanásty').
+nth(12, 'dwunasty ').
-nth(13, 'trinásty').
+nth(13, 'trzynasty ').
-nth(14, 'štrnásty').
+nth(14, 'czternasty ').
-nth(15, 'pätnásty').
+nth(15, 'piętnasty ').
-nth(16, 'šestnásty').
+nth(16, 'szestasty ').
-nth(17, 'sedemnásty').
+nth(17, 'siedemnasty ').
 
 
 %%% distance measure
-distance(Dist) == T :- Dist < 1000, dist(Dist, F), append(F, 'metrov',T).
+distance(Dist) == T :- Dist < 1000, dist(Dist, F), append(F, ' metrów',T).
 dist(D, ['10 ']) :-  D < 15, !.
 dist(D, ['20 ']) :-  D < 25, !.
 dist(D, ['30 ']) :-  D < 35, !.
@@ -103,19 +95,16 @@ dist(D, ['900 ']) :-  D < 925, !.
 dist(D, ['950 ']) :-  D < 975, !.
 dist(D, ['1000 ']) :-  !.
 
-
+distance(Dist) == ['około jeden kilometr '] :- Dist < 1500.
-distance(Dist) == ['približne jeden kilometer'] :- Dist < 1500.
+distance(Dist) == ['około dwa kilometry '] :- Dist < 2500.
-distance(Dist) == ['približne 2 kilometre'] :- Dist < 2500.
+distance(Dist) == ['około trzy kilometry '] :- Dist < 3500.
-distance(Dist) == ['približne 3 kilometre'] :- Dist < 3500.
+distance(Dist) == ['około cztery kilometry '] :- Dist < 4500.
-distance(Dist) == ['približne 4 kilometre'] :- Dist < 4500.
+distance(Dist) == ['około pięć kilometrów '] :- Dist < 5500.
-distance(Dist) == ['približne 5 kilometrov'] :- Dist < 5500.
+distance(Dist) == ['około sześć kilometrów '] :- Dist < 6500.
-distance(Dist) == ['približne 6 kilometrov'] :- Dist < 6500.
+distance(Dist) == ['około siedem kilometrów '] :- Dist < 7500.
-distance(Dist) == ['približne 7 kilometrov'] :- Dist < 7500.
+distance(Dist) == ['około osiem kilometrów '] :- Dist < 8500.
-distance(Dist) == ['približne 8 kilometrov'] :- Dist < 8500.
+distance(Dist) == ['około dziewięć kilometrów '] :- Dist < 9500.
-distance(Dist) == ['približne 9 kilometrov'] :- Dist < 9500.
+distance(Dist) == ['około ', X, ' kilometrów '] :- D is Dist/1000, dist(D, X).
-distance(Dist) == ['približne', X, 'kilometrov'] :- D is Dist/1000, dist(D, X).
-
-
 
 %% resolve command main method
 %% if you are familar with Prolog you can input specific to the whole mechanism,