;;; -*- Lisp -*- ;;; bird songs -- (load "bird.clm") or :ld bird.clm to hear these guys. ;;; translated (semi-automatically) from a Sambox note list ;;; some of these are somewhat shrill on the NeXT -- perhaps lpcoeff should default to .9 (when (not (member 'BIRD *clm-instruments*)) (compile-and-load "bird")) (when (not (member 'BIGBIRD *clm-instruments*)) (compile-and-load "bigbird")) (setf amp '(.00 .00 .25 1.00 .60 .70 .75 1.00 1.00 .0)) (setf tap '(.00 .00 .01 1.00 .99 1.00 1.00 .0)) (setf bird-amp '(.00 .00 .25 1.00 .75 1.00 1.00 .0)) (defun orchard-oriole (beg) (let ((oriup '(.00 .00 1.00 1.0)) (oridwn '(.00 1.00 1.00 .0)) (oriupdwna '(.00 .00 .60 1.00 1.00 .60 )) (oriupdwnb '(.00 .50 .30 1.00 1.00 .0)) (oribiga '(.00 .90 .15 1.00 .40 .30 .60 .60 .85 .00 1.00 .0)) (orimid '(.00 1.00 .05 .50 .10 1.00 .25 .00 .85 .50 1.00 .0)) (oridwnup '(.00 .30 .25 .00 1.00 1.0)) (oriamp '(.00 .00 .10 1.00 1.00 .0))) (bird (+ beg .38) .03 3700 100 .05 oridwn amp) (bird (+ beg .41) .05 2500 1000 .1 oriup amp) (bigbird (+ beg .5) .1 2000 800 .2 oriupdwna amp '(1 1 2 .02 3 .05)) (bird (+ beg .65) .03 3900 1200 .1 oridwn amp) (bigbird (+ beg .7) .21 2000 1200 .15 oribiga amp '(1 1 2 .05)) (bird (+ beg 1.0) .05 4200 1000 .1 oridwn amp) (bigbird (+ beg 1.1) .1 2000 1000 .25 orimid amp '(1 1 2 .05)) (bigbird (+ beg 1.3) .1 2000 1000 .25 orimid amp '(1 1 2 .05)) (bird (+ beg 1.48) .1 2300 3200 .1 oriupdwnb oriamp) (bird (+ beg 1.65) .03 1800 300 .05 oriup amp) (bird (+ beg 1.7) .03 2200 100 .04 oridwn amp) (bird (+ beg 1.8) .07 2500 2000 .15 oriupdwnb oriamp) (bigbird (+ beg 1.92) .2 2400 1200 .25 oridwnup amp '(1 1 2 .04)) (bird (+ beg 2.2) .02 2200 3000 .04 oriup amp) (bird (+ beg 2.28) .02 2200 3000 .04 oriup amp) (bigbird (+ beg 2.4) .17 2000 1000 .2 oriupdwna oriamp '(1 1 2 .04)))) (defun cassins-kingbird (beg) (let ((kingfirst '(.00 .30 .45 1.00 .90 .10 1.00 .0)) (kingsecond '(.00 .00 .02 .50 .04 .00 .06 .55 .08 .05 .10 .60 .12 .05 .14 .65 .16 .10 .18 .70 .20 .10 .22 .75 .24 .15 .26 .80 .28 .20 .30 .85 .32 .25 .34 .90 .36 .30 .38 .95 .40 .40 .42 1.00 .44 .50 .46 1.00 .48 .45 .50 1.00 .52 .50 .54 1.00 .56 .40 .58 .95 .60 .40 .62 .90 .64 .40 .66 .85 .68 .35 .70 .80 .72 .30 .74 .75 .76 .25 .78 .70 .80 .20 .82 .65 .84 .10 .86 .60 .88 .00 .90 .55 .92 .00 .94 .50 .96 .00 1.00 .40 ))) (bigbird (+ beg .03) .04 1700 1200 .15 kingfirst amp '(1 1 2 .5 3 0 4 .2)) (bigbird (+ beg .12) .18 1700 900 .25 kingsecond amp '(1 1 2 .01 3 0 4 .1)))) (defun chipping-sparrow (beg) (let ((chip-up '(.00 .80 .15 1.00 .75 .30 1.00 .0))) (bird (+ beg 0) .05 4000 2400 .2 chip-up amp) (bird (+ beg .06) .05 4000 2400 .2 chip-up amp) (bird (+ beg .12) .05 4000 2400 .2 chip-up amp) (bird (+ beg .18) .05 4000 2400 .2 chip-up amp) (bird (+ beg .24) .05 4000 2400 .2 chip-up amp) (bird (+ beg .30) .05 4000 2400 .2 chip-up amp) (bird (+ beg .36) .05 4000 2400 .2 chip-up amp) (bird (+ beg .42) .05 4000 2400 .2 chip-up amp) (bird (+ beg .48) .05 4000 2400 .2 chip-up amp) (bird (+ beg .54) .05 4000 2400 .2 chip-up amp) (bird (+ beg .60) .05 4000 2400 .2 chip-up amp) (bird (+ beg .66) .05 4000 2400 .2 chip-up amp) (bird (+ beg .72) .05 4000 2400 .2 chip-up amp) (bird (+ beg .78) .05 4000 2400 .2 chip-up amp) (bird (+ beg .84) .05 4000 2400 .2 chip-up amp) (bird (+ beg .90) .05 4000 2400 .2 chip-up amp) (bird (+ beg .96) .05 4000 2400 .2 chip-up amp))) (defun bobwhite (beg) (let ((bobup1 '(.00 .00 .40 1.00 1.00 1.0)) (bobup2 '(.00 .00 .65 .50 1.00 1.0))) (bigbird (+ beg .4) .2 1800 200 .1 bobup1 amp '(1 1 2 .02)) (bigbird (+ beg 1) .20 1800 1200 .2 bobup2 amp '(1 1 2 .02)))) (defun western-meadowlark (beg) (let ((no-skw '(.00 .00 1.00 .0)) (down-skw '(.00 1.00 .40 .40 1.00 .0)) (fas-down '(.00 1.00 1.00 .0))) (bigbird (+ beg .800) .1 2010.000 0.000 .100 no-skw amp '(1 1 2 .04)) (bigbird (+ beg 1.100) .15 3000.000 100.000 .110 down-skw amp '(1 1 2 .04)) (bigbird (+ beg 1.300) .25 2000.000 150.000 .200 down-skw amp '(1 1 2 .04)) (bigbird (+ beg 1.650) .15 3010.000 250.000 .110 down-skw amp '(1 1 2 .04)) (bigbird (+ beg 1.850) .10 2200.000 150.000 .110 down-skw amp '(1 1 2 .04)) (bigbird (+ beg 2.000) .10 3200.000 1400.000 .110 fas-down amp '(1 1 2 .04)) (bigbird (+ beg 2.200) .05 2000.000 200.000 .110 fas-down amp '(1 1 2 .04)) (bigbird (+ beg 2.300) .10 1600.000 0.000 .110 fas-down amp '(1 1 2 .04)))) (defun scissor-tailed-flycatcher (beg) (let ((scissor '(.00 .00 .40 1.00 .60 1.00 1.00 .0))) (bigbird (+ beg 0) .05 1800 1800 .2 scissor amp '(1 .5 2 1 3 .5 4 .1 5 .01)))) (defun great-horned-owl (beg) (let ((owlup '(.00 .00 .30 1.00 1.00 1.0)) (owldown '(.00 1.00 1.00 .0))) (bigbird (+ beg .3) .1 300 0 .1 amp amp '(1 1 3 .02 7 .01)) (bigbird (+ beg .6) .4 293 6 .1 owldown amp '(1 1 3 .02 7 .01)) (bigbird (+ beg 1.75) .35 293 7 .1 owlup amp '(1 1 3 .02 7 .01)) (bigbird (+ beg 2.5) .2 300 0 .1 owlup amp '(1 1 3 .02 7 .01)))) (defun black-throated-gray-warbler (beg) (let ((grayone '(.00 .50 .02 .60 .04 .45 .06 .62 .08 .40 .10 .65 .12 .35 .14 .70 .18 .30 .20 .70 .22 .30 .24 .70 .25 .20 .30 .80 .35 .10 .40 .90 .45 .00 .50 1.00 .55 .00 .60 1.00 .65 .00 .70 1.00 .75 .00 .80 1.00 .85 .00 .90 1.00 .95 .00 1.00 .50 )) (graytwo '(.00 .00 .01 .40 .02 .00 .03 .40 .04 .00 .05 .40 .06 .00 .07 .40 .08 .00 .09 .40 .10 .00 .25 .80 .40 .30 .55 1.00 .70 .00 .85 .80 1.00 .40 )) (graythree '(.00 1.00 .01 .60 .02 1.00 .03 .60 .04 1.00 .05 .60 .06 1.00 .07 .60 .08 1.00 .09 .60 .10 1.00 .11 .60 .12 1.00 .13 .60 .14 1.00 .15 .60 .16 1.00 .17 .60 .18 1.00 .19 .60 .20 1.00 .21 .55 .22 1.00 .23 .50 .24 1.00 .25 .50 .26 1.00 .27 .50 .28 1.00 .29 .50 .30 1.00 .31 .50 .32 1.00 .33 .50 .34 1.00 .35 .50 .36 1.00 .37 .50 .38 1.00 .39 .50 .40 1.00 .41 .50 .42 1.00 .43 .50 .44 1.00 .45 .50 .46 1.00 .47 .50 .48 1.00 .49 .50 .50 1.00 .51 .50 .52 1.00 .53 .50 .54 1.00 .55 .50 .56 1.00 .57 .50 .58 1.00 .59 .50 .60 1.00 1.00 .0)) (grayfour '(.00 .00 1.00 1.0))) (bird (+ beg 0) .12 3700 600 .05 grayone amp) (bird (+ beg .18) .08 3000 800 .07 graytwo amp) (bird (+ beg .28) .12 3700 600 .12 grayone amp) (bird (+ beg .44) .08 3000 800 .15 graytwo amp) (bird (+ beg .54) .12 3700 600 .20 grayone amp) (bird (+ beg .72) .08 3000 800 .25 graytwo amp) (bird (+ beg .82) .12 3700 600 .25 grayone amp) (bird (+ beg .96) .2 3000 2000 .2 graythree amp) (bird (+ beg 1.2) .02 4500 500 .05 grayfour amp) (bird (+ beg 1.25) .02 4200 800 .05 grayfour amp) (bird (+ beg 1.3) .02 4000 900 .05 grayfour amp))) (defun yellow-warbler (beg) (let ((yellow-up '(.00 .00 .60 1.00 1.00 .50 )) (yellow-swirl '(.00 1.00 .05 1.00 .60 .00 .80 .30 1.00 .10 )) (yellow-down '(.00 1.00 1.00 .0)) (yellow-last '(.00 .00 .30 .20 .80 .70 1.00 1.0)) (swirl-amp '(.00 .00 .90 1.00 1.00 .0))) (bird (+ beg 0) .05 5600 400 .05 yellow-up amp) (bird (+ beg .23) .12 5000 1500 .15 yellow-swirl swirl-amp) (bird (+ beg .45) .13 5000 1700 .17 yellow-swirl swirl-amp) (bird (+ beg .62) .16 5000 2000 .20 yellow-swirl swirl-amp) (bird (+ beg .85) .15 5000 2000 .20 yellow-swirl swirl-amp) (bird (+ beg 1.05) .075 3700 1000 .20 yellow-down amp) (bird (+ beg 1.15) .075 3700 800 .15 yellow-down amp) (bird (+ beg 1.25) .075 3700 800 .15 yellow-down amp) (bird (+ beg 1.4) .2 3700 2000 .2 yellow-last swirl-amp))) (defun black-necked-stilt (beg) (let ( ;; have to guess about upper partials (cut off by spectrograph) ;; "birds" book has piping sound coming back down whereas "songs ;; of western birds" just shows it going up. ;; (upamp '(.00 .00 .90 1.00 1.00 .0)) (rampup '(.00 .00 .50 1.00 1.00 .20 ))) (bigbird (+ beg 0) .1 900 100 .2 rampup upamp '( 1 .5 2 1 3 .75 4 .5 5 .1)) (bigbird (+ beg .30) .1 900 200 .2 rampup upamp '( 1 .5 2 1 3 .75 4 .5 5 .1)) (bigbird (+ beg .60) .1 900 250 .2 rampup upamp '( 1 .5 2 1 3 .75 4 .5 5 .1)))) (defun chestnut-sided-warbler (beg) (let ((ycurve '(.00 1.00 .30 .50 .60 1.00 .80 .20 1.00 .0)) (vcurve '(.00 .20 .50 1.00 1.00 .0)) (wcurve '(.00 .50 .15 .00 .45 .10 .60 1.00 .70 .90 1.00 .90 )) (upcurve '(.00 .00 .95 1.00 1.00 1.0)) (downcurve '(.00 1.00 .25 .30 .60 .15 1.00 .0)) (louder '(.00 .00 .90 1.00 1.00 .0)) (wamp '(.00 .00 .10 1.00 .40 .10 .50 .90 .60 .10 .70 1.00 1.00 .0))) (bigbird (+ beg .1) .1 4050 1200 .05 ycurve amp '(1 1 2 .1)) (bigbird (+ beg .25) .03 3900 300 .075 vcurve amp '(1 1 2 .1)) (bigbird (+ beg .3) .1 4050 1200 .15 ycurve louder '(1 1 2 .1)) (bigbird (+ beg .42) .03 3800 500 .1 vcurve amp '(1 1 2 .1)) (bigbird (+ beg .5) .1 4000 1200 .2 ycurve tap '(1 1 2 .1)) (bigbird (+ beg .65) .03 3800 500 .15 vcurve amp '(1 1 2 .1)) (bigbird (+ beg .72) .1 4000 1200 .2 ycurve tap '(1 1 2 .1)) (bigbird (+ beg .85) .03 3800 500 .15 vcurve amp '(1 1 2 .1)) (bigbird (+ beg .91) .1 4000 1200 .2 ycurve tap '(1 1 2 .1)) (bigbird (+ beg 1.05) .12 3800 2200 .15 wcurve wamp '(1 1 2 .1)) (bigbird (+ beg 1.20) .12 3800 2200 .15 wcurve wamp '(1 1 2 .1)) (bigbird (+ beg 1.35) .12 2500 2200 .25 upcurve louder '(1 1 2 .1)) (bigbird (+ beg 1.50) .12 2500 4000 .15 downcurve amp '(1 1 2 .1)))) (defun grasshopper-sparrow (beg) (let ((grassone '(.00 .50 .02 .80 .04 .30 .06 .80 .07 .10 .08 .90 .10 .00 .11 .90 .12 .00 .13 .90 .14 .10 .15 1.00 .16 .10 .17 1.00 .18 .10 .19 1.00 .20 .10 .21 1.00 .22 .10 .23 1.00 .24 .10 .25 1.00 .26 .10 .27 1.00 .28 .10 .29 1.00 .30 .10 .31 1.00 .32 .10 .33 1.00 .34 .10 .35 1.00 .36 .10 .37 1.00 .38 .10 .39 1.00 .40 .10 .41 1.00 .42 .10 .43 1.00 .44 .10 .45 1.00 .46 .10 .47 1.00 .48 .10 .49 1.00 .50 .10 .51 1.00 .52 .10 .53 1.00 .54 .10 .55 1.00 .56 .10 .57 1.00 .58 .10 .59 1.00 .60 .10 .61 1.00 .62 .10 .63 1.00 .64 .10 .65 1.00 .66 .10 .67 1.00 .68 .10 .69 1.00 .70 .10 .71 1.00 .72 .10 .73 1.00 .74 .10 .75 1.00 .76 .10 .77 1.00 .78 .10 .79 1.00 .80 .10 .81 1.00 .82 .10 .83 1.00 .84 .10 .85 1.00 .86 .10 .87 1.00 .88 .10 .89 1.00 .90 .10 .91 1.00 .92 .10 .93 1.00 .94 .10 .95 1.00 .96 .10 .97 1.00 .98 .10 1.00 1.0)) (grasstwo '(.00 .00 .10 1.00 .20 .00 .30 1.00 .40 .00 .50 1.00 .60 .00 .70 1.00 .80 .00 .90 1.00 1.00 .0))) (bird (+ beg .49) .01 8000 100 .1 grasstwo amp) (bird (+ beg .60) .01 5700 300 .1 grasstwo amp) (bird (+ beg .92) .01 3900 100 .1 grasstwo amp) (bird (+ beg 1.00) 1.4 6000 2500 .2 grassone amp))) (defun swamp-sparrow (beg) (let ((swamp-up '(.00 .00 .60 .70 1.00 1.0)) (swamp-down '(.00 1.00 .50 .50 .60 .60 1.00 .0))) (bird (+ beg 0) .02 3900 200 .3 swamp-up amp) (bird (+ beg .035) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .08) .025 3700 0 .1 amp amp) (bird (+ beg .1) .02 3900 200 .3 swamp-up amp) (bird (+ beg .135) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .18) .025 3700 0 .1 amp amp) (bird (+ beg .2) .02 3900 200 .3 swamp-up amp) (bird (+ beg .235) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .28) .025 3700 0 .1 amp amp) (bird (+ beg .3) .02 3900 200 .3 swamp-up amp) (bird (+ beg .335) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .38) .025 3700 0 .1 amp amp) (bird (+ beg .4) .02 3900 200 .3 swamp-up amp) (bird (+ beg .435) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .48) .025 3700 0 .1 amp amp) (bird (+ beg .5) .02 3900 200 .3 swamp-up amp) (bird (+ beg .535) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .58) .025 3700 0 .1 amp amp) (bird (+ beg .6) .02 3900 200 .3 swamp-up amp) (bird (+ beg .635) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .68) .025 3700 0 .1 amp amp) (bird (+ beg .7) .02 3900 200 .3 swamp-up amp) (bird (+ beg .735) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .78) .025 3700 0 .1 amp amp) (bird (+ beg .8) .02 3900 200 .3 swamp-up amp) (bird (+ beg .835) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .88) .025 3700 0 .1 amp amp) (bird (+ beg .9) .02 3900 200 .3 swamp-up amp) (bird (+ beg .935) .035 3200 3000 .1 swamp-down amp) (bird (+ beg .98) .025 3700 0 .1 amp amp))) (defun golden-crowned-sparrow (beg) (let ( ;; these have as different song around here. (goldone '(.00 1.00 .25 .20 1.00 .0)) (goldtwo '(.00 .90 .05 1.00 .10 .40 1.00 .0)) (goldtrill '(.00 .50 .10 .00 .20 1.00 .30 .00 .40 1.00 .50 .00 .60 1.00 .70 .00 .80 1.00 .90 .00 1.00 .50 ))) (bird (+ beg .6) .5 4300 1000 .15 goldone amp) (bird (+ beg 1.3) .45 3300 200 .15 goldone amp) (bird (+ beg 1.75) .4 3800 100 .15 goldtwo amp) (bird (+ beg 2.2) .3 3800 100 .1 goldtrill amp))) (defun indigo-bunting (beg) (let ((buntdwn '(.00 1.00 1.00 .0)) (buntv '(.00 .00 .50 1.00 1.00 .0)) (bunty '(.00 1.00 .50 .00 1.00 .90 )) (buntn '(.00 .80 .30 1.00 .70 .20 1.00 .0)) (buntx '(.00 1.00 .10 .50 .25 .90 1.00 .0)) (buntup '(.00 .00 1.00 1.0))) (bird (+ beg .4) .08 3000 700 .25 buntdwn amp) (bird (+ beg .52) .02 6200 1000 .05 buntdwn amp) (bird (+ beg .55) .15 3500 2300 .1 buntv amp) (bird (+ beg .74) .02 6200 1800 .05 buntx amp) (bird (+ beg .80) .15 3400 2300 .1 buntv amp) (bird (+ beg 1.00) .1 3400 800 .2 buntv amp) (bird (+ beg 1.13) .03 4100 2000 .05 buntdwn amp) (bird (+ beg 1.25) .08 3400 800 .2 buntv amp) (bird (+ beg 1.40) .03 4100 2000 .05 buntdwn amp) (bird (+ beg 1.5) .07 3700 300 .1 buntdwn amp) (bird (+ beg 1.6) .1 4100 2200 .15 bunty amp) (bird (+ beg 1.72) .05 3700 300 .1 buntdwn amp) (bird (+ beg 1.81) .1 4100 2200 .15 bunty amp) (bird (+ beg 1.94) .07 5200 1800 .2 buntn amp) (bird (+ beg 2.05) .08 3000 1500 .15 buntup amp) (bird (+ beg 2.20) .07 5200 1800 .2 buntn amp) (bird (+ beg 2.33) .08 3000 1500 .15 buntup amp) (bird (+ beg 2.43) .07 5200 1800 .1 buntn amp) (bird (+ beg 2.51) .08 3000 1500 .10 buntup amp))) (defun hooded-warbler (beg) (let ((hoodup '(.00 .00 1.00 1.0)) (hooddown '(.00 1.00 1.00 .0))) (bird (+ beg .6) .03 3900 1600 .05 hooddown amp) (bird (+ beg .64) .03 3900 1700 .05 hooddown amp) (bird (+ beg .8) .03 3900 2000 .10 hooddown amp) (bird (+ beg .84) .03 3900 2000 .10 hooddown amp) (bird (+ beg .93) .03 3900 2100 .15 hooddown amp) (bird (+ beg .97) .03 3900 2100 .15 hooddown amp) (bird (+ beg 1.05) .03 3900 2100 .05 hooddown amp) (bird (+ beg 1.09) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.17) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.21) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.39) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.43) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.51) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.55) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.63) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.67) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.75) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.80) .03 3900 2100 .2 hooddown amp) (bird (+ beg 1.90) .04 3000 1000 .15 hoodup amp) (bird (+ beg 1.98) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.05) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.13) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.21) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.29) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.37) .04 3000 1000 .15 hoodup amp) (bird (+ beg 2.45) .04 3000 1000 .15 hoodup amp))) (defun american-widgeon (beg) (let ((widgeon '(.00 .00 .50 1.00 1.00 .0))) (bigbird (+ beg .3) .07 1900 300 .15 widgeon widgeon '(1 1 2 .02)) (bigbird (+ beg .4) .11 1700 1400 .25 widgeon widgeon '(1 .7 2 1 3 .02)) (bigbird (+ beg .55) .07 1900 300 .15 widgeon widgeon '(1 1 2 .02)))) (defun louisiana-waterthrush (beg) (let ((water-one '(.00 .80 .35 .40 .45 .90 .50 1.00 .75 1.00 1.00 .10 )) (water-two '(.00 1.00 .40 .00 .60 .10 1.00 .80 )) (water-three '(.00 1.00 .95 .00 1.00 .0)) (water-four '(.00 .00 1.00 1.0)) (water-five '(.00 1.00 1.00 .0)) (water-amp '(.00 .00 .35 1.00 .50 .20 .90 1.00 1.00 .0)) (water-damp '(.00 .00 .90 1.00 1.00 .0))) (bird (+ beg 0) .17 4100 2000 .2 water-one water-amp) (bird (+ beg .32) .18 4050 2050 .3 water-one water-amp) (bird (+ beg .64) .20 4000 1900 .25 water-one water-amp) (bird (+ beg .9) .2 3900 2000 .3 water-two tap) (bird (+ beg 1.25) .12 3000 3000 .25 water-three water-damp) (bird (+ beg 1.4) .1 2700 1500 .2 water-four water-damp) (bird (+ beg 1.58) .02 5200 1000 .1 water-five amp) (bird (+ beg 1.65) .02 5200 1000 .1 water-five amp) (bird (+ beg 1.7) .035 3200 1000 .1 water-four water-damp))) (defun robin (beg) (let ((r-one '(.00 .10 .08 .70 .30 .00 .35 1.00 .40 .30 1.00 .30 )) (r-two '(.00 .00 .10 1.00 .20 .70 .35 .70 .65 .30 .70 .50 .80 .00 .90 .20 1.00 .0)) (r-three '(.00 .20 .25 1.00 .60 .70 .90 .00 1.00 .10 )) (r-four '(.00 1.00 1.00 .0)) (r-five '(.00 .50 .10 .00 .20 1.00 .30 .00 .40 1.00 .50 .00 .60 1.00 .70 .50 1.00 .20 )) (r-six '(.00 .00 .12 .70 .30 .00 .70 1.00 1.00 .50 ))) (bigbird (+ beg .45) .06 2000 800 .15 r-six amp '(1 1 2 .1)) (bigbird (+ beg .56) .10 2000 900 .15 r-one amp '(1 1 2 .1)) (bigbird (+ beg 1.04) .24 2000 2000 .25 r-two amp '(1 1 2 .1)) (bigbird (+ beg 1.63) .13 1900 1600 .20 r-three amp '(1 1 2 .1)) (bigbird (+ beg 1.80) .11 2200 1200 .25 r-four amp '(1 1 2 .1)) (bigbird (+ beg 2.31) .21 1950 2000 .15 r-five amp '(1 1 2 .1)))) (defun solitary-vireo (beg) (let ((bigskew '(.00 .20 .03 .30 .06 .10 .10 .50 .13 .40 .16 .80 .19 .50 .22 .90 .25 .60 .28 1.00 .31 .60 .34 1.00 .37 .50 .41 .90 .45 .40 .49 .80 .51 .40 .54 .75 .57 .35 .60 .70 .63 .30 .66 .60 .69 .25 .72 .50 .75 .20 .78 .30 .82 .10 .85 .30 .88 .05 .91 .30 .94 .00 .95 .30 .99 .00 1.00 .10 ))) (bird (+ beg 0) .4 1800 1200 .2 bigskew amp))) (defun pigeon-hawk (beg) (let ((hupdown '(.00 .00 .30 1.00 .70 1.00 1.00 .0))) (bigbird (+ beg 0) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .12) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .13) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .25) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .26) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .38) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .39) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .51) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .52) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .64) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .65) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .77) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .78) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg .90) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg .91) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.03) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.04) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.16) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.17) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.29) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.30) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.42) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.43) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.55) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.56) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.68) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.69) .1 1900 200 .2 hupdown amp '(1 .7 2 1)) (bigbird (+ beg 1.81) .01 2050 0 .1 amp amp '(1 .5 2 1)) (bigbird (+ beg 1.82) .1 1900 200 .2 hupdown amp '(1 .7 2 1)))) (defun cerulean-warbler (beg) (let ((w-down '(.00 1.00 1.00 .0)) (trill '(.00 .80 .10 1.00 .25 .50 .40 1.00 .55 .50 .70 1.00 1.00 .0)) (w-up '(.00 .00 1.00 1.0))) (bird (+ beg .27) .05 3000 1000 .05 w-down amp) (bird (+ beg .33) .05 3000 800 .075 w-up amp) (bird (+ beg .41) .01 3200 700 .07 w-down amp) (bird (+ beg .42) .01 3200 700 .08 w-down amp) (bird (+ beg .43) .06 3200 700 .09 w-down amp) (bird (+ beg .51) .06 3200 500 .1 w-up amp) (bird (+ beg .6) .10 3000 1200 .2 trill amp) (bird (+ beg .72) .05 3000 800 .2 w-up amp) (bird (+ beg .8) .10 3000 1200 .2 trill amp) (bird (+ beg .92) .05 3000 800 .2 w-up amp) (bird (+ beg 1.00) .01 3900 600 .1 w-up amp) (bird (+ beg 1.01) .01 3910 800 .1 w-up amp) (bird (+ beg 1.02) .01 3940 500 .1 w-up amp) (bird (+ beg 1.03) .01 4000 500 .1 w-up amp) (bird (+ beg 1.04) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.05) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.06) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.07) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.08) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.09) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.10) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.11) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.12) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.13) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.14) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.15) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.16) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.17) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.18) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.19) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.20) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.21) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.22) .01 3900 1000 .1 w-up amp) (bird (+ beg 1.23) .01 3900 1200 .1 w-up amp) (bird (+ beg 1.24) .01 3900 1200 .1 w-up amp) (bird (+ beg 1.25) .01 3900 1200 .1 w-up amp) (bird (+ beg 1.26) .01 3900 1200 .1 w-up amp) (bird (+ beg 1.27) .01 3900 1400 .1 w-up amp) (bird (+ beg 1.28) .01 3900 1400 .1 w-up amp) (bird (+ beg 1.29) .01 3900 1400 .1 w-up amp) (bird (+ beg 1.30) .01 3900 1400 .1 w-up amp))) (defun nashville-warbler (beg) (let ((nash-blip '(.00 .60 .35 1.00 1.00 .0)) (nash-down '(.00 .90 .05 1.00 .10 .90 .65 .50 1.00 .0)) (nash-up '(.00 .00 .15 .20 .25 .05 .90 .95 1.00 1.0)) (nash-amp '(.00 .00 .80 1.00 1.00 .0))) (bird (+ beg .15) .025 3900 300 .3 nash-blip amp) (bird (+ beg .24) .16 4200 3800 .15 nash-down nash-amp) (bird (+ beg .42) .025 3900 300 .3 nash-blip amp) (bird (+ beg .55) .14 4300 3700 .15 nash-down nash-amp) (bird (+ beg .75) .03 3950 350 .3 nash-blip amp) (bird (+ beg .81) .17 4200 3900 .175 nash-down amp) (bird (+ beg 1.0) .02 3800 400 .25 nash-blip amp) (bird (+ beg 1.11) .14 4200 3800 .165 nash-down nash-amp) (bird (+ beg 1.3) .03 3750 300 .2 nash-blip amp) (bird (+ beg 1.4) .11 4200 3700 .1 nash-down amp) (bird (+ beg 1.57) .1 3800 2200 .1 nash-up amp) (bird (+ beg 1.7) .1 3800 2150 .125 nash-up amp) (bird (+ beg 1.85) .075 3900 1800 .1 nash-up nash-amp))) (defun eastern-phoebe (beg) (let ((phoebe-one '(.00 .00 .30 .30 .35 .50 .55 .40 .70 .80 .75 .70 .80 1.00 .95 .90 1.00 .0)) (phoebe-two '(.00 .00 .50 1.00 1.00 .0)) (phoebe-three '(.00 .00 .10 .40 .80 1.00 1.00 .10 )) (phoebe-four '(.00 1.00 .50 .70 1.00 .0)) (phoebe-amp '(.00 .00 .10 1.00 1.00 .0))) (bird (+ beg 0) .225 3000 1300 .3 phoebe-one amp) (bird (+ beg .35) .12 3000 500 .1 phoebe-two phoebe-amp) (bird (+ beg .4) .10 3000 1500 .2 phoebe-three phoebe-amp) (bird (+ beg .55) .05 3000 1400 .2 phoebe-four phoebe-amp))) (defun painted-bunting (beg) (let ((b-one '(.00 .00 1.00 1.0)) (b-two '(.00 .00 .90 1.00 1.00 .0)) (b-three '(.00 1.00 1.00 .0)) (b-four '(.00 .00 .50 1.00 1.00 .0)) (b-five '(.00 .70 .15 .00 .40 1.00 .80 1.00 1.00 .50 )) (b-six '(.00 .00 .10 .50 .15 .00 .40 1.00 .90 1.00 1.00 .0)) (b-seven '(.00 1.00 .25 .40 .75 .50 1.00 .0)) (b-eight '(.00 .30 .40 .40 .50 1.00 .60 .20 1.00 .0)) (b-nine '(.00 .00 .05 1.00 .30 1.00 .50 .30 .90 1.00 1.00 .0)) (b-ten '(.00 .40 .25 .00 .35 1.00 .50 .00 .65 1.00 .75 .00 .85 1.00 1.00 .0)) (b-eleven '(.00 1.00 1.00 .0)) (b-twelve '(.00 .00 .50 1.00 1.00 .50 )) (b-thirteen '(.00 .00 .05 1.00 .30 .20 .60 .20 .90 1.00 1.00 .0)) (b-fourteen '(.00 .30 .30 1.00 .60 .30 1.00 .0)) (b-fifteen '(.00 .00 .10 .50 .50 .50 .90 1.00 1.00 .0))) (bird (+ beg .05) .10 3100 900 .05 b-one b-two) (bird (+ beg .21) .07 4100 700 .15 b-three amp) (bird (+ beg .36) .12 3700 1000 .20 b-four amp) (bird (+ beg .52) .08 2300 1600 .15 b-five b-six) (bird (+ beg .68) .1 4000 1000 .25 b-one tap) (bird (+ beg .8) .12 2300 1700 .2 b-seven amp) (bird (+ beg .96) .15 3800 2200 .3 b-eight b-nine) (bird (+ beg 1.18) .1 2300 1600 .15 b-ten amp) (bird (+ beg 1.3) .02 3200 1000 .1 b-eleven amp) (bird (+ beg 1.33) .02 3200 1000 .1 b-eleven amp) (bird (+ beg 1.36) .02 3200 1000 .1 b-eleven amp) (bird (+ beg 1.40) .03 4000 2000 .12 b-twelve b-thirteen) (bird (+ beg 1.47) .1 2300 1700 .2 b-fourteen b-fifteen))) (defun western-flycatcher (beg) (let ((f-one '(.00 .00 .10 1.00 .20 .40 .95 .10 1.00 .0)) (a-one '(.00 .00 .10 .20 .20 .10 .30 1.00 .90 1.00 1.00 .0)) (f-two '(.00 .50 .25 1.00 .50 .00 .60 .00 .95 .30 1.00 .60 )) (a-two '(.00 .00 .10 1.00 .20 1.00 .50 .10 .60 .10 .90 1.00 1.00 .0))) (bigbird (+ beg 0) .2 2000 2200 .2 f-one a-one '(1 1 2 .02 3 .1 4 .01)) (bigbird (+ beg .3) .2 2000 1100 .2 f-two a-two '(1 1 2 .02 3 .1 4 .01)))) (defun bachmans-sparrow (beg) (let ((sopening '(.00 1.00 .10 .50 .90 .50 1.00 .0)) (sup '(.00 .10 .35 .00 1.00 1.0)) (sdwn '(.00 1.00 .40 .50 1.00 .0)) (supn '(.00 .00 1.00 1.0)) (slast '(.00 1.00 .25 .00 .75 .40 1.00 .50 ))) (bird (+ beg 0) .51 4900 200 .3 sopening amp) (bird (+ beg .52) .015 3800 200 .1 sup amp) (bird (+ beg .52) .015 3750 250 .1 sup amp) (bird (+ beg .54) .015 3600 300 .1 sup amp) (bird (+ beg .56) .015 3500 250 .1 sup amp) (bird (+ beg .58) .015 3400 200 .1 sup amp) (bird (+ beg .60) .015 3200 200 .1 sup amp) (bird (+ beg .62) .015 3800 100 .1 sup amp) (bird (+ beg .65) .07 3000 750 .2 sup amp) (bird (+ beg .73) .03 5000 1000 .1 sdwn amp) (bird (+ beg .80) .07 3000 750 .2 sup amp) (bird (+ beg .88) .03 5000 1000 .1 sdwn amp) (bird (+ beg .95) .07 3000 750 .2 sup amp) (bird (+ beg 1.03) .03 5000 1000 .1 sdwn amp) (bird (+ beg 1.10) .07 3000 750 .2 sup amp) (bird (+ beg 1.18) .03 5000 1000 .1 sdwn amp) (bird (+ beg 1.25) .07 3000 750 .2 sup amp) (bird (+ beg 1.33) .03 5000 1000 .1 sdwn amp) (bird (+ beg 1.40) .07 3000 750 .2 sup amp) (bird (+ beg 1.48) .03 5000 1000 .1 sdwn amp) (bird (+ beg 1.55) .07 3000 750 .2 sup amp) (bird (+ beg 1.63) .03 5000 1000 .1 sdwn amp) (bird (+ beg 2.8) .06 4000 1700 .1 supn amp) (bird (+ beg 2.87) .01 5200 0 .2 supn amp) (bird (+ beg 2.9) .06 4000 1700 .1 supn amp) (bird (+ beg 2.97) .01 5200 0 .2 supn amp) (bird (+ beg 3.0) .06 4000 1700 .1 supn amp) (bird (+ beg 3.07) .01 5200 0 .2 supn amp) (bird (+ beg 3.1) .06 4000 1700 .1 supn amp) (bird (+ beg 3.17) .01 5200 0 .2 supn amp) (bird (+ beg 3.2) .06 4000 1700 .1 supn amp) (bird (+ beg 3.27) .01 5200 0 .2 supn amp) (bird (+ beg 3.4) .15 3000 1000 .2 slast amp) (bird (+ beg 3.6) .15 3000 1000 .2 slast amp) (bird (+ beg 3.8) .15 3000 1000 .2 slast amp) (bird (+ beg 4.0) .15 3000 1000 .2 slast amp) (bird (+ beg 4.2) .15 3000 1000 .2 slast amp) (bird (+ beg 4.4) .15 3000 1000 .2 slast amp))) (defun cedar-waxwing (beg) (let ((cedar '(.00 .00 .25 .70 .70 1.00 .90 1.00 1.00 .20 )) (cedamp '(.00 .00 .20 1.00 .40 1.00 1.00 .0))) (bird (+ beg 0) .50 6000 800 .2 cedar cedamp))) (defun bairds-sparrow (beg) (let ((bairdend '(.00 .00 .25 1.00 .50 .00 .75 1.00 1.00 .0)) (bairdstart '(.00 .50 .05 1.00 .10 .00 .15 1.00 .20 .00 .25 1.00 .30 .00 .35 1.00 .40 .00 .45 1.00 .50 .00 .55 1.00 .60 .00 .65 1.00 .70 .00 .75 1.00 .80 .00 .85 1.00 .90 .00 .95 1.00 1.00 .0))) (bird (+ beg 0) .09 6500 1500 .2 bairdstart amp) (bird (+ beg .22) .01 5900 100 .2 bairdend amp) (bird (+ beg .25) .09 6000 1000 .2 bairdstart amp) (bird (+ beg .45) .01 4200 100 .2 bairdend amp) (bird (+ beg .50) .08 4200 600 .2 bairdstart amp) (bird (+ beg .59) .01 4400 100 .2 bairdend amp) (bird (+ beg .60) .01 4400 100 .2 bairdend amp) (bird (+ beg .68) .07 5400 700 .2 bairdstart amp) (bird (+ beg .75) .01 4200 100 .2 bairdend amp) (bird (+ beg .79) .01 4400 100 .2 bairdend amp) (bird (+ beg .83) .01 4200 100 .19 bairdend amp) (bird (+ beg .87) .01 4400 100 .19 bairdend amp) (bird (+ beg .91) .01 4200 100 .18 bairdend amp) (bird (+ beg .95) .01 4400 100 .18 bairdend amp) (bird (+ beg .99) .01 4200 100 .17 bairdend amp) (bird (+ beg 1.03) .01 4400 100 .17 bairdend amp) (bird (+ beg 1.07) .01 4200 100 .16 bairdend amp) (bird (+ beg 1.11) .01 4400 100 .16 bairdend amp) (bird (+ beg 1.15) .01 4200 100 .15 bairdend amp) (bird (+ beg 1.19) .01 4400 100 .15 bairdend amp) (bird (+ beg 1.23) .01 4200 100 .14 bairdend amp) (bird (+ beg 1.27) .01 4400 100 .14 bairdend amp) (bird (+ beg 1.31) .01 4200 100 .13 bairdend amp) (bird (+ beg 1.35) .01 4400 100 .13 bairdend amp) (bird (+ beg 1.39) .01 4200 100 .12 bairdend amp) (bird (+ beg 1.43) .01 4400 100 .12 bairdend amp) (bird (+ beg 1.47) .01 4200 100 .11 bairdend amp) (bird (+ beg 1.51) .01 4400 100 .11 bairdend amp) (bird (+ beg 1.55) .01 4200 100 .10 bairdend amp) (bird (+ beg 1.59) .01 4400 100 .10 bairdend amp) (bird (+ beg 1.63) .01 4200 100 .09 bairdend amp) (bird (+ beg 1.67) .01 4400 100 .09 bairdend amp) (bird (+ beg 1.71) .01 4200 100 .08 bairdend amp) (bird (+ beg 1.75) .01 4400 100 .08 bairdend amp) (bird (+ beg 1.79) .01 4200 100 .07 bairdend amp) (bird (+ beg 1.83) .01 4400 100 .07 bairdend amp) (bird (+ beg 1.87) .01 4200 100 .06 bairdend amp) (bird (+ beg 1.92) .01 4400 100 .06 bairdend amp) (bird (+ beg 1.97) .01 4200 100 .05 bairdend amp))) (defun kentucky-warbler (beg) (let ((kenstart '(.00 .30 .50 1.00 1.00 .0)) (kendwn '(.00 .90 .10 1.00 1.00 .0)) (kenup '(.00 .00 1.00 1.0)) (kentrill '(.00 1.00 .25 .00 .50 .00 .75 1.00 1.00 .0))) (bigbird (+ beg .6) .02 3800 200 .05 kenstart amp '(1 1 2 .03)) (bigbird (+ beg .65) .03 4300 200 .15 kenup amp '(1 1 2 .1)) (bigbird (+ beg .73) .02 3200 100 .1 kendwn amp '(1 1 2 .1)) (bigbird (+ beg .75) .05 3000 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg .82) .06 3100 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg .90) .06 3200 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg .98) .05 4600 100 .2 kentrill amp '(1 1 2 .1)) (bigbird (+ beg 1.10) .05 2900 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg 1.17) .06 3000 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.25) .06 3100 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.33) .05 4600 100 .2 kentrill amp '(1 1 2 .1)) (bigbird (+ beg 1.43) .05 2800 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg 1.50) .05 2700 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.57) .06 2800 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.64) .05 4600 100 .2 kentrill amp '(1 1 2 .1)) (bigbird (+ beg 1.75) .05 2700 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg 1.81) .05 2600 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.88) .06 2600 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 1.97) .05 4600 100 .2 kentrill amp '(1 1 2 .1)) (bigbird (+ beg 2.05) .05 2700 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg 2.12) .06 2600 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 2.20) .05 4600 100 .2 kentrill amp '(1 1 2 .1)) (bigbird (+ beg 2.30) .05 2800 800 .15 kenstart amp '(1 1 2 .01)) (bigbird (+ beg 2.37) .06 2700 1200 .1 kendwn amp '(1 1 2 .01)) (bigbird (+ beg 2.45) .05 4700 100 .25 kentrill amp '(1 1 2 .1)))) (defun rufous-sided-towhee (beg) (let ((towhee-one '(.00 .10 .02 .05 .04 .15 .06 .05 .08 .20 .10 .04 .12 .25 .14 .03 .16 .30 .18 .02 .20 .35 .22 .01 .24 .40 .26 .00 .28 .45 .30 .00 .32 .50 .34 .00 .36 .50 .80 1.00 1.00 .0)) (towhee-two '(.00 .00 1.00 1.0)) (towhee-three '(.00 1.00 1.00 .0))) (bigbird (+ beg .25) .13 1400 1100 .2 towhee-one amp '(1 .03 2 1 3 .03)) (bigbird (+ beg .45) .13 1400 1100 .2 towhee-one amp '(1 .03 2 1 3 .03)) (bigbird (+ beg .60) .13 1400 1100 .2 towhee-one amp '(1 .03 2 1 3 .03)) (bigbird (+ beg .75) .10 1400 1100 .2 towhee-one amp '(1 .03 2 1 3 .03)) (bird (+ beg .88) .01 5100 2000 .1 towhee-two amp) (bird (+ beg .895) .01 5100 1600 .1 towhee-two amp) (bird (+ beg .91) .01 5100 1000 .1 towhee-two amp) (bird (+ beg .93) .01 3000 1200 .1 towhee-three amp) (bird (+ beg .945) .01 5100 2000 .09 towhee-two amp) (bird (+ beg .96) .01 5100 1600 .09 towhee-two amp) (bird (+ beg .975) .01 5100 1000 .09 towhee-two amp) (bird (+ beg .995) .01 3000 1200 .09 towhee-three amp) (bird (+ beg 1.01) .01 5100 2000 .1 towhee-two amp) (bird (+ beg 1.025) .01 5100 1600 .1 towhee-two amp) (bird (+ beg 1.04) .01 5100 1000 .1 towhee-two amp) (bird (+ beg 1.06) .01 3000 1200 .1 towhee-three amp) (bird (+ beg 1.075) .01 5100 2000 .09 towhee-two amp) (bird (+ beg 1.09) .01 5100 1600 .09 towhee-two amp) (bird (+ beg 1.105) .01 5100 1000 .09 towhee-two amp) (bird (+ beg 1.125) .01 3000 1200 .09 towhee-three amp) (bird (+ beg 1.14) .01 5100 2000 .08 towhee-two amp) (bird (+ beg 1.155) .01 5100 1600 .08 towhee-two amp) (bird (+ beg 1.17) .01 5100 1000 .08 towhee-two amp) (bird (+ beg 1.19) .01 3000 1200 .08 towhee-three amp) (bird (+ beg 1.205) .01 5100 2000 .08 towhee-two amp) (bird (+ beg 1.220) .01 5100 1600 .08 towhee-two amp) (bird (+ beg 1.235) .01 5100 1000 .08 towhee-two amp) (bird (+ beg 1.255) .01 3000 1200 .08 towhee-three amp) (bird (+ beg 1.27) .01 5100 2000 .07 towhee-two amp) (bird (+ beg 1.285) .01 5100 1600 .07 towhee-two amp) (bird (+ beg 1.30) .01 5100 1000 .07 towhee-two amp) (bird (+ beg 1.32) .01 3000 1200 .07 towhee-three amp) (bird (+ beg 1.335) .01 5100 2000 .06 towhee-two amp) (bird (+ beg 1.350) .01 5100 1600 .06 towhee-two amp) (bird (+ beg 1.365) .01 5100 1000 .06 towhee-two amp) (bird (+ beg 1.385) .01 3000 1200 .06 towhee-three amp) (bird (+ beg 1.400) .01 5100 2000 .05 towhee-two amp) (bird (+ beg 1.415) .01 5100 1600 .05 towhee-two amp) (bird (+ beg 1.430) .01 5100 1000 .05 towhee-two amp) (bird (+ beg 1.45) .01 3000 1200 .05 towhee-three amp) (bird (+ beg 1.465) .01 5100 2000 .03 towhee-two amp) (bird (+ beg 1.480) .01 5100 1600 .03 towhee-two amp) (bird (+ beg 1.495) .01 5100 1000 .03 towhee-two amp) (bird (+ beg 1.515) .01 3000 1200 .03 towhee-three amp))) (defun prothonotary-warbler (beg) (let ((pro-one '(.00 .10 .20 .00 1.00 1.0)) (pro-two '(.00 .00 1.00 1.0)) (pro-amp '(.00 .00 .20 1.00 .40 .50 1.00 .0))) (bird (+ beg .76) .08 3000 3000 .05 pro-one pro-amp) (bird (+ beg .85) .05 4000 2500 .06 pro-two bird-amp) (bird (+ beg 1.02) .09 3000 3000 .10 pro-one pro-amp) (bird (+ beg 1.12) .05 4000 2500 .10 pro-two bird-amp) (bird (+ beg 1.26) .08 3000 3000 .15 pro-one pro-amp) (bird (+ beg 1.35) .05 4000 2500 .16 pro-two bird-amp) (bird (+ beg 1.54) .08 3000 3000 .20 pro-one pro-amp) (bird (+ beg 1.63) .05 4000 2500 .19 pro-two bird-amp) (bird (+ beg 1.80) .08 3000 3000 .20 pro-one pro-amp) (bird (+ beg 1.89) .05 4000 2500 .16 pro-two bird-amp) (bird (+ beg 2.03) .08 3000 3000 .15 pro-one pro-amp) (bird (+ beg 2.12) .05 4000 2500 .10 pro-two bird-amp) (bird (+ beg 2.30) .08 3000 3000 .10 pro-one pro-amp) (bird (+ beg 2.39) .05 4000 2500 .06 pro-two bird-amp))) (defun audubons-warbler (beg) (let ( ;; (yellow-rumped say the revisionists)) (w-up '(.00 .00 1.00 1.0)) (w-down '(.00 1.00 1.00 .0)) (w-end '(.00 .00 .15 1.00 .45 .90 .50 .00 .55 1.00 .90 .90 1.00 .10 )) (w-updown '(.00 .10 .50 1.00 1.00 .0))) (bird (+ beg .75) .04 2400 200 .05 w-down bird-amp) (bird (+ beg .83) .03 3200 200 .1 w-up bird-amp) (bird (+ beg .90) .04 2500 300 .15 w-up bird-amp) (bird (+ beg .97) .04 2300 600 .15 w-down bird-amp) (bird (+ beg 1.02) .03 3500 400 .20 w-up bird-amp) (bird (+ beg 1.06) .04 2300 1200 .10 w-up bird-amp) (bird (+ beg 1.13) .05 2300 1200 .15 w-down bird-amp) (bird (+ beg 1.22) .02 3200 800 .25 w-up bird-amp) (bird (+ beg 1.25) .08 2400 600 .20 w-updown bird-amp) (bird (+ beg 1.35) .02 2200 400 .10 w-up bird-amp) (bird (+ beg 1.38) .07 2400 1400 .15 w-down bird-amp) (bird (+ beg 1.47) .03 3000 800 .20 w-up bird-amp) (bird (+ beg 1.50) .03 2500 400 .10 w-updown bird-amp) (bird (+ beg 1.55) .01 2300 100 .05 w-up bird-amp) (bird (+ beg 1.56) .06 2200 1400 .15 w-down bird-amp) (bird (+ beg 1.65) .03 3100 800 .10 w-up bird-amp) (bird (+ beg 1.70) .07 2800 800 .15 w-updown bird-amp) (bird (+ beg 1.79) .06 2400 1000 .10 w-down bird-amp) (bird (+ beg 1.86) .14 3100 900 .25 w-end bird-amp) (bird (+ beg 2.02) .12 3200 800 .20 w-end bird-amp))) (defun lark-bunting (beg) (let ((b-down '(.00 1.00 1.00 .0)) (b-up '(.00 .00 1.00 1.0)) (b-trill-one '(.00 .00 .06 .80 .12 .00 .18 .85 .24 .05 .36 .90 .42 .10 .48 .95 .54 .20 .60 1.00 .66 .20 .72 1.00 .78 .20 .84 1.00 .90 .20 1.00 1.0)) (b-trill-two '(.00 .00 .05 .80 .10 .00 .15 .85 .20 .00 .25 .90 .30 .00 .35 .95 .40 .00 .45 1.00 .50 .00 .55 1.00 .60 .00 .65 1.00 .70 .00 .75 1.00 .80 .00 .85 1.00 .90 .00 .95 1.00 1.00 .0))) (bird (+ beg .1) .03 1800 100 .1 b-up bird-amp) (bird (+ beg .2) .12 3700 400 .2 b-up bird-amp) (bird (+ beg .4) .03 4100 500 .15 b-down bird-amp) (bird (+ beg .45) .05 2000 400 .20 b-down bird-amp) (bird (+ beg .51) .03 1800 100 .1 b-up bird-amp) (bird (+ beg .6) .03 4100 500 .15 b-down bird-amp) (bird (+ beg .65) .05 2000 400 .20 b-down bird-amp) (bird (+ beg .71) .03 1800 100 .1 b-up bird-amp) (bird (+ beg .8) .03 4100 500 .15 b-down bird-amp) (bird (+ beg .85) .05 2000 400 .20 b-down bird-amp) (bird (+ beg .91) .03 1800 100 .1 b-up bird-amp) (bird (+ beg 1.0) .03 4100 500 .15 b-down bird-amp) (bird (+ beg 1.05) .05 2000 400 .20 b-down bird-amp) (bird (+ beg 1.11) .03 1800 100 .1 b-up bird-amp) (bird (+ beg 1.2) .03 4100 500 .15 b-down bird-amp) (bird (+ beg 1.25) .05 2000 400 .20 b-down bird-amp) (bird (+ beg 1.31) .03 1800 100 .1 b-up bird-amp) (bird (+ beg 1.4) .03 4100 500 .15 b-down bird-amp) (bird (+ beg 1.45) .05 2000 400 .20 b-down bird-amp) (bird (+ beg 1.51) .03 1800 100 .1 b-up bird-amp) (bird (+ beg 1.6) .03 4100 500 .15 b-down bird-amp) (bird (+ beg 1.65) .05 2000 400 .20 b-down bird-amp) (bird (+ beg 1.71) .03 1800 100 .1 b-up bird-amp) (bird (+ beg 1.77) .23 6000 600 .15 b-trill-one bird-amp) (bird (+ beg 2.005) .28 6000 600 .15 b-trill-two bird-amp))) (defun eastern-bluebird (beg) (let ((blue-one '(.00 .00 1.00 1.0)) (blue-two '(.00 1.00 1.00 .0)) (blue-three '(.00 .60 .10 1.00 .20 .00 .25 1.00 .30 .00 .35 1.00 .40 .00 .45 1.00 .50 .00 .75 1.00 1.00 .0)) (blue-four '(.00 .00 .50 1.00 1.00 .0)) (blue-five '(.00 .50 .10 1.00 .20 .00 .35 1.00 .50 .00 .65 1.00 .80 .00 .95 1.00 1.00 .50 ))) (bird (+ beg .75) .02 2000 1600 .1 blue-one bird-amp) (bird (+ beg .80) .02 2000 1600 .1 blue-one bird-amp) (bird (+ beg .86) .02 2000 1600 .1 blue-one bird-amp) (bird (+ beg 1.00) .13 2000 1400 .2 blue-two bird-amp) (bird (+ beg 1.20) .24 2000 800 .2 blue-three bird-amp) (bird (+ beg 1.68) .03 2200 400 .1 blue-one bird-amp) (bird (+ beg 1.72) .10 1950 100 .15 blue-four bird-amp) (bird (+ beg 1.96) .15 2000 600 .20 blue-five bird-amp))) (defun chuck-wills-widow (beg) (let ((wid-down '(.00 1.00 1.00 .0)) (wid-one '(.00 .00 .10 .10 .25 1.00 .50 .30 .80 .70 1.00 .0)) (wid-two '(.00 .20 .30 1.00 .50 .30 .60 .70 .90 .10 1.00 .0))) (bird (+ beg .05) .03 1000 800 .1 wid-down bird-amp) (bird (+ beg .32) .20 1000 1000 .2 wid-one bird-amp) (bird (+ beg .56) .29 900 1100 .2 wid-two bird-amp))) (defun blue-gray-gnatcatcher (beg) (let ((gskw1 '(.00 .00 .15 1.00 .75 .80 .90 1.00 1.00 .70 )) (gskw2 '(.00 .00 .25 1.00 .75 .70 1.00 .0))) (bigbird (+ beg .5) .20 4000 1000 .2 gskw1 bird-amp '(1 .4 2 1 3 .1)) (bigbird (+ beg .8) .13 4000 800 .2 gskw2 bird-amp '(1 .4 2 1 3 .2)) (bigbird (+ beg 1.4) .25 4000 800 .2 gskw2 bird-amp '(1 .4 2 1 3 .3)) (bigbird (+ beg 1.80) .17 4000 900 .2 gskw1 bird-amp '(1 .4 2 1 3 .3)) (bigbird (+ beg 2.00) .17 4000 700 .2 gskw1 bird-amp '(1 .4 2 1 3 .3)) (bigbird (+ beg 2.20) .17 4000 800 .2 gskw2 bird-amp '(1 .4 2 1 3 .3)))) (defun black-throated-sparrow (beg) (let ((black-up '(.00 .00 1.00 1.0)) (black-down '(.00 1.00 1.00 .0)) (black-down-amp '(.00 .00 .75 1.00 1.00 .0)) (black-trill '(.00 .00 .03 .70 .06 .00 .09 .75 .12 .00 .15 .80 .18 .05 .21 .85 .24 .10 .27 .90 .30 .10 .33 1.00 .36 .10 .39 1.00 .42 .10 .45 1.00 .48 .10 .51 1.00 .54 .10 .57 1.00 .60 .10 .63 1.00 .66 .10 .69 1.00 .72 .10 .75 1.00 .78 .10 .81 1.00 .84 .10 .87 1.00 .90 .00 .93 .95 .96 .00 1.00 .90 )) (black-up-down '(.00 .00 .50 1.00 1.00 .20 )) (black-amp '(.00 .00 .50 1.00 1.00 .0))) (bird (+ beg .8) .02 2200 1000 .1 black-down bird-amp) (bird (+ beg .83) .01 3000 200 .05 black-up bird-amp) (bird (+ beg .96) .02 5800 500 .05 black-up bird-amp) (bird (+ beg 1.00) .02 4000 200 .05 black-up bird-amp) (bird (+ beg 1.04) .10 2100 1700 .15 black-down black-down-amp) (bird (+ beg 1.15) .05 5700 400 .25 black-up bird-amp) (bird (+ beg 1.25) .25 2000 900 .2 black-trill bird-amp) (bird (+ beg 1.52) .05 5600 400 .15 black-up-down bird-amp) (bird (+ beg 1.6) .04 3900 1100 .15 black-up bird-amp) (bird (+ beg 1.66) .01 1900 100 .10 black-up black-amp) (bird (+ beg 1.69) .01 3600 300 .10 black-up black-amp) (bird (+ beg 1.71) .03 3900 1000 .15 black-up black-amp) (bird (+ beg 1.74) .02 5000 100 .20 black-up black-amp) (bird (+ beg 1.76) .01 1900 100 .10 black-up black-amp) (bird (+ beg 1.78) .01 3600 300 .10 black-up black-amp) (bird (+ beg 1.80) .03 3900 1000 .15 black-up black-amp) (bird (+ beg 1.83) .02 5000 100 .20 black-up black-amp) (bird (+ beg 1.85) .01 1900 100 .10 black-up black-amp) (bird (+ beg 1.87) .01 3600 300 .10 black-up black-amp) (bird (+ beg 1.89) .03 3900 1000 .15 black-up black-amp) (bird (+ beg 1.92) .02 5000 100 .20 black-up black-amp) (bird (+ beg 1.94) .01 1900 100 .10 black-up black-amp) (bird (+ beg 1.96) .01 3600 300 .10 black-up black-amp) (bird (+ beg 1.98) .03 3900 1000 .15 black-up black-amp) (bird (+ beg 2.01) .02 5000 100 .20 black-up black-amp) (bird (+ beg 2.03) .01 1900 100 .10 black-up black-amp) (bird (+ beg 2.05) .01 3600 300 .10 black-up black-amp) (bird (+ beg 2.07) .03 3900 1000 .15 black-up black-amp) (bird (+ beg 2.10) .02 5000 100 .20 black-up black-amp) (bird (+ beg 2.13) .01 1900 100 .10 black-up black-amp) (bird (+ beg 2.16) .03 3800 300 .1 black-up bird-amp))) (defun black-chinned-sparrow (beg) (let ((chin-up '(.00 .00 1.00 1.0)) (chin-up2 '(.00 .00 .30 .20 1.00 1.0))) (bird (+ beg .6) .2 4200 100 .1 chin-up bird-amp) (bird (+ beg 1.0) .09 3800 2000 .1 chin-up2 bird-amp) (bird (+ beg 1.25) .08 3900 1700 .12 chin-up2 bird-amp) (bird (+ beg 1.40) .08 3600 2300 .13 chin-up bird-amp) (bird (+ beg 1.50) .11 3100 2800 .14 chin-up bird-amp) (bird (+ beg 1.65) .07 2900 2700 .15 chin-up bird-amp) (bird (+ beg 1.74) .07 2900 2700 .15 chin-up bird-amp) (bird (+ beg 1.82) .07 3000 2300 .13 chin-up bird-amp) (bird (+ beg 1.89) .07 3200 2000 .10 chin-up bird-amp) (bird (+ beg 1.97) .05 3200 1500 .10 chin-up bird-amp) (bird (+ beg 2.04) .04 3400 1000 .07 chin-up bird-amp) (bird (+ beg 2.10) .03 3600 700 .05 chin-up bird-amp) (bird (+ beg 2.15) .03 3800 300 .05 chin-up bird-amp) (bird (+ beg 2.19) .02 3900 100 .03 chin-up bird-amp) (bird (+ beg 2.22) .01 3900 100 .01 chin-up bird-amp) (bird (+ beg 2.24) .01 3900 100 .01 chin-up bird-amp))) (defun various-gull-cries-from-end-of-colony-5 (beg) (let ((GULLSTART '(0 0 10 1 20 .5000 40 .6000 60 .5000 100 0 )) (GULLMIDDLE '(0 0 10 1 30 .5000 80 .5000 100 0 )) (GULLEND '(0 0 5 1 10 .5000 90 .4000 100 0 ))) (bigbird (+ beg .250) .80 1180 1180 .08 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 1.500) .90 1180 1180 .07 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 2.750) 1.00 1050 1050 .08 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 4.800) .05 1180 1180 .06 gullstart bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 4.950) .10 1180 1180 .08 gullstart bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 5.150) .10 1180 1180 .09 gullstart bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 5.350) .10 1180 1180 .1 gullmiddle bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 5.450) .40 1050 1050 .1 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 6.250) .80 1050 1050 .1 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)) (bigbird (+ beg 7.450) 1.80 1050 1050 .1 gullend bird-amp '(1 .1 2 1 3 .1 4 .01 5 .09 6 .01 7 .01)))) (with-sound (:wait t) (let ((beg -3)) (orchard-oriole (incf beg 3)) (cassins-kingbird (incf beg 3)) (chipping-sparrow (incf beg 3)) (bobwhite (incf beg 3)) (western-meadowlark (incf beg 3)) (scissor-tailed-flycatcher (incf beg 3)) (great-horned-owl (incf beg 3)) (black-throated-gray-warbler (incf beg 3)) (yellow-warbler (incf beg 3)) (black-necked-stilt (incf beg 3)) (chestnut-sided-warbler (incf beg 3)) (grasshopper-sparrow (incf beg 3)) (swamp-sparrow (incf beg 3)) (golden-crowned-sparrow (incf beg 3)) (indigo-bunting (incf beg 3)) (hooded-warbler (incf beg 3)) (american-widgeon (incf beg 3)) (louisiana-waterthrush (incf beg 3)) (robin (incf beg 3)) (solitary-vireo (incf beg 4)) (pigeon-hawk (incf beg 3)) (cerulean-warbler (incf beg 3)) (nashville-warbler (incf beg 3)) (eastern-phoebe (incf beg 3)) (painted-bunting (incf beg 3)) (western-flycatcher (incf beg 3)) (bachmans-sparrow (incf beg 3)) (cedar-waxwing (incf beg 3)) (bairds-sparrow (incf beg 3)) (kentucky-warbler (incf beg 3)) (rufous-sided-towhee (incf beg 3)) (prothonotary-warbler (incf beg 3)) (audubons-warbler (incf beg 3)) (lark-bunting (incf beg 3)) (eastern-bluebird (incf beg 3)) (chuck-wills-widow (incf beg 3)) (blue-gray-gnatcatcher (incf beg 3)) (black-throated-sparrow (incf beg 3)) (black-chinned-sparrow (incf beg 3)) (various-gull-cries-from-end-of-colony-5 (incf beg 3))))