 f o r m  [hF 
 
 p o s i t i v e   D u r a t i o n _ ( S )   0 . 4 
 
 p o s i t i v e   T h e _ F i r s t _ P i t c h _ V a l u e _ ( H z )   1 8 0 
 
 p o s i t i v e   T h e _ T i m e _ o f _ t h e _ F i r s t _ P i t c h _ V a l u e _ ( S )   0 . 0 2 
 
 p o s i t i v e   T h e _ M i d _ P i t c h _ V a l u e _ ( H z )   1 5 0 
 
 p o s i t i v e   T h e _ T i m e _ o f _ t h e _ M i d _ P i t c h _ V a l u e _ ( S )   0 . 1 0 
 
 p o s i t i v e   T h e _ L a s t _ P i t c h _ V a l u e _ ( H z )   9 0 
 
 p o s i t i v e   T h e _ T i m e _ o f _ t h e _ L a s t _ P i t c h _ V a l u e _ ( S )   0 . 3 8 
 
 p o s i t i v e   F 1 _ f r e q u e n c y _ ( H z )   8 5 0 
 
 p o s i t i v e   F 1 _ B a n d w i d t h _ ( H z )   5 0 
 
 p o s i t i v e   F 2 _ f r e q u e n c y _ ( H z )   1 2 5 0 
 
 p o s i t i v e   F 2 _ B a n d w i d t h _ ( H z )   1 0 0 
 
 p o s i t i v e   F 3 _ f r e q u e n c y _ ( H z )   2 6 5 0 
 
 p o s i t i v e   F 3 _ B a n d w i d t h _ ( H z )   1 5 0 
 
 p o s i t i v e   F 4 _ f r e q u e n c y _ ( H z )   3 3 5 0 
 
 p o s i t i v e   F 4 _ B a n d w i d t h _ ( H z )   2 5 0 
 
 p o s i t i v e   F 5 _ f r e q u e n c y _ ( H z )   4 5 5 0 
 
 p o s i t i v e   F 5 _ B a n d w i d t h _ ( H z )   3 5 0 
 
 b o o l e a n   G e t _ t h e s e _ _ F o r m a n t _ v a l u e s _ f r o m _ a n _ e x i s t e d _ s o u n d   0 
 
 e n d f o r m 
 
 
 
 w D =   d u r a t i o n 
 
 f P = t h e _ F i r s t _ P i t c h _ V a l u e 
 
 f p T = t h e _ T i m e _ o f _ t h e _ F i r s t _ P i t c h _ V a l u e 
 
 m P = t h e _ M i d _ P i t c h _ V a l u e 
 
 m p T = t h e _ T i m e _ o f _ t h e _ M i d _ P i t c h _ V a l u e 
 
 l P = t h e _ L a s t _ P i t c h _ V a l u e 
 
 l p T = t h e _ T i m e _ o f _ t h e _ L a s t _ P i t c h _ V a l u e 
 
 
 
 C r e a t e   P i t c h T i e r . . .   a   0   ' w D ' 
 
 s T = f p T 
 
 e T = m p T 
 
 n P = f l o o r ( ( e T - s T ) / 0 . 0 1 ) 
 
 p D = ( m P - f P ) / n P 
 
 f o r   i   f r o m   1   t o   n P 
 
 a = r a n d o m I n t e g e r ( - 2 , 2 ) 
 
 t t = s T + ( i - 1 ) * 0 . 0 1 
 
 f f = f P + ( i - 1 ) * p D + a 
 
 A d d   p o i n t . . .   ' t t '   ' f f ' 
 
 e n d f o r 
 
 
 
 s T = m p T 
 
 e T = l p T 
 
 n P = f l o o r ( ( e T - s T ) / 0 . 0 1 ) 
 
 p D = ( l P - m P ) / n P 
 
 f o r   i   f r o m   1   t o   n P 
 
 a = r a n d o m I n t e g e r ( - 2 , 2 ) 
 
 t t = s T + ( i ) * 0 . 0 1 
 
 f f = m P + ( i ) * p D + a 
 
 A d d   p o i n t . . .   ' t t '   ' f f ' 
 
 e n d f o r 
 
 T o   P o i n t P r o c e s s 
 
 R e m o v e   p o i n t s   b e t w e e n . . .   0 . 0   ' f p T ' 
 
 R e m o v e   p o i n t s   b e t w e e n . . .   ' l p T '   ' w D ' 
 
 T o   S o u n d   ( p u l s e   t r a i n ) . . .   1 1 0 2 5   1   0 . 0 5   2 0 0 0 
 
 C r e a t e   I n t e n s i t y T i e r . . .   a   0   ' w D ' 
 
 b 1 = 0 . 0 2 
 
 b 2 = 0 . 0 3 5 
 
 b 3 = 0 . 0 4 5 
 
 b 4 = 2 * w D / 1 0 
 
 b 5 = 4 * w D / 1 0 
 
 b 6 = 6 * w D / 1 0 
 
 b 7 = 8 * w D / 1 0 
 
 b 8 = 1 7 * w D / 2 0 
 
 b 9 = 1 8 * w D / 2 0 
 
 b 1 0 = 1 9 * w D / 2 0 
 
 A d d   p o i n t . . .   ' b 1 '   5 0 
 
 A d d   p o i n t . . .   ' b 2 '   6 0 
 
 A d d   p o i n t . . .   ' b 3 '   6 8 
 
 A d d   p o i n t . . .   ' b 4 '   7 5 
 
 A d d   p o i n t . . .   ' b 5 '   7 3 
 
 A d d   p o i n t . . .   ' b 6 '   7 1 
 
 A d d   p o i n t . . .   ' b 7 '   6 7 
 
 A d d   p o i n t . . .   ' b 8 '   6 0 
 
 A d d   p o i n t . . .   ' b 9 '   5 3 
 
 A d d   p o i n t . . .   ' b 1 0 '   5 1 
 
 s e l e c t   S o u n d   a 
 
 p l u s   I n t e n s i t y T i e r   a 
 
 M u l t i p l y 
 
 D e - e m p h a s i z e   ( i n - l i n e ) . . .   5 0 
 
 s e l e c t   S o u n d   a _ i n t 
 
 T o   F o r m a n t   ( b u r g ) . . .   0   5   5 0 0 0   0 . 0 2 5   5 0 
 
 D o w n   t o   F o r m a n t T i e r 
 
 f o r m a n t T i e r N $ = s e l e c t e d $ ( " F o r m a n t T i e r "   ) 
 
 g e t D a t a = g e t _ t h e s e _ _ F o r m a n t _ v a l u e s _ f r o m _ a n _ e x i s t e d _ s o u n d 
 
 i f   g e t D a t a = 0 
 
 f f a = f 1 _ f r e q u e n c y 
 
 f b a = f 1 _ B a n d w i d t h 
 
 f f b = f 2 _ f r e q u e n c y 
 
 f b b = f 2 _ B a n d w i d t h 
 
 f f c = f 3 _ f r e q u e n c y 
 
 f b c = f 3 _ B a n d w i d t h 
 
 f f d = f 4 _ f r e q u e n c y 
 
 f b d = f 4 _ B a n d w i d t h 
 
 f f e = f 5 _ f r e q u e n c y 
 
 f b e = f 5 _ B a n d w i d t h 
 
 e n d i f 
 
 i f   g e t D a t a = 1 
 
 p a u s e 
 
 s o u n d N $ = s e l e c t e d $ ( " S o u n d "   ) 
 
 e d i t o r   S o u n d   ' s o u n d N $ ' 
 
 f f a = G e t   f i r s t   f o r m a n t 
 
 f b a = G e t   f i r s t   b a n d w i d t h 
 
 f f b = G e t   s e c o n d   f o r m a n t 
 
 f b b = G e t   s e c o n d   b a n d w i d t h 
 
 f f c = G e t   t h i r d   f o r m a n t 
 
 f b c = G e t   t h i r d   b a n d w i d t h 
 
 f f d = G e t   f o u r t h   f o r m a n t 
 
 f b d = G e t   f o u r t h   b a n d w i d t h 
 
 f f e = G e t   f o r m a n t . . .   5 
 
 f b e = G e t   b a n d w i d t h . . .   5 
 
 e n d e d i t o r 
 
 e n d i f 
 
 s e l e c t   F o r m a n t T i e r   ' f o r m a n t T i e r N $ ' 
 
 p N = G e t   n u m b e r   o f   p o i n t s 
 
 t S = G e t   t i m e   f r o m   i n d e x . . .   1 
 
 t E = G e t   t i m e   f r o m   i n d e x . . .   ' p N ' 
 
 t A = t E - t S 
 
 t F = t A / ( p N - 1 ) 
 
 R e m o v e   p o i n t s   b e t w e e n . . .   ' t S '   ' t E ' 
 
 f o r   i   f r o m   1   t o   p N 
 
 t t = t S + ( i - 1 ) * t F 
 
 a = r a n d o m I n t e g e r ( - 3 0 , 3 0 ) 
 
 f f a n = f f a + a 
 
 a = r a n d o m I n t e g e r ( - 1 0 , 1 0 ) 
 
 f b a n = f b a + a 
 
 a = r a n d o m I n t e g e r ( - 5 0 , 5 0 ) 
 
 f f b n = f f b + a 
 
 a = r a n d o m I n t e g e r ( - 1 5 , 1 5 ) 
 
 f b b n = f b b + a 
 
 a = r a n d o m I n t e g e r ( - 1 0 0 , 1 0 0 ) 
 
 f f c n = f f c + a 
 
 a = r a n d o m I n t e g e r ( - 3 0 , 3 0 ) 
 
 f b c n = f b c + a 
 
 a = r a n d o m I n t e g e r ( - 1 5 0 , 1 5 0 ) 
 
 f f d n = f f d + a 
 
 a = r a n d o m I n t e g e r ( - 5 0 , 5 0 ) 
 
 f b d n = f b d + a 
 
 a = r a n d o m I n t e g e r ( - 2 0 0 , 2 0 0 ) 
 
 f f e n = f f e + a 
 
 a = r a n d o m I n t e g e r ( - 8 0 , 8 0 ) 
 
 f b e n = f b e + a 
 
 A d d   p o i n t . . .   ' t t '   ' f f a n '   ' f b a n '   ' f f b n '   ' f b b n '   ' f f c n '   ' f b c n '   ' f f d n '   ' f b d n '   ' f f e n '   ' f b e n ' 
 
 e n d f o r 
 
 s e l e c t   F o r m a n t T i e r   a _ i n t 
 
 s e l e c t   S o u n d   a _ i n t 
 
 p l u s   F o r m a n t T i e r   a _ i n t 
 
 F i l t e r   ( n o   s c a l e ) 
 
 S c a l e . . .   0 . 5 
 
 s e l e c t   P i t c h T i e r   a 
 
 p l u s   P o i n t P r o c e s s   a 
 
 p l u s   S o u n d   a 
 
 p l u s   I n t e n s i t y T i e r   a 
 
 p l u s   S o u n d   a _ i n t 
 
 p l u s   F o r m a n t   a _ i n t 
 
 p l u s   F o r m a n t T i e r   a _ i n t 
 
 R e m o v e 
 
 s e l e c t   S o u n d   a _ i n t _ f i l t 
 
 R e n a m e . . .   x x x