###This PRAAT-Script draws a sound selection of a stereo file (L=Audio, R=EGG-Signal) together with
###textgrid and spectrogram from the Editor window into the Praat picture window
##########Before running the script you need to
#### fully highlight all the sound selection in the editor window (the visible part needs to match with your selection ) and
####check Show pitch in the Menu

#You might wanna do the version with the two windows,
#because you would see the spectrogram of the vx (left channel already) as it would appear.

if two_Windows_or_Stereo = 2

select all
nametg$=selected$("TextGrid")
name2$=selected$("LongSound")
if right$(name2$,2)="vx"
name_vx$=name2$
else
name_lx$=name2$
endif

select all
minus TextGrid 'nametg$'
minus LongSound 'name2$'
name3$=selected$("LongSound")

if right$(name3$,2)="vx"
name_vx$=name3$
else
name_lx$=name3$
endif

#echo 'name_vx$' 'name_lx$' 'nametg$'
#pause ok?

editor TextGrid 'nametg$'
Extract sound selection (preserve times)
endeditor
Rename... untitled_left
#Show spectrogram
editor TextGrid 'nametg$'
Extract visible spectrogram
 start_selec=Get start of selection
   end_selec=Get end of selection
lenght_selec=Get selection length
endeditor

editor LongSound 'name_lx$'
Extract sound selection (preserve times)
endeditor
Rename... untitled_right


else
#this for a highlighted (selected) section in a LongSound Stereo file (L=Vx, R=Lx)

select all
nametg$=selected$("TextGrid")
name2$=selected$("LongSound")

select TextGrid 'nametg$'
plus LongSound 'name2$'

editor TextGrid 'nametg$'
Extract sound selection (preserve times)
start_selec=Get start of selection
   end_selec=Get end of selection
lenght_selec=Get selection length
endeditor
select Sound untitled
Extract left channel
select Sound untitled
Extract right channel
select Sound untitled_left

endif

Erase all

###left/right is just for scripting purposes (forms)
###left_horiz = (upper) left edge coordinate
###right_horiz = right edge coordinate
###left_verti = upper edge coordinate
###right_verti = lower edge coordinate


form Viewport definition
optionmenu Two_Windows_or_Stereo 2
option Stereo
option Two_windows
comment These are inner viewport values (0 12 0 7)! 
real left_viewport_horiz 0.7
real right_viewport_horiz 11.2
real left_viewport_verti  0.46
real right_viewport_verti 6.5
comment top_text(=leave empty if you want)
text top_text 
endform

#TextGrid
right_viewport_verti1=right_viewport_verti/4
right_viewport_verti2=right_viewport_verti/2
right_viewport_verti3=right_viewport_verti - right_viewport_verti/3

#echo 'right_viewport_verti1' 'right_viewport_verti2' 'right_viewport_verti3'

select TextGrid 'nametg$'
Select inner viewport... left_viewport_horiz right_viewport_horiz right_viewport_verti2 right_viewport_verti
Draw... start_selec end_selec yes yes yes


#Vx Sound top 
select Sound untitled_left
Select inner viewport... left_viewport_horiz right_viewport_horiz left_viewport_verti right_viewport_verti1
Draw... 0 0 0 0 no curve


Draw inner box
Marks right... 2 yes yes no
One mark right... 0 yes yes yes 


## Spectrogram

if two_Windows_or_Stereo = 2
select Spectrogram untitled

Select inner viewport... left_viewport_horiz right_viewport_horiz right_viewport_verti1 right_viewport_verti2
Paint... 0 0 0 0 100 yes 50 6 0 no
#Marks left every... 1 3 yes yes yes
Draw inner box
Marks left... 6 yes yes yes

else
select Sound untitled_left
To Spectrogram... 0.005 6000 0.002 20 Hamming (raised sine-squared)
Rename... untitled
Select inner viewport... left_viewport_horiz right_viewport_horiz right_viewport_verti1 right_viewport_verti2
Paint... 0 0 0 0 100 yes 50 6 0 no
#Marks left every... 1 3 yes yes yes
Draw inner box
Marks left... 6 yes yes yes

endif

 


### Lx Sound buttom
select Sound untitled_right

Select inner viewport... left_viewport_horiz right_viewport_horiz right_viewport_verti2 right_viewport_verti3
Draw... 0 0 0 0 no curve
Marks right... 2 yes yes yes
One mark right... 0 yes yes yes 

Select inner viewport... left_viewport_horiz right_viewport_horiz left_viewport_verti right_viewport_verti


Text top... yes 'top_text$'
select Spectrogram untitled
Remove
select Sound untitled_left
Remove
select Sound untitled_right
Remove

############Sven Grawunder, MPI EvA Leipzig, 05/2007