#purpose: draws part of Textgrid over F0, tämä jälkeen voidaan käyttää
#skriptiä kuvanpiirtoRUloputkuvat.praat, jos halutaan piirtää useampi käyrä samaan kuvaan
#requires: Sound open and a directory where the Sound, TextGrid and Pitch exist with same name
#HUOM! Väri pitää kirjoittaa lomakkeelle isolla alkukirjaimella, kannattaa piirtää tämä eka käyrä mustalla
#tässä skriptissä max f0 = 500Hz, jos haluat maxf0=600, pitää muuttaa myös
#riville Marks left... 7 yes yes yes
#melkein kokonaan uudelleen kirjoitettu Riikka Ullakonoja, 7.11.2006


form Määritä kuvan asetukset
word name_of_file ven2_natasha
word hakemistossa H:\Afinla2006\aineistot\
word monesko_tier 1
word tier_name ideal
word colour Black
endform

Erase all
'colour$'

Read from file... 'hakemistossa$'\'name_of_file$'.Pitch
Read from file... 'hakemistossa$'\'name_of_file$'.TextGrid

n = Get number of intervals... 'monesko_tier$'
for i to n
    tekst$ = Get label of interval... 'monesko_tier$' i
    #jos halutaan mitata kaikista muista paitsi pauseista, kirjoita "" väliin pause
    if tekst$ <> "pause"
       t1 = Get starting point... 'monesko_tier$' i
       t2 = Get end point... 'monesko_tier$' i
       select Pitch 'name_of_file$'
       Down to PitchTier
       Axes... 0 500.0 0 1
       Draw... t1 t2 0.0 500.0 yes
       Marks left... 6 yes yes yes
       select PitchTier 'name_of_file$'
       Remove
       select TextGrid 'name_of_file$'
       Extract part... t1 t2 no
       Extract tier... 'monesko_tier$'
       Into TextGrid
       Draw... 0 0 yes yes no
       pause Valmis jatkamaan seuraavaan?
       Remove
       select IntervalTier 'tier_name$'
       Remove
       select TextGrid 'name_of_file$'_part
       Remove
       select TextGrid 'name_of_file$'
    endif
endfor
Remove
select Pitch 'name_of_file$'
Remove