dom
/
tonalisa
關注 1
收藏 0
複製 0
程式碼 問題 0 合併請求 0 版本發佈 0 Wiki 活動
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1 提交
1 分支
分支: master
分支列表 標籤
${ item.name }
建立分支 ${ searchTerm }
從 'master'
${ noResults }
tonalisa/lib/sndlib/bird.fsm

1120 line
52KB
原始文件 永久連結 Blame 歷史記錄 

  1. \ bird.fsm -- clm/bird.clm   -*- snd-forth -*-

  2. 

  3. \ Translator: Michael Scholz <mi-scholz@users.sourceforge.net>

  4. \ Created: Tue Dec 12 03:26:27 CET 2006

  5. \ Changed: Thu Jun 18 12:20:57 CEST 2009

  6. 

  7. \ Usage: <'> bird-test with-sound

  8. \        or ws-bird-test

  9. 

  10. require clm

  11. 

  12. instrument: bird <{ start dur freq freq-skew amp freqenv ampenv

  13.      :optional lpfilt 1.0 degree 0.0 reverb-amount 0.0 -- }>

  14.   :envelope ampenv  :scaler amp                   :duration dur make-env { amp-env }

  15.   :envelope freqenv :scaler freq-skew hz->radians :duration dur make-env { gls-env }

  16.   :frequency freq make-oscil { os }

  17.   :a0 lpfilt :b1 1.0 lpfilt f- make-one-pole { fil }

  18.   *channels* 2 =  degree f0= && if  45.0 to degree        then

  19.   *reverb* reverb-amount f0= && if 0.001 to reverb-amount then

  20.   start dur #{ :degree degree :distance 1.0 :reverb-amount reverb-amount } run-instrument

  21.     fil  os gls-env env 0.0 oscil  amp-env env  f*  one-pole

  22.   end-run

  23. ;instrument

  24. 

  25. instrument: bigbird <{ start dur freq freq-skew amp freqenv ampenv parts

  26.      :optional lpcoeff 1.0 degree 0.0 reverb-amount 0.0 -- }>

  27.   parts normalize-partials to parts

  28.   :envelope ampenv  :scaler amp                   :duration dur make-env { amp-env }

  29.   :envelope freqenv :scaler freq-skew hz->radians :duration dur make-env { gls-env }

  30.   :frequency freq :coeffs parts mus-chebyshev-first-kind partials->polynomial make-polyshape { os }

  31.   :a0 lpcoeff :b1 1.0 lpcoeff f- make-one-pole { fil }

  32.   *channels* 2 =  degree f0= && if  45.0 to degree        then

  33.   *reverb* reverb-amount f0= && if 0.001 to reverb-amount then

  34.   start dur #{ :degree degree :distance 1.0 :reverb-amount reverb-amount } run-instrument

  35.     fil  os 1.0 gls-env env polyshape  amp-env env  f*  one-pole

  36.   end-run

  37. ;instrument

  38. 

  39. #( 0 0 0.25 1 0.6 0.7 0.75 1 1 0 ) constant main-amp

  40. #( 0 0 0.01 1 0.99 1 1 0 )         constant tap-amp

  41. #( 0 0 0.25 1 0.75 1 1 0 )         constant bird-amp

  42. #( 0 0 1 1 )                       constant bird-up

  43. #( 0 1 1 0 )                       constant bird-down

  44. 

  45. event: orchard-oriole ( beg -- )

  46.   0.38 f- { beg }

  47.   #( 0 0 0.6 1 1 0.6 ) { oriupdwna }

  48.   #( 0 0.5 0.3 1 1 0 ) { oriupdwnb }

  49.   #( 0 0.9 0.15 1 0.4 0.3 0.6 0.6 0.85 0 1 0 ) { oribiga }

  50.   #( 0 1 0.05 0.5 0.1 1 0.25 0 0.85 0.5 1 0 ) { orimid }

  51.   #( 0 0.3 0.25 0 1 1 ) { oridwnup }

  52.   #( 0 0 0.1 1 1 0 ) { oriamp }

  53. 

  54.   0.38 beg f+ 0.03 3700  100 0.05 bird-down main-amp                        bird

  55.   0.41 beg f+ 0.05 2500 1000 0.10 bird-up   main-amp                        bird

  56.   0.50 beg f+ 0.10 2000  800 0.20 oriupdwna main-amp #( 1 1 2 0.02 3 0.05 ) bigbird

  57.   0.65 beg f+ 0.03 3900 1200 0.10 bird-down main-amp                        bird

  58.   0.70 beg f+ 0.21 2000 1200 0.15 oribiga   main-amp #( 1 1 2 0.05 )        bigbird

  59.   1.00 beg f+ 0.05 4200 1000 0.10 bird-down main-amp                        bird

  60.   1.10 beg f+ 0.10 2000 1000 0.25 orimid    main-amp #( 1 1 2 0.05 )        bigbird

  61.   1.30 beg f+ 0.10 2000 1000 0.25 orimid    main-amp #( 1 1 2 0.05 )        bigbird

  62.   1.48 beg f+ 0.10 2300 3200 0.10 oriupdwnb oriamp                          bird

  63.   1.65 beg f+ 0.03 1800  300 0.05 bird-up   main-amp                        bird

  64.   1.70 beg f+ 0.03 2200  100 0.04 bird-down main-amp                        bird

  65.   1.80 beg f+ 0.07 2500 2000 0.15 oriupdwnb oriamp                          bird

  66.   1.92 beg f+ 0.20 2400 1200 0.25 oridwnup  main-amp #( 1 1 2 0.04 )        bigbird

  67.   2.20 beg f+ 0.02 2200 3000 0.04 bird-up   main-amp                        bird

  68.   2.28 beg f+ 0.02 2200 3000 0.04 bird-up   main-amp                        bird

  69.   2.40 beg f+ 0.17 2000 1000 0.20 oriupdwna oriamp   #( 1 1 2 0.04 )        bigbird

  70.   2.4 0.17 f+ step

  71. ;event

  72. 

  73. event: cassins-kingbird ( beg -- )

  74.   0.03 f- { beg }

  75.   #( 0 0.3 0.45 1 0.9 0.1 1 0 ) { kingfirst }

  76.   #( 0.00 0.00 0.02 0.50 0.04 0.00 0.06 0.55 0.08 0.05 0.10 0.60

  77.      0.12 0.05 0.14 0.65 0.16 0.10 0.18 0.70 0.20 0.10 0.22 0.75

  78.      0.24 0.15 0.26 0.80 0.28 0.20 0.30 0.85 0.32 0.25 0.34 0.90

  79.      0.36 0.30 0.38 0.95 0.40 0.40 0.42 1.00 0.44 0.50 0.46 1.00

  80.      0.48 0.45 0.50 1.00 0.52 0.50 0.54 1.00 0.56 0.40 0.58 0.95

  81.      0.60 0.40 0.62 0.90 0.64 0.40 0.66 0.85 0.68 0.35 0.70 0.80

  82.      0.72 0.30 0.74 0.75 0.76 0.25 0.78 0.70 0.80 0.20 0.82 0.65

  83.      0.84 0.10 0.86 0.60 0.88 0.00 0.90 0.55 0.92 0.00 0.94 0.50

  84.      0.96 0.00 1.00 0.40 ) { kingsecond }

  85. 

  86.   0.03 beg f+ 0.04 1700 1200 0.15 kingfirst  main-amp #( 1 1 2 0.5 3 0 4 0.2 )  bigbird

  87.   0.12 beg f+ 0.18 1700  900 0.25 kingsecond main-amp #( 1 1 2 0.01 3 0 4 0.1 ) bigbird

  88.   0.12 0.18 f+ step

  89. ;event

  90. 

  91. event: chipping-sparrow ( beg -- )

  92.   { beg }

  93.   #( 0 0.8 0.15 1 0.75 0.3 1 0 ) { chip-up }

  94. 

  95.   0.00 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  96.   0.06 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  97.   0.12 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  98.   0.18 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  99.   0.24 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  100.   0.30 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  101.   0.36 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  102.   0.42 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  103.   0.48 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  104.   0.54 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  105.   0.60 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  106.   0.66 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  107.   0.72 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  108.   0.78 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  109.   0.84 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  110.   0.90 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  111.   0.96 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird

  112.   0.96 0.05 f+ step

  113. ;event

  114. 

  115. event: bobwhite ( beg -- )

  116.   0.4 f- { beg }

  117.   #( 0 0 0.4 1 1 1 ) { bobup1 }

  118.   #( 0 0 0.65 0.5 1 1 ) { bobup2 }

  119. 

  120.   0.4 beg f+ 0.2 1800  200 0.1 bobup1 main-amp #( 1 1 2 0.02 ) bigbird

  121.   1.0 beg f+ 0.2 1800 1200 0.2 bobup2 main-amp #( 1 1 2 0.02 ) bigbird

  122.   1 0.2 f+ step

  123. ;event

  124. 

  125. event: western-meadowlark ( beg -- )

  126.   0.8 f- { beg }

  127.   #( 0 0 1 0 ) { no-skw }

  128.   #( 0 1 0.4 0.4 1 0 ) { down-skw }

  129. 

  130.   0.80 beg f+ 0.10 2010    0 0.10 no-skw    main-amp #( 1 1 2 0.04 ) bigbird

  131.   1.10 beg f+ 0.15 3000  100 0.11 down-skw  main-amp #( 1 1 2 0.04 ) bigbird

  132.   1.30 beg f+ 0.25 2000  150 0.20 down-skw  main-amp #( 1 1 2 0.04 ) bigbird

  133.   1.65 beg f+ 0.15 3010  250 0.11 down-skw  main-amp #( 1 1 2 0.04 ) bigbird

  134.   1.85 beg f+ 0.10 2200  150 0.11 down-skw  main-amp #( 1 1 2 0.04 ) bigbird

  135.   2.00 beg f+ 0.10 3200 1400 0.11 bird-down main-amp #( 1 1 2 0.04 ) bigbird

  136.   2.20 beg f+ 0.05 2000  200 0.11 bird-down main-amp #( 1 1 2 0.04 ) bigbird

  137.   2.30 beg f+ 0.10 1600    0 0.11 bird-down main-amp #( 1 1 2 0.04 ) bigbird

  138.   2.3 0.1 f+ step

  139. ;event

  140. 

  141. event: scissor-tailed-flycatcher ( beg -- )

  142.   { beg }

  143.   #( 0 0 0.4 1 0.6 1 1 0 ) { scissor }

  144. 

  145.   beg 0.05 1800 1800 0.2 scissor main-amp #( 1 0.5 2 1 3 0.5 4 0.1 5 0.01 ) bigbird

  146.   0.05 step

  147. ;event

  148. 

  149. event: great-horned-owl ( beg -- )

  150.   0.3 f- { beg }

  151.   #( 0 0 0.3 1 1 1 ) { owlup }

  152.   #( 1 1 3 0.02 7 0.01 ) { owl-parts }

  153. 

  154.   0.30 beg f+ 0.10 300 0 0.1 main-amp  main-amp owl-parts bigbird

  155.   0.60 beg f+ 0.40 293 6 0.1 bird-down main-amp owl-parts bigbird

  156.   1.75 beg f+ 0.35 293 7 0.1 owlup     main-amp owl-parts bigbird

  157.   2.50 beg f+ 0.20 300 0 0.1 owlup     main-amp owl-parts bigbird

  158.   2.5 0.2 f+ step

  159. ;event

  160. 

  161. event: black-throated-gray-warbler ( beg -- )

  162.   { beg }

  163.   #( 0.00 0.50 0.02 0.60 0.04 0.45 0.06 0.62 0.08 0.40 0.10 0.65

  164.      0.12 0.35 0.14 0.70 0.18 0.30 0.20 0.70 0.22 0.30 0.24 0.70

  165.      0.25 0.20 0.30 0.80 0.35 0.10 0.40 0.90 0.45 0.00 0.50 1.00

  166.      0.55 0.00 0.60 1.00 0.65 0.00 0.70 1.00 0.75 0.00 0.80 1.00

  167.      0.85 0.00 0.90 1.00 0.95 0.00 1.00 0.50 ) { gray-one }

  168.   #( 0.00 0.00 0.01 0.40 0.02 0.00 0.03 0.40 0.04 0.00 0.05 0.40

  169.      0.06 0.00 0.07 0.40 0.08 0.00 0.09 0.40 0.10 0.00 0.25 0.80

  170.      0.40 0.30 0.55 1.00 0.70 0.00 0.85 0.80 1.00 0.40 ) { gray-two }

  171.   #( 0.00 1.00 0.01 0.60 0.02 1.00 0.03 0.60 0.04 1.00 0.05 0.60

  172.      0.06 1.00 0.07 0.60 0.08 1.00 0.09 0.60 0.10 1.00 0.11 0.60

  173.      0.12 1.00 0.13 0.60 0.14 1.00 0.15 0.60 0.16 1.00 0.17 0.60

  174.      0.18 1.00 0.19 0.60 0.20 1.00 0.21 0.55 0.22 1.00 0.23 0.50

  175.      0.24 1.00 0.25 0.50 0.26 1.00 0.27 0.50 0.28 1.00 0.29 0.50

  176.      0.30 1.00 0.31 0.50 0.32 1.00 0.33 0.50 0.34 1.00 0.35 0.50

  177.      0.36 1.00 0.37 0.50 0.38 1.00 0.39 0.50 0.40 1.00 0.41 0.50

  178.      0.42 1.00 0.43 0.50 0.44 1.00 0.45 0.50 0.46 1.00 0.47 0.50

  179.      0.48 1.00 0.49 0.50 0.50 1.00 0.51 0.50 0.52 1.00 0.53 0.50

  180.      0.54 1.00 0.55 0.50 0.56 1.00 0.57 0.50 0.58 1.00 0.59 0.50

  181.      0.60 1.00 1.00 0.00 ) { gray-three }

  182. 

  183.   0.00 beg f+ 0.12 3700  600 0.05 gray-one   main-amp bird

  184.   0.18 beg f+ 0.08 3000  800 0.07 gray-two   main-amp bird

  185.   0.28 beg f+ 0.12 3700  600 0.12 gray-one   main-amp bird

  186.   0.44 beg f+ 0.08 3000  800 0.15 gray-two   main-amp bird

  187.   0.54 beg f+ 0.12 3700  600 0.20 gray-one   main-amp bird

  188.   0.72 beg f+ 0.08 3000  800 0.25 gray-two   main-amp bird

  189.   0.82 beg f+ 0.12 3700  600 0.25 gray-one   main-amp bird

  190.   0.96 beg f+ 0.20 3000 2000 0.20 gray-three main-amp bird

  191.   1.20 beg f+ 0.02 4500  500 0.05 bird-up    main-amp bird

  192.   1.25 beg f+ 0.02 4200  800 0.05 bird-up    main-amp bird

  193.   1.30 beg f+ 0.02 4000  900 0.05 bird-up    main-amp bird

  194.   1.3 0.02 f+ step

  195. ;event

  196. 

  197. event: yellow-warbler ( beg -- )

  198.   { beg }

  199.   #( 0 0 0.6 1 1 0.5 ) { yellow-up }

  200.   #( 0 1 0.05 1 0.6 0 0.8 0.3 1 0.1 ) { yellow-swirl }

  201.   #( 0 0 0.3 0.2 0.8 0.7 1 1 ) { yellow-last }

  202.   #( 0 0 0.9 1 1 0 ) { swirl-amp }

  203. 

  204.   0.00 beg f+ 0.050 5600  400 0.05 yellow-up    main-amp bird

  205.   0.23 beg f+ 0.120 5000 1500 0.15 yellow-swirl main-amp bird

  206.   0.45 beg f+ 0.130 5000 1700 0.17 yellow-swirl main-amp bird

  207.   0.62 beg f+ 0.160 5000 2000 0.20 yellow-swirl main-amp bird

  208.   0.85 beg f+ 0.150 5000 2000 0.20 yellow-swirl main-amp bird

  209.   1.05 beg f+ 0.075 3700 1000 0.20 bird-down 	main-amp bird

  210.   1.15 beg f+ 0.075 3700  800 0.15 bird-down 	main-amp bird

  211.   1.25 beg f+ 0.075 3700  800 0.15 bird-down 	main-amp bird

  212.   1.40 beg f+ 0.200 3700 2000 0.20 yellow-last  main-amp bird

  213.   1.4 0.2 f+ step

  214. ;event

  215. 

  216. event: black-necked-stilt ( beg -- )

  217.   { beg }

  218.   #( 0 0 0.9 1 1 0 ) { upamp }

  219.   #( 0 0 0.5 1 1 0.2 ) { rampup }

  220.   #( 1 0.5 2 1 3 0.75 4 0.5 5 0.1 ) { bns-parts }

  221. 

  222.   0.0 beg f+ 0.1 900 100 0.2 rampup upamp bns-parts bigbird

  223.   0.3 beg f+ 0.1 900 200 0.2 rampup upamp bns-parts bigbird

  224.   0.6 beg f+ 0.1 900 250 0.2 rampup upamp bns-parts bigbird

  225.   0.6 0.1 f+ step

  226. ;event

  227. 

  228. event: chestnut-sided-warbler ( beg -- )

  229.   0.1 f- { beg }

  230.   #( 0 1 0.3 0.5 0.6 1 0.8 0.2 1 0 ) { ycurve }

  231.   #( 0 0.2 0.5 1 1 0 ) { vcurve }

  232.   #( 0 0.5 0.15 0 0.45 0.1 0.6 1 0.7 0.9 1 0.9 ) { wcurve }

  233.   #( 0 0 0.95 1 1 1 ) { upcurve }

  234.   #( 0 1 0.25 0.3 0.6 0.15 1 0 ) { downcurve }

  235.   #( 0 0 0.9 1 1 0 ) { louder }

  236.   #( 0 0 0.1 1 0.4 0.1 0.5 0.9 0.6 0.1 0.7 1 1 0 ) { wamp }

  237. 

  238.   0.10 beg f+ 0.10 4050 1200 0.050 ycurve    main-amp #( 1 1 2 0.1 ) bigbird

  239.   0.25 beg f+ 0.03 3900  300 0.075 vcurve    main-amp #( 1 1 2 0.1 ) bigbird

  240.   0.30 beg f+ 0.10 4050 1200 0.150 ycurve    louder   #( 1 1 2 0.1 ) bigbird

  241.   0.42 beg f+ 0.03 3800  500 0.100 vcurve    main-amp #( 1 1 2 0.1 ) bigbird

  242.   0.50 beg f+ 0.10 4000 1200 0.200 ycurve    tap-amp  #( 1 1 2 0.1 ) bigbird

  243.   0.65 beg f+ 0.03 3800  500 0.150 vcurve    main-amp #( 1 1 2 0.1 ) bigbird

  244.   0.72 beg f+ 0.10 4000 1200 0.200 ycurve    tap-amp  #( 1 1 2 0.1 ) bigbird

  245.   0.85 beg f+ 0.03 3800  500 0.150 vcurve    main-amp #( 1 1 2 0.1 ) bigbird

  246.   0.91 beg f+ 0.10 4000 1200 0.200 ycurve    tap-amp  #( 1 1 2 0.1 ) bigbird

  247.   1.05 beg f+ 0.12 3800 2200 0.150 wcurve    wamp     #( 1 1 2 0.1 ) bigbird

  248.   1.20 beg f+ 0.12 3800 2200 0.150 wcurve    wamp     #( 1 1 2 0.1 ) bigbird

  249.   1.35 beg f+ 0.12 2500 2200 0.250 upcurve   louder   #( 1 1 2 0.1 ) bigbird

  250.   1.50 beg f+ 0.12 2500 4000 0.150 downcurve main-amp #( 1 1 2 0.1 ) bigbird

  251.   1.5 0.12 f+ step

  252. ;event

  253. 

  254. event: grasshopper-sparrow ( beg -- )

  255.    0.49 f- { beg }

  256.   #( 0.00 0.50 0.02 0.80 0.04 0.30 0.06 0.80 0.07 0.10 0.08 0.90

  257.      0.10 0.00 0.11 0.90 0.12 0.00 0.13 0.90 0.14 0.10 0.15 1.00

  258.      0.16 0.10 0.17 1.00 0.18 0.10 0.19 1.00 0.20 0.10 0.21 1.00

  259.      0.22 0.10 0.23 1.00 0.24 0.10 0.25 1.00 0.26 0.10 0.27 1.00

  260.      0.28 0.10 0.29 1.00 0.30 0.10 0.31 1.00 0.32 0.10 0.33 1.00

  261.      0.34 0.10 0.35 1.00 0.36 0.10 0.37 1.00 0.38 0.10 0.39 1.00

  262.      0.40 0.10 0.41 1.00 0.42 0.10 0.43 1.00 0.44 0.10 0.45 1.00

  263.      0.46 0.10 0.47 1.00 0.48 0.10 0.49 1.00 0.50 0.10 0.51 1.00

  264.      0.52 0.10 0.53 1.00 0.54 0.10 0.55 1.00 0.56 0.10 0.57 1.00

  265.      0.58 0.10 0.59 1.00 0.60 0.10 0.61 1.00 0.62 0.10 0.63 1.00

  266.      0.64 0.10 0.65 1.00 0.66 0.10 0.67 1.00 0.68 0.10 0.69 1.00

  267.      0.70 0.10 0.71 1.00 0.72 0.10 0.73 1.00 0.74 0.10 0.75 1.00

  268.      0.76 0.10 0.77 1.00 0.78 0.10 0.79 1.00 0.80 0.10 0.81 1.00

  269.      0.82 0.10 0.83 1.00 0.84 0.10 0.85 1.00 0.86 0.10 0.87 1.00

  270.      0.88 0.10 0.89 1.00 0.90 0.10 0.91 1.00 0.92 0.10 0.93 1.00

  271.      0.94 0.10 0.95 1.00 0.96 0.10 0.97 1.00 0.98 0.10 1.00 1.00 ) { grass-one }

  272.   #( 0.00 0.00 0.10 1.00 0.20 0.00 0.30 1.00 0.40 0.00 0.50 1.00

  273.      0.60 0.00 0.70 1.00 0.80 0.00 0.90 1.00 1.00 0.00 ) { grass-two }

  274.   

  275.   0.49 beg f+ 0.01 8000  100 0.1 grass-two main-amp bird

  276.   0.60 beg f+ 0.01 5700  300 0.1 grass-two main-amp bird

  277.   0.92 beg f+ 0.01 3900  100 0.1 grass-two main-amp bird

  278.   1.00 beg f+ 1.40 6000 2500 0.2 grass-one main-amp bird

  279.   1 1.4 f+ step

  280. ;event

  281. 

  282. event: swamp-sparrow ( beg -- )

  283.   { beg }

  284.   #( 0 0 0.6 0.7 1 1 ) { swamp-up }

  285.   #( 0 1 0.5 0.5 0.6 0.6 1 0 ) { swamp-down }

  286. 

  287.   0.000 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  288.   0.035 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  289.   0.080 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  290.   0.100 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  291.   0.135 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  292.   0.180 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  293.   0.200 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  294.   0.235 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  295.   0.280 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  296.   0.300 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  297.   0.335 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  298.   0.380 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  299.   0.400 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  300.   0.435 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  301.   0.480 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  302.   0.500 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  303.   0.535 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  304.   0.580 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  305.   0.600 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  306.   0.635 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  307.   0.680 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  308.   0.700 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  309.   0.735 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  310.   0.780 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  311.   0.800 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  312.   0.835 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  313.   0.880 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  314.   0.900 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird

  315.   0.935 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird

  316.   0.980 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird

  317.   0.98 0.025 f+ step

  318. ;event

  319. 

  320. event: golden-crowned-sparrow ( beg -- )

  321.   0.6 f- { beg }

  322.   #( 0 1 0.25 0.2 1 0 ) { gold-one }

  323.   #( 0 0.9 0.05 1 0.1 0.4 1 0 ) { gold-two }

  324.   #( 0 0.5 0.1 0 0.2 1 0.3 0 0.4 1 0.5 0 0.6 1 0.7 0 0.8 1 0.9 0 1 0.5 )

  325.   { gold-trill }

  326. 

  327.   0.60 beg f+ 0.50 4300 1000 0.15 gold-one   main-amp bird

  328.   1.30 beg f+ 0.45 3300  200 0.15 gold-one   main-amp bird

  329.   1.75 beg f+ 0.40 3800  100 0.15 gold-two   main-amp bird

  330.   2.20 beg f+ 0.30 3800  100 0.10 gold-trill main-amp bird

  331.   2.2 0.3 f+ step

  332. ;event

  333. 

  334. event: indigo-bunting ( beg -- )

  335.   0.4 f- { beg }

  336.   #( 0 0 0.5 1 1 0 ) { bunt-v }

  337.   #( 0 1 0.5 0 1 0.9 ) { bunt-y }

  338.   #( 0 0.8 0.3 1 0.7 0.2 1 0 ) { bunt-n }

  339.   #( 0 1 0.1 0.5 0.25 0.9 1 0 ) { bunt-x }

  340. 

  341.   0.40 beg f+ 0.08 3000  700 0.25 bird-down main-amp bird

  342.   0.52 beg f+ 0.02 6200 1000 0.05 bird-down main-amp bird

  343.   0.55 beg f+ 0.15 3500 2300 0.10 bunt-v    main-amp bird

  344.   0.74 beg f+ 0.02 6200 1800 0.05 bunt-x    main-amp bird

  345.   0.80 beg f+ 0.15 3400 2300 0.10 bunt-v    main-amp bird

  346.   1.00 beg f+ 0.10 3400  800 0.20 bunt-v    main-amp bird

  347.   1.13 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird

  348.   1.25 beg f+ 0.08 3400  800 0.20 bunt-v    main-amp bird

  349.   1.40 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird

  350.   1.50 beg f+ 0.07 3700  300 0.10 bird-down main-amp bird

  351.   1.60 beg f+ 0.10 4100 2200 0.15 bunt-y    main-amp bird

  352.   1.72 beg f+ 0.05 3700  300 0.10 bird-down main-amp bird

  353.   1.81 beg f+ 0.10 4100 2200 0.15 bunt-y    main-amp bird

  354.   1.94 beg f+ 0.07 5200 1800 0.20 bunt-n    main-amp bird

  355.   2.05 beg f+ 0.08 3000 1500 0.15 bird-up   main-amp bird

  356.   2.20 beg f+ 0.07 5200 1800 0.20 bunt-n    main-amp bird

  357.   2.33 beg f+ 0.08 3000 1500 0.15 bird-up   main-amp bird

  358.   2.43 beg f+ 0.07 5200 1800 0.10 bunt-n    main-amp bird

  359.   2.51 beg f+ 0.08 3000 1500 0.10 bird-up   main-amp bird

  360.   2.51 0.08 f+ step

  361. ;event

  362. 

  363. event: hooded-warbler ( beg -- )

  364.   0.6 f- { beg }

  365.   0.60 beg f+ 0.03 3900 1600 0.05 bird-down main-amp bird

  366.   0.64 beg f+ 0.03 3900 1700 0.05 bird-down main-amp bird

  367.   0.80 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird

  368.   0.84 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird

  369.   0.93 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird

  370.   0.97 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird

  371.   1.05 beg f+ 0.03 3900 2100 0.05 bird-down main-amp bird

  372.   1.09 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  373.   1.17 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  374.   1.21 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  375.   1.39 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  376.   1.43 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  377.   1.51 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  378.   1.55 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  379.   1.63 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  380.   1.67 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  381.   1.75 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  382.   1.80 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird

  383.   1.90 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  384.   1.98 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  385.   2.05 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  386.   2.13 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  387.   2.21 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  388.   2.29 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  389.   2.37 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  390.   2.45 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird

  391.   2.45 0.04 f+ step

  392. ;event

  393. 

  394. event: american-widgeon ( beg -- )

  395.   0.3 f- { beg }

  396.   #( 0 0 0.5 1 1 0 ) { widgeon }

  397. 

  398.   0.30 beg f+ 0.07 1900  300 0.15 widgeon widgeon #( 1 1 2 0.02 )       bigbird

  399.   0.40 beg f+ 0.11 1700 1400 0.25 widgeon widgeon #( 1 0.7 2 1 3 0.02 ) bigbird

  400.   0.55 beg f+ 0.07 1900  300 0.15 widgeon widgeon #( 1 1 2 0.02 )       bigbird

  401.   0.55 0.07 f+ step

  402. ;event

  403. 

  404. event: louisiana-waterthrush ( beg -- )

  405.   { beg }

  406.   #( 0 0.8 0.35 0.4 0.45 0.9 0.5 1 0.75 1 1 1 ) { water-one }

  407.   #( 0 1 0.4 0 0.6 0.1 1 0.8 ) { water-two }

  408.   #( 0 1 0.95 0 1 0 ) { water-three }

  409.   #( 0 0 1 1 ) { water-four }

  410.   #( 0 1 1 0 ) { water-five }

  411.   #( 0 0 0.35 1 0.5 0.2 0.9 1 1 0 ) { water-amp }

  412.   #( 0 0 0.9 1 1 0 ) { water-damp }

  413. 

  414.   0.00 beg f+ 0.170 4100 2000 0.20 water-one   water-amp  bird

  415.   0.32 beg f+ 0.180 4050 2050 0.30 water-one   water-amp  bird

  416.   0.64 beg f+ 0.200 4000 1900 0.25 water-one   water-amp  bird

  417.   0.90 beg f+ 0.200 3900 2000 0.30 water-two   tap-amp    bird

  418.   1.25 beg f+ 0.120 3000 3000 0.25 water-three water-damp bird

  419.   1.40 beg f+ 0.100 2700 1500 0.20 water-four  water-damp bird

  420.   1.58 beg f+ 0.020 5200 1000 0.10 water-five  main-amp   bird

  421.   1.65 beg f+ 0.020 5200 1000 0.10 water-five  main-amp   bird

  422.   1.70 beg f+ 0.035 3200 1000 0.10 water-three water-damp bird

  423.   1.7 0.03 f+ step

  424. ;event

  425. 

  426. event: robin ( beg -- )

  427.   0.45 f- { beg }

  428.   #( 0.00 0.10 0.08 0.70 0.30 0.00 0.35 1.00 0.40 0.30 1.00 0.30 ) { r-one }

  429.   #( 0.00 0.00 0.10 1.00 0.20 0.70 0.35 0.70 0.65 0.30 0.70 0.50

  430.      0.80 0.00 0.90 0.20 1.00 0.00 ) { r-two }

  431.   #( 0.00 0.20 0.25 1.00 0.60 0.70 0.90 0.00 1.00 0.10 ) { r-three }

  432.   #( 0.00 0.50 0.10 0.00 0.20 1.00 0.30 0.00 0.40 1.00 0.50 0.00

  433.      0.60 1.00 0.70 0.50 1.00 0.20 ) { r-five }

  434.   #( 0.00 0.00 0.12 0.70 0.30 0.00 0.70 1.00 1.00 0.50 ) { r-six }

  435. 

  436.   0.45 beg f+ 0.06 2000  800 0.15 r-six     main-amp #( 1 1 2 0.1 ) bigbird

  437.   0.56 beg f+ 0.10 2000  900 0.15 r-one     main-amp #( 1 1 2 0.1 ) bigbird

  438.   1.04 beg f+ 0.24 2000 2000 0.25 r-two     main-amp #( 1 1 2 0.1 ) bigbird

  439.   1.63 beg f+ 0.13 1900 1600 0.20 r-three   main-amp #( 1 1 2 0.1 ) bigbird

  440.   1.80 beg f+ 0.11 2200 1200 0.25 bird-down main-amp #( 1 1 2 0.1 ) bigbird

  441.   2.31 beg f+ 0.21 1950 2000 0.15 r-five    main-amp #( 1 1 2 0.1 ) bigbird

  442.   2.31 0.21 f+ step

  443. ;event

  444. 

  445. event: solitary-vireo ( beg -- )

  446.   { beg }

  447.   #( 0.00 0.20 0.03 0.30 0.06 0.10 0.10 0.50 0.13 0.40 0.16 0.80

  448.      0.19 0.50 0.22 0.90 0.25 0.60 0.28 1.00 0.31 0.60 0.34 1.00

  449.      0.37 0.50 0.41 0.90 0.45 0.40 0.49 0.80 0.51 0.40 0.54 0.75

  450.      0.57 0.35 0.60 0.70 0.63 0.30 0.66 0.60 0.69 0.25 0.72 0.50

  451.      0.75 0.20 0.78 0.30 0.82 0.10 0.85 0.30 0.88 0.05 0.91 0.30

  452.      0.94 0.00 0.95 0.30 0.99 0.00 1.00 0.10 ) { bigskew }

  453. 

  454.   beg 0.4 1800 1200 0.2 bigskew main-amp bird

  455.   0.4 step

  456. ;event

  457. 

  458. event: pigeon-hawk ( beg -- )

  459.   { beg }

  460.   #( 0 0 0.3 1 0.7 1 1 0 ) { hupdown }

  461. 

  462.   0.00 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  463.   0.12 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  464.   0.13 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  465.   0.25 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  466.   0.26 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  467.   0.38 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  468.   0.39 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  469.   0.51 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  470.   0.52 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  471.   0.64 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  472.   0.65 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  473.   0.77 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  474.   0.78 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  475.   0.90 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  476.   0.91 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  477.   1.03 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  478.   1.04 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  479.   1.16 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  480.   1.17 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  481.   1.29 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  482.   1.30 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  483.   1.42 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  484.   1.43 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  485.   1.55 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  486.   1.56 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  487.   1.68 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  488.   1.69 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  489.   1.81 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird

  490.   1.82 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird

  491.   1.82 0.1 f+ step

  492. ;event

  493. 

  494. event: cerulean-warbler ( beg -- )

  495.   0.27 f- { beg }

  496.   #( 0 0.8 0.1 1 0.25 0.5 0.4 1 0.55 0.5 0.7 1 1 0 ) { trill }

  497. 

  498.   0.27 beg f+ 0.05 3000 1000 0.050 bird-down main-amp bird

  499.   0.33 beg f+ 0.05 3000  800 0.075 bird-up   main-amp bird

  500.   0.41 beg f+ 0.01 3200  700 0.070 bird-down main-amp bird

  501.   0.42 beg f+ 0.01 3200  700 0.080 bird-down main-amp bird

  502.   0.43 beg f+ 0.06 3200  700 0.090 bird-down main-amp bird

  503.   0.51 beg f+ 0.06 3200  500 0.100 bird-up   main-amp bird

  504.   0.60 beg f+ 0.10 3000 1200 0.200 trill     main-amp bird

  505.   0.72 beg f+ 0.05 3000  800 0.200 bird-up   main-amp bird

  506.   0.80 beg f+ 0.10 3000 1200 0.200 trill     main-amp bird

  507.   0.92 beg f+ 0.05 3000  800 0.200 bird-up   main-amp bird

  508.   1.00 beg f+ 0.01 3900  600 0.100 bird-up   main-amp bird

  509.   1.01 beg f+ 0.01 3910  800 0.100 bird-up   main-amp bird

  510.   1.02 beg f+ 0.01 3940  500 0.100 bird-up   main-amp bird

  511.   1.03 beg f+ 0.01 4000  500 0.100 bird-up   main-amp bird

  512.   1.04 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  513.   1.05 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  514.   1.06 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  515.   1.07 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  516.   1.08 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  517.   1.09 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  518.   1.10 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  519.   1.11 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  520.   1.12 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  521.   1.13 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  522.   1.14 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  523.   1.15 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  524.   1.16 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  525.   1.17 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  526.   1.18 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  527.   1.19 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  528.   1.20 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  529.   1.21 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  530.   1.22 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird

  531.   1.23 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird

  532.   1.24 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird

  533.   1.25 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird

  534.   1.26 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird

  535.   1.27 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird

  536.   1.28 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird

  537.   1.29 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird

  538.   1.30 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird

  539.   1.3 0.01 f+ step

  540. ;event

  541. 

  542. event: nashville-warbler ( beg -- )

  543.   0.15 f- { beg }

  544.   #( 0 0.6 0.35 1 1 0 ) { nash-blip }

  545.   #( 0 0.9 0.05 1 0.1 0.9 0.65 0.5 1 0 ) { nash-down }

  546.   #( 0 0 0.15 0.2 0.25 0.05 0.9 0.95 1 1 ) { nash-up }

  547.   #( 0 0 0.8 1 1 0 ) { nash-amp }

  548. 

  549.   0.15 beg f+ 0.025 3900  300 0.300 nash-blip main-amp bird

  550.   0.24 beg f+ 0.160 4200 3800 0.150 nash-down nash-amp bird

  551.   0.42 beg f+ 0.025 3900  300 0.300 nash-blip main-amp bird

  552.   0.55 beg f+ 0.140 4300 3700 0.150 nash-down nash-amp bird

  553.   0.75 beg f+ 0.030 3950  350 0.300 nash-blip main-amp bird

  554.   0.81 beg f+ 0.170 4200 3900 0.175 nash-down main-amp bird

  555.   1.00 beg f+ 0.020 3800  400 0.250 nash-blip main-amp bird

  556.   1.11 beg f+ 0.140 4200 3800 0.165 nash-down nash-amp bird

  557.   1.30 beg f+ 0.030 3750  300 0.200 nash-blip main-amp bird

  558.   1.40 beg f+ 0.110 4200 3700 0.100 nash-down main-amp bird

  559.   1.57 beg f+ 0.100 3800 2200 0.100 nash-up   main-amp bird

  560.   1.70 beg f+ 0.100 3800 2150 0.125 nash-up   main-amp bird

  561.   1.85 beg f+ 0.075 3900 1800 0.100 nash-up   nash-amp bird

  562.   1.85 0.075 f+ step

  563. ;event

  564. 

  565. event: eastern-phoebe ( beg -- )

  566.   { beg }

  567.   #( 0 0 0.3 0.3 0.35 0.5 0.55 0.4 0.7 0.8 0.75 0.7 0.8 1 0.95 0.9 1 0 ) { phoebe-one }

  568.   #( 0 0 0.5 1 1 0 ) { phoebe-two }

  569.   #( 0 0 0.1 0.4 0.8 1 1 0.1 ) { phoebe-three }

  570.   #( 0 1 0.5 0.7 1 0 ) { phoebe-four }

  571.   #( 0 0 0.1 1 1 0 ) { phoebe-amp }

  572. 

  573.   0.00 beg f+ 0.225 3000 1300 0.3 phoebe-one   main-amp   bird

  574.   0.35 beg f+ 0.120 3000  500 0.1 phoebe-two   phoebe-amp bird

  575.   0.40 beg f+ 0.100 3000 1500 0.2 phoebe-three phoebe-amp bird

  576.   0.55 beg f+ 0.050 3000 1400 0.2 phoebe-four  phoebe-amp bird

  577.   0.55 0.05 f+ step

  578. ;event

  579. 

  580. event: painted-bunting ( beg -- )

  581.   0.05 f- { beg }

  582.   #( 0 0 0.9 1 1 0 ) { b-two }

  583.   #( 0 0 0.5 1 1 0 ) { b-four }

  584.   #( 0 0.7 0.15 0 0.4 1 0.8 1 1 0.5 ) { b-five }

  585.   #( 0 0 0.1 0.5 0.15 0 0.4 1 0.9 1 1 0 ) { b-six }

  586.   #( 0 1 0.25 0.4 0.75 0.5 1 0 ) { b-seven }

  587.   #( 0 0.3 0.4 0.4 0.5 1 0.6 0.2 1 0 ) { b-eight }

  588.   #( 0 0 0.05 1 0.3 1 0.5 0.3 0.9 1 1 0 ) { b-nine }

  589.   #( 0 0.4 0.25 0 0.35 1 0.5 0 0.65 1 0.75 0 0.85 1 1 0 ) { b-ten }

  590.   #( 0 0 0.5 1 1 0.5 ) { b-twelve }

  591.   #( 0 0 0.05 1 0.3 0.2 0.6 0.2 0.9 1 1 0 ) { b-thirteen }

  592.   #( 0 0.3 0.3 1 0.6 0.3 1 0 ) { b-fourteen }

  593.   #( 0 0 0.1 0.5 0.5 0.5 0.9 1 1 0 ) { b-fifteen }

  594. 

  595.   0.05 beg f+ 0.10 3100  900 0.05 bird-up    b-two      bird

  596.   0.21 beg f+ 0.07 4100  700 0.15 bird-down  main-amp   bird

  597.   0.36 beg f+ 0.12 3700 1000 0.20 b-four     main-amp   bird

  598.   0.52 beg f+ 0.08 2300 1600 0.15 b-five     b-six      bird

  599.   0.68 beg f+ 0.10 4000 1000 0.25 bird-up    tap-amp    bird

  600.   0.80 beg f+ 0.12 2300 1700 0.20 b-seven    main-amp   bird

  601.   0.96 beg f+ 0.15 3800 2200 0.30 b-eight    b-nine     bird

  602.   1.18 beg f+ 0.10 2300 1600 0.15 b-ten      main-amp 	bird

  603.   1.30 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp 	bird

  604.   1.33 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp 	bird

  605.   1.36 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp 	bird

  606.   1.40 beg f+ 0.03 4000 2000 0.12 b-twelve   b-thirteen bird

  607.   1.47 beg f+ 0.10 2300 1700 0.20 b-fourteen b-fifteen  bird

  608.   1.47 0.1 f+ step

  609. ;event

  610. 

  611. event: western-flycatcher ( beg -- )

  612.   { beg }

  613.   #( 0 0 0.1 1 0.2 0.4 0.95 0.1 1 0 ) { f-one }

  614.   #( 0 0 0.1 0.2 0.2 0.1 0.3 1 0.9 1 1 0 ) { a-one }

  615.   #( 0 0.5 0.25 1 0.5 0 0.6 0 0.95 0.3 1 0.6 ) { f-two }

  616.   #( 0 0 0.1 1 0.2 1 0.5 0.1 0.6 0.1 0.9 1 1 0 ) { a-two }

  617.   #( 1 1 2 0.02 3 0.1 4 0.01 ) { fc-parts }

  618.   

  619.   0.0 beg f+ 0.2 2000 2200 0.2 f-one a-one fc-parts bigbird

  620.   0.3 beg f+ 0.2 2000 1100 0.2 f-two a-two fc-parts bigbird

  621.   0.3 0.2 f+ step

  622. ;event

  623. 

  624. event: bachmans-sparrow ( beg -- )

  625.   { beg }

  626.   #( 0 1 0.1 0.5 0.9 0.5 1 0 ) { sopening }

  627.   #( 0 0.1 0.35 0 1 1 ) { sup }

  628.   #( 0 1 0.4 0.5 1 0 ) { sdwn }

  629.   #( 0 1 0.25 0 0.75 0.4 1 0.5 ) { slast }

  630. 

  631.   0.00 beg f+ 0.510 4900  200 0.3 sopening main-amp bird

  632.   0.52 beg f+ 0.015 3800  200 0.1 sup 	   main-amp bird

  633.   0.52 beg f+ 0.015 3750  250 0.1 sup 	   main-amp bird

  634.   0.54 beg f+ 0.015 3600  300 0.1 sup 	   main-amp bird

  635.   0.56 beg f+ 0.015 3500  250 0.1 sup 	   main-amp bird

  636.   0.58 beg f+ 0.015 3400  200 0.1 sup 	   main-amp bird

  637.   0.60 beg f+ 0.015 3200  200 0.1 sup 	   main-amp bird

  638.   0.62 beg f+ 0.015 3800  100 0.1 sup 	   main-amp bird

  639.   0.65 beg f+ 0.070 3000  750 0.2 sup 	   main-amp bird

  640.   0.73 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  641.   0.80 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  642.   0.88 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  643.   0.95 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  644.   1.03 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  645.   1.10 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  646.   1.18 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  647.   1.25 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  648.   1.33 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  649.   1.40 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  650.   1.48 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  651.   1.55 beg f+ 0.070 3000  750 0.2 sup  	   main-amp bird

  652.   1.63 beg f+ 0.030 5000 1000 0.1 sdwn 	   main-amp bird

  653.   2.80 beg f+ 0.060 4000 1700 0.1 bird-up  main-amp bird

  654.   2.87 beg f+ 0.010 5200    0 0.2 bird-up  main-amp bird

  655.   2.90 beg f+ 0.060 4000 1700 0.1 bird-up  main-amp bird

  656.   2.97 beg f+ 0.010 5200    0 0.2 bird-up  main-amp bird

  657.   3.00 beg f+ 0.060 4000 1700 0.1 bird-up  main-amp bird

  658.   3.07 beg f+ 0.010 5200    0 0.2 bird-up  main-amp bird

  659.   3.10 beg f+ 0.060 4000 1700 0.1 bird-up  main-amp bird

  660.   3.17 beg f+ 0.010 5200    0 0.2 bird-up  main-amp bird

  661.   3.20 beg f+ 0.060 4000 1700 0.1 bird-up  main-amp bird

  662.   3.27 beg f+ 0.010 5200    0 0.2 bird-up  main-amp bird

  663.   3.40 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  664.   3.60 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  665.   3.80 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  666.   4.00 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  667.   4.20 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  668.   4.40 beg f+ 0.150 3000 1000 0.2 slast    main-amp bird

  669.   4.4 0.15 f+ step

  670. ;event

  671. 

  672. event: cedar-waxwing ( beg -- )

  673.   { beg }

  674.   #( 0 0 0.25 0.7 0.7 1 0.9 1 1 0.2 ) { cedar }

  675.   #( 0 0 0.2 1 0.4 1 1 0 ) { cedamp }

  676. 

  677.   beg 0.5 6000 800 0.2 cedar cedamp bird

  678.   0.5 step

  679. ;event

  680. 

  681. event: bairds-sparrow ( beg -- )

  682.   { beg }

  683.   #( 0 0 0.25 1 0.5 0 0.75 1 1 0 ) { bairdend }

  684.   #( 0.00 0.50 0.05 1.00 0.10 0.00 0.15 1.00 0.20 0.00 0.25 1.00

  685.      0.30 0.00 0.35 1.00 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00

  686.      0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00

  687.      0.90 0.00 0.95 1.00 1.00 0.00 ) { bairdstart }

  688. 

  689.   0.00 beg f+ 0.09 6500 1500 0.20 bairdstart main-amp bird

  690.   0.22 beg f+ 0.01 5900  100 0.20 bairdend   main-amp bird

  691.   0.25 beg f+ 0.09 6000 1000 0.20 bairdstart main-amp bird

  692.   0.45 beg f+ 0.01 4200  100 0.20 bairdend   main-amp bird

  693.   0.50 beg f+ 0.08 4200  600 0.20 bairdstart main-amp bird

  694.   0.59 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird

  695.   0.60 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird

  696.   0.68 beg f+ 0.07 5400  700 0.20 bairdstart main-amp bird

  697.   0.75 beg f+ 0.01 4200  100 0.20 bairdend   main-amp bird

  698.   0.79 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird

  699.   0.83 beg f+ 0.01 4200  100 0.19 bairdend   main-amp bird

  700.   0.87 beg f+ 0.01 4400  100 0.19 bairdend   main-amp bird

  701.   0.91 beg f+ 0.01 4200  100 0.18 bairdend   main-amp bird

  702.   0.95 beg f+ 0.01 4400  100 0.18 bairdend   main-amp bird

  703.   0.99 beg f+ 0.01 4200  100 0.17 bairdend   main-amp bird

  704.   1.03 beg f+ 0.01 4400  100 0.17 bairdend   main-amp bird

  705.   1.07 beg f+ 0.01 4200  100 0.16 bairdend   main-amp bird

  706.   1.11 beg f+ 0.01 4400  100 0.16 bairdend   main-amp bird

  707.   1.15 beg f+ 0.01 4200  100 0.15 bairdend   main-amp bird

  708.   1.19 beg f+ 0.01 4400  100 0.15 bairdend   main-amp bird

  709.   1.23 beg f+ 0.01 4200  100 0.14 bairdend   main-amp bird

  710.   1.27 beg f+ 0.01 4400  100 0.14 bairdend   main-amp bird

  711.   1.31 beg f+ 0.01 4200  100 0.13 bairdend   main-amp bird

  712.   1.35 beg f+ 0.01 4400  100 0.13 bairdend   main-amp bird

  713.   1.39 beg f+ 0.01 4200  100 0.12 bairdend   main-amp bird

  714.   1.43 beg f+ 0.01 4400  100 0.12 bairdend   main-amp bird

  715.   1.47 beg f+ 0.01 4200  100 0.11 bairdend   main-amp bird

  716.   1.51 beg f+ 0.01 4400  100 0.11 bairdend   main-amp bird

  717.   1.55 beg f+ 0.01 4200  100 0.10 bairdend   main-amp bird

  718.   1.59 beg f+ 0.01 4400  100 0.10 bairdend   main-amp bird

  719.   1.63 beg f+ 0.01 4200  100 0.09 bairdend   main-amp bird

  720.   1.67 beg f+ 0.01 4400  100 0.09 bairdend   main-amp bird

  721.   1.71 beg f+ 0.01 4200  100 0.08 bairdend   main-amp bird

  722.   1.75 beg f+ 0.01 4400  100 0.08 bairdend   main-amp bird

  723.   1.79 beg f+ 0.01 4200  100 0.07 bairdend   main-amp bird

  724.   1.83 beg f+ 0.01 4400  100 0.07 bairdend   main-amp bird

  725.   1.87 beg f+ 0.01 4200  100 0.06 bairdend   main-amp bird

  726.   1.92 beg f+ 0.01 4400  100 0.06 bairdend   main-amp bird

  727.   1.97 beg f+ 0.01 4200  100 0.05 bairdend   main-amp bird

  728.   1.97 0.01 f+ step

  729. ;event

  730. 

  731. event: kentucky-warbler ( beg -- )

  732.   0.6 f- { beg }

  733.   #( 0 0.3 0.5 1 1 0 ) { kenstart }

  734.   #( 0 0.9 0.1 1 1 0 ) { kendwn }

  735.   #( 0 1 0.25 0 0.5 0 0.75 1 1 0 ) { kentrill }

  736.   #( 1 1 2 0.1 ) { ken-parts-1 }

  737.   #( 1 1 2 0.01 ) { ken-parts-01 }

  738.   #( 1 1 2 0.03 ) { ken-parts-03 }

  739. 

  740.   0.60 beg f+ 0.02 3800  200 0.05 kenstart main-amp ken-parts-03 bigbird

  741.   0.65 beg f+ 0.03 4300  200 0.15 bird-up  main-amp ken-parts-1  bigbird

  742.   0.73 beg f+ 0.02 3200  100 0.10 kendwn   main-amp ken-parts-1  bigbird

  743.   0.75 beg f+ 0.05 3000  800 0.15 kenstart main-amp ken-parts-01 bigbird

  744.   0.82 beg f+ 0.06 3100 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  745.   0.90 beg f+ 0.06 3200 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  746.   0.98 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird

  747.   1.10 beg f+ 0.05 2900  800 0.15 kenstart main-amp ken-parts-01 bigbird

  748.   1.17 beg f+ 0.06 3000 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  749.   1.25 beg f+ 0.06 3100 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  750.   1.33 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird

  751.   1.43 beg f+ 0.05 2800  800 0.15 kenstart main-amp ken-parts-01 bigbird

  752.   1.50 beg f+ 0.05 2700 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  753.   1.57 beg f+ 0.06 2800 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  754.   1.64 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird

  755.   1.75 beg f+ 0.05 2700  800 0.15 kenstart main-amp ken-parts-01 bigbird

  756.   1.81 beg f+ 0.05 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  757.   1.88 beg f+ 0.06 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  758.   1.97 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird

  759.   2.05 beg f+ 0.05 2700  800 0.15 kenstart main-amp ken-parts-01 bigbird

  760.   2.12 beg f+ 0.06 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  761.   2.20 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird

  762.   2.30 beg f+ 0.05 2800  800 0.15 kenstart main-amp ken-parts-01 bigbird

  763.   2.37 beg f+ 0.06 2700 1200 0.10 kendwn   main-amp ken-parts-01 bigbird

  764.   2.45 beg f+ 0.05 4700  100 0.25 kentrill main-amp ken-parts-1  bigbird

  765.   2.45 0.05 f+ step

  766. ;event

  767. 

  768. event: rufous-sided-towhee ( beg -- )

  769.   0.25 f- { beg }

  770.   #( 0.00 0.10 0.02 0.05 0.04 0.15 0.06 0.05 0.08 0.20 0.10 0.04

  771.      0.12 0.25 0.14 0.03 0.16 0.30 0.18 0.02 0.20 0.35 0.22 0.01

  772.      0.24 0.40 0.26 0.00 0.28 0.45 0.30 0.00 0.32 0.50 0.34 0.00

  773.      0.36 0.50 0.80 1.00 1.00 0.00 ) { towhee-one }

  774.   #( 1 0.03 2 1 3 0.03 ) { towhee-parts }

  775. 

  776.   0.250 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp towhee-parts bigbird

  777.   0.450 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp towhee-parts bigbird

  778.   0.600 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp towhee-parts bigbird

  779.   0.750 beg f+ 0.10 1400 1100 0.20 towhee-one main-amp towhee-parts bigbird

  780.   0.880 beg f+ 0.01 5100 2000 0.10 bird-up    main-amp 		    bird

  781.   0.895 beg f+ 0.01 5100 1600 0.10 bird-up    main-amp 		    bird

  782.   0.910 beg f+ 0.01 5100 1000 0.10 bird-up    main-amp 		    bird

  783.   0.930 beg f+ 0.01 3000 1200 0.10 bird-down  main-amp 		    bird

  784.   0.945 beg f+ 0.01 5100 2000 0.09 bird-up    main-amp 		    bird

  785.   0.960 beg f+ 0.01 5100 1600 0.09 bird-up    main-amp 		    bird

  786.   0.975 beg f+ 0.01 5100 1000 0.09 bird-up    main-amp 		    bird

  787.   0.995 beg f+ 0.01 3000 1200 0.09 bird-down  main-amp 		    bird

  788.   1.010 beg f+ 0.01 5100 2000 0.10 bird-up    main-amp 		    bird

  789.   1.025 beg f+ 0.01 5100 1600 0.10 bird-up    main-amp 		    bird

  790.   1.040 beg f+ 0.01 5100 1000 0.10 bird-up    main-amp 		    bird

  791.   1.060 beg f+ 0.01 3000 1200 0.10 bird-down  main-amp 		    bird

  792.   1.075 beg f+ 0.01 5100 2000 0.09 bird-up    main-amp 		    bird

  793.   1.090 beg f+ 0.01 5100 1600 0.09 bird-up    main-amp 		    bird

  794.   1.105 beg f+ 0.01 5100 1000 0.09 bird-up    main-amp 		    bird

  795.   1.125 beg f+ 0.01 3000 1200 0.09 bird-down  main-amp 		    bird

  796.   1.140 beg f+ 0.01 5100 2000 0.08 bird-up    main-amp 		    bird

  797.   1.155 beg f+ 0.01 5100 1600 0.08 bird-up    main-amp 		    bird

  798.   1.170 beg f+ 0.01 5100 1000 0.08 bird-up    main-amp 		    bird

  799.   1.190 beg f+ 0.01 3000 1200 0.08 bird-down  main-amp 		    bird

  800.   1.205 beg f+ 0.01 5100 2000 0.08 bird-up    main-amp 		    bird

  801.   1.220 beg f+ 0.01 5100 1600 0.08 bird-up    main-amp 		    bird

  802.   1.235 beg f+ 0.01 5100 1000 0.08 bird-up    main-amp 		    bird

  803.   1.255 beg f+ 0.01 3000 1200 0.08 bird-down  main-amp 		    bird

  804.   1.270 beg f+ 0.01 5100 2000 0.07 bird-up    main-amp 		    bird

  805.   1.285 beg f+ 0.01 5100 1600 0.07 bird-up    main-amp 		    bird

  806.   1.300 beg f+ 0.01 5100 1000 0.07 bird-up    main-amp 		    bird

  807.   1.320 beg f+ 0.01 3000 1200 0.07 bird-down  main-amp 		    bird

  808.   1.335 beg f+ 0.01 5100 2000 0.06 bird-up    main-amp 		    bird

  809.   1.350 beg f+ 0.01 5100 1600 0.06 bird-up    main-amp 		    bird

  810.   1.365 beg f+ 0.01 5100 1000 0.06 bird-up    main-amp 		    bird

  811.   1.385 beg f+ 0.01 3000 1200 0.06 bird-down  main-amp 		    bird

  812.   1.400 beg f+ 0.01 5100 2000 0.05 bird-up    main-amp 		    bird

  813.   1.415 beg f+ 0.01 5100 1600 0.05 bird-up    main-amp 		    bird

  814.   1.430 beg f+ 0.01 5100 1000 0.05 bird-up    main-amp 		    bird

  815.   1.450 beg f+ 0.01 3000 1200 0.05 bird-down  main-amp 		    bird

  816.   1.465 beg f+ 0.01 5100 2000 0.03 bird-up    main-amp 		    bird

  817.   1.480 beg f+ 0.01 5100 1600 0.03 bird-up    main-amp 		    bird

  818.   1.495 beg f+ 0.01 5100 1000 0.03 bird-up    main-amp 		    bird

  819.   1.515 beg f+ 0.01 3000 1200 0.03 bird-down  main-amp 		    bird

  820.   1.515 0.01 f+ step

  821. ;event

  822. 

  823. event: prothonotary-warbler ( beg -- )

  824.   0.76 f- { beg }

  825.   #( 0 0.1 0.2 0 1 1 ) { pro-one }

  826.   #( 0 0 0.2 1 0.4 0.5 1 0 ) { pro-amp }

  827. 

  828.   0.76 beg f+ 0.08 3000 3000 0.05 pro-one pro-amp  bird

  829.   0.85 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird

  830.   1.02 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp  bird

  831.   1.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird

  832. 

  833.   1.26 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp  bird

  834.   1.35 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird

  835. 

  836.   1.54 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp  bird

  837.   1.63 beg f+ 0.05 4000 2500 0.19 bird-up bird-amp bird

  838. 

  839.   1.80 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp  bird

  840.   1.89 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird

  841. 

  842.   2.03 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp  bird

  843.   2.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird

  844. 

  845.   2.30 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp  bird

  846.   2.39 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird

  847.   2.39 0.05 f+ step

  848. ;event

  849. 

  850. event: audubons-warbler ( beg -- )

  851.   0.75 f- { beg }

  852.   #( 0 0 0.15 1 0.45 0.9 0.5 0 0.55 1 0.9 0.9 1 1 ) { w-end }

  853.   #( 0 0.1 0.5 1 1 0 ) { w-updown }

  854. 

  855.   0.75 beg f+ 0.04 2400  200 0.05 bird-down bird-amp bird

  856.   0.83 beg f+ 0.03 3200  200 0.10 bird-up   bird-amp bird

  857.   0.90 beg f+ 0.04 2500  300 0.15 bird-up   bird-amp bird

  858.   0.97 beg f+ 0.04 2300  600 0.15 bird-down bird-amp bird

  859. 

  860.   1.02 beg f+ 0.03 3500  400 0.20 bird-up   bird-amp bird

  861.   1.06 beg f+ 0.04 2300 1200 0.10 bird-up   bird-amp bird

  862.   1.13 beg f+ 0.05 2300 1200 0.15 bird-down bird-amp bird

  863.   1.22 beg f+ 0.02 3200  800 0.25 bird-up   bird-amp bird

  864.   1.25 beg f+ 0.08 2400  600 0.20 w-updown  bird-amp bird

  865.   1.35 beg f+ 0.02 2200  400 0.10 bird-up   bird-amp bird

  866.   1.38 beg f+ 0.07 2400 1400 0.15 bird-down bird-amp bird

  867.   1.47 beg f+ 0.03 3000  800 0.20 bird-up   bird-amp bird

  868.   1.50 beg f+ 0.03 2500  400 0.10 w-updown  bird-amp bird

  869.   1.55 beg f+ 0.01 2300  100 0.05 bird-up   bird-amp bird

  870.   1.56 beg f+ 0.06 2200 1400 0.15 bird-down bird-amp bird

  871.   1.65 beg f+ 0.03 3100  800 0.10 bird-up   bird-amp bird

  872.   1.70 beg f+ 0.07 2800  800 0.15 w-updown  bird-amp bird

  873.   1.79 beg f+ 0.06 2400 1000 0.10 bird-down bird-amp bird

  874.   1.86 beg f+ 0.14 3100  900 0.25 w-end     bird-amp bird

  875.   2.02 beg f+ 0.12 3200  800 0.20 w-end     bird-amp bird

  876.   2.02 0.12 f+ step

  877. ;event

  878. 

  879. event: lark-bunting ( beg -- )

  880.   0.1 f- { beg }

  881.   #( 0.00 0.00 0.06 0.80 0.12 0.00 0.18 0.85 0.24 0.05 0.36 0.90

  882.      0.42 0.10 0.48 0.95 0.54 0.20 0.60 1.00 0.66 0.20 0.72 1.00

  883.      0.78 0.20 0.84 1.00 0.90 0.20 1.00 1.00 ) { b-trill-one }

  884.   #( 0.00 0.00 0.05 0.80 0.10 0.00 0.15 0.85 0.20 0.00 0.25 0.90

  885.      0.30 0.00 0.35 0.95 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00

  886.      0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00

  887.      0.90 0.00 0.95 1.00 1.00 0.00 ) { b-trill-two }

  888. 

  889.   0.10 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  890.   0.20 	beg f+ 0.12 3700 400 0.20 bird-up     bird-amp bird

  891.   0.40 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  892.   0.45 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  893.   0.51 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  894.   0.04 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  895.   0.65 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  896.   0.71 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  897.   0.80 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  898.   0.85 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  899.   0.91 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  900.   1.00 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  901.   1.05 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  902.   1.01 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  903.   1.20 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  904.   1.25 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  905.   1.31 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  906.   1.40 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  907.   1.45 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  908.   1.51 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  909.   1.60 	beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird

  910.   1.65 	beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird

  911.   1.71 	beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird

  912.   1.770 beg f+ 0.23 6000 600 0.15 b-trill-one bird-amp bird

  913.   2.005 beg f+ 0.28 6000 600 0.15 b-trill-two bird-amp bird

  914.   2.005 0.28 f+ step

  915. ;event

  916. 

  917. event: eastern-bluebird ( beg -- )

  918.   0.75 f- { beg }

  919.   #( 0.00 0.60 0.10 1.00 0.20 0.00 0.25 1.00 0.30 0.00 0.35 1.00

  920.      0.40 0.00 0.45 1.00 0.50 0.00 0.75 1.00 1.00 0.00 ) { blue-three }

  921.   #( 0 0 0.5 1 1 0 ) { blue-four }

  922.   #( 0.00 0.50 0.10 1.00 0.20 0.00 0.35 1.00 0.50 0.00 0.65 1.00

  923.      0.80 0.00 0.95 1.00 1.00 0.50 ) { blue-five }

  924. 

  925.   0.75 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird

  926.   0.80 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird

  927.   0.86 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird

  928.   1.00 beg f+ 0.13 2000 1400 0.20 bird-down  bird-amp bird

  929.   1.20 beg f+ 0.24 2000  800 0.20 blue-three bird-amp bird

  930.   1.68 beg f+ 0.03 2200  400 0.10 bird-up    bird-amp bird

  931.   1.72 beg f+ 0.10 1950  100 0.15 blue-four  bird-amp bird

  932.   1.96 beg f+ 0.15 2000  600 0.20 blue-five  bird-amp bird

  933.   1.96 0.15 f+ step

  934. ;event

  935. 

  936. event: chuck-wills-widow ( beg -- )

  937.   0.05 f- { beg }

  938.   #( 0 0 0.1 0.1 0.25 1 0.5 0.3 0.8 0.7 1 0 ) { wid-one }

  939.   #( 0 0.2 0.3 1 0.5 0.3 0.6 0.7 0.9 0.1 1 0 ) { wid-two }

  940. 

  941.   0.05 beg f+ 0.03 1000  800 0.1 bird-down bird-amp bird

  942.   0.32 beg f+ 0.20 1000 1000 0.2 wid-one   bird-amp bird

  943.   0.56 beg f+ 0.29  900 1100 0.2 wid-two   bird-amp bird

  944.   0.56 0.29 f+ step

  945. ;event

  946. 

  947. event: blue-gray-gnatcatcher ( beg -- )

  948.   0.5 f- { beg }

  949.   #( 0 0 0.15 1 0.75 0.8 0.9 1 1 0.7 ) { gskw1 }

  950.   #( 0 0 0.25 1 0.75 0.7 1 0 ) { gskw2 }

  951.   #( 1 0.4 2 1 3 0.1 ) { gparts-1 }

  952.   #( 1 0.4 2 1 3 0.2 ) { gparts-2 }

  953.   #( 1 0.4 2 1 3 0.3 ) { gparts-3 }

  954. 

  955.   0.5 beg f+ 0.20 4000 1000 0.2 gskw1 bird-amp gparts-1 bigbird

  956.   0.8 beg f+ 0.13 4000  800 0.2 gskw2 bird-amp gparts-2 bigbird

  957.   1.4 beg f+ 0.25 4000  800 0.2 gskw2 bird-amp gparts-3 bigbird

  958.   1.8 beg f+ 0.17 4000  900 0.2 gskw1 bird-amp gparts-3 bigbird

  959.   2.0 beg f+ 0.17 4000  700 0.2 gskw1 bird-amp gparts-3 bigbird

  960.   2.2 beg f+ 0.17 4000  800 0.2 gskw2 bird-amp gparts-3 bigbird

  961.   2.2 0.17 f+ step

  962. ;event

  963. 

  964. event: black-throated-sparrow ( beg -- )

  965.   0.8 f- { beg }

  966.   #( 0 0 0.75 1 1 0 ) { black-down-amp }

  967.   #( 0 0 0.5 1 1 0.2 ) { black-up-down }

  968.   #( 0 0 0.5 1 1 0 ) { black-amp }

  969.   #( 0.00 0.00 0.03 0.70 0.06 0.00 0.09 0.75 0.12 0.00 0.15 0.80

  970.      0.18 0.05 0.21 0.85 0.24 0.10 0.27 0.90 0.30 0.10 0.33 1.00

  971.      0.36 0.10 0.39 1.00 0.42 0.10 0.45 1.00 0.48 0.10 0.51 1.00

  972.      0.54 0.10 0.57 1.00 0.60 0.10 0.63 1.00 0.66 0.10 0.69 1.00

  973.      0.72 0.10 0.75 1.00 0.78 0.10 0.81 1.00 0.84 0.10 0.87 1.00

  974.      0.90 0.00 0.93 0.95 0.96 0.00 1.00 0.90 ) { black-trill }

  975. 

  976.   0.80 beg f+ 0.02 2200 1000 0.10 bird-down   	bird-amp       bird

  977.   0.83 beg f+ 0.01 3000  200 0.05 bird-up     	bird-amp       bird

  978.   0.96 beg f+ 0.02 5800  500 0.05 bird-up     	bird-amp       bird

  979.   1.00 beg f+ 0.02 4000  200 0.05 bird-up     	bird-amp       bird

  980.   1.04 beg f+ 0.10 2100 1700 0.15 bird-down   	black-down-amp bird

  981.   1.15 beg f+ 0.05 5700  400 0.25 bird-up     	bird-amp       bird

  982.   1.25 beg f+ 0.25 2000  900 0.20 black-trill   bird-amp       bird

  983.   1.52 beg f+ 0.05 5600  400 0.15 black-up-down bird-amp       bird

  984. 

  985.   1.60 beg f+ 0.04 3900 1100 0.15 bird-up bird-amp  bird

  986.   1.66 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  987. 

  988.   1.69 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird

  989.   1.71 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird

  990.   1.74 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird

  991.   1.76 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  992. 

  993.   1.78 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird

  994.   1.80 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird

  995.   1.83 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird

  996.   1.85 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  997. 

  998.   1.87 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird

  999.   1.89 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird

  1000.   1.92 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird

  1001.   1.94 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  1002. 

  1003.   1.96 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird

  1004.   1.98 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird

  1005.   2.01 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird

  1006.   2.03 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  1007. 

  1008.   2.05 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird

  1009.   2.07 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird

  1010.   2.10 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird

  1011.   2.13 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

  1012. 

  1013.   2.16 beg f+ 0.03 3800  300 0.10 bird-up bird-amp  bird

  1014.   2.16 0.03 f+ step

  1015. ;event

  1016. 

  1017. event: black-chinned-sparrow ( beg -- )

  1018.   0.6 f- { beg }

  1019.   #( 0 0 0.3 0.2 1 1 ) { chin-up }

  1020. 

  1021.   0.60 beg f+ 0.20 4200  100 0.10 bird-up bird-amp bird

  1022.   1.00 beg f+ 0.09 3800 2000 0.10 chin-up bird-amp bird

  1023.   1.25 beg f+ 0.08 3900 1700 0.12 chin-up bird-amp bird

  1024.   1.40 beg f+ 0.08 3600 2300 0.13 bird-up bird-amp bird

  1025.   1.50 beg f+ 0.11 3100 2800 0.14 bird-up bird-amp bird

  1026.   1.65 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird

  1027.   1.74 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird

  1028.   1.82 beg f+ 0.07 3000 2300 0.13 bird-up bird-amp bird

  1029.   1.89 beg f+ 0.07 3200 2000 0.10 bird-up bird-amp bird

  1030.   1.97 beg f+ 0.05 3200 1500 0.10 bird-up bird-amp bird

  1031. 

  1032.   2.04 beg f+ 0.04 3400 1000 0.07 bird-up bird-amp bird

  1033.   2.10 beg f+ 0.03 3600  700 0.05 bird-up bird-amp bird

  1034.   2.15 beg f+ 0.03 3800  300 0.05 bird-up bird-amp bird

  1035.   2.19 beg f+ 0.02 3900  100 0.03 bird-up bird-amp bird

  1036.   2.22 beg f+ 0.01 3900  100 0.01 bird-up bird-amp bird

  1037.   2.24 beg f+ 0.01 3900  100 0.01 bird-up bird-amp bird

  1038.   2.24 0.01 f+ step

  1039. ;event

  1040. 

  1041. event: various-gull-cries-from-end-of-colony-5 ( beg -- )

  1042.   0.25 f- { beg }

  1043.   #( 0 0 10 1 20 0.5 40 0.6 60 0.5 100 0 ) { gull-start }

  1044.   #( 0 0 10 1 30 0.5 80 0.5 100 0 ) { gull-middle }

  1045.   #( 0 0 5 1 10 0.5 90 0.4 100 0 ) { gull-end }

  1046.   #( 1 0.1 2 1 3 0.1 4 0.01 5 0.09 6 0.01 7 0.01 ) { gull-parts }

  1047. 

  1048.   0.25 beg f+ 0.80 1180 1180 0.08 gull-end    bird-amp gull-parts bigbird

  1049.   1.50 beg f+ 0.90 1180 1180 0.07 gull-end    bird-amp gull-parts bigbird

  1050.   2.75 beg f+ 1.00 1050 1050 0.08 gull-end    bird-amp gull-parts bigbird

  1051.   4.80 beg f+ 0.05 1180 1180 0.06 gull-start  bird-amp gull-parts bigbird

  1052.   4.95 beg f+ 0.10 1180 1180 0.08 gull-start  bird-amp gull-parts bigbird

  1053.   5.15 beg f+ 0.10 1180 1180 0.09 gull-start  bird-amp gull-parts bigbird

  1054.   5.35 beg f+ 0.10 1180 1180 0.10 gull-middle bird-amp gull-parts bigbird

  1055.   5.45 beg f+ 0.40 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird

  1056.   6.25 beg f+ 0.80 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird

  1057.   7.45 beg f+ 1.80 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird

  1058.   7.45 1.80 f+ step

  1059. ;event

  1060. 

  1061. \ <'> bird-test with-sound

  1062. : bird-test ( -- )

  1063.   0.0 now!

  1064.   1.0 { dur }

  1065.   now@ orchard-oriole              dur step

  1066.   now@ cassins-kingbird            dur step

  1067.   now@ chipping-sparrow            dur step

  1068.   now@ bobwhite                    dur step

  1069.   now@ western-meadowlark          dur step

  1070.   now@ scissor-tailed-flycatcher   dur step

  1071.   now@ great-horned-owl            dur step

  1072.   now@ black-throated-gray-warbler dur step

  1073.   now@ yellow-warbler              dur step

  1074.   now@ black-necked-stilt          dur step

  1075.   now@ chestnut-sided-warbler      dur step

  1076.   now@ grasshopper-sparrow         dur step

  1077.   now@ swamp-sparrow               dur step

  1078.   now@ golden-crowned-sparrow      dur step

  1079.   now@ indigo-bunting              dur step

  1080.   now@ hooded-warbler              dur step

  1081.   now@ american-widgeon            dur step

  1082.   now@ louisiana-waterthrush       dur step

  1083.   now@ robin                       dur step

  1084.   now@ solitary-vireo              dur step

  1085.   now@ pigeon-hawk                 dur step

  1086.   now@ cerulean-warbler            dur step

  1087.   now@ nashville-warbler           dur step

  1088.   now@ eastern-phoebe              dur step

  1089.   now@ painted-bunting             dur step

  1090.   now@ western-flycatcher          dur step

  1091.   now@ bachmans-sparrow            dur step

  1092.   now@ cedar-waxwing               dur step

  1093.   now@ bairds-sparrow              dur step

  1094.   now@ kentucky-warbler            dur step

  1095.   now@ rufous-sided-towhee         dur step

  1096.   now@ prothonotary-warbler        dur step

  1097.   now@ audubons-warbler            dur step

  1098.   now@ lark-bunting                dur step

  1099.   now@ eastern-bluebird            dur step

  1100.   now@ chuck-wills-widow           dur step

  1101.   now@ blue-gray-gnatcatcher       dur step

  1102.   now@ black-throated-sparrow      dur step

  1103.   now@ black-chinned-sparrow       dur step

  1104.   now@ various-gull-cries-from-end-of-colony-5 dur step

  1105. ;

  1106. 

  1107. : ws-bird-test ( -- )

  1108.   <'> bird-test

  1109.   :play       #t

  1110.   :statistics #t

  1111.   :verbose    #t

  1112.   :channels   2

  1113.   :srate      44100

  1114.   :scaled-to  0.8

  1115.   :notehook   #f

  1116.   with-sound ( ws ) :output array-assoc-ref .string cr

  1117. ;

  1118. 

  1119. \ bird.fsm ends here