#
#	(c) Jirka Hanika <geo@ff.cuni.cz>
#
# Naivní pravidla pro prosodické zpracování češtiny

$prosody = prosody

 inside  .?:!	sent		; Pochybné - nemá zasáhnout věty bez interpunkce
 {
	 prosody	$prosody/accent.dic      word	syll
 }

 inside  ,    colon
 {
	prosody	  $prosody/nonterm.dic	colon	phone
#	smooth	f/5/40\35\15\5			colon   syll
 }

 if      irony		sent
 {
	inside  ,- colon		; tohle nefunguje rozumně
	{
		prosody  $prosody/ir_unter.dic colon phone
#		debug pause
		smooth f/10/20/40\20\10		word	phone
	}
	regress   _>L(!_0)			sent    word
	inside	  L				word	        ; poslední slovo
	{
		prosody	  $prosody/irony.dic	word	syll
	}
	regress   L>_($everywhere) 		sent	word
 }

 inside  .:\~   sent    ; Následující jen pro oznamovací věty a doplňovací otázky
 {
	inside   :   sent
	{
		prosody   $prosody/wh.dic	sent	syll
	}
#	prosody   ${prosody}/fadeoutp.dic	sent	phone
	prosody   ${prosody}/fadeouts.dic	sent	syll

	inside    .   sent
	{
		prosody   $prosody/fadeoutw.dic	sent	word
	}

	smooth	f/30/40\30			word	phone
 }

 inside   ?	sent	; Následující jen pro otázky zjišťovací
 {
	prosody   $prosody/fadeoutp.dic	sent	phone
	prosody	  $prosody/fadeoutw.dic	sent	word


	regress   _>L(!_0)			sent    word
	inside	  L				word	        ; poslední slovo
		{
		regress   _>L(0_0)		word	syll	; monosylabon
		inside    L			syll
		{
			prosody   $prosody/questend.dic	syll	phone
		}
		regress   L>_($everywhere)	word	syll
		smooth	  f/20/30\30\20		word	phone

		prosody	  $prosody/questup.dic	word	syll
		smooth	f/5/5/15/25/40\10	word	phone
	}
	regress   L>_($everywhere) 		sent	word

 }

 inside   \!	sent	; Větný důraz pro věty s vykřičníkem
 {
	prosody   $prosody/exclaim.dic	sent	word
	prosody   $prosody/exclafad.dic	sent	syll
 }