\ bird.fsm -- clm/bird.clm

\ Translator: Michael Scholz <mi-scholz@users.sourceforge.net>
\ Created: 06/12/12 03:26:27
\ Changed: 17/12/02 03:07:58
\
\ @(#)bird.fsm	1.14 12/2/17

\ Usage: <'> bird-test with-sound
\        or ws-bird-test

require clm

instrument: bird <{ start dur freq freq-skew amp freqenv ampenv
    :optional lpfilt 1.0 degree 0.0 reverb-amount 0.0 -- }>
	:envelope ampenv :scaler amp :duration dur make-env { amp-env }
	:envelope freqenv :scaler freq-skew hz->radians :duration dur
	    make-env { gls-env }
	:frequency freq make-oscil { os }
	:a0 lpfilt :b1 1.0 lpfilt f- make-one-pole { fil }
	*channels* 2 =
	degree f0= && if
		45.0 to degree
	then
	*reverb*
	reverb-amount f0= && if
		0.001 to reverb-amount
	then
	start dur
	    #{ :degree degree
	       :distance 1.0
	       :reverb-amount reverb-amount } run-instrument
		fil  os gls-env env 0.0 oscil  amp-env env  f*  one-pole
	end-run
;instrument

instrument: bigbird <{ start dur freq freq-skew amp freqenv ampenv parts
    :optional lpcoeff 1.0 degree 0.0 reverb-amount 0.0 -- }>
	:envelope ampenv :scaler amp :duration dur make-env { amp-env }
	:envelope freqenv :scaler freq-skew hz->radians :duration dur
	    make-env { gls-env }
	:frequency freq
	    :coeffs parts normalize-partials undef partials->polynomial
	    make-polyshape { os }
	:a0 lpcoeff :b1 1.0 lpcoeff f- make-one-pole { fil }
	*channels* 2 =
	degree f0= && if
		45.0 to degree
	then
	*reverb*
	reverb-amount f0= && if
		0.001 to reverb-amount
	then
	start dur
	    #{ :degree degree
	       :distance 1.0
	       :reverb-amount reverb-amount } run-instrument
	fil  os 1.0 gls-env env polyshape  amp-env env  f*  one-pole
	end-run
;instrument

#( 0 0 0.25 1 0.6 0.7 0.75 1 1 0 ) constant main-amp
#( 0 0 0.01 1 0.99 1 1 0 )         constant tap-amp
#( 0 0 0.25 1 0.75 1 1 0 )         constant bird-amp
#( 0 0 1 1 )                       constant bird-up
#( 0 1 1 0 )                       constant bird-down

event: orchard-oriole ( beg -- )
	0.38 f- { beg }
	#( 0 0 0.6 1 1 0.6 ) { oriupdwna }
	#( 0 0.5 0.3 1 1 0 ) { oriupdwnb }
	#( 0 0.9 0.15 1 0.4 0.3 0.6 0.6 0.85 0 1 0 ) { oribiga }
	#( 0 1 0.05 0.5 0.1 1 0.25 0 0.85 0.5 1 0 ) { orimid }
	#( 0 0.3 0.25 0 1 1 ) { oridwnup }
	#( 0 0 0.1 1 1 0 ) { oriamp }

	0.38 beg f+ 0.03 3700  100 0.05 bird-down main-amp bird
	0.41 beg f+ 0.05 2500 1000 0.10 bird-up   main-amp bird
	0.50 beg f+ 0.10 2000  800 0.20 oriupdwna main-amp
	#( 1 1 2 0.02 3 0.05 ) bigbird
	0.65 beg f+ 0.03 3900 1200 0.10 bird-down main-amp bird
	0.70 beg f+ 0.21 2000 1200 0.15 oribiga   main-amp
	    #( 1 1 2 0.05 ) bigbird
	1.00 beg f+ 0.05 4200 1000 0.10 bird-down main-amp bird
	1.10 beg f+ 0.10 2000 1000 0.25 orimid    main-amp
	    #( 1 1 2 0.05 ) bigbird
	1.30 beg f+ 0.10 2000 1000 0.25 orimid    main-amp
	    #( 1 1 2 0.05 ) bigbird
	1.48 beg f+ 0.10 2300 3200 0.10 oriupdwnb oriamp   bird
	1.65 beg f+ 0.03 1800  300 0.05 bird-up   main-amp bird
	1.70 beg f+ 0.03 2200  100 0.04 bird-down main-amp bird
	1.80 beg f+ 0.07 2500 2000 0.15 oriupdwnb oriamp   bird
	1.92 beg f+ 0.20 2400 1200 0.25 oridwnup  main-amp
	    #( 1 1 2 0.04 ) bigbird
	2.20 beg f+ 0.02 2200 3000 0.04 bird-up   main-amp bird
	2.28 beg f+ 0.02 2200 3000 0.04 bird-up   main-amp bird
	2.40 beg f+ 0.17 2000 1000 0.20 oriupdwna oriamp
	    #( 1 1 2 0.04 ) bigbird
	2.4 0.17 f+ step
;event

event: cassins-kingbird ( beg -- )
	0.03 f- { beg }
	#( 0 0.3 0.45 1 0.9 0.1 1 0 ) { kingfirst }
	#( 0.00 0.00 0.02 0.50 0.04 0.00 0.06 0.55 0.08 0.05 0.10 0.60
	   0.12 0.05 0.14 0.65 0.16 0.10 0.18 0.70 0.20 0.10 0.22 0.75
	   0.24 0.15 0.26 0.80 0.28 0.20 0.30 0.85 0.32 0.25 0.34 0.90
	   0.36 0.30 0.38 0.95 0.40 0.40 0.42 1.00 0.44 0.50 0.46 1.00
	   0.48 0.45 0.50 1.00 0.52 0.50 0.54 1.00 0.56 0.40 0.58 0.95
	   0.60 0.40 0.62 0.90 0.64 0.40 0.66 0.85 0.68 0.35 0.70 0.80
	   0.72 0.30 0.74 0.75 0.76 0.25 0.78 0.70 0.80 0.20 0.82 0.65
	   0.84 0.10 0.86 0.60 0.88 0.00 0.90 0.55 0.92 0.00 0.94 0.50
	   0.96 0.00 1.00 0.40 ) { kingsecond }

	0.03 beg f+ 0.04 1700 1200 0.15 kingfirst  main-amp
	    #( 1 1 2 0.5 3 0 4 0.2 ) bigbird
	0.12 beg f+ 0.18 1700  900 0.25 kingsecond main-amp
	    #( 1 1 2 0.01 3 0 4 0.1 ) bigbird
	0.12 0.18 f+ step
;event

event: chipping-sparrow ( beg -- )
	{ beg }
	#( 0 0.8 0.15 1 0.75 0.3 1 0 ) { chip-up }

	0.00 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.06 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.12 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.18 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.24 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.30 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.36 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.42 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.48 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.54 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.60 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.66 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.72 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.78 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.84 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.90 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.96 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird
	0.96 0.05 f+ step
;event

event: bobwhite ( beg -- )
	0.4 f- { beg }
	#( 0 0 0.4 1 1 1 ) { bobup1 }
	#( 0 0 0.65 0.5 1 1 ) { bobup2 }

	0.4 beg f+ 0.2 1800  200 0.1 bobup1 main-amp #( 1 1 2 0.02 ) bigbird
	1.0 beg f+ 0.2 1800 1200 0.2 bobup2 main-amp #( 1 1 2 0.02 ) bigbird
	1 0.2 f+ step
;event

event: western-meadowlark ( beg -- )
	0.8 f- { beg }
	#( 0 0 1 0 ) { no-skw }
	#( 0 1 0.4 0.4 1 0 ) { down-skw }

	0.80 beg f+ 0.10 2010    0 0.10 no-skw    main-amp
	    #( 1 1 2 0.04 ) bigbird
	1.10 beg f+ 0.15 3000  100 0.11 down-skw  main-amp
	    #( 1 1 2 0.04 ) bigbird
	1.30 beg f+ 0.25 2000  150 0.20 down-skw  main-amp
	    #( 1 1 2 0.04 ) bigbird
	1.65 beg f+ 0.15 3010  250 0.11 down-skw  main-amp
	    #( 1 1 2 0.04 ) bigbird
	1.85 beg f+ 0.10 2200  150 0.11 down-skw  main-amp
	    #( 1 1 2 0.04 ) bigbird
	2.00 beg f+ 0.10 3200 1400 0.11 bird-down main-amp
	    #( 1 1 2 0.04 ) bigbird
	2.20 beg f+ 0.05 2000  200 0.11 bird-down main-amp
	    #( 1 1 2 0.04 ) bigbird
	2.30 beg f+ 0.10 1600    0 0.11 bird-down main-amp
	    #( 1 1 2 0.04 ) bigbird
	2.3 0.1 f+ step
;event

event: scissor-tailed-flycatcher ( beg -- )
	{ beg }
	#( 0 0 0.4 1 0.6 1 1 0 ) { scissor }

	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
	0.05 step
;event

event: great-horned-owl ( beg -- )
	0.3 f- { beg }
	#( 0 0 0.3 1 1 1 ) { owlup }
	#( 1 1 3 0.02 7 0.01 ) { owl-parts }

	0.30 beg f+ 0.10 300 0 0.1 main-amp  main-amp owl-parts bigbird
	0.60 beg f+ 0.40 293 6 0.1 bird-down main-amp owl-parts bigbird
	1.75 beg f+ 0.35 293 7 0.1 owlup     main-amp owl-parts bigbird
	2.50 beg f+ 0.20 300 0 0.1 owlup     main-amp owl-parts bigbird
	2.5 0.2 f+ step
;event

event: black-throated-gray-warbler ( beg -- )
	{ beg }
	#( 0.00 0.50 0.02 0.60 0.04 0.45 0.06 0.62 0.08 0.40 0.10 0.65
	   0.12 0.35 0.14 0.70 0.18 0.30 0.20 0.70 0.22 0.30 0.24 0.70
	   0.25 0.20 0.30 0.80 0.35 0.10 0.40 0.90 0.45 0.00 0.50 1.00
	   0.55 0.00 0.60 1.00 0.65 0.00 0.70 1.00 0.75 0.00 0.80 1.00
	   0.85 0.00 0.90 1.00 0.95 0.00 1.00 0.50 ) { gray-one }
	#( 0.00 0.00 0.01 0.40 0.02 0.00 0.03 0.40 0.04 0.00 0.05 0.40
	   0.06 0.00 0.07 0.40 0.08 0.00 0.09 0.40 0.10 0.00 0.25 0.80
	   0.40 0.30 0.55 1.00 0.70 0.00 0.85 0.80 1.00 0.40 ) { gray-two }
	#( 0.00 1.00 0.01 0.60 0.02 1.00 0.03 0.60 0.04 1.00 0.05 0.60
	   0.06 1.00 0.07 0.60 0.08 1.00 0.09 0.60 0.10 1.00 0.11 0.60
	   0.12 1.00 0.13 0.60 0.14 1.00 0.15 0.60 0.16 1.00 0.17 0.60
	   0.18 1.00 0.19 0.60 0.20 1.00 0.21 0.55 0.22 1.00 0.23 0.50
	   0.24 1.00 0.25 0.50 0.26 1.00 0.27 0.50 0.28 1.00 0.29 0.50
	   0.30 1.00 0.31 0.50 0.32 1.00 0.33 0.50 0.34 1.00 0.35 0.50
	   0.36 1.00 0.37 0.50 0.38 1.00 0.39 0.50 0.40 1.00 0.41 0.50
	   0.42 1.00 0.43 0.50 0.44 1.00 0.45 0.50 0.46 1.00 0.47 0.50
	   0.48 1.00 0.49 0.50 0.50 1.00 0.51 0.50 0.52 1.00 0.53 0.50
	   0.54 1.00 0.55 0.50 0.56 1.00 0.57 0.50 0.58 1.00 0.59 0.50
	   0.60 1.00 1.00 0.00 ) { gray-three }

	0.00 beg f+ 0.12 3700  600 0.05 gray-one   main-amp bird
	0.18 beg f+ 0.08 3000  800 0.07 gray-two   main-amp bird
	0.28 beg f+ 0.12 3700  600 0.12 gray-one   main-amp bird
	0.44 beg f+ 0.08 3000  800 0.15 gray-two   main-amp bird
	0.54 beg f+ 0.12 3700  600 0.20 gray-one   main-amp bird
	0.72 beg f+ 0.08 3000  800 0.25 gray-two   main-amp bird
	0.82 beg f+ 0.12 3700  600 0.25 gray-one   main-amp bird
	0.96 beg f+ 0.20 3000 2000 0.20 gray-three main-amp bird
	1.20 beg f+ 0.02 4500  500 0.05 bird-up    main-amp bird
	1.25 beg f+ 0.02 4200  800 0.05 bird-up    main-amp bird
	1.30 beg f+ 0.02 4000  900 0.05 bird-up    main-amp bird
	1.3 0.02 f+ step
;event

event: yellow-warbler ( beg -- )
	{ beg }
	#( 0 0 0.6 1 1 0.5 ) { yellow-up }
	#( 0 1 0.05 1 0.6 0 0.8 0.3 1 0.1 ) { yellow-swirl }
	#( 0 0 0.3 0.2 0.8 0.7 1 1 ) { yellow-last }
	#( 0 0 0.9 1 1 0 ) { swirl-amp }

	0.00 beg f+ 0.050 5600  400 0.05 yellow-up    main-amp bird
	0.23 beg f+ 0.120 5000 1500 0.15 yellow-swirl main-amp bird
	0.45 beg f+ 0.130 5000 1700 0.17 yellow-swirl main-amp bird
	0.62 beg f+ 0.160 5000 2000 0.20 yellow-swirl main-amp bird
	0.85 beg f+ 0.150 5000 2000 0.20 yellow-swirl main-amp bird
	1.05 beg f+ 0.075 3700 1000 0.20 bird-down    main-amp bird
	1.15 beg f+ 0.075 3700  800 0.15 bird-down    main-amp bird
	1.25 beg f+ 0.075 3700  800 0.15 bird-down    main-amp bird
	1.40 beg f+ 0.200 3700 2000 0.20 yellow-last  main-amp bird
	1.4 0.2 f+ step
;event

event: black-necked-stilt ( beg -- )
	{ beg }
	#( 0 0 0.9 1 1 0 ) { upamp }
	#( 0 0 0.5 1 1 0.2 ) { rampup }
	#( 1 0.5 2 1 3 0.75 4 0.5 5 0.1 ) { bns-parts }

	0.0 beg f+ 0.1 900 100 0.2 rampup upamp bns-parts bigbird
	0.3 beg f+ 0.1 900 200 0.2 rampup upamp bns-parts bigbird
	0.6 beg f+ 0.1 900 250 0.2 rampup upamp bns-parts bigbird
	0.6 0.1 f+ step
;event

event: chestnut-sided-warbler ( beg -- )
	0.1 f- { beg }
	#( 0 1 0.3 0.5 0.6 1 0.8 0.2 1 0 ) { ycurve }
	#( 0 0.2 0.5 1 1 0 ) { vcurve }
	#( 0 0.5 0.15 0 0.45 0.1 0.6 1 0.7 0.9 1 0.9 ) { wcurve }
	#( 0 0 0.95 1 1 1 ) { upcurve }
	#( 0 1 0.25 0.3 0.6 0.15 1 0 ) { downcurve }
	#( 0 0 0.9 1 1 0 ) { louder }
	#( 0 0 0.1 1 0.4 0.1 0.5 0.9 0.6 0.1 0.7 1 1 0 ) { wamp }

	0.10 beg f+ 0.10 4050 1200 0.050 ycurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.25 beg f+ 0.03 3900  300 0.075 vcurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.30 beg f+ 0.10 4050 1200 0.150 ycurve louder
	    #( 1 1 2 0.1 ) bigbird
	0.42 beg f+ 0.03 3800  500 0.100 vcurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.50 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp
	    #( 1 1 2 0.1 ) bigbird
	0.65 beg f+ 0.03 3800  500 0.150 vcurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.72 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp
	    #( 1 1 2 0.1 ) bigbird
	0.85 beg f+ 0.03 3800  500 0.150 vcurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.91 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp
	    #( 1 1 2 0.1 ) bigbird
	1.05 beg f+ 0.12 3800 2200 0.150 wcurve wamp
	    #( 1 1 2 0.1 ) bigbird
	1.20 beg f+ 0.12 3800 2200 0.150 wcurve wamp
	    #( 1 1 2 0.1 ) bigbird
	1.35 beg f+ 0.12 2500 2200 0.250 upcurve louder
	    #( 1 1 2 0.1 ) bigbird
	1.50 beg f+ 0.12 2500 4000 0.150 downcurve main-amp
	    #( 1 1 2 0.1 ) bigbird
	1.5 0.12 f+ step
;event

event: grasshopper-sparrow ( beg -- )
	0.49 f- { beg }
	#( 0.00 0.50 0.02 0.80 0.04 0.30 0.06 0.80 0.07 0.10 0.08 0.90
	   0.10 0.00 0.11 0.90 0.12 0.00 0.13 0.90 0.14 0.10 0.15 1.00
	   0.16 0.10 0.17 1.00 0.18 0.10 0.19 1.00 0.20 0.10 0.21 1.00
	   0.22 0.10 0.23 1.00 0.24 0.10 0.25 1.00 0.26 0.10 0.27 1.00
	   0.28 0.10 0.29 1.00 0.30 0.10 0.31 1.00 0.32 0.10 0.33 1.00
	   0.34 0.10 0.35 1.00 0.36 0.10 0.37 1.00 0.38 0.10 0.39 1.00
	   0.40 0.10 0.41 1.00 0.42 0.10 0.43 1.00 0.44 0.10 0.45 1.00
	   0.46 0.10 0.47 1.00 0.48 0.10 0.49 1.00 0.50 0.10 0.51 1.00
	   0.52 0.10 0.53 1.00 0.54 0.10 0.55 1.00 0.56 0.10 0.57 1.00
	   0.58 0.10 0.59 1.00 0.60 0.10 0.61 1.00 0.62 0.10 0.63 1.00
	   0.64 0.10 0.65 1.00 0.66 0.10 0.67 1.00 0.68 0.10 0.69 1.00
	   0.70 0.10 0.71 1.00 0.72 0.10 0.73 1.00 0.74 0.10 0.75 1.00
	   0.76 0.10 0.77 1.00 0.78 0.10 0.79 1.00 0.80 0.10 0.81 1.00
	   0.82 0.10 0.83 1.00 0.84 0.10 0.85 1.00 0.86 0.10 0.87 1.00
	   0.88 0.10 0.89 1.00 0.90 0.10 0.91 1.00 0.92 0.10 0.93 1.00
	   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 }
	#( 0.00 0.00 0.10 1.00 0.20 0.00 0.30 1.00 0.40 0.00 0.50 1.00
	   0.60 0.00 0.70 1.00 0.80 0.00 0.90 1.00 1.00 0.00 ) { grass-two }

	0.49 beg f+ 0.01 8000  100 0.1 grass-two main-amp bird
	0.60 beg f+ 0.01 5700  300 0.1 grass-two main-amp bird
	0.92 beg f+ 0.01 3900  100 0.1 grass-two main-amp bird
	1.00 beg f+ 1.40 6000 2500 0.2 grass-one main-amp bird
	1 1.4 f+ step
;event

event: swamp-sparrow ( beg -- )
	{ beg }
	#( 0 0 0.6 0.7 1 1 ) { swamp-up }
	#( 0 1 0.5 0.5 0.6 0.6 1 0 ) { swamp-down }

	0.000 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.035 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.080 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.100 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.135 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.180 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.200 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.235 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.280 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.300 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.335 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.380 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.400 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.435 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.480 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.500 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.535 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.580 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.600 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.635 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.680 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.700 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.735 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.780 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.800 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.835 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.880 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.900 beg f+ 0.020 3900  200 0.3 swamp-up   main-amp bird
	0.935 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird
	0.980 beg f+ 0.025 3700    0 0.1 main-amp   main-amp bird
	0.98 0.025 f+ step
;event

event: golden-crowned-sparrow ( beg -- )
	0.6 f- { beg }
	#( 0 1 0.25 0.2 1 0 ) { gold-one }
	#( 0 0.9 0.05 1 0.1 0.4 1 0 ) { gold-two }
	#( 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 ) { gold-trill }

	0.60 beg f+ 0.50 4300 1000 0.15 gold-one   main-amp bird
	1.30 beg f+ 0.45 3300  200 0.15 gold-one   main-amp bird
	1.75 beg f+ 0.40 3800  100 0.15 gold-two   main-amp bird
	2.20 beg f+ 0.30 3800  100 0.10 gold-trill main-amp bird
	2.2 0.3 f+ step
;event

event: indigo-bunting ( beg -- )
	0.4 f- { beg }
	#( 0 0 0.5 1 1 0 ) { bunt-v }
	#( 0 1 0.5 0 1 0.9 ) { bunt-y }
	#( 0 0.8 0.3 1 0.7 0.2 1 0 ) { bunt-n }
	#( 0 1 0.1 0.5 0.25 0.9 1 0 ) { bunt-x }

	0.40 beg f+ 0.08 3000  700 0.25 bird-down main-amp bird
	0.52 beg f+ 0.02 6200 1000 0.05 bird-down main-amp bird
	0.55 beg f+ 0.15 3500 2300 0.10 bunt-v    main-amp bird
	0.74 beg f+ 0.02 6200 1800 0.05 bunt-x    main-amp bird
	0.80 beg f+ 0.15 3400 2300 0.10 bunt-v    main-amp bird
	1.00 beg f+ 0.10 3400  800 0.20 bunt-v    main-amp bird
	1.13 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird
	1.25 beg f+ 0.08 3400  800 0.20 bunt-v    main-amp bird
	1.40 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird
	1.50 beg f+ 0.07 3700  300 0.10 bird-down main-amp bird
	1.60 beg f+ 0.10 4100 2200 0.15 bunt-y    main-amp bird
	1.72 beg f+ 0.05 3700  300 0.10 bird-down main-amp bird
	1.81 beg f+ 0.10 4100 2200 0.15 bunt-y    main-amp bird
	1.94 beg f+ 0.07 5200 1800 0.20 bunt-n    main-amp bird
	2.05 beg f+ 0.08 3000 1500 0.15 bird-up   main-amp bird
	2.20 beg f+ 0.07 5200 1800 0.20 bunt-n    main-amp bird
	2.33 beg f+ 0.08 3000 1500 0.15 bird-up   main-amp bird
	2.43 beg f+ 0.07 5200 1800 0.10 bunt-n    main-amp bird
	2.51 beg f+ 0.08 3000 1500 0.10 bird-up   main-amp bird
	2.51 0.08 f+ step
;event

event: hooded-warbler ( beg -- )
	0.6 f- { beg }
	0.60 beg f+ 0.03 3900 1600 0.05 bird-down main-amp bird
	0.64 beg f+ 0.03 3900 1700 0.05 bird-down main-amp bird
	0.80 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird
	0.84 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird
	0.93 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird
	0.97 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird
	1.05 beg f+ 0.03 3900 2100 0.05 bird-down main-amp bird
	1.09 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.17 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.21 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.39 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.43 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.51 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.55 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.63 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.67 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.75 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.80 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird
	1.90 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	1.98 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.05 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.13 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.21 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.29 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.37 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.45 beg f+ 0.04 3000 1000 0.15 bird-up   main-amp bird
	2.45 0.04 f+ step
;event

event: american-widgeon ( beg -- )
	0.3 f- { beg }
	#( 0 0 0.5 1 1 0 ) { widgeon }

	0.30 beg f+ 0.07 1900  300 0.15 widgeon widgeon
	    #( 1 1 2 0.02 ) bigbird
	0.40 beg f+ 0.11 1700 1400 0.25 widgeon widgeon
	    #( 1 0.7 2 1 3 0.02 ) bigbird
	0.55 beg f+ 0.07 1900  300 0.15 widgeon widgeon
	    #( 1 1 2 0.02 ) bigbird
	0.55 0.07 f+ step
;event

event: louisiana-waterthrush ( beg -- )
	{ beg }
	#( 0 0.8 0.35 0.4 0.45 0.9 0.5 1 0.75 1 1 1 ) { water-one }
	#( 0 1 0.4 0 0.6 0.1 1 0.8 ) { water-two }
	#( 0 1 0.95 0 1 0 ) { water-three }
	#( 0 0 1 1 ) { water-four }
	#( 0 1 1 0 ) { water-five }
	#( 0 0 0.35 1 0.5 0.2 0.9 1 1 0 ) { water-amp }
	#( 0 0 0.9 1 1 0 ) { water-damp }

	0.00 beg f+ 0.170 4100 2000 0.20 water-one   water-amp  bird
	0.32 beg f+ 0.180 4050 2050 0.30 water-one   water-amp  bird
	0.64 beg f+ 0.200 4000 1900 0.25 water-one   water-amp  bird
	0.90 beg f+ 0.200 3900 2000 0.30 water-two   tap-amp    bird
	1.25 beg f+ 0.120 3000 3000 0.25 water-three water-damp bird
	1.40 beg f+ 0.100 2700 1500 0.20 water-four  water-damp bird
	1.58 beg f+ 0.020 5200 1000 0.10 water-five  main-amp   bird
	1.65 beg f+ 0.020 5200 1000 0.10 water-five  main-amp   bird
	1.70 beg f+ 0.035 3200 1000 0.10 water-three water-damp bird
	1.7 0.03 f+ step
;event

event: robin ( beg -- )
	0.45 f- { beg }
	#( 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 }
	#( 0.00 0.00 0.10 1.00 0.20 0.70 0.35 0.70 0.65 0.30 0.70 0.50
	   0.80 0.00 0.90 0.20 1.00 0.00 ) { r-two }
	#( 0.00 0.20 0.25 1.00 0.60 0.70 0.90 0.00 1.00 0.10 ) { r-three }
	#( 0.00 0.50 0.10 0.00 0.20 1.00 0.30 0.00 0.40 1.00 0.50 0.00
	   0.60 1.00 0.70 0.50 1.00 0.20 ) { r-five }
	#( 0.00 0.00 0.12 0.70 0.30 0.00 0.70 1.00 1.00 0.50 ) { r-six }

	0.45 beg f+ 0.06 2000  800 0.15 r-six main-amp
	    #( 1 1 2 0.1 ) bigbird
	0.56 beg f+ 0.10 2000  900 0.15 r-one main-amp
	    #( 1 1 2 0.1 ) bigbird
	1.04 beg f+ 0.24 2000 2000 0.25 r-two main-amp
	    #( 1 1 2 0.1 ) bigbird
	1.63 beg f+ 0.13 1900 1600 0.20 r-three main-amp
	    #( 1 1 2 0.1 ) bigbird
	1.80 beg f+ 0.11 2200 1200 0.25 bird-down main-amp
	    #( 1 1 2 0.1 ) bigbird
	2.31 beg f+ 0.21 1950 2000 0.15 r-five main-amp
	    #( 1 1 2 0.1 ) bigbird
	2.31 0.21 f+ step
;event

event: solitary-vireo ( beg -- )
	{ beg }
	#( 0.00 0.20 0.03 0.30 0.06 0.10 0.10 0.50 0.13 0.40 0.16 0.80
	   0.19 0.50 0.22 0.90 0.25 0.60 0.28 1.00 0.31 0.60 0.34 1.00
	   0.37 0.50 0.41 0.90 0.45 0.40 0.49 0.80 0.51 0.40 0.54 0.75
	   0.57 0.35 0.60 0.70 0.63 0.30 0.66 0.60 0.69 0.25 0.72 0.50
	   0.75 0.20 0.78 0.30 0.82 0.10 0.85 0.30 0.88 0.05 0.91 0.30
	   0.94 0.00 0.95 0.30 0.99 0.00 1.00 0.10 ) { bigskew }

	beg 0.4 1800 1200 0.2 bigskew main-amp bird
	0.4 step
;event

event: pigeon-hawk ( beg -- )
	{ beg }
	#( 0 0 0.3 1 0.7 1 1 0 ) { hupdown }

	0.00 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.12 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.13 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.25 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.26 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.38 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.39 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.51 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.52 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.64 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.65 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.77 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.78 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	0.90 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	0.91 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.03 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.04 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.16 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.17 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.29 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.30 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.42 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.43 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.55 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.56 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.68 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.69 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.81 beg f+ 0.01 2050   0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird
	1.82 beg f+ 0.10 1900 200 0.2 hupdown  main-amp #( 1 0.7 2 1 ) bigbird
	1.82 0.1 f+ step
;event

event: cerulean-warbler ( beg -- )
	0.27 f- { beg }
	#( 0 0.8 0.1 1 0.25 0.5 0.4 1 0.55 0.5 0.7 1 1 0 ) { trill }

	0.27 beg f+ 0.05 3000 1000 0.050 bird-down main-amp bird
	0.33 beg f+ 0.05 3000  800 0.075 bird-up   main-amp bird
	0.41 beg f+ 0.01 3200  700 0.070 bird-down main-amp bird
	0.42 beg f+ 0.01 3200  700 0.080 bird-down main-amp bird
	0.43 beg f+ 0.06 3200  700 0.090 bird-down main-amp bird
	0.51 beg f+ 0.06 3200  500 0.100 bird-up   main-amp bird
	0.60 beg f+ 0.10 3000 1200 0.200 trill     main-amp bird
	0.72 beg f+ 0.05 3000  800 0.200 bird-up   main-amp bird
	0.80 beg f+ 0.10 3000 1200 0.200 trill     main-amp bird
	0.92 beg f+ 0.05 3000  800 0.200 bird-up   main-amp bird
	1.00 beg f+ 0.01 3900  600 0.100 bird-up   main-amp bird
	1.01 beg f+ 0.01 3910  800 0.100 bird-up   main-amp bird
	1.02 beg f+ 0.01 3940  500 0.100 bird-up   main-amp bird
	1.03 beg f+ 0.01 4000  500 0.100 bird-up   main-amp bird
	1.04 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.05 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.06 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.07 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.08 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.09 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.10 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.11 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.12 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.13 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.14 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.15 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.16 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.17 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.18 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.19 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.20 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.21 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.22 beg f+ 0.01 3900 1000 0.100 bird-up   main-amp bird
	1.23 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird
	1.24 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird
	1.25 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird
	1.26 beg f+ 0.01 3900 1200 0.100 bird-up   main-amp bird
	1.27 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird
	1.28 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird
	1.29 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird
	1.30 beg f+ 0.01 3900 1400 0.100 bird-up   main-amp bird
	1.3 0.01 f+ step
;event

event: nashville-warbler ( beg -- )
	0.15 f- { beg }
	#( 0 0.6 0.35 1 1 0 ) { nash-blip }
	#( 0 0.9 0.05 1 0.1 0.9 0.65 0.5 1 0 ) { nash-down }
	#( 0 0 0.15 0.2 0.25 0.05 0.9 0.95 1 1 ) { nash-up }
	#( 0 0 0.8 1 1 0 ) { nash-amp }

	0.15 beg f+ 0.025 3900  300 0.300 nash-blip main-amp bird
	0.24 beg f+ 0.160 4200 3800 0.150 nash-down nash-amp bird
	0.42 beg f+ 0.025 3900  300 0.300 nash-blip main-amp bird
	0.55 beg f+ 0.140 4300 3700 0.150 nash-down nash-amp bird
	0.75 beg f+ 0.030 3950  350 0.300 nash-blip main-amp bird
	0.81 beg f+ 0.170 4200 3900 0.175 nash-down main-amp bird
	1.00 beg f+ 0.020 3800  400 0.250 nash-blip main-amp bird
	1.11 beg f+ 0.140 4200 3800 0.165 nash-down nash-amp bird
	1.30 beg f+ 0.030 3750  300 0.200 nash-blip main-amp bird
	1.40 beg f+ 0.110 4200 3700 0.100 nash-down main-amp bird
	1.57 beg f+ 0.100 3800 2200 0.100 nash-up   main-amp bird
	1.70 beg f+ 0.100 3800 2150 0.125 nash-up   main-amp bird
	1.85 beg f+ 0.075 3900 1800 0.100 nash-up   nash-amp bird
	1.85 0.075 f+ step
;event

event: eastern-phoebe ( beg -- )
	{ beg }
	#( 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 }
	#( 0 0 0.5 1 1 0 ) { phoebe-two }
	#( 0 0 0.1 0.4 0.8 1 1 0.1 ) { phoebe-three }
	#( 0 1 0.5 0.7 1 0 ) { phoebe-four }
	#( 0 0 0.1 1 1 0 ) { phoebe-amp }

	0.00 beg f+ 0.225 3000 1300 0.3 phoebe-one   main-amp   bird
	0.35 beg f+ 0.120 3000  500 0.1 phoebe-two   phoebe-amp bird
	0.40 beg f+ 0.100 3000 1500 0.2 phoebe-three phoebe-amp bird
	0.55 beg f+ 0.050 3000 1400 0.2 phoebe-four  phoebe-amp bird
	0.55 0.05 f+ step
;event

event: painted-bunting ( beg -- )
	0.05 f- { beg }
	#( 0 0 0.9 1 1 0 ) { b-two }
	#( 0 0 0.5 1 1 0 ) { b-four }
	#( 0 0.7 0.15 0 0.4 1 0.8 1 1 0.5 ) { b-five }
	#( 0 0 0.1 0.5 0.15 0 0.4 1 0.9 1 1 0 ) { b-six }
	#( 0 1 0.25 0.4 0.75 0.5 1 0 ) { b-seven }
	#( 0 0.3 0.4 0.4 0.5 1 0.6 0.2 1 0 ) { b-eight }
	#( 0 0 0.05 1 0.3 1 0.5 0.3 0.9 1 1 0 ) { b-nine }
	#( 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 }
	#( 0 0 0.5 1 1 0.5 ) { b-twelve }
	#( 0 0 0.05 1 0.3 0.2 0.6 0.2 0.9 1 1 0 ) { b-thirteen }
	#( 0 0.3 0.3 1 0.6 0.3 1 0 ) { b-fourteen }
	#( 0 0 0.1 0.5 0.5 0.5 0.9 1 1 0 ) { b-fifteen }

	0.05 beg f+ 0.10 3100  900 0.05 bird-up    b-two    bird
	0.21 beg f+ 0.07 4100  700 0.15 bird-down  main-amp bird
	0.36 beg f+ 0.12 3700 1000 0.20 b-four     main-amp bird
	0.52 beg f+ 0.08 2300 1600 0.15 b-five     b-six    bird
	0.68 beg f+ 0.10 4000 1000 0.25 bird-up    tap-amp  bird
	0.80 beg f+ 0.12 2300 1700 0.20 b-seven    main-amp bird
	0.96 beg f+ 0.15 3800 2200 0.30 b-eight    b-nine   bird
	1.18 beg f+ 0.10 2300 1600 0.15 b-ten      main-amp bird
	1.30 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp bird
	1.33 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp bird
	1.36 beg f+ 0.02 3200 1000 0.10 bird-down  main-amp bird
	1.40 beg f+ 0.03 4000 2000 0.12 b-twelve   b-thirteen bird
	1.47 beg f+ 0.10 2300 1700 0.20 b-fourteen b-fifteen bird
	1.47 0.1 f+ step
;event

event: western-flycatcher ( beg -- )
	{ beg }
	#( 0 0 0.1 1 0.2 0.4 0.95 0.1 1 0 ) { f-one }
	#( 0 0 0.1 0.2 0.2 0.1 0.3 1 0.9 1 1 0 ) { a-one }
	#( 0 0.5 0.25 1 0.5 0 0.6 0 0.95 0.3 1 0.6 ) { f-two }
	#( 0 0 0.1 1 0.2 1 0.5 0.1 0.6 0.1 0.9 1 1 0 ) { a-two }
	#( 1 1 2 0.02 3 0.1 4 0.01 ) { fc-parts }

	0.0 beg f+ 0.2 2000 2200 0.2 f-one a-one fc-parts bigbird
	0.3 beg f+ 0.2 2000 1100 0.2 f-two a-two fc-parts bigbird
	0.3 0.2 f+ step
;event

event: bachmans-sparrow ( beg -- )
	{ beg }
	#( 0 1 0.1 0.5 0.9 0.5 1 0 ) { sopening }
	#( 0 0.1 0.35 0 1 1 ) { sup }
	#( 0 1 0.4 0.5 1 0 ) { sdwn }
	#( 0 1 0.25 0 0.75 0.4 1 0.5 ) { slast }

	0.00 beg f+ 0.510 4900  200 0.3 sopening main-amp bird
	0.52 beg f+ 0.015 3800  200 0.1 sup main-amp bird
	0.52 beg f+ 0.015 3750  250 0.1 sup main-amp bird
	0.54 beg f+ 0.015 3600  300 0.1 sup main-amp bird
	0.56 beg f+ 0.015 3500  250 0.1 sup main-amp bird
	0.58 beg f+ 0.015 3400  200 0.1 sup main-amp bird
	0.60 beg f+ 0.015 3200  200 0.1 sup main-amp bird
	0.62 beg f+ 0.015 3800  100 0.1 sup main-amp bird
	0.65 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	0.73 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	0.80 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	0.88 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	0.95 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	1.03 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	1.10 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	1.18 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	1.25 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	1.33 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	1.40 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	1.48 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	1.55 beg f+ 0.070 3000  750 0.2 sup main-amp bird
	1.63 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird
	2.80 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird
	2.87 beg f+ 0.010 5200    0 0.2 bird-up main-amp bird
	2.90 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird
	2.97 beg f+ 0.010 5200    0 0.2 bird-up main-amp bird
	3.00 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird
	3.07 beg f+ 0.010 5200    0 0.2 bird-up main-amp bird
	3.10 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird
	3.17 beg f+ 0.010 5200    0 0.2 bird-up main-amp bird
	3.20 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird
	3.27 beg f+ 0.010 5200    0 0.2 bird-up main-amp bird
	3.40 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	3.60 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	3.80 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	4.00 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	4.20 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	4.40 beg f+ 0.150 3000 1000 0.2 slast main-amp bird
	4.4 0.15 f+ step
;event

event: cedar-waxwing ( beg -- )
	{ beg }
	#( 0 0 0.25 0.7 0.7 1 0.9 1 1 0.2 ) { cedar }
	#( 0 0 0.2 1 0.4 1 1 0 ) { cedamp }

	beg 0.5 6000 800 0.2 cedar cedamp bird
	0.5 step
;event

event: bairds-sparrow ( beg -- )
	{ beg }
	#( 0 0 0.25 1 0.5 0 0.75 1 1 0 ) { bairdend }
	#( 0.00 0.50 0.05 1.00 0.10 0.00 0.15 1.00 0.20 0.00 0.25 1.00
	   0.30 0.00 0.35 1.00 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00
	   0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00
	   0.90 0.00 0.95 1.00 1.00 0.00 ) { bairdstart }

	0.00 beg f+ 0.09 6500 1500 0.20 bairdstart main-amp bird
	0.22 beg f+ 0.01 5900  100 0.20 bairdend   main-amp bird
	0.25 beg f+ 0.09 6000 1000 0.20 bairdstart main-amp bird
	0.45 beg f+ 0.01 4200  100 0.20 bairdend   main-amp bird
	0.50 beg f+ 0.08 4200  600 0.20 bairdstart main-amp bird
	0.59 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird
	0.60 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird
	0.68 beg f+ 0.07 5400  700 0.20 bairdstart main-amp bird
	0.75 beg f+ 0.01 4200  100 0.20 bairdend   main-amp bird
	0.79 beg f+ 0.01 4400  100 0.20 bairdend   main-amp bird
	0.83 beg f+ 0.01 4200  100 0.19 bairdend   main-amp bird
	0.87 beg f+ 0.01 4400  100 0.19 bairdend   main-amp bird
	0.91 beg f+ 0.01 4200  100 0.18 bairdend   main-amp bird
	0.95 beg f+ 0.01 4400  100 0.18 bairdend   main-amp bird
	0.99 beg f+ 0.01 4200  100 0.17 bairdend   main-amp bird
	1.03 beg f+ 0.01 4400  100 0.17 bairdend   main-amp bird
	1.07 beg f+ 0.01 4200  100 0.16 bairdend   main-amp bird
	1.11 beg f+ 0.01 4400  100 0.16 bairdend   main-amp bird
	1.15 beg f+ 0.01 4200  100 0.15 bairdend   main-amp bird
	1.19 beg f+ 0.01 4400  100 0.15 bairdend   main-amp bird
	1.23 beg f+ 0.01 4200  100 0.14 bairdend   main-amp bird
	1.27 beg f+ 0.01 4400  100 0.14 bairdend   main-amp bird
	1.31 beg f+ 0.01 4200  100 0.13 bairdend   main-amp bird
	1.35 beg f+ 0.01 4400  100 0.13 bairdend   main-amp bird
	1.39 beg f+ 0.01 4200  100 0.12 bairdend   main-amp bird
	1.43 beg f+ 0.01 4400  100 0.12 bairdend   main-amp bird
	1.47 beg f+ 0.01 4200  100 0.11 bairdend   main-amp bird
	1.51 beg f+ 0.01 4400  100 0.11 bairdend   main-amp bird
	1.55 beg f+ 0.01 4200  100 0.10 bairdend   main-amp bird
	1.59 beg f+ 0.01 4400  100 0.10 bairdend   main-amp bird
	1.63 beg f+ 0.01 4200  100 0.09 bairdend   main-amp bird
	1.67 beg f+ 0.01 4400  100 0.09 bairdend   main-amp bird
	1.71 beg f+ 0.01 4200  100 0.08 bairdend   main-amp bird
	1.75 beg f+ 0.01 4400  100 0.08 bairdend   main-amp bird
	1.79 beg f+ 0.01 4200  100 0.07 bairdend   main-amp bird
	1.83 beg f+ 0.01 4400  100 0.07 bairdend   main-amp bird
	1.87 beg f+ 0.01 4200  100 0.06 bairdend   main-amp bird
	1.92 beg f+ 0.01 4400  100 0.06 bairdend   main-amp bird
	1.97 beg f+ 0.01 4200  100 0.05 bairdend   main-amp bird
	1.97 0.01 f+ step
;event

event: kentucky-warbler ( beg -- )
	0.6 f- { beg }
	#( 0 0.3 0.5 1 1 0 ) { kenstart }
	#( 0 0.9 0.1 1 1 0 ) { kendwn }
	#( 0 1 0.25 0 0.5 0 0.75 1 1 0 ) { kentrill }
	#( 1 1 2 0.1 ) { ken-parts-1 }
	#( 1 1 2 0.01 ) { ken-parts-01 }
	#( 1 1 2 0.03 ) { ken-parts-03 }

	0.60 beg f+ 0.02 3800  200 0.05 kenstart main-amp ken-parts-03 bigbird
	0.65 beg f+ 0.03 4300  200 0.15 bird-up  main-amp ken-parts-1  bigbird
	0.73 beg f+ 0.02 3200  100 0.10 kendwn   main-amp ken-parts-1  bigbird
	0.75 beg f+ 0.05 3000  800 0.15 kenstart main-amp ken-parts-01 bigbird
	0.82 beg f+ 0.06 3100 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	0.90 beg f+ 0.06 3200 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	0.98 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird
	1.10 beg f+ 0.05 2900  800 0.15 kenstart main-amp ken-parts-01 bigbird
	1.17 beg f+ 0.06 3000 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.25 beg f+ 0.06 3100 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.33 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird
	1.43 beg f+ 0.05 2800  800 0.15 kenstart main-amp ken-parts-01 bigbird
	1.50 beg f+ 0.05 2700 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.57 beg f+ 0.06 2800 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.64 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird
	1.75 beg f+ 0.05 2700  800 0.15 kenstart main-amp ken-parts-01 bigbird
	1.81 beg f+ 0.05 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.88 beg f+ 0.06 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	1.97 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird
	2.05 beg f+ 0.05 2700  800 0.15 kenstart main-amp ken-parts-01 bigbird
	2.12 beg f+ 0.06 2600 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	2.20 beg f+ 0.05 4600  100 0.20 kentrill main-amp ken-parts-1  bigbird
	2.30 beg f+ 0.05 2800  800 0.15 kenstart main-amp ken-parts-01 bigbird
	2.37 beg f+ 0.06 2700 1200 0.10 kendwn   main-amp ken-parts-01 bigbird
	2.45 beg f+ 0.05 4700  100 0.25 kentrill main-amp ken-parts-1  bigbird
	2.45 0.05 f+ step
;event

event: rufous-sided-towhee ( beg -- )
	0.25 f- { beg }
	#( 0.00 0.10 0.02 0.05 0.04 0.15 0.06 0.05 0.08 0.20 0.10 0.04
	0.12 0.25 0.14 0.03 0.16 0.30 0.18 0.02 0.20 0.35 0.22 0.01
	0.24 0.40 0.26 0.00 0.28 0.45 0.30 0.00 0.32 0.50 0.34 0.00
	0.36 0.50 0.80 1.00 1.00 0.00 ) { towhee-one }
	#( 1 0.03 2 1 3 0.03 ) { towhee-parts }

	0.250 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp
	    towhee-parts bigbird
	0.450 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp
	    towhee-parts bigbird
	0.600 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp
	    towhee-parts bigbird
	0.750 beg f+ 0.10 1400 1100 0.20 towhee-one main-amp
	    towhee-parts bigbird
	0.880 beg f+ 0.01 5100 2000 0.10 bird-up    main-amp bird
	0.895 beg f+ 0.01 5100 1600 0.10 bird-up    main-amp bird
	0.910 beg f+ 0.01 5100 1000 0.10 bird-up    main-amp bird
	0.930 beg f+ 0.01 3000 1200 0.10 bird-down  main-amp bird
	0.945 beg f+ 0.01 5100 2000 0.09 bird-up    main-amp bird
	0.960 beg f+ 0.01 5100 1600 0.09 bird-up    main-amp bird
	0.975 beg f+ 0.01 5100 1000 0.09 bird-up    main-amp bird
	0.995 beg f+ 0.01 3000 1200 0.09 bird-down  main-amp bird
	1.010 beg f+ 0.01 5100 2000 0.10 bird-up    main-amp bird
	1.025 beg f+ 0.01 5100 1600 0.10 bird-up    main-amp bird
	1.040 beg f+ 0.01 5100 1000 0.10 bird-up    main-amp bird
	1.060 beg f+ 0.01 3000 1200 0.10 bird-down  main-amp bird
	1.075 beg f+ 0.01 5100 2000 0.09 bird-up    main-amp bird
	1.090 beg f+ 0.01 5100 1600 0.09 bird-up    main-amp bird
	1.105 beg f+ 0.01 5100 1000 0.09 bird-up    main-amp bird
	1.125 beg f+ 0.01 3000 1200 0.09 bird-down  main-amp bird
	1.140 beg f+ 0.01 5100 2000 0.08 bird-up    main-amp bird
	1.155 beg f+ 0.01 5100 1600 0.08 bird-up    main-amp bird
	1.170 beg f+ 0.01 5100 1000 0.08 bird-up    main-amp bird
	1.190 beg f+ 0.01 3000 1200 0.08 bird-down  main-amp bird
	1.205 beg f+ 0.01 5100 2000 0.08 bird-up    main-amp bird
	1.220 beg f+ 0.01 5100 1600 0.08 bird-up    main-amp bird
	1.235 beg f+ 0.01 5100 1000 0.08 bird-up    main-amp bird
	1.255 beg f+ 0.01 3000 1200 0.08 bird-down  main-amp bird
	1.270 beg f+ 0.01 5100 2000 0.07 bird-up    main-amp bird
	1.285 beg f+ 0.01 5100 1600 0.07 bird-up    main-amp bird
	1.300 beg f+ 0.01 5100 1000 0.07 bird-up    main-amp bird
	1.320 beg f+ 0.01 3000 1200 0.07 bird-down  main-amp bird
	1.335 beg f+ 0.01 5100 2000 0.06 bird-up    main-amp bird
	1.350 beg f+ 0.01 5100 1600 0.06 bird-up    main-amp bird
	1.365 beg f+ 0.01 5100 1000 0.06 bird-up    main-amp bird
	1.385 beg f+ 0.01 3000 1200 0.06 bird-down  main-amp bird
	1.400 beg f+ 0.01 5100 2000 0.05 bird-up    main-amp bird
	1.415 beg f+ 0.01 5100 1600 0.05 bird-up    main-amp bird
	1.430 beg f+ 0.01 5100 1000 0.05 bird-up    main-amp bird
	1.450 beg f+ 0.01 3000 1200 0.05 bird-down  main-amp bird
	1.465 beg f+ 0.01 5100 2000 0.03 bird-up    main-amp bird
	1.480 beg f+ 0.01 5100 1600 0.03 bird-up    main-amp bird
	1.495 beg f+ 0.01 5100 1000 0.03 bird-up    main-amp bird
	1.515 beg f+ 0.01 3000 1200 0.03 bird-down  main-amp bird
	1.515 0.01 f+ step
;event

event: prothonotary-warbler ( beg -- )
	0.76 f- { beg }
	#( 0 0.1 0.2 0 1 1 ) { pro-one }
	#( 0 0 0.2 1 0.4 0.5 1 0 ) { pro-amp }

	0.76 beg f+ 0.08 3000 3000 0.05 pro-one pro-amp  bird
	0.85 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird
	1.02 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp  bird
	1.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird

	1.26 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp  bird
	1.35 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird

	1.54 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp  bird
	1.63 beg f+ 0.05 4000 2500 0.19 bird-up bird-amp bird

	1.80 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp  bird
	1.89 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird

	2.03 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp  bird
	2.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird

	2.30 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp  bird
	2.39 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird
	2.39 0.05 f+ step
;event

event: audubons-warbler ( beg -- )
	0.75 f- { beg }
	#( 0 0 0.15 1 0.45 0.9 0.5 0 0.55 1 0.9 0.9 1 1 ) { w-end }
	#( 0 0.1 0.5 1 1 0 ) { w-updown }

	0.75 beg f+ 0.04 2400  200 0.05 bird-down bird-amp bird
	0.83 beg f+ 0.03 3200  200 0.10 bird-up   bird-amp bird
	0.90 beg f+ 0.04 2500  300 0.15 bird-up   bird-amp bird
	0.97 beg f+ 0.04 2300  600 0.15 bird-down bird-amp bird

	1.02 beg f+ 0.03 3500  400 0.20 bird-up   bird-amp bird
	1.06 beg f+ 0.04 2300 1200 0.10 bird-up   bird-amp bird
	1.13 beg f+ 0.05 2300 1200 0.15 bird-down bird-amp bird
	1.22 beg f+ 0.02 3200  800 0.25 bird-up   bird-amp bird
	1.25 beg f+ 0.08 2400  600 0.20 w-updown  bird-amp bird
	1.35 beg f+ 0.02 2200  400 0.10 bird-up   bird-amp bird
	1.38 beg f+ 0.07 2400 1400 0.15 bird-down bird-amp bird
	1.47 beg f+ 0.03 3000  800 0.20 bird-up   bird-amp bird
	1.50 beg f+ 0.03 2500  400 0.10 w-updown  bird-amp bird
	1.55 beg f+ 0.01 2300  100 0.05 bird-up   bird-amp bird
	1.56 beg f+ 0.06 2200 1400 0.15 bird-down bird-amp bird
	1.65 beg f+ 0.03 3100  800 0.10 bird-up   bird-amp bird
	1.70 beg f+ 0.07 2800  800 0.15 w-updown  bird-amp bird
	1.79 beg f+ 0.06 2400 1000 0.10 bird-down bird-amp bird
	1.86 beg f+ 0.14 3100  900 0.25 w-end     bird-amp bird
	2.02 beg f+ 0.12 3200  800 0.20 w-end     bird-amp bird
	2.02 0.12 f+ step
;event

event: lark-bunting ( beg -- )
	0.1 f- { beg }
	#( 0.00 0.00 0.06 0.80 0.12 0.00 0.18 0.85 0.24 0.05 0.36 0.90
	   0.42 0.10 0.48 0.95 0.54 0.20 0.60 1.00 0.66 0.20 0.72 1.00
	   0.78 0.20 0.84 1.00 0.90 0.20 1.00 1.00 ) { b-trill-one }
	#( 0.00 0.00 0.05 0.80 0.10 0.00 0.15 0.85 0.20 0.00 0.25 0.90
	   0.30 0.00 0.35 0.95 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00
	   0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00
	   0.90 0.00 0.95 1.00 1.00 0.00 ) { b-trill-two }

	0.10  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	0.20  beg f+ 0.12 3700 400 0.20 bird-up     bird-amp bird
	0.40  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	0.45  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	0.51  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	0.04  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	0.65  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	0.71  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	0.80  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	0.85  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	0.91  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	1.00  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	1.05  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	1.01  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	1.20  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	1.25  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	1.31  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	1.40  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	1.45  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	1.51  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	1.60  beg f+ 0.03 4100 500 0.15 bird-down   bird-amp bird
	1.65  beg f+ 0.05 2000 400 0.20 bird-down   bird-amp bird
	1.71  beg f+ 0.03 1800 100 0.10 bird-up     bird-amp bird
	1.770 beg f+ 0.23 6000 600 0.15 b-trill-one bird-amp bird
	2.005 beg f+ 0.28 6000 600 0.15 b-trill-two bird-amp bird
	2.005 0.28 f+ step
;event

event: eastern-bluebird ( beg -- )
	0.75 f- { beg }
	#( 0.00 0.60 0.10 1.00 0.20 0.00 0.25 1.00 0.30 0.00 0.35 1.00
	   0.40 0.00 0.45 1.00 0.50 0.00 0.75 1.00 1.00 0.00 ) { blue-three }
	#( 0 0 0.5 1 1 0 ) { blue-four }
	#( 0.00 0.50 0.10 1.00 0.20 0.00 0.35 1.00 0.50 0.00 0.65 1.00
	   0.80 0.00 0.95 1.00 1.00 0.50 ) { blue-five }

	0.75 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird
	0.80 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird
	0.86 beg f+ 0.02 2000 1600 0.10 bird-up    bird-amp bird
	1.00 beg f+ 0.13 2000 1400 0.20 bird-down  bird-amp bird
	1.20 beg f+ 0.24 2000  800 0.20 blue-three bird-amp bird
	1.68 beg f+ 0.03 2200  400 0.10 bird-up    bird-amp bird
	1.72 beg f+ 0.10 1950  100 0.15 blue-four  bird-amp bird
	1.96 beg f+ 0.15 2000  600 0.20 blue-five  bird-amp bird
	1.96 0.15 f+ step
;event

event: chuck-wills-widow ( beg -- )
	0.05 f- { beg }
	#( 0 0 0.1 0.1 0.25 1 0.5 0.3 0.8 0.7 1 0 ) { wid-one }
	#( 0 0.2 0.3 1 0.5 0.3 0.6 0.7 0.9 0.1 1 0 ) { wid-two }

	0.05 beg f+ 0.03 1000  800 0.1 bird-down bird-amp bird
	0.32 beg f+ 0.20 1000 1000 0.2 wid-one   bird-amp bird
	0.56 beg f+ 0.29  900 1100 0.2 wid-two   bird-amp bird
	0.56 0.29 f+ step
;event

event: blue-gray-gnatcatcher ( beg -- )
	0.5 f- { beg }
	#( 0 0 0.15 1 0.75 0.8 0.9 1 1 0.7 ) { gskw1 }
	#( 0 0 0.25 1 0.75 0.7 1 0 ) { gskw2 }
	#( 1 0.4 2 1 3 0.1 ) { gparts-1 }
	#( 1 0.4 2 1 3 0.2 ) { gparts-2 }
	#( 1 0.4 2 1 3 0.3 ) { gparts-3 }

	0.5 beg f+ 0.20 4000 1000 0.2 gskw1 bird-amp gparts-1 bigbird
	0.8 beg f+ 0.13 4000  800 0.2 gskw2 bird-amp gparts-2 bigbird
	1.4 beg f+ 0.25 4000  800 0.2 gskw2 bird-amp gparts-3 bigbird
	1.8 beg f+ 0.17 4000  900 0.2 gskw1 bird-amp gparts-3 bigbird
	2.0 beg f+ 0.17 4000  700 0.2 gskw1 bird-amp gparts-3 bigbird
	2.2 beg f+ 0.17 4000  800 0.2 gskw2 bird-amp gparts-3 bigbird
	2.2 0.17 f+ step
;event

event: black-throated-sparrow ( beg -- )
	0.8 f- { beg }
	#( 0 0 0.75 1 1 0 ) { black-down-amp }
	#( 0 0 0.5 1 1 0.2 ) { black-up-down }
	#( 0 0 0.5 1 1 0 ) { black-amp }
	#( 0.00 0.00 0.03 0.70 0.06 0.00 0.09 0.75 0.12 0.00 0.15 0.80
	   0.18 0.05 0.21 0.85 0.24 0.10 0.27 0.90 0.30 0.10 0.33 1.00
	   0.36 0.10 0.39 1.00 0.42 0.10 0.45 1.00 0.48 0.10 0.51 1.00
	   0.54 0.10 0.57 1.00 0.60 0.10 0.63 1.00 0.66 0.10 0.69 1.00
	   0.72 0.10 0.75 1.00 0.78 0.10 0.81 1.00 0.84 0.10 0.87 1.00
	   0.90 0.00 0.93 0.95 0.96 0.00 1.00 0.90 ) { black-trill }

	0.80 beg f+ 0.02 2200 1000 0.10 bird-down bird-amp bird
	0.83 beg f+ 0.01 3000  200 0.05 bird-up   bird-amp bird
	0.96 beg f+ 0.02 5800  500 0.05 bird-up   bird-amp bird
	1.00 beg f+ 0.02 4000  200 0.05 bird-up   bird-amp bird
	1.04 beg f+ 0.10 2100 1700 0.15 bird-down black-down-amp bird
	1.15 beg f+ 0.05 5700  400 0.25 bird-up   bird-amp bird
	1.25 beg f+ 0.25 2000  900 0.20 black-trill bird-amp bird
	1.52 beg f+ 0.05 5600  400 0.15 black-up-down bird-amp bird

	1.60 beg f+ 0.04 3900 1100 0.15 bird-up bird-amp  bird
	1.66 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	1.69 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird
	1.71 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird
	1.74 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird
	1.76 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	1.78 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird
	1.80 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird
	1.83 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird
	1.85 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	1.87 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird
	1.89 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird
	1.92 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird
	1.94 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	1.96 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird
	1.98 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird
	2.01 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird
	2.03 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	2.05 beg f+ 0.01 3600  300 0.10 bird-up black-amp bird
	2.07 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird
	2.10 beg f+ 0.02 5000  100 0.20 bird-up black-amp bird
	2.13 beg f+ 0.01 1900  100 0.10 bird-up black-amp bird

	2.16 beg f+ 0.03 3800  300 0.10 bird-up bird-amp  bird
	2.16 0.03 f+ step
;event

event: black-chinned-sparrow ( beg -- )
	0.6 f- { beg }
	#( 0 0 0.3 0.2 1 1 ) { chin-up }

	0.60 beg f+ 0.20 4200  100 0.10 bird-up bird-amp bird
	1.00 beg f+ 0.09 3800 2000 0.10 chin-up bird-amp bird
	1.25 beg f+ 0.08 3900 1700 0.12 chin-up bird-amp bird
	1.40 beg f+ 0.08 3600 2300 0.13 bird-up bird-amp bird
	1.50 beg f+ 0.11 3100 2800 0.14 bird-up bird-amp bird
	1.65 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird
	1.74 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird
	1.82 beg f+ 0.07 3000 2300 0.13 bird-up bird-amp bird
	1.89 beg f+ 0.07 3200 2000 0.10 bird-up bird-amp bird
	1.97 beg f+ 0.05 3200 1500 0.10 bird-up bird-amp bird

	2.04 beg f+ 0.04 3400 1000 0.07 bird-up bird-amp bird
	2.10 beg f+ 0.03 3600  700 0.05 bird-up bird-amp bird
	2.15 beg f+ 0.03 3800  300 0.05 bird-up bird-amp bird
	2.19 beg f+ 0.02 3900  100 0.03 bird-up bird-amp bird
	2.22 beg f+ 0.01 3900  100 0.01 bird-up bird-amp bird
	2.24 beg f+ 0.01 3900  100 0.01 bird-up bird-amp bird
	2.24 0.01 f+ step
;event

event: various-gull-cries-from-end-of-colony-5 ( beg -- )
	0.25 f- { beg }
	#( 0 0 10 1 20 0.5 40 0.6 60 0.5 100 0 ) { gull-start }
	#( 0 0 10 1 30 0.5 80 0.5 100 0 ) { gull-middle }
	#( 0 0 5 1 10 0.5 90 0.4 100 0 ) { gull-end }
	#( 1 0.1 2 1 3 0.1 4 0.01 5 0.09 6 0.01 7 0.01 ) { gull-parts }

	0.25 beg f+ 0.80 1180 1180 0.08 gull-end    bird-amp gull-parts bigbird
	1.50 beg f+ 0.90 1180 1180 0.07 gull-end    bird-amp gull-parts bigbird
	2.75 beg f+ 1.00 1050 1050 0.08 gull-end    bird-amp gull-parts bigbird
	4.80 beg f+ 0.05 1180 1180 0.06 gull-start  bird-amp gull-parts bigbird
	4.95 beg f+ 0.10 1180 1180 0.08 gull-start  bird-amp gull-parts bigbird
	5.15 beg f+ 0.10 1180 1180 0.09 gull-start  bird-amp gull-parts bigbird
	5.35 beg f+ 0.10 1180 1180 0.10 gull-middle bird-amp gull-parts bigbird
	5.45 beg f+ 0.40 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird
	6.25 beg f+ 0.80 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird
	7.45 beg f+ 1.80 1050 1050 0.10 gull-end    bird-amp gull-parts bigbird
	7.45 1.80 f+ step
;event

\ <'> bird-test with-sound
: bird-test ( -- )
	0.0 now!
	1.0 { dur }
	now@ orchard-oriole              dur step
	now@ cassins-kingbird            dur step
	now@ chipping-sparrow            dur step
	now@ bobwhite                    dur step
	now@ western-meadowlark          dur step
	now@ scissor-tailed-flycatcher   dur step
	now@ great-horned-owl            dur step
	now@ black-throated-gray-warbler dur step
	now@ yellow-warbler              dur step
	now@ black-necked-stilt          dur step
	now@ chestnut-sided-warbler      dur step
	now@ grasshopper-sparrow         dur step
	now@ swamp-sparrow               dur step
	now@ golden-crowned-sparrow      dur step
	now@ indigo-bunting              dur step
	now@ hooded-warbler              dur step
	now@ american-widgeon            dur step
	now@ louisiana-waterthrush       dur step
	now@ robin                       dur step
	now@ solitary-vireo              dur step
	now@ pigeon-hawk                 dur step
	now@ cerulean-warbler            dur step
	now@ nashville-warbler           dur step
	now@ eastern-phoebe              dur step
	now@ painted-bunting             dur step
	now@ western-flycatcher          dur step
	now@ bachmans-sparrow            dur step
	now@ cedar-waxwing               dur step
	now@ bairds-sparrow              dur step
	now@ kentucky-warbler            dur step
	now@ rufous-sided-towhee         dur step
	now@ prothonotary-warbler        dur step
	now@ audubons-warbler            dur step
	now@ lark-bunting                dur step
	now@ eastern-bluebird            dur step
	now@ chuck-wills-widow           dur step
	now@ blue-gray-gnatcatcher       dur step
	now@ black-throated-sparrow      dur step
	now@ black-chinned-sparrow       dur step
	now@ various-gull-cries-from-end-of-colony-5 dur step
;

: ws-bird-test ( -- )
	<'> bird-test
	:play       #t
	:statistics #t
	:verbose    #t
	:channels   2
	:srate      44100
	:scaled-to  0.8
	:notehook   #f with-sound drop
;

\ bird.fsm ends here