 
 
 f o r m   T r a c k   f o r m a n t   o f   l a b e l e d   s e g m e n t s 
 
 	 c o m m e n t   W h e r e   a r e   y o u r   w a v / T e x t G r i d f i l e s ? 
 
 	 t e x t   o p e n p a t h   C : \ U s e r s \ d e l l \ D e s k t o p \ 2 0 2 0^t 3g 1 7ecQqc/\g, 
 
 	 c o m m e n t   W h i c h   t i e r   o f   t h e   T e x t G r i d   o b j e c t   w o u l d   y o u   l i k e   t o   a n a l y s e ? 
 
 	 i n t e g e r   T i e r   1 
 
 	 c o m m e n t   E n t e r   s p e a k e r   g e n d e r   ( m   o r   f   o n l y ) 
 
 	 s e n t e n c e   G e n d e r   m 
 
 	 c o m m e n t   H o w   m a n y   f o r m a n t   n u m b e r s   w o u l d   y o u   l i k e   t o   e x t r a c t ? 
 
 	 i n t e g e r   p o i n t n u m   1 0 
 
 	 c o m m e n t   N a m e   o f   r e s u l t   d o   y o u   w a n t   t o   s a v e   w i t h : 
 
 	 t e x t   t e x t f i l e   F o r m a n t o u t p u t . t x t 
 
 
 
 e n d f o r m 
 
 
 
 
 
 i f   l e f t $ ( o p e n p a t h $ , 1 ) < > " \ " 
 
 	 o p e n p a t h $ = o p e n p a t h $ + " \ " 
 
 e n d i f 
 
 
 
 C r e a t e   S t r i n g s   a s   f i l e   l i s t . . .   f i l e L i s t   ' o p e n p a t h $ ' * . T e x t G r i d 
 
 n u m b e r O f F i l e s = G e t   n u m b e r   o f   s t r i n g s 
 
 
 
 f i l e d e l e t e   ' F o r m a n t o u t p u t $ ' 
 
 
 
 f i l e a p p e n d   " ' o p e n p a t h $ ' ' t e x t f i l e $ ' "   f i l e ' t a b $ ' l a b e l ' t a b $ ' F 1 ' t a b $ ' F 2 ' t a b $ ' F 3 ' t a b $ ' F 0 ' t a b $ ' d u r a t i o n ' n e w l i n e $ ' 
 
 
 
 f o r   i f i l e   f r o m   1   t o   n u m b e r O f F i l e s 
 
 	 s e l e c t   S t r i n g s   f i l e L i s t 
 
 	 f i l e N a m e $ = G e t   s t r i n g . . .   ' i f i l e ' 
 
 	 s i m p l e N a m e $ = f i l e N a m e $ - " . T e x t G r i d " 
 
 	 w a v N a m e $ = s i m p l e N a m e $ + " . w a v " 
 
 
 
 	 R e a d   f r o m   f i l e . . .   ' o p e n p a t h $ ' ' w a v N a m e $ ' 
 
 
 
         	   i f   g e n d e r $   =   " f " 
 
           	           T o   F o r m a n t   ( b u r g ) . . .   0 . 0 0 2 5   5   5 5 0 0   0 . 0 2 5   5 0 
 
               	       e l s e 
 
               	       T o   F o r m a n t   ( b u r g ) . . .   0 . 0 0 2 5   5   5 0 0 0   0 . 0 2 5   5 0 
 
         	   e n d i f 
 
 
 
 	 s e l e c t   S o u n d   ' s i m p l e N a m e $ ' 
 
 	 T o   P i t c h . . .   0 . 0 1   7 5   6 0 0 
 
 
 
 	 R e a d   f r o m   f i l e . . .   ' o p e n p a t h $ ' ' w a v N a m e $ ' 
 
 	 R e a d   f r o m   f i l e . . .   ' o p e n p a t h $ ' ' f i l e N a m e $ ' 
 
 
 
 
 
 	 n u m b e r O f I n t e r v a l s   =   G e t   n u m b e r   o f   i n t e r v a l s . . .   t i e r 
 
 
 
 	 f o r   i n t e r v a l   f r o m   1   t o   n u m b e r O f I n t e r v a l s 
 
 	 	 s e l e c t   T e x t G r i d   ' s i m p l e N a m e $ ' 
 
 	 	 l a b e l $   =   G e t   l a b e l   o f   i n t e r v a l . . .   t i e r   i n t e r v a l 
 
 	 	 #   i f   t h e   i n t e r v a l   h a s   s o m e   t e x t   a s   a   l a b e l ,   t h e n   c a l c u l a t e   t h e   d u r a t i o n . 
 
 	 	 i f   l a b e l $   < >   " " 
 
 	 	 	 s t a r t   =   G e t   s t a r t i n g   p o i n t . . .   t i e r   i n t e r v a l 
 
 	 	 	 e n d   =   G e t   e n d   p o i n t . . .   t i e r   i n t e r v a l 
 
 	 	 	 d u r a t i o n   =   e n d   -   s t a r t 
 
 	 	 	 s e l e c t   F o r m a n t   ' s i m p l e N a m e $ ' 
 
 	 	 	 s t e p n u m = p o i n t n u m - 1 
 
 	 	 	 t e m p s t e p = d u r a t i o n / s t e p n u m 
 
 	 	 	 f o r   i i   f r o m   0   t o   s t e p n u m 
 
 	 	 	 	 t e m p T i m e = s t a r t + t e m p s t e p * i i 
 
 	 	 	 	 s e l e c t   F o r m a n t   ' s i m p l e N a m e $ ' 
 
 
 
                                             	 	 	 f _ o n e   =   G e t   v a l u e   a t   t i m e . . .   1   ' t e m p T i m e '   H e r t z   L i n e a r 
 
                                               	 	 	 f _ t w o   =   G e t   v a l u e   a t   t i m e . . .   2   ' t e m p T i m e '   H e r t z   L i n e a r 
 
                                             	 	 	 f _ t h r e e   =   G e t   v a l u e   a t   t i m e . . .   3   ' t e m p T i m e '   H e r t z   L i n e a r 
 
 
 
                                             	 	 	 s e l e c t   P i t c h   ' s i m p l e N a m e $ ' 
 
 	 	 	 	 f _ z e r o   =   G e t   v a l u e   a t   t i m e . . .   ' t e m p T i m e '   H e r t z   L i n e a r 
 
                         	                 	 	 	 d u r a t i o n   =   ( e n d   -   s t a r t )   *   1 0 0 0 
 
                                                 	 	 	 f i l e a p p e n d   " ' o p e n p a t h $ ' ' t e x t f i l e $ ' "   ' s i m p l e N a m e $ ' ' t a b $ ' ' l a b e l $ ' ' t a b $ ' ' f _ o n e : 0 ' ' t a b $ ' ' f _ t w o : 0 ' ' t a b $ ' ' f _ t h r e e : 0 ' ' t a b $ ' ' f _ z e r o : 0 ' ' t a b $ ' ' d u r a t i o n : 3 ' ' n e w l i n e $ ' 
 
                                 	 	 e n d f o r 
 
 	 	 e n d i f 
 
 	 e n d f o r 
 
 
 
 s e l e c t   a l l 
 
 m i n u s   S t r i n g s   f i l e L i s t 
 
 R e m o v e 
 
 
 
 e n d f o r 
 
 
 
 s e l e c t   a l l 
 
 R e m o v e 
 
 
 
 e x i t   O K !b@g	Qqc/\epcn]~cS 
 
 
 
