Praat: Convert Sample points to time to zero-crossing.

Read from file... my_wav.wav
sound = selected("Sound")
# το 2323 είναι έστω το δείγμα μας
call zero_crossing 2323  sound
# Η μεταβλητή zerocrossing περιέχει το δείγμα σε μορφή zero-crossed
printline zerocrossing='zerocrossing'

# H συνάρτηση αυτή παίρνει ως είσοδο το sample και το
# αντικείμενο sound και με την μεταβλητή zerocrossing
# επιστρέφει τον χρόνο με το sample σε zerocrossing
procedure zero_crossing sample sound
select sound
# convert sample -> time
time=Get time from sample number... sample
printline time='time'
# do zero-crossing
left_zero_cross=Get nearest zero crossing... Left time
right_zero_cross=Get nearest zero crossing... Right time
# Θεωρητικά αυτός ο έλεγχος είναι υπερβολικός αλλά που ξέρεις καμιά φορά..
   if (left_zero_cross<>right_zero_cross)
   printline Different Left and Right zero crossing!
   printline Left='left_zero_cross'
   printline Right='right_zero_cross'
   else
   printline zero_crossing='left_zero_cross'
   zerocrossing=left_zero_cross
endif
endproc