1\ bird.fsm -- clm/bird.clm 2 3\ Translator: Michael Scholz <mi-scholz@users.sourceforge.net> 4\ Created: 06/12/12 03:26:27 5\ Changed: 17/12/02 03:07:58 6\ 7\ @(#)bird.fsm 1.14 12/2/17 8 9\ Usage: <'> bird-test with-sound 10\ or ws-bird-test 11 12require clm 13 14instrument: bird <{ start dur freq freq-skew amp freqenv ampenv 15 :optional lpfilt 1.0 degree 0.0 reverb-amount 0.0 -- }> 16 :envelope ampenv :scaler amp :duration dur make-env { amp-env } 17 :envelope freqenv :scaler freq-skew hz->radians :duration dur 18 make-env { gls-env } 19 :frequency freq make-oscil { os } 20 :a0 lpfilt :b1 1.0 lpfilt f- make-one-pole { fil } 21 *channels* 2 = 22 degree f0= && if 23 45.0 to degree 24 then 25 *reverb* 26 reverb-amount f0= && if 27 0.001 to reverb-amount 28 then 29 start dur 30 #{ :degree degree 31 :distance 1.0 32 :reverb-amount reverb-amount } run-instrument 33 fil os gls-env env 0.0 oscil amp-env env f* one-pole 34 end-run 35;instrument 36 37instrument: bigbird <{ start dur freq freq-skew amp freqenv ampenv parts 38 :optional lpcoeff 1.0 degree 0.0 reverb-amount 0.0 -- }> 39 :envelope ampenv :scaler amp :duration dur make-env { amp-env } 40 :envelope freqenv :scaler freq-skew hz->radians :duration dur 41 make-env { gls-env } 42 :frequency freq 43 :coeffs parts normalize-partials undef partials->polynomial 44 make-polyshape { os } 45 :a0 lpcoeff :b1 1.0 lpcoeff f- make-one-pole { fil } 46 *channels* 2 = 47 degree f0= && if 48 45.0 to degree 49 then 50 *reverb* 51 reverb-amount f0= && if 52 0.001 to reverb-amount 53 then 54 start dur 55 #{ :degree degree 56 :distance 1.0 57 :reverb-amount reverb-amount } run-instrument 58 fil os 1.0 gls-env env polyshape amp-env env f* one-pole 59 end-run 60;instrument 61 62#( 0 0 0.25 1 0.6 0.7 0.75 1 1 0 ) constant main-amp 63#( 0 0 0.01 1 0.99 1 1 0 ) constant tap-amp 64#( 0 0 0.25 1 0.75 1 1 0 ) constant bird-amp 65#( 0 0 1 1 ) constant bird-up 66#( 0 1 1 0 ) constant bird-down 67 68event: orchard-oriole ( beg -- ) 69 0.38 f- { beg } 70 #( 0 0 0.6 1 1 0.6 ) { oriupdwna } 71 #( 0 0.5 0.3 1 1 0 ) { oriupdwnb } 72 #( 0 0.9 0.15 1 0.4 0.3 0.6 0.6 0.85 0 1 0 ) { oribiga } 73 #( 0 1 0.05 0.5 0.1 1 0.25 0 0.85 0.5 1 0 ) { orimid } 74 #( 0 0.3 0.25 0 1 1 ) { oridwnup } 75 #( 0 0 0.1 1 1 0 ) { oriamp } 76 77 0.38 beg f+ 0.03 3700 100 0.05 bird-down main-amp bird 78 0.41 beg f+ 0.05 2500 1000 0.10 bird-up main-amp bird 79 0.50 beg f+ 0.10 2000 800 0.20 oriupdwna main-amp 80 #( 1 1 2 0.02 3 0.05 ) bigbird 81 0.65 beg f+ 0.03 3900 1200 0.10 bird-down main-amp bird 82 0.70 beg f+ 0.21 2000 1200 0.15 oribiga main-amp 83 #( 1 1 2 0.05 ) bigbird 84 1.00 beg f+ 0.05 4200 1000 0.10 bird-down main-amp bird 85 1.10 beg f+ 0.10 2000 1000 0.25 orimid main-amp 86 #( 1 1 2 0.05 ) bigbird 87 1.30 beg f+ 0.10 2000 1000 0.25 orimid main-amp 88 #( 1 1 2 0.05 ) bigbird 89 1.48 beg f+ 0.10 2300 3200 0.10 oriupdwnb oriamp bird 90 1.65 beg f+ 0.03 1800 300 0.05 bird-up main-amp bird 91 1.70 beg f+ 0.03 2200 100 0.04 bird-down main-amp bird 92 1.80 beg f+ 0.07 2500 2000 0.15 oriupdwnb oriamp bird 93 1.92 beg f+ 0.20 2400 1200 0.25 oridwnup main-amp 94 #( 1 1 2 0.04 ) bigbird 95 2.20 beg f+ 0.02 2200 3000 0.04 bird-up main-amp bird 96 2.28 beg f+ 0.02 2200 3000 0.04 bird-up main-amp bird 97 2.40 beg f+ 0.17 2000 1000 0.20 oriupdwna oriamp 98 #( 1 1 2 0.04 ) bigbird 99 2.4 0.17 f+ step 100;event 101 102event: cassins-kingbird ( beg -- ) 103 0.03 f- { beg } 104 #( 0 0.3 0.45 1 0.9 0.1 1 0 ) { kingfirst } 105 #( 0.00 0.00 0.02 0.50 0.04 0.00 0.06 0.55 0.08 0.05 0.10 0.60 106 0.12 0.05 0.14 0.65 0.16 0.10 0.18 0.70 0.20 0.10 0.22 0.75 107 0.24 0.15 0.26 0.80 0.28 0.20 0.30 0.85 0.32 0.25 0.34 0.90 108 0.36 0.30 0.38 0.95 0.40 0.40 0.42 1.00 0.44 0.50 0.46 1.00 109 0.48 0.45 0.50 1.00 0.52 0.50 0.54 1.00 0.56 0.40 0.58 0.95 110 0.60 0.40 0.62 0.90 0.64 0.40 0.66 0.85 0.68 0.35 0.70 0.80 111 0.72 0.30 0.74 0.75 0.76 0.25 0.78 0.70 0.80 0.20 0.82 0.65 112 0.84 0.10 0.86 0.60 0.88 0.00 0.90 0.55 0.92 0.00 0.94 0.50 113 0.96 0.00 1.00 0.40 ) { kingsecond } 114 115 0.03 beg f+ 0.04 1700 1200 0.15 kingfirst main-amp 116 #( 1 1 2 0.5 3 0 4 0.2 ) bigbird 117 0.12 beg f+ 0.18 1700 900 0.25 kingsecond main-amp 118 #( 1 1 2 0.01 3 0 4 0.1 ) bigbird 119 0.12 0.18 f+ step 120;event 121 122event: chipping-sparrow ( beg -- ) 123 { beg } 124 #( 0 0.8 0.15 1 0.75 0.3 1 0 ) { chip-up } 125 126 0.00 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 127 0.06 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 128 0.12 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 129 0.18 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 130 0.24 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 131 0.30 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 132 0.36 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 133 0.42 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 134 0.48 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 135 0.54 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 136 0.60 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 137 0.66 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 138 0.72 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 139 0.78 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 140 0.84 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 141 0.90 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 142 0.96 beg f+ 0.05 4000 2400 0.2 chip-up main-amp bird 143 0.96 0.05 f+ step 144;event 145 146event: bobwhite ( beg -- ) 147 0.4 f- { beg } 148 #( 0 0 0.4 1 1 1 ) { bobup1 } 149 #( 0 0 0.65 0.5 1 1 ) { bobup2 } 150 151 0.4 beg f+ 0.2 1800 200 0.1 bobup1 main-amp #( 1 1 2 0.02 ) bigbird 152 1.0 beg f+ 0.2 1800 1200 0.2 bobup2 main-amp #( 1 1 2 0.02 ) bigbird 153 1 0.2 f+ step 154;event 155 156event: western-meadowlark ( beg -- ) 157 0.8 f- { beg } 158 #( 0 0 1 0 ) { no-skw } 159 #( 0 1 0.4 0.4 1 0 ) { down-skw } 160 161 0.80 beg f+ 0.10 2010 0 0.10 no-skw main-amp 162 #( 1 1 2 0.04 ) bigbird 163 1.10 beg f+ 0.15 3000 100 0.11 down-skw main-amp 164 #( 1 1 2 0.04 ) bigbird 165 1.30 beg f+ 0.25 2000 150 0.20 down-skw main-amp 166 #( 1 1 2 0.04 ) bigbird 167 1.65 beg f+ 0.15 3010 250 0.11 down-skw main-amp 168 #( 1 1 2 0.04 ) bigbird 169 1.85 beg f+ 0.10 2200 150 0.11 down-skw main-amp 170 #( 1 1 2 0.04 ) bigbird 171 2.00 beg f+ 0.10 3200 1400 0.11 bird-down main-amp 172 #( 1 1 2 0.04 ) bigbird 173 2.20 beg f+ 0.05 2000 200 0.11 bird-down main-amp 174 #( 1 1 2 0.04 ) bigbird 175 2.30 beg f+ 0.10 1600 0 0.11 bird-down main-amp 176 #( 1 1 2 0.04 ) bigbird 177 2.3 0.1 f+ step 178;event 179 180event: scissor-tailed-flycatcher ( beg -- ) 181 { beg } 182 #( 0 0 0.4 1 0.6 1 1 0 ) { scissor } 183 184 beg 0.05 1800 1800 0.2 scissor main-amp 185 #( 1 0.5 2 1 3 0.5 4 0.1 5 0.01 ) bigbird 186 0.05 step 187;event 188 189event: great-horned-owl ( beg -- ) 190 0.3 f- { beg } 191 #( 0 0 0.3 1 1 1 ) { owlup } 192 #( 1 1 3 0.02 7 0.01 ) { owl-parts } 193 194 0.30 beg f+ 0.10 300 0 0.1 main-amp main-amp owl-parts bigbird 195 0.60 beg f+ 0.40 293 6 0.1 bird-down main-amp owl-parts bigbird 196 1.75 beg f+ 0.35 293 7 0.1 owlup main-amp owl-parts bigbird 197 2.50 beg f+ 0.20 300 0 0.1 owlup main-amp owl-parts bigbird 198 2.5 0.2 f+ step 199;event 200 201event: black-throated-gray-warbler ( beg -- ) 202 { beg } 203 #( 0.00 0.50 0.02 0.60 0.04 0.45 0.06 0.62 0.08 0.40 0.10 0.65 204 0.12 0.35 0.14 0.70 0.18 0.30 0.20 0.70 0.22 0.30 0.24 0.70 205 0.25 0.20 0.30 0.80 0.35 0.10 0.40 0.90 0.45 0.00 0.50 1.00 206 0.55 0.00 0.60 1.00 0.65 0.00 0.70 1.00 0.75 0.00 0.80 1.00 207 0.85 0.00 0.90 1.00 0.95 0.00 1.00 0.50 ) { gray-one } 208 #( 0.00 0.00 0.01 0.40 0.02 0.00 0.03 0.40 0.04 0.00 0.05 0.40 209 0.06 0.00 0.07 0.40 0.08 0.00 0.09 0.40 0.10 0.00 0.25 0.80 210 0.40 0.30 0.55 1.00 0.70 0.00 0.85 0.80 1.00 0.40 ) { gray-two } 211 #( 0.00 1.00 0.01 0.60 0.02 1.00 0.03 0.60 0.04 1.00 0.05 0.60 212 0.06 1.00 0.07 0.60 0.08 1.00 0.09 0.60 0.10 1.00 0.11 0.60 213 0.12 1.00 0.13 0.60 0.14 1.00 0.15 0.60 0.16 1.00 0.17 0.60 214 0.18 1.00 0.19 0.60 0.20 1.00 0.21 0.55 0.22 1.00 0.23 0.50 215 0.24 1.00 0.25 0.50 0.26 1.00 0.27 0.50 0.28 1.00 0.29 0.50 216 0.30 1.00 0.31 0.50 0.32 1.00 0.33 0.50 0.34 1.00 0.35 0.50 217 0.36 1.00 0.37 0.50 0.38 1.00 0.39 0.50 0.40 1.00 0.41 0.50 218 0.42 1.00 0.43 0.50 0.44 1.00 0.45 0.50 0.46 1.00 0.47 0.50 219 0.48 1.00 0.49 0.50 0.50 1.00 0.51 0.50 0.52 1.00 0.53 0.50 220 0.54 1.00 0.55 0.50 0.56 1.00 0.57 0.50 0.58 1.00 0.59 0.50 221 0.60 1.00 1.00 0.00 ) { gray-three } 222 223 0.00 beg f+ 0.12 3700 600 0.05 gray-one main-amp bird 224 0.18 beg f+ 0.08 3000 800 0.07 gray-two main-amp bird 225 0.28 beg f+ 0.12 3700 600 0.12 gray-one main-amp bird 226 0.44 beg f+ 0.08 3000 800 0.15 gray-two main-amp bird 227 0.54 beg f+ 0.12 3700 600 0.20 gray-one main-amp bird 228 0.72 beg f+ 0.08 3000 800 0.25 gray-two main-amp bird 229 0.82 beg f+ 0.12 3700 600 0.25 gray-one main-amp bird 230 0.96 beg f+ 0.20 3000 2000 0.20 gray-three main-amp bird 231 1.20 beg f+ 0.02 4500 500 0.05 bird-up main-amp bird 232 1.25 beg f+ 0.02 4200 800 0.05 bird-up main-amp bird 233 1.30 beg f+ 0.02 4000 900 0.05 bird-up main-amp bird 234 1.3 0.02 f+ step 235;event 236 237event: yellow-warbler ( beg -- ) 238 { beg } 239 #( 0 0 0.6 1 1 0.5 ) { yellow-up } 240 #( 0 1 0.05 1 0.6 0 0.8 0.3 1 0.1 ) { yellow-swirl } 241 #( 0 0 0.3 0.2 0.8 0.7 1 1 ) { yellow-last } 242 #( 0 0 0.9 1 1 0 ) { swirl-amp } 243 244 0.00 beg f+ 0.050 5600 400 0.05 yellow-up main-amp bird 245 0.23 beg f+ 0.120 5000 1500 0.15 yellow-swirl main-amp bird 246 0.45 beg f+ 0.130 5000 1700 0.17 yellow-swirl main-amp bird 247 0.62 beg f+ 0.160 5000 2000 0.20 yellow-swirl main-amp bird 248 0.85 beg f+ 0.150 5000 2000 0.20 yellow-swirl main-amp bird 249 1.05 beg f+ 0.075 3700 1000 0.20 bird-down main-amp bird 250 1.15 beg f+ 0.075 3700 800 0.15 bird-down main-amp bird 251 1.25 beg f+ 0.075 3700 800 0.15 bird-down main-amp bird 252 1.40 beg f+ 0.200 3700 2000 0.20 yellow-last main-amp bird 253 1.4 0.2 f+ step 254;event 255 256event: black-necked-stilt ( beg -- ) 257 { beg } 258 #( 0 0 0.9 1 1 0 ) { upamp } 259 #( 0 0 0.5 1 1 0.2 ) { rampup } 260 #( 1 0.5 2 1 3 0.75 4 0.5 5 0.1 ) { bns-parts } 261 262 0.0 beg f+ 0.1 900 100 0.2 rampup upamp bns-parts bigbird 263 0.3 beg f+ 0.1 900 200 0.2 rampup upamp bns-parts bigbird 264 0.6 beg f+ 0.1 900 250 0.2 rampup upamp bns-parts bigbird 265 0.6 0.1 f+ step 266;event 267 268event: chestnut-sided-warbler ( beg -- ) 269 0.1 f- { beg } 270 #( 0 1 0.3 0.5 0.6 1 0.8 0.2 1 0 ) { ycurve } 271 #( 0 0.2 0.5 1 1 0 ) { vcurve } 272 #( 0 0.5 0.15 0 0.45 0.1 0.6 1 0.7 0.9 1 0.9 ) { wcurve } 273 #( 0 0 0.95 1 1 1 ) { upcurve } 274 #( 0 1 0.25 0.3 0.6 0.15 1 0 ) { downcurve } 275 #( 0 0 0.9 1 1 0 ) { louder } 276 #( 0 0 0.1 1 0.4 0.1 0.5 0.9 0.6 0.1 0.7 1 1 0 ) { wamp } 277 278 0.10 beg f+ 0.10 4050 1200 0.050 ycurve main-amp 279 #( 1 1 2 0.1 ) bigbird 280 0.25 beg f+ 0.03 3900 300 0.075 vcurve main-amp 281 #( 1 1 2 0.1 ) bigbird 282 0.30 beg f+ 0.10 4050 1200 0.150 ycurve louder 283 #( 1 1 2 0.1 ) bigbird 284 0.42 beg f+ 0.03 3800 500 0.100 vcurve main-amp 285 #( 1 1 2 0.1 ) bigbird 286 0.50 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp 287 #( 1 1 2 0.1 ) bigbird 288 0.65 beg f+ 0.03 3800 500 0.150 vcurve main-amp 289 #( 1 1 2 0.1 ) bigbird 290 0.72 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp 291 #( 1 1 2 0.1 ) bigbird 292 0.85 beg f+ 0.03 3800 500 0.150 vcurve main-amp 293 #( 1 1 2 0.1 ) bigbird 294 0.91 beg f+ 0.10 4000 1200 0.200 ycurve tap-amp 295 #( 1 1 2 0.1 ) bigbird 296 1.05 beg f+ 0.12 3800 2200 0.150 wcurve wamp 297 #( 1 1 2 0.1 ) bigbird 298 1.20 beg f+ 0.12 3800 2200 0.150 wcurve wamp 299 #( 1 1 2 0.1 ) bigbird 300 1.35 beg f+ 0.12 2500 2200 0.250 upcurve louder 301 #( 1 1 2 0.1 ) bigbird 302 1.50 beg f+ 0.12 2500 4000 0.150 downcurve main-amp 303 #( 1 1 2 0.1 ) bigbird 304 1.5 0.12 f+ step 305;event 306 307event: grasshopper-sparrow ( beg -- ) 308 0.49 f- { beg } 309 #( 0.00 0.50 0.02 0.80 0.04 0.30 0.06 0.80 0.07 0.10 0.08 0.90 310 0.10 0.00 0.11 0.90 0.12 0.00 0.13 0.90 0.14 0.10 0.15 1.00 311 0.16 0.10 0.17 1.00 0.18 0.10 0.19 1.00 0.20 0.10 0.21 1.00 312 0.22 0.10 0.23 1.00 0.24 0.10 0.25 1.00 0.26 0.10 0.27 1.00 313 0.28 0.10 0.29 1.00 0.30 0.10 0.31 1.00 0.32 0.10 0.33 1.00 314 0.34 0.10 0.35 1.00 0.36 0.10 0.37 1.00 0.38 0.10 0.39 1.00 315 0.40 0.10 0.41 1.00 0.42 0.10 0.43 1.00 0.44 0.10 0.45 1.00 316 0.46 0.10 0.47 1.00 0.48 0.10 0.49 1.00 0.50 0.10 0.51 1.00 317 0.52 0.10 0.53 1.00 0.54 0.10 0.55 1.00 0.56 0.10 0.57 1.00 318 0.58 0.10 0.59 1.00 0.60 0.10 0.61 1.00 0.62 0.10 0.63 1.00 319 0.64 0.10 0.65 1.00 0.66 0.10 0.67 1.00 0.68 0.10 0.69 1.00 320 0.70 0.10 0.71 1.00 0.72 0.10 0.73 1.00 0.74 0.10 0.75 1.00 321 0.76 0.10 0.77 1.00 0.78 0.10 0.79 1.00 0.80 0.10 0.81 1.00 322 0.82 0.10 0.83 1.00 0.84 0.10 0.85 1.00 0.86 0.10 0.87 1.00 323 0.88 0.10 0.89 1.00 0.90 0.10 0.91 1.00 0.92 0.10 0.93 1.00 324 0.94 0.10 0.95 1.00 0.96 0.10 325 0.97 1.00 0.98 0.10 1.00 1.00 ) { grass-one } 326 #( 0.00 0.00 0.10 1.00 0.20 0.00 0.30 1.00 0.40 0.00 0.50 1.00 327 0.60 0.00 0.70 1.00 0.80 0.00 0.90 1.00 1.00 0.00 ) { grass-two } 328 329 0.49 beg f+ 0.01 8000 100 0.1 grass-two main-amp bird 330 0.60 beg f+ 0.01 5700 300 0.1 grass-two main-amp bird 331 0.92 beg f+ 0.01 3900 100 0.1 grass-two main-amp bird 332 1.00 beg f+ 1.40 6000 2500 0.2 grass-one main-amp bird 333 1 1.4 f+ step 334;event 335 336event: swamp-sparrow ( beg -- ) 337 { beg } 338 #( 0 0 0.6 0.7 1 1 ) { swamp-up } 339 #( 0 1 0.5 0.5 0.6 0.6 1 0 ) { swamp-down } 340 341 0.000 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 342 0.035 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 343 0.080 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 344 0.100 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 345 0.135 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 346 0.180 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 347 0.200 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 348 0.235 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 349 0.280 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 350 0.300 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 351 0.335 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 352 0.380 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 353 0.400 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 354 0.435 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 355 0.480 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 356 0.500 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 357 0.535 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 358 0.580 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 359 0.600 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 360 0.635 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 361 0.680 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 362 0.700 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 363 0.735 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 364 0.780 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 365 0.800 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 366 0.835 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 367 0.880 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 368 0.900 beg f+ 0.020 3900 200 0.3 swamp-up main-amp bird 369 0.935 beg f+ 0.035 3200 3000 0.1 swamp-down main-amp bird 370 0.980 beg f+ 0.025 3700 0 0.1 main-amp main-amp bird 371 0.98 0.025 f+ step 372;event 373 374event: golden-crowned-sparrow ( beg -- ) 375 0.6 f- { beg } 376 #( 0 1 0.25 0.2 1 0 ) { gold-one } 377 #( 0 0.9 0.05 1 0.1 0.4 1 0 ) { gold-two } 378 #( 0 0.5 0.1 0 0.2 1 0.3 0 0.4 1 379 0.5 0 0.6 1 0.7 0 0.8 1 0.9 0 1 0.5 ) { gold-trill } 380 381 0.60 beg f+ 0.50 4300 1000 0.15 gold-one main-amp bird 382 1.30 beg f+ 0.45 3300 200 0.15 gold-one main-amp bird 383 1.75 beg f+ 0.40 3800 100 0.15 gold-two main-amp bird 384 2.20 beg f+ 0.30 3800 100 0.10 gold-trill main-amp bird 385 2.2 0.3 f+ step 386;event 387 388event: indigo-bunting ( beg -- ) 389 0.4 f- { beg } 390 #( 0 0 0.5 1 1 0 ) { bunt-v } 391 #( 0 1 0.5 0 1 0.9 ) { bunt-y } 392 #( 0 0.8 0.3 1 0.7 0.2 1 0 ) { bunt-n } 393 #( 0 1 0.1 0.5 0.25 0.9 1 0 ) { bunt-x } 394 395 0.40 beg f+ 0.08 3000 700 0.25 bird-down main-amp bird 396 0.52 beg f+ 0.02 6200 1000 0.05 bird-down main-amp bird 397 0.55 beg f+ 0.15 3500 2300 0.10 bunt-v main-amp bird 398 0.74 beg f+ 0.02 6200 1800 0.05 bunt-x main-amp bird 399 0.80 beg f+ 0.15 3400 2300 0.10 bunt-v main-amp bird 400 1.00 beg f+ 0.10 3400 800 0.20 bunt-v main-amp bird 401 1.13 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird 402 1.25 beg f+ 0.08 3400 800 0.20 bunt-v main-amp bird 403 1.40 beg f+ 0.03 4100 2000 0.05 bird-down main-amp bird 404 1.50 beg f+ 0.07 3700 300 0.10 bird-down main-amp bird 405 1.60 beg f+ 0.10 4100 2200 0.15 bunt-y main-amp bird 406 1.72 beg f+ 0.05 3700 300 0.10 bird-down main-amp bird 407 1.81 beg f+ 0.10 4100 2200 0.15 bunt-y main-amp bird 408 1.94 beg f+ 0.07 5200 1800 0.20 bunt-n main-amp bird 409 2.05 beg f+ 0.08 3000 1500 0.15 bird-up main-amp bird 410 2.20 beg f+ 0.07 5200 1800 0.20 bunt-n main-amp bird 411 2.33 beg f+ 0.08 3000 1500 0.15 bird-up main-amp bird 412 2.43 beg f+ 0.07 5200 1800 0.10 bunt-n main-amp bird 413 2.51 beg f+ 0.08 3000 1500 0.10 bird-up main-amp bird 414 2.51 0.08 f+ step 415;event 416 417event: hooded-warbler ( beg -- ) 418 0.6 f- { beg } 419 0.60 beg f+ 0.03 3900 1600 0.05 bird-down main-amp bird 420 0.64 beg f+ 0.03 3900 1700 0.05 bird-down main-amp bird 421 0.80 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird 422 0.84 beg f+ 0.03 3900 2000 0.10 bird-down main-amp bird 423 0.93 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird 424 0.97 beg f+ 0.03 3900 2100 0.15 bird-down main-amp bird 425 1.05 beg f+ 0.03 3900 2100 0.05 bird-down main-amp bird 426 1.09 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 427 1.17 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 428 1.21 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 429 1.39 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 430 1.43 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 431 1.51 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 432 1.55 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 433 1.63 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 434 1.67 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 435 1.75 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 436 1.80 beg f+ 0.03 3900 2100 0.20 bird-down main-amp bird 437 1.90 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 438 1.98 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 439 2.05 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 440 2.13 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 441 2.21 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 442 2.29 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 443 2.37 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 444 2.45 beg f+ 0.04 3000 1000 0.15 bird-up main-amp bird 445 2.45 0.04 f+ step 446;event 447 448event: american-widgeon ( beg -- ) 449 0.3 f- { beg } 450 #( 0 0 0.5 1 1 0 ) { widgeon } 451 452 0.30 beg f+ 0.07 1900 300 0.15 widgeon widgeon 453 #( 1 1 2 0.02 ) bigbird 454 0.40 beg f+ 0.11 1700 1400 0.25 widgeon widgeon 455 #( 1 0.7 2 1 3 0.02 ) bigbird 456 0.55 beg f+ 0.07 1900 300 0.15 widgeon widgeon 457 #( 1 1 2 0.02 ) bigbird 458 0.55 0.07 f+ step 459;event 460 461event: louisiana-waterthrush ( beg -- ) 462 { beg } 463 #( 0 0.8 0.35 0.4 0.45 0.9 0.5 1 0.75 1 1 1 ) { water-one } 464 #( 0 1 0.4 0 0.6 0.1 1 0.8 ) { water-two } 465 #( 0 1 0.95 0 1 0 ) { water-three } 466 #( 0 0 1 1 ) { water-four } 467 #( 0 1 1 0 ) { water-five } 468 #( 0 0 0.35 1 0.5 0.2 0.9 1 1 0 ) { water-amp } 469 #( 0 0 0.9 1 1 0 ) { water-damp } 470 471 0.00 beg f+ 0.170 4100 2000 0.20 water-one water-amp bird 472 0.32 beg f+ 0.180 4050 2050 0.30 water-one water-amp bird 473 0.64 beg f+ 0.200 4000 1900 0.25 water-one water-amp bird 474 0.90 beg f+ 0.200 3900 2000 0.30 water-two tap-amp bird 475 1.25 beg f+ 0.120 3000 3000 0.25 water-three water-damp bird 476 1.40 beg f+ 0.100 2700 1500 0.20 water-four water-damp bird 477 1.58 beg f+ 0.020 5200 1000 0.10 water-five main-amp bird 478 1.65 beg f+ 0.020 5200 1000 0.10 water-five main-amp bird 479 1.70 beg f+ 0.035 3200 1000 0.10 water-three water-damp bird 480 1.7 0.03 f+ step 481;event 482 483event: robin ( beg -- ) 484 0.45 f- { beg } 485 #( 0.00 0.10 0.08 0.70 0.30 0.00 486 0.35 1.00 0.40 0.30 1.00 0.30 ) { r-one } 487 #( 0.00 0.00 0.10 1.00 0.20 0.70 0.35 0.70 0.65 0.30 0.70 0.50 488 0.80 0.00 0.90 0.20 1.00 0.00 ) { r-two } 489 #( 0.00 0.20 0.25 1.00 0.60 0.70 0.90 0.00 1.00 0.10 ) { r-three } 490 #( 0.00 0.50 0.10 0.00 0.20 1.00 0.30 0.00 0.40 1.00 0.50 0.00 491 0.60 1.00 0.70 0.50 1.00 0.20 ) { r-five } 492 #( 0.00 0.00 0.12 0.70 0.30 0.00 0.70 1.00 1.00 0.50 ) { r-six } 493 494 0.45 beg f+ 0.06 2000 800 0.15 r-six main-amp 495 #( 1 1 2 0.1 ) bigbird 496 0.56 beg f+ 0.10 2000 900 0.15 r-one main-amp 497 #( 1 1 2 0.1 ) bigbird 498 1.04 beg f+ 0.24 2000 2000 0.25 r-two main-amp 499 #( 1 1 2 0.1 ) bigbird 500 1.63 beg f+ 0.13 1900 1600 0.20 r-three main-amp 501 #( 1 1 2 0.1 ) bigbird 502 1.80 beg f+ 0.11 2200 1200 0.25 bird-down main-amp 503 #( 1 1 2 0.1 ) bigbird 504 2.31 beg f+ 0.21 1950 2000 0.15 r-five main-amp 505 #( 1 1 2 0.1 ) bigbird 506 2.31 0.21 f+ step 507;event 508 509event: solitary-vireo ( beg -- ) 510 { beg } 511 #( 0.00 0.20 0.03 0.30 0.06 0.10 0.10 0.50 0.13 0.40 0.16 0.80 512 0.19 0.50 0.22 0.90 0.25 0.60 0.28 1.00 0.31 0.60 0.34 1.00 513 0.37 0.50 0.41 0.90 0.45 0.40 0.49 0.80 0.51 0.40 0.54 0.75 514 0.57 0.35 0.60 0.70 0.63 0.30 0.66 0.60 0.69 0.25 0.72 0.50 515 0.75 0.20 0.78 0.30 0.82 0.10 0.85 0.30 0.88 0.05 0.91 0.30 516 0.94 0.00 0.95 0.30 0.99 0.00 1.00 0.10 ) { bigskew } 517 518 beg 0.4 1800 1200 0.2 bigskew main-amp bird 519 0.4 step 520;event 521 522event: pigeon-hawk ( beg -- ) 523 { beg } 524 #( 0 0 0.3 1 0.7 1 1 0 ) { hupdown } 525 526 0.00 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 527 0.12 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 528 0.13 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 529 0.25 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 530 0.26 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 531 0.38 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 532 0.39 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 533 0.51 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 534 0.52 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 535 0.64 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 536 0.65 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 537 0.77 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 538 0.78 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 539 0.90 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 540 0.91 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 541 1.03 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 542 1.04 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 543 1.16 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 544 1.17 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 545 1.29 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 546 1.30 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 547 1.42 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 548 1.43 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 549 1.55 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 550 1.56 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 551 1.68 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 552 1.69 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 553 1.81 beg f+ 0.01 2050 0 0.1 main-amp main-amp #( 1 0.5 2 1 ) bigbird 554 1.82 beg f+ 0.10 1900 200 0.2 hupdown main-amp #( 1 0.7 2 1 ) bigbird 555 1.82 0.1 f+ step 556;event 557 558event: cerulean-warbler ( beg -- ) 559 0.27 f- { beg } 560 #( 0 0.8 0.1 1 0.25 0.5 0.4 1 0.55 0.5 0.7 1 1 0 ) { trill } 561 562 0.27 beg f+ 0.05 3000 1000 0.050 bird-down main-amp bird 563 0.33 beg f+ 0.05 3000 800 0.075 bird-up main-amp bird 564 0.41 beg f+ 0.01 3200 700 0.070 bird-down main-amp bird 565 0.42 beg f+ 0.01 3200 700 0.080 bird-down main-amp bird 566 0.43 beg f+ 0.06 3200 700 0.090 bird-down main-amp bird 567 0.51 beg f+ 0.06 3200 500 0.100 bird-up main-amp bird 568 0.60 beg f+ 0.10 3000 1200 0.200 trill main-amp bird 569 0.72 beg f+ 0.05 3000 800 0.200 bird-up main-amp bird 570 0.80 beg f+ 0.10 3000 1200 0.200 trill main-amp bird 571 0.92 beg f+ 0.05 3000 800 0.200 bird-up main-amp bird 572 1.00 beg f+ 0.01 3900 600 0.100 bird-up main-amp bird 573 1.01 beg f+ 0.01 3910 800 0.100 bird-up main-amp bird 574 1.02 beg f+ 0.01 3940 500 0.100 bird-up main-amp bird 575 1.03 beg f+ 0.01 4000 500 0.100 bird-up main-amp bird 576 1.04 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 577 1.05 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 578 1.06 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 579 1.07 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 580 1.08 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 581 1.09 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 582 1.10 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 583 1.11 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 584 1.12 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 585 1.13 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 586 1.14 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 587 1.15 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 588 1.16 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 589 1.17 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 590 1.18 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 591 1.19 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 592 1.20 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 593 1.21 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 594 1.22 beg f+ 0.01 3900 1000 0.100 bird-up main-amp bird 595 1.23 beg f+ 0.01 3900 1200 0.100 bird-up main-amp bird 596 1.24 beg f+ 0.01 3900 1200 0.100 bird-up main-amp bird 597 1.25 beg f+ 0.01 3900 1200 0.100 bird-up main-amp bird 598 1.26 beg f+ 0.01 3900 1200 0.100 bird-up main-amp bird 599 1.27 beg f+ 0.01 3900 1400 0.100 bird-up main-amp bird 600 1.28 beg f+ 0.01 3900 1400 0.100 bird-up main-amp bird 601 1.29 beg f+ 0.01 3900 1400 0.100 bird-up main-amp bird 602 1.30 beg f+ 0.01 3900 1400 0.100 bird-up main-amp bird 603 1.3 0.01 f+ step 604;event 605 606event: nashville-warbler ( beg -- ) 607 0.15 f- { beg } 608 #( 0 0.6 0.35 1 1 0 ) { nash-blip } 609 #( 0 0.9 0.05 1 0.1 0.9 0.65 0.5 1 0 ) { nash-down } 610 #( 0 0 0.15 0.2 0.25 0.05 0.9 0.95 1 1 ) { nash-up } 611 #( 0 0 0.8 1 1 0 ) { nash-amp } 612 613 0.15 beg f+ 0.025 3900 300 0.300 nash-blip main-amp bird 614 0.24 beg f+ 0.160 4200 3800 0.150 nash-down nash-amp bird 615 0.42 beg f+ 0.025 3900 300 0.300 nash-blip main-amp bird 616 0.55 beg f+ 0.140 4300 3700 0.150 nash-down nash-amp bird 617 0.75 beg f+ 0.030 3950 350 0.300 nash-blip main-amp bird 618 0.81 beg f+ 0.170 4200 3900 0.175 nash-down main-amp bird 619 1.00 beg f+ 0.020 3800 400 0.250 nash-blip main-amp bird 620 1.11 beg f+ 0.140 4200 3800 0.165 nash-down nash-amp bird 621 1.30 beg f+ 0.030 3750 300 0.200 nash-blip main-amp bird 622 1.40 beg f+ 0.110 4200 3700 0.100 nash-down main-amp bird 623 1.57 beg f+ 0.100 3800 2200 0.100 nash-up main-amp bird 624 1.70 beg f+ 0.100 3800 2150 0.125 nash-up main-amp bird 625 1.85 beg f+ 0.075 3900 1800 0.100 nash-up nash-amp bird 626 1.85 0.075 f+ step 627;event 628 629event: eastern-phoebe ( beg -- ) 630 { beg } 631 #( 0 0 0.3 0.3 0.35 0.5 0.55 0.4 0.7 0.8 632 0.75 0.7 0.8 1 0.95 0.9 1 0 ) { phoebe-one } 633 #( 0 0 0.5 1 1 0 ) { phoebe-two } 634 #( 0 0 0.1 0.4 0.8 1 1 0.1 ) { phoebe-three } 635 #( 0 1 0.5 0.7 1 0 ) { phoebe-four } 636 #( 0 0 0.1 1 1 0 ) { phoebe-amp } 637 638 0.00 beg f+ 0.225 3000 1300 0.3 phoebe-one main-amp bird 639 0.35 beg f+ 0.120 3000 500 0.1 phoebe-two phoebe-amp bird 640 0.40 beg f+ 0.100 3000 1500 0.2 phoebe-three phoebe-amp bird 641 0.55 beg f+ 0.050 3000 1400 0.2 phoebe-four phoebe-amp bird 642 0.55 0.05 f+ step 643;event 644 645event: painted-bunting ( beg -- ) 646 0.05 f- { beg } 647 #( 0 0 0.9 1 1 0 ) { b-two } 648 #( 0 0 0.5 1 1 0 ) { b-four } 649 #( 0 0.7 0.15 0 0.4 1 0.8 1 1 0.5 ) { b-five } 650 #( 0 0 0.1 0.5 0.15 0 0.4 1 0.9 1 1 0 ) { b-six } 651 #( 0 1 0.25 0.4 0.75 0.5 1 0 ) { b-seven } 652 #( 0 0.3 0.4 0.4 0.5 1 0.6 0.2 1 0 ) { b-eight } 653 #( 0 0 0.05 1 0.3 1 0.5 0.3 0.9 1 1 0 ) { b-nine } 654 #( 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 } 655 #( 0 0 0.5 1 1 0.5 ) { b-twelve } 656 #( 0 0 0.05 1 0.3 0.2 0.6 0.2 0.9 1 1 0 ) { b-thirteen } 657 #( 0 0.3 0.3 1 0.6 0.3 1 0 ) { b-fourteen } 658 #( 0 0 0.1 0.5 0.5 0.5 0.9 1 1 0 ) { b-fifteen } 659 660 0.05 beg f+ 0.10 3100 900 0.05 bird-up b-two bird 661 0.21 beg f+ 0.07 4100 700 0.15 bird-down main-amp bird 662 0.36 beg f+ 0.12 3700 1000 0.20 b-four main-amp bird 663 0.52 beg f+ 0.08 2300 1600 0.15 b-five b-six bird 664 0.68 beg f+ 0.10 4000 1000 0.25 bird-up tap-amp bird 665 0.80 beg f+ 0.12 2300 1700 0.20 b-seven main-amp bird 666 0.96 beg f+ 0.15 3800 2200 0.30 b-eight b-nine bird 667 1.18 beg f+ 0.10 2300 1600 0.15 b-ten main-amp bird 668 1.30 beg f+ 0.02 3200 1000 0.10 bird-down main-amp bird 669 1.33 beg f+ 0.02 3200 1000 0.10 bird-down main-amp bird 670 1.36 beg f+ 0.02 3200 1000 0.10 bird-down main-amp bird 671 1.40 beg f+ 0.03 4000 2000 0.12 b-twelve b-thirteen bird 672 1.47 beg f+ 0.10 2300 1700 0.20 b-fourteen b-fifteen bird 673 1.47 0.1 f+ step 674;event 675 676event: western-flycatcher ( beg -- ) 677 { beg } 678 #( 0 0 0.1 1 0.2 0.4 0.95 0.1 1 0 ) { f-one } 679 #( 0 0 0.1 0.2 0.2 0.1 0.3 1 0.9 1 1 0 ) { a-one } 680 #( 0 0.5 0.25 1 0.5 0 0.6 0 0.95 0.3 1 0.6 ) { f-two } 681 #( 0 0 0.1 1 0.2 1 0.5 0.1 0.6 0.1 0.9 1 1 0 ) { a-two } 682 #( 1 1 2 0.02 3 0.1 4 0.01 ) { fc-parts } 683 684 0.0 beg f+ 0.2 2000 2200 0.2 f-one a-one fc-parts bigbird 685 0.3 beg f+ 0.2 2000 1100 0.2 f-two a-two fc-parts bigbird 686 0.3 0.2 f+ step 687;event 688 689event: bachmans-sparrow ( beg -- ) 690 { beg } 691 #( 0 1 0.1 0.5 0.9 0.5 1 0 ) { sopening } 692 #( 0 0.1 0.35 0 1 1 ) { sup } 693 #( 0 1 0.4 0.5 1 0 ) { sdwn } 694 #( 0 1 0.25 0 0.75 0.4 1 0.5 ) { slast } 695 696 0.00 beg f+ 0.510 4900 200 0.3 sopening main-amp bird 697 0.52 beg f+ 0.015 3800 200 0.1 sup main-amp bird 698 0.52 beg f+ 0.015 3750 250 0.1 sup main-amp bird 699 0.54 beg f+ 0.015 3600 300 0.1 sup main-amp bird 700 0.56 beg f+ 0.015 3500 250 0.1 sup main-amp bird 701 0.58 beg f+ 0.015 3400 200 0.1 sup main-amp bird 702 0.60 beg f+ 0.015 3200 200 0.1 sup main-amp bird 703 0.62 beg f+ 0.015 3800 100 0.1 sup main-amp bird 704 0.65 beg f+ 0.070 3000 750 0.2 sup main-amp bird 705 0.73 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 706 0.80 beg f+ 0.070 3000 750 0.2 sup main-amp bird 707 0.88 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 708 0.95 beg f+ 0.070 3000 750 0.2 sup main-amp bird 709 1.03 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 710 1.10 beg f+ 0.070 3000 750 0.2 sup main-amp bird 711 1.18 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 712 1.25 beg f+ 0.070 3000 750 0.2 sup main-amp bird 713 1.33 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 714 1.40 beg f+ 0.070 3000 750 0.2 sup main-amp bird 715 1.48 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 716 1.55 beg f+ 0.070 3000 750 0.2 sup main-amp bird 717 1.63 beg f+ 0.030 5000 1000 0.1 sdwn main-amp bird 718 2.80 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird 719 2.87 beg f+ 0.010 5200 0 0.2 bird-up main-amp bird 720 2.90 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird 721 2.97 beg f+ 0.010 5200 0 0.2 bird-up main-amp bird 722 3.00 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird 723 3.07 beg f+ 0.010 5200 0 0.2 bird-up main-amp bird 724 3.10 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird 725 3.17 beg f+ 0.010 5200 0 0.2 bird-up main-amp bird 726 3.20 beg f+ 0.060 4000 1700 0.1 bird-up main-amp bird 727 3.27 beg f+ 0.010 5200 0 0.2 bird-up main-amp bird 728 3.40 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 729 3.60 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 730 3.80 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 731 4.00 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 732 4.20 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 733 4.40 beg f+ 0.150 3000 1000 0.2 slast main-amp bird 734 4.4 0.15 f+ step 735;event 736 737event: cedar-waxwing ( beg -- ) 738 { beg } 739 #( 0 0 0.25 0.7 0.7 1 0.9 1 1 0.2 ) { cedar } 740 #( 0 0 0.2 1 0.4 1 1 0 ) { cedamp } 741 742 beg 0.5 6000 800 0.2 cedar cedamp bird 743 0.5 step 744;event 745 746event: bairds-sparrow ( beg -- ) 747 { beg } 748 #( 0 0 0.25 1 0.5 0 0.75 1 1 0 ) { bairdend } 749 #( 0.00 0.50 0.05 1.00 0.10 0.00 0.15 1.00 0.20 0.00 0.25 1.00 750 0.30 0.00 0.35 1.00 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00 751 0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00 752 0.90 0.00 0.95 1.00 1.00 0.00 ) { bairdstart } 753 754 0.00 beg f+ 0.09 6500 1500 0.20 bairdstart main-amp bird 755 0.22 beg f+ 0.01 5900 100 0.20 bairdend main-amp bird 756 0.25 beg f+ 0.09 6000 1000 0.20 bairdstart main-amp bird 757 0.45 beg f+ 0.01 4200 100 0.20 bairdend main-amp bird 758 0.50 beg f+ 0.08 4200 600 0.20 bairdstart main-amp bird 759 0.59 beg f+ 0.01 4400 100 0.20 bairdend main-amp bird 760 0.60 beg f+ 0.01 4400 100 0.20 bairdend main-amp bird 761 0.68 beg f+ 0.07 5400 700 0.20 bairdstart main-amp bird 762 0.75 beg f+ 0.01 4200 100 0.20 bairdend main-amp bird 763 0.79 beg f+ 0.01 4400 100 0.20 bairdend main-amp bird 764 0.83 beg f+ 0.01 4200 100 0.19 bairdend main-amp bird 765 0.87 beg f+ 0.01 4400 100 0.19 bairdend main-amp bird 766 0.91 beg f+ 0.01 4200 100 0.18 bairdend main-amp bird 767 0.95 beg f+ 0.01 4400 100 0.18 bairdend main-amp bird 768 0.99 beg f+ 0.01 4200 100 0.17 bairdend main-amp bird 769 1.03 beg f+ 0.01 4400 100 0.17 bairdend main-amp bird 770 1.07 beg f+ 0.01 4200 100 0.16 bairdend main-amp bird 771 1.11 beg f+ 0.01 4400 100 0.16 bairdend main-amp bird 772 1.15 beg f+ 0.01 4200 100 0.15 bairdend main-amp bird 773 1.19 beg f+ 0.01 4400 100 0.15 bairdend main-amp bird 774 1.23 beg f+ 0.01 4200 100 0.14 bairdend main-amp bird 775 1.27 beg f+ 0.01 4400 100 0.14 bairdend main-amp bird 776 1.31 beg f+ 0.01 4200 100 0.13 bairdend main-amp bird 777 1.35 beg f+ 0.01 4400 100 0.13 bairdend main-amp bird 778 1.39 beg f+ 0.01 4200 100 0.12 bairdend main-amp bird 779 1.43 beg f+ 0.01 4400 100 0.12 bairdend main-amp bird 780 1.47 beg f+ 0.01 4200 100 0.11 bairdend main-amp bird 781 1.51 beg f+ 0.01 4400 100 0.11 bairdend main-amp bird 782 1.55 beg f+ 0.01 4200 100 0.10 bairdend main-amp bird 783 1.59 beg f+ 0.01 4400 100 0.10 bairdend main-amp bird 784 1.63 beg f+ 0.01 4200 100 0.09 bairdend main-amp bird 785 1.67 beg f+ 0.01 4400 100 0.09 bairdend main-amp bird 786 1.71 beg f+ 0.01 4200 100 0.08 bairdend main-amp bird 787 1.75 beg f+ 0.01 4400 100 0.08 bairdend main-amp bird 788 1.79 beg f+ 0.01 4200 100 0.07 bairdend main-amp bird 789 1.83 beg f+ 0.01 4400 100 0.07 bairdend main-amp bird 790 1.87 beg f+ 0.01 4200 100 0.06 bairdend main-amp bird 791 1.92 beg f+ 0.01 4400 100 0.06 bairdend main-amp bird 792 1.97 beg f+ 0.01 4200 100 0.05 bairdend main-amp bird 793 1.97 0.01 f+ step 794;event 795 796event: kentucky-warbler ( beg -- ) 797 0.6 f- { beg } 798 #( 0 0.3 0.5 1 1 0 ) { kenstart } 799 #( 0 0.9 0.1 1 1 0 ) { kendwn } 800 #( 0 1 0.25 0 0.5 0 0.75 1 1 0 ) { kentrill } 801 #( 1 1 2 0.1 ) { ken-parts-1 } 802 #( 1 1 2 0.01 ) { ken-parts-01 } 803 #( 1 1 2 0.03 ) { ken-parts-03 } 804 805 0.60 beg f+ 0.02 3800 200 0.05 kenstart main-amp ken-parts-03 bigbird 806 0.65 beg f+ 0.03 4300 200 0.15 bird-up main-amp ken-parts-1 bigbird 807 0.73 beg f+ 0.02 3200 100 0.10 kendwn main-amp ken-parts-1 bigbird 808 0.75 beg f+ 0.05 3000 800 0.15 kenstart main-amp ken-parts-01 bigbird 809 0.82 beg f+ 0.06 3100 1200 0.10 kendwn main-amp ken-parts-01 bigbird 810 0.90 beg f+ 0.06 3200 1200 0.10 kendwn main-amp ken-parts-01 bigbird 811 0.98 beg f+ 0.05 4600 100 0.20 kentrill main-amp ken-parts-1 bigbird 812 1.10 beg f+ 0.05 2900 800 0.15 kenstart main-amp ken-parts-01 bigbird 813 1.17 beg f+ 0.06 3000 1200 0.10 kendwn main-amp ken-parts-01 bigbird 814 1.25 beg f+ 0.06 3100 1200 0.10 kendwn main-amp ken-parts-01 bigbird 815 1.33 beg f+ 0.05 4600 100 0.20 kentrill main-amp ken-parts-1 bigbird 816 1.43 beg f+ 0.05 2800 800 0.15 kenstart main-amp ken-parts-01 bigbird 817 1.50 beg f+ 0.05 2700 1200 0.10 kendwn main-amp ken-parts-01 bigbird 818 1.57 beg f+ 0.06 2800 1200 0.10 kendwn main-amp ken-parts-01 bigbird 819 1.64 beg f+ 0.05 4600 100 0.20 kentrill main-amp ken-parts-1 bigbird 820 1.75 beg f+ 0.05 2700 800 0.15 kenstart main-amp ken-parts-01 bigbird 821 1.81 beg f+ 0.05 2600 1200 0.10 kendwn main-amp ken-parts-01 bigbird 822 1.88 beg f+ 0.06 2600 1200 0.10 kendwn main-amp ken-parts-01 bigbird 823 1.97 beg f+ 0.05 4600 100 0.20 kentrill main-amp ken-parts-1 bigbird 824 2.05 beg f+ 0.05 2700 800 0.15 kenstart main-amp ken-parts-01 bigbird 825 2.12 beg f+ 0.06 2600 1200 0.10 kendwn main-amp ken-parts-01 bigbird 826 2.20 beg f+ 0.05 4600 100 0.20 kentrill main-amp ken-parts-1 bigbird 827 2.30 beg f+ 0.05 2800 800 0.15 kenstart main-amp ken-parts-01 bigbird 828 2.37 beg f+ 0.06 2700 1200 0.10 kendwn main-amp ken-parts-01 bigbird 829 2.45 beg f+ 0.05 4700 100 0.25 kentrill main-amp ken-parts-1 bigbird 830 2.45 0.05 f+ step 831;event 832 833event: rufous-sided-towhee ( beg -- ) 834 0.25 f- { beg } 835 #( 0.00 0.10 0.02 0.05 0.04 0.15 0.06 0.05 0.08 0.20 0.10 0.04 836 0.12 0.25 0.14 0.03 0.16 0.30 0.18 0.02 0.20 0.35 0.22 0.01 837 0.24 0.40 0.26 0.00 0.28 0.45 0.30 0.00 0.32 0.50 0.34 0.00 838 0.36 0.50 0.80 1.00 1.00 0.00 ) { towhee-one } 839 #( 1 0.03 2 1 3 0.03 ) { towhee-parts } 840 841 0.250 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp 842 towhee-parts bigbird 843 0.450 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp 844 towhee-parts bigbird 845 0.600 beg f+ 0.13 1400 1100 0.20 towhee-one main-amp 846 towhee-parts bigbird 847 0.750 beg f+ 0.10 1400 1100 0.20 towhee-one main-amp 848 towhee-parts bigbird 849 0.880 beg f+ 0.01 5100 2000 0.10 bird-up main-amp bird 850 0.895 beg f+ 0.01 5100 1600 0.10 bird-up main-amp bird 851 0.910 beg f+ 0.01 5100 1000 0.10 bird-up main-amp bird 852 0.930 beg f+ 0.01 3000 1200 0.10 bird-down main-amp bird 853 0.945 beg f+ 0.01 5100 2000 0.09 bird-up main-amp bird 854 0.960 beg f+ 0.01 5100 1600 0.09 bird-up main-amp bird 855 0.975 beg f+ 0.01 5100 1000 0.09 bird-up main-amp bird 856 0.995 beg f+ 0.01 3000 1200 0.09 bird-down main-amp bird 857 1.010 beg f+ 0.01 5100 2000 0.10 bird-up main-amp bird 858 1.025 beg f+ 0.01 5100 1600 0.10 bird-up main-amp bird 859 1.040 beg f+ 0.01 5100 1000 0.10 bird-up main-amp bird 860 1.060 beg f+ 0.01 3000 1200 0.10 bird-down main-amp bird 861 1.075 beg f+ 0.01 5100 2000 0.09 bird-up main-amp bird 862 1.090 beg f+ 0.01 5100 1600 0.09 bird-up main-amp bird 863 1.105 beg f+ 0.01 5100 1000 0.09 bird-up main-amp bird 864 1.125 beg f+ 0.01 3000 1200 0.09 bird-down main-amp bird 865 1.140 beg f+ 0.01 5100 2000 0.08 bird-up main-amp bird 866 1.155 beg f+ 0.01 5100 1600 0.08 bird-up main-amp bird 867 1.170 beg f+ 0.01 5100 1000 0.08 bird-up main-amp bird 868 1.190 beg f+ 0.01 3000 1200 0.08 bird-down main-amp bird 869 1.205 beg f+ 0.01 5100 2000 0.08 bird-up main-amp bird 870 1.220 beg f+ 0.01 5100 1600 0.08 bird-up main-amp bird 871 1.235 beg f+ 0.01 5100 1000 0.08 bird-up main-amp bird 872 1.255 beg f+ 0.01 3000 1200 0.08 bird-down main-amp bird 873 1.270 beg f+ 0.01 5100 2000 0.07 bird-up main-amp bird 874 1.285 beg f+ 0.01 5100 1600 0.07 bird-up main-amp bird 875 1.300 beg f+ 0.01 5100 1000 0.07 bird-up main-amp bird 876 1.320 beg f+ 0.01 3000 1200 0.07 bird-down main-amp bird 877 1.335 beg f+ 0.01 5100 2000 0.06 bird-up main-amp bird 878 1.350 beg f+ 0.01 5100 1600 0.06 bird-up main-amp bird 879 1.365 beg f+ 0.01 5100 1000 0.06 bird-up main-amp bird 880 1.385 beg f+ 0.01 3000 1200 0.06 bird-down main-amp bird 881 1.400 beg f+ 0.01 5100 2000 0.05 bird-up main-amp bird 882 1.415 beg f+ 0.01 5100 1600 0.05 bird-up main-amp bird 883 1.430 beg f+ 0.01 5100 1000 0.05 bird-up main-amp bird 884 1.450 beg f+ 0.01 3000 1200 0.05 bird-down main-amp bird 885 1.465 beg f+ 0.01 5100 2000 0.03 bird-up main-amp bird 886 1.480 beg f+ 0.01 5100 1600 0.03 bird-up main-amp bird 887 1.495 beg f+ 0.01 5100 1000 0.03 bird-up main-amp bird 888 1.515 beg f+ 0.01 3000 1200 0.03 bird-down main-amp bird 889 1.515 0.01 f+ step 890;event 891 892event: prothonotary-warbler ( beg -- ) 893 0.76 f- { beg } 894 #( 0 0.1 0.2 0 1 1 ) { pro-one } 895 #( 0 0 0.2 1 0.4 0.5 1 0 ) { pro-amp } 896 897 0.76 beg f+ 0.08 3000 3000 0.05 pro-one pro-amp bird 898 0.85 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird 899 1.02 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp bird 900 1.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird 901 902 1.26 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp bird 903 1.35 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird 904 905 1.54 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp bird 906 1.63 beg f+ 0.05 4000 2500 0.19 bird-up bird-amp bird 907 908 1.80 beg f+ 0.08 3000 3000 0.20 pro-one pro-amp bird 909 1.89 beg f+ 0.05 4000 2500 0.16 bird-up bird-amp bird 910 911 2.03 beg f+ 0.08 3000 3000 0.15 pro-one pro-amp bird 912 2.12 beg f+ 0.05 4000 2500 0.10 bird-up bird-amp bird 913 914 2.30 beg f+ 0.08 3000 3000 0.10 pro-one pro-amp bird 915 2.39 beg f+ 0.05 4000 2500 0.06 bird-up bird-amp bird 916 2.39 0.05 f+ step 917;event 918 919event: audubons-warbler ( beg -- ) 920 0.75 f- { beg } 921 #( 0 0 0.15 1 0.45 0.9 0.5 0 0.55 1 0.9 0.9 1 1 ) { w-end } 922 #( 0 0.1 0.5 1 1 0 ) { w-updown } 923 924 0.75 beg f+ 0.04 2400 200 0.05 bird-down bird-amp bird 925 0.83 beg f+ 0.03 3200 200 0.10 bird-up bird-amp bird 926 0.90 beg f+ 0.04 2500 300 0.15 bird-up bird-amp bird 927 0.97 beg f+ 0.04 2300 600 0.15 bird-down bird-amp bird 928 929 1.02 beg f+ 0.03 3500 400 0.20 bird-up bird-amp bird 930 1.06 beg f+ 0.04 2300 1200 0.10 bird-up bird-amp bird 931 1.13 beg f+ 0.05 2300 1200 0.15 bird-down bird-amp bird 932 1.22 beg f+ 0.02 3200 800 0.25 bird-up bird-amp bird 933 1.25 beg f+ 0.08 2400 600 0.20 w-updown bird-amp bird 934 1.35 beg f+ 0.02 2200 400 0.10 bird-up bird-amp bird 935 1.38 beg f+ 0.07 2400 1400 0.15 bird-down bird-amp bird 936 1.47 beg f+ 0.03 3000 800 0.20 bird-up bird-amp bird 937 1.50 beg f+ 0.03 2500 400 0.10 w-updown bird-amp bird 938 1.55 beg f+ 0.01 2300 100 0.05 bird-up bird-amp bird 939 1.56 beg f+ 0.06 2200 1400 0.15 bird-down bird-amp bird 940 1.65 beg f+ 0.03 3100 800 0.10 bird-up bird-amp bird 941 1.70 beg f+ 0.07 2800 800 0.15 w-updown bird-amp bird 942 1.79 beg f+ 0.06 2400 1000 0.10 bird-down bird-amp bird 943 1.86 beg f+ 0.14 3100 900 0.25 w-end bird-amp bird 944 2.02 beg f+ 0.12 3200 800 0.20 w-end bird-amp bird 945 2.02 0.12 f+ step 946;event 947 948event: lark-bunting ( beg -- ) 949 0.1 f- { beg } 950 #( 0.00 0.00 0.06 0.80 0.12 0.00 0.18 0.85 0.24 0.05 0.36 0.90 951 0.42 0.10 0.48 0.95 0.54 0.20 0.60 1.00 0.66 0.20 0.72 1.00 952 0.78 0.20 0.84 1.00 0.90 0.20 1.00 1.00 ) { b-trill-one } 953 #( 0.00 0.00 0.05 0.80 0.10 0.00 0.15 0.85 0.20 0.00 0.25 0.90 954 0.30 0.00 0.35 0.95 0.40 0.00 0.45 1.00 0.50 0.00 0.55 1.00 955 0.60 0.00 0.65 1.00 0.70 0.00 0.75 1.00 0.80 0.00 0.85 1.00 956 0.90 0.00 0.95 1.00 1.00 0.00 ) { b-trill-two } 957 958 0.10 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 959 0.20 beg f+ 0.12 3700 400 0.20 bird-up bird-amp bird 960 0.40 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 961 0.45 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 962 0.51 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 963 0.04 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 964 0.65 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 965 0.71 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 966 0.80 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 967 0.85 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 968 0.91 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 969 1.00 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 970 1.05 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 971 1.01 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 972 1.20 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 973 1.25 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 974 1.31 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 975 1.40 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 976 1.45 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 977 1.51 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 978 1.60 beg f+ 0.03 4100 500 0.15 bird-down bird-amp bird 979 1.65 beg f+ 0.05 2000 400 0.20 bird-down bird-amp bird 980 1.71 beg f+ 0.03 1800 100 0.10 bird-up bird-amp bird 981 1.770 beg f+ 0.23 6000 600 0.15 b-trill-one bird-amp bird 982 2.005 beg f+ 0.28 6000 600 0.15 b-trill-two bird-amp bird 983 2.005 0.28 f+ step 984;event 985 986event: eastern-bluebird ( beg -- ) 987 0.75 f- { beg } 988 #( 0.00 0.60 0.10 1.00 0.20 0.00 0.25 1.00 0.30 0.00 0.35 1.00 989 0.40 0.00 0.45 1.00 0.50 0.00 0.75 1.00 1.00 0.00 ) { blue-three } 990 #( 0 0 0.5 1 1 0 ) { blue-four } 991 #( 0.00 0.50 0.10 1.00 0.20 0.00 0.35 1.00 0.50 0.00 0.65 1.00 992 0.80 0.00 0.95 1.00 1.00 0.50 ) { blue-five } 993 994 0.75 beg f+ 0.02 2000 1600 0.10 bird-up bird-amp bird 995 0.80 beg f+ 0.02 2000 1600 0.10 bird-up bird-amp bird 996 0.86 beg f+ 0.02 2000 1600 0.10 bird-up bird-amp bird 997 1.00 beg f+ 0.13 2000 1400 0.20 bird-down bird-amp bird 998 1.20 beg f+ 0.24 2000 800 0.20 blue-three bird-amp bird 999 1.68 beg f+ 0.03 2200 400 0.10 bird-up bird-amp bird 1000 1.72 beg f+ 0.10 1950 100 0.15 blue-four bird-amp bird 1001 1.96 beg f+ 0.15 2000 600 0.20 blue-five bird-amp bird 1002 1.96 0.15 f+ step 1003;event 1004 1005event: chuck-wills-widow ( beg -- ) 1006 0.05 f- { beg } 1007 #( 0 0 0.1 0.1 0.25 1 0.5 0.3 0.8 0.7 1 0 ) { wid-one } 1008 #( 0 0.2 0.3 1 0.5 0.3 0.6 0.7 0.9 0.1 1 0 ) { wid-two } 1009 1010 0.05 beg f+ 0.03 1000 800 0.1 bird-down bird-amp bird 1011 0.32 beg f+ 0.20 1000 1000 0.2 wid-one bird-amp bird 1012 0.56 beg f+ 0.29 900 1100 0.2 wid-two bird-amp bird 1013 0.56 0.29 f+ step 1014;event 1015 1016event: blue-gray-gnatcatcher ( beg -- ) 1017 0.5 f- { beg } 1018 #( 0 0 0.15 1 0.75 0.8 0.9 1 1 0.7 ) { gskw1 } 1019 #( 0 0 0.25 1 0.75 0.7 1 0 ) { gskw2 } 1020 #( 1 0.4 2 1 3 0.1 ) { gparts-1 } 1021 #( 1 0.4 2 1 3 0.2 ) { gparts-2 } 1022 #( 1 0.4 2 1 3 0.3 ) { gparts-3 } 1023 1024 0.5 beg f+ 0.20 4000 1000 0.2 gskw1 bird-amp gparts-1 bigbird 1025 0.8 beg f+ 0.13 4000 800 0.2 gskw2 bird-amp gparts-2 bigbird 1026 1.4 beg f+ 0.25 4000 800 0.2 gskw2 bird-amp gparts-3 bigbird 1027 1.8 beg f+ 0.17 4000 900 0.2 gskw1 bird-amp gparts-3 bigbird 1028 2.0 beg f+ 0.17 4000 700 0.2 gskw1 bird-amp gparts-3 bigbird 1029 2.2 beg f+ 0.17 4000 800 0.2 gskw2 bird-amp gparts-3 bigbird 1030 2.2 0.17 f+ step 1031;event 1032 1033event: black-throated-sparrow ( beg -- ) 1034 0.8 f- { beg } 1035 #( 0 0 0.75 1 1 0 ) { black-down-amp } 1036 #( 0 0 0.5 1 1 0.2 ) { black-up-down } 1037 #( 0 0 0.5 1 1 0 ) { black-amp } 1038 #( 0.00 0.00 0.03 0.70 0.06 0.00 0.09 0.75 0.12 0.00 0.15 0.80 1039 0.18 0.05 0.21 0.85 0.24 0.10 0.27 0.90 0.30 0.10 0.33 1.00 1040 0.36 0.10 0.39 1.00 0.42 0.10 0.45 1.00 0.48 0.10 0.51 1.00 1041 0.54 0.10 0.57 1.00 0.60 0.10 0.63 1.00 0.66 0.10 0.69 1.00 1042 0.72 0.10 0.75 1.00 0.78 0.10 0.81 1.00 0.84 0.10 0.87 1.00 1043 0.90 0.00 0.93 0.95 0.96 0.00 1.00 0.90 ) { black-trill } 1044 1045 0.80 beg f+ 0.02 2200 1000 0.10 bird-down bird-amp bird 1046 0.83 beg f+ 0.01 3000 200 0.05 bird-up bird-amp bird 1047 0.96 beg f+ 0.02 5800 500 0.05 bird-up bird-amp bird 1048 1.00 beg f+ 0.02 4000 200 0.05 bird-up bird-amp bird 1049 1.04 beg f+ 0.10 2100 1700 0.15 bird-down black-down-amp bird 1050 1.15 beg f+ 0.05 5700 400 0.25 bird-up bird-amp bird 1051 1.25 beg f+ 0.25 2000 900 0.20 black-trill bird-amp bird 1052 1.52 beg f+ 0.05 5600 400 0.15 black-up-down bird-amp bird 1053 1054 1.60 beg f+ 0.04 3900 1100 0.15 bird-up bird-amp bird 1055 1.66 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1056 1057 1.69 beg f+ 0.01 3600 300 0.10 bird-up black-amp bird 1058 1.71 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird 1059 1.74 beg f+ 0.02 5000 100 0.20 bird-up black-amp bird 1060 1.76 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1061 1062 1.78 beg f+ 0.01 3600 300 0.10 bird-up black-amp bird 1063 1.80 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird 1064 1.83 beg f+ 0.02 5000 100 0.20 bird-up black-amp bird 1065 1.85 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1066 1067 1.87 beg f+ 0.01 3600 300 0.10 bird-up black-amp bird 1068 1.89 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird 1069 1.92 beg f+ 0.02 5000 100 0.20 bird-up black-amp bird 1070 1.94 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1071 1072 1.96 beg f+ 0.01 3600 300 0.10 bird-up black-amp bird 1073 1.98 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird 1074 2.01 beg f+ 0.02 5000 100 0.20 bird-up black-amp bird 1075 2.03 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1076 1077 2.05 beg f+ 0.01 3600 300 0.10 bird-up black-amp bird 1078 2.07 beg f+ 0.03 3900 1000 0.15 bird-up black-amp bird 1079 2.10 beg f+ 0.02 5000 100 0.20 bird-up black-amp bird 1080 2.13 beg f+ 0.01 1900 100 0.10 bird-up black-amp bird 1081 1082 2.16 beg f+ 0.03 3800 300 0.10 bird-up bird-amp bird 1083 2.16 0.03 f+ step 1084;event 1085 1086event: black-chinned-sparrow ( beg -- ) 1087 0.6 f- { beg } 1088 #( 0 0 0.3 0.2 1 1 ) { chin-up } 1089 1090 0.60 beg f+ 0.20 4200 100 0.10 bird-up bird-amp bird 1091 1.00 beg f+ 0.09 3800 2000 0.10 chin-up bird-amp bird 1092 1.25 beg f+ 0.08 3900 1700 0.12 chin-up bird-amp bird 1093 1.40 beg f+ 0.08 3600 2300 0.13 bird-up bird-amp bird 1094 1.50 beg f+ 0.11 3100 2800 0.14 bird-up bird-amp bird 1095 1.65 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird 1096 1.74 beg f+ 0.07 2900 2700 0.15 bird-up bird-amp bird 1097 1.82 beg f+ 0.07 3000 2300 0.13 bird-up bird-amp bird 1098 1.89 beg f+ 0.07 3200 2000 0.10 bird-up bird-amp bird 1099 1.97 beg f+ 0.05 3200 1500 0.10 bird-up bird-amp bird 1100 1101 2.04 beg f+ 0.04 3400 1000 0.07 bird-up bird-amp bird 1102 2.10 beg f+ 0.03 3600 700 0.05 bird-up bird-amp bird 1103 2.15 beg f+ 0.03 3800 300 0.05 bird-up bird-amp bird 1104 2.19 beg f+ 0.02 3900 100 0.03 bird-up bird-amp bird 1105 2.22 beg f+ 0.01 3900 100 0.01 bird-up bird-amp bird 1106 2.24 beg f+ 0.01 3900 100 0.01 bird-up bird-amp bird 1107 2.24 0.01 f+ step 1108;event 1109 1110event: various-gull-cries-from-end-of-colony-5 ( beg -- ) 1111 0.25 f- { beg } 1112 #( 0 0 10 1 20 0.5 40 0.6 60 0.5 100 0 ) { gull-start } 1113 #( 0 0 10 1 30 0.5 80 0.5 100 0 ) { gull-middle } 1114 #( 0 0 5 1 10 0.5 90 0.4 100 0 ) { gull-end } 1115 #( 1 0.1 2 1 3 0.1 4 0.01 5 0.09 6 0.01 7 0.01 ) { gull-parts } 1116 1117 0.25 beg f+ 0.80 1180 1180 0.08 gull-end bird-amp gull-parts bigbird 1118 1.50 beg f+ 0.90 1180 1180 0.07 gull-end bird-amp gull-parts bigbird 1119 2.75 beg f+ 1.00 1050 1050 0.08 gull-end bird-amp gull-parts bigbird 1120 4.80 beg f+ 0.05 1180 1180 0.06 gull-start bird-amp gull-parts bigbird 1121 4.95 beg f+ 0.10 1180 1180 0.08 gull-start bird-amp gull-parts bigbird 1122 5.15 beg f+ 0.10 1180 1180 0.09 gull-start bird-amp gull-parts bigbird 1123 5.35 beg f+ 0.10 1180 1180 0.10 gull-middle bird-amp gull-parts bigbird 1124 5.45 beg f+ 0.40 1050 1050 0.10 gull-end bird-amp gull-parts bigbird 1125 6.25 beg f+ 0.80 1050 1050 0.10 gull-end bird-amp gull-parts bigbird 1126 7.45 beg f+ 1.80 1050 1050 0.10 gull-end bird-amp gull-parts bigbird 1127 7.45 1.80 f+ step 1128;event 1129 1130\ <'> bird-test with-sound 1131: bird-test ( -- ) 1132 0.0 now! 1133 1.0 { dur } 1134 now@ orchard-oriole dur step 1135 now@ cassins-kingbird dur step 1136 now@ chipping-sparrow dur step 1137 now@ bobwhite dur step 1138 now@ western-meadowlark dur step 1139 now@ scissor-tailed-flycatcher dur step 1140 now@ great-horned-owl dur step 1141 now@ black-throated-gray-warbler dur step 1142 now@ yellow-warbler dur step 1143 now@ black-necked-stilt dur step 1144 now@ chestnut-sided-warbler dur step 1145 now@ grasshopper-sparrow dur step 1146 now@ swamp-sparrow dur step 1147 now@ golden-crowned-sparrow dur step 1148 now@ indigo-bunting dur step 1149 now@ hooded-warbler dur step 1150 now@ american-widgeon dur step 1151 now@ louisiana-waterthrush dur step 1152 now@ robin dur step 1153 now@ solitary-vireo dur step 1154 now@ pigeon-hawk dur step 1155 now@ cerulean-warbler dur step 1156 now@ nashville-warbler dur step 1157 now@ eastern-phoebe dur step 1158 now@ painted-bunting dur step 1159 now@ western-flycatcher dur step 1160 now@ bachmans-sparrow dur step 1161 now@ cedar-waxwing dur step 1162 now@ bairds-sparrow dur step 1163 now@ kentucky-warbler dur step 1164 now@ rufous-sided-towhee dur step 1165 now@ prothonotary-warbler dur step 1166 now@ audubons-warbler dur step 1167 now@ lark-bunting dur step 1168 now@ eastern-bluebird dur step 1169 now@ chuck-wills-widow dur step 1170 now@ blue-gray-gnatcatcher dur step 1171 now@ black-throated-sparrow dur step 1172 now@ black-chinned-sparrow dur step 1173 now@ various-gull-cries-from-end-of-colony-5 dur step 1174; 1175 1176: ws-bird-test ( -- ) 1177 <'> bird-test 1178 :play #t 1179 :statistics #t 1180 :verbose #t 1181 :channels 2 1182 :srate 44100 1183 :scaled-to 0.8 1184 :notehook #f with-sound drop 1185; 1186 1187\ bird.fsm ends here 1188