;;; -*- 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")) (defun seg (data) ; SEG functions expected data in (y x) pairs. (let ((unseg nil)) (loop for y in data by #'cddr and x in (cdr data) by #'cddr do (push x unseg) (push y unseg)) (nreverse unseg))) (defvar amp nil) (defvar tap nil) (defvar bird-amp nil) (setf amp (seg '( 0 0 1 25 .7 60 1 75 0 100))) (setf tap (seg '( 0 0 1 1 1 99 0 100))) (setf bird-amp (seg '(0 0 1 25 1 75 0 100))) (defun orchard-oriole (beg) (let ( (oriup (seg '(0 0 1 100))) (oridwn (seg '(1 0 0 100))) (oriupdwna (seg '(0 0 1 60 .6 100))) (oriupdwnb (seg '(.5 0 1 30 0 100))) (oribiga (seg '(.9 0 1 15 .3 40 .6 60 0 85 0 100))) (orimid (seg '(1 0 .5 5 1 10 0 25 .5 85 0 100))) (oridwnup (seg '(.3 0 0 25 1 100))) (oriamp (seg '(0 0 1 10 0 100)))) (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 (seg '(.3 0 1 45 .1 90 0 100))) (kingsecond (seg '(0 0 .5 2 0 4 .55 6 .05 8 .6 10 .05 12 .65 14 .1 16 .7 18 .1 20 .75 22 .15 24 .8 26 .20 28 .85 30 .25 32 .90 34 .30 36 .95 38 .40 40 1 42 .5 44 1 46 .45 48 1 50 .5 52 1 54 .4 56 .95 58 .4 60 .9 62 .4 64 .85 66 .35 68 .8 70 .3 72 .75 74 .25 76 .7 78 .2 80 .65 82 .1 84 .6 86 0 88 .55 90 0 92 .5 94 0 96 .4 100)))) (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 (seg '(.8 0 1 15 .3 75 0 100)))) (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 (seg '(0 0 1 40 1 100))) (bobup2 (seg '(0 0 .5 65 1 100)))) (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 (seg '(0 0 0 100))) (down-skw (seg '(1 0 .4 40 0 100))) (fas-down (seg '(1 0 0 100)))) (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 (seg '(0 0 1 40 1 60 0 100)))) (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 ( ;; got "oo" sound from phoneme tables (owlup (seg '(0 0 1 30 1 100))) (owldown (seg '(1 0 0 100)))) (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 (seg '( .5 0 .6 2 .45 4 .62 6 .40 8 .65 10 .35 12 .70 14 .30 18 .70 20 .30 22 .70 24 .2 25 .8 30 .1 35 .9 40 0 45 1 50 0 55 1 60 0 65 1 70 0 75 1 80 0 85 1 90 0 95 .5 100))) (graytwo (seg '(0 0 .4 1 0 2 .4 3 0 4 .4 5 0 6 .4 7 0 8 .4 9 0 10 .8 25 .3 40 1 55 0 70 .8 85 .4 100))) (graythree (seg '( 1 0 .6 1 1 2 .6 3 1 4 .6 5 1 6 .6 7 1 8 .6 9 1 10 .6 11 1 12 .6 13 1 14 .6 15 1 16 .6 17 1 18 .6 19 1 20 .55 21 1 22 .5 23 1 24 .5 25 1 26 .5 27 1 28 .5 29 1 30 .50 31 1 32 .5 33 1 34 .5 35 1 36 .5 37 1 38 .5 39 1 40 .50 41 1 42 .5 43 1 44 .5 45 1 46 .5 47 1 48 .5 49 1 50 .50 51 1 52 .5 53 1 54 .5 55 1 56 .5 57 1 58 .5 59 1 60 0 100))) (grayfour (seg '(0 0 1 100)))) (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 (seg '(0 0 1 60 .5 100))) (yellow-swirl (seg '(1 0 1 5 0 60 .3 80 .1 100))) (yellow-down (seg '(1 0 0 100))) (yellow-last (seg '(0 0 .2 30 .7 80 1 100))) (swirl-amp (seg '(0 0 1 90 0 100)))) (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 (seg '(0 0 1 90 0 100))) (rampup (seg '(0 0 1 50 .2 100)))) (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 (seg '(1 0 .5 30 1 60 .2 80 0 100))) (vcurve (seg '(.2 0 1 50 0 100))) (wcurve (seg '(.5 0 0 15 .1 45 1 60 .9 70 .9 100))) (upcurve (seg '(0 0 1 95 1 100))) (downcurve (seg '(1 0 .3 25 .15 60 0 100))) (louder (seg '(0 0 1 90 0 100))) (wamp (seg '(0 0 1 10 .1 40 .9 50 .1 60 1 70 0 100)))) (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 (seg '(.5 0 .8 2 .3 4 .8 6 .1 7 .9 8 0 10 .9 11 0 12 .9 13 .1 14 1 15 .1 16 1 17 .1 18 1 19 .1 20 1 21 .1 22 1 23 .1 24 1 25 .1 26 1 27 .1 28 1 29 .1 30 1 31 .1 32 1 33 .1 34 1 35 .1 36 1 37 .1 38 1 39 .1 40 1 41 .1 42 1 43 .1 44 1 45 .1 46 1 47 .1 48 1 49 .1 50 1 51 .1 52 1 53 .1 54 1 55 .1 56 1 57 .1 58 1 59 .1 60 1 61 .1 62 1 63 .1 64 1 65 .1 66 1 67 .1 68 1 69 .1 70 1 71 .1 72 1 73 .1 74 1 75 .1 76 1 77 .1 78 1 79 .1 80 1 81 .1 82 1 83 .1 84 1 85 .1 86 1 87 .1 88 1 89 .1 90 1 91 .1 92 1 93 .1 94 1 95 .1 96 1 97 .1 98 1 100))) (grasstwo (seg '(0 0 1 10 0 20 1 30 0 40 1 50 0 60 1 70 0 80 1 90 0 100)))) (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 (seg '(0 0 .7 60 1 100))) (swamp-down (seg '(1 0 .5 50 .6 60 0 100)))) (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 (seg '(1 0 .2 25 0 100))) (goldtwo (seg '(.9 0 1 5 .4 10 0 100))) (goldtrill (seg '(.5 0 0 10 1 20 0 30 1 40 0 50 1 60 0 70 1 80 0 90 .5 100)))) (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 (seg '(1 0 0 100))) (buntv (seg '(0 0 1 50 0 100))) (bunty (seg '(1 0 0 50 .9 100))) (buntn (seg '(.8 0 1 30 .2 70 0 100))) (buntx (seg '(1 0 .5 10 .9 25 0 100))) (buntup (seg '(0 0 1 100)))) (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 (seg '(0 0 1 100))) (hooddown (seg '(1 0 0 100)))) (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 (seg '(0 0 1 50 0 100)))) (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 (seg '(.8 0 .4 35 .9 45 1 50 1 75 .1 100))) (water-two (seg '(1 0 0 40 .1 60 .8 100))) (water-three (seg '(1 0 0 95 0 100))) (water-four (seg '(0 0 1 100))) (water-five (seg '(1 0 0 100))) (water-amp (seg '(0 0 1 35 .2 50 1 90 0 100))) (water-damp (seg '(0 0 1 90 0 100)))) (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 (seg '(.1 0 .7 8 0 30 1 35 .3 40 .3 100))) (r-two (seg '(0 0 1 10 .7 20 .7 35 .3 65 .5 70 0 80 .2 90 0 100))) (r-three (seg '(.2 0 1 25 .7 60 0 90 .1 100))) (r-four (seg '(1 0 0 100))) (r-five (seg '(.5 0 0 10 1 20 0 30 1 40 0 50 1 60 .5 70 .2 100))) (r-six (seg '(0 0 .7 12 0 30 1 70 .5 100)))) (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 (seg '( .2 0 .3 3 .1 6 .5 10 .4 13 .8 16 .5 19 .9 22 .6 25 1 28 .6 31 1 34 .5 37 .9 41 .4 45 .8 49 .4 51 .75 54 .35 57 .7 60 .30 63 .6 66 .25 69 .5 72 .2 75 .3 78 .1 82 .3 85 .05 88 .3 91 0 94 .3 95 0 99 .1 100)))) (bird (+ beg 0) .4 1800 1200 .2 bigskew amp))) (defun pigeon-hawk (beg) (let ( (hupdown (seg '(0 0 1 30 1 70 0 100)))) (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 (seg '(1 0 0 100))) (trill (seg '(.8 0 1 10 .5 25 1 40 .5 55 1 70 0 100))) (w-up (seg '(0 0 1 100)))) (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 (seg '(.6 0 1 35 0 100))) (nash-down (seg '(.9 0 1 5 .9 10 .5 65 0 100))) (nash-up (seg '(0 0 .2 15 .05 25 .95 90 1 100))) (nash-amp (seg '(0 0 1 80 0 100)))) (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 (seg '(0 0 .3 30 .5 35 .4 55 .8 70 .7 75 1 80 .9 95 0 100))) (phoebe-two (seg '(0 0 1 50 0 100))) (phoebe-three (seg '(0 0 .4 10 1 80 .1 100))) (phoebe-four (seg '( 1 0 .7 50 0 100))) (phoebe-amp (seg '(0 0 1 10 0 100)))) (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 (seg '(0 0 1 100))) (b-two (seg '(0 0 1 90 0 100))) (b-three (seg '(1 0 0 100))) (b-four (seg '(0 0 1 50 0 100))) (b-five (seg '(.7 0 0 15 1 40 1 80 .5 100))) (b-six (seg '(0 0 .5 10 0 15 1 40 1 90 0 100))) (b-seven (seg '(1 0 .4 25 .5 75 0 100))) (b-eight (seg '(.3 0 .4 40 1 50 .2 60 0 100))) (b-nine (seg '(0 0 1 5 1 30 .3 50 1 90 0 100))) (b-ten (seg '(.4 0 0 25 1 35 0 50 1 65 0 75 1 85 0 100))) (b-eleven (seg '(1 0 0 100))) (b-twelve (seg '(0 0 1 50 .5 100))) (b-thirteen (seg '(0 0 1 5 .2 30 .2 60 1 90 0 100))) (b-fourteen (seg '(.3 0 1 30 .3 60 0 100))) (b-fifteen (seg '(0 0 .5 10 .5 50 1 90 0 100)))) (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 (seg '(0 0 1 10 .4 20 .1 95 0 100))) (a-one (seg '(0 0 .2 10 .1 20 1 30 1 90 0 100))) (f-two (seg '(.5 0 1 25 0 50 0 60 .3 95 .6 100))) (a-two (seg '(0 0 1 10 1 20 .1 50 .1 60 1 90 0 100)))) (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 (seg '(1 0 .5 10 .5 90 0 100))) (sup (seg '(.1 0 0 35 1 100))) (sdwn (seg '(1 0 .5 40 0 100))) (supn (seg '(0 0 1 100))) (slast (seg '(1 0 0 25 .4 75 .5 100)))) (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 (seg '(0 0 .7 25 1 70 1 90 .2 100))) (cedamp (seg '(0 0 1 20 1 40 0 100)))) (bird (+ beg 0) .50 6000 800 .2 cedar cedamp))) (defun bairds-sparrow (beg) (let ( (bairdend (seg '(0 0 1 25 0 50 1 75 0 100))) (bairdstart (seg '(.5 0 1 5 0 10 1 15 0 20 1 25 0 30 1 35 0 40 1 45 0 50 1 55 0 60 1 65 0 70 1 75 0 80 1 85 0 90 1 95 0 100)))) (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 (seg '(.3 0 1 50 0 100))) (kendwn (seg '(.9 0 1 10 0 100))) (kenup (seg '(0 0 1 100))) (kentrill (seg '(1 0 0 25 0 50 1 75 0 100)))) (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 (seg '( .1 0 .05 2 .15 4 .05 6 .2 8 .04 10 .25 12 .03 14 .30 16 .02 18 .35 20 .01 22 .40 24 0 26 .45 28 0 30 .5 32 0 34 .5 36 1 80 0 100))) (towhee-two (seg '(0 0 1 100))) (towhee-three (seg '(1 0 0 100)))) (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 ( ;; (named after the yellow robes of the ecclesiastics) (pro-one (seg '(.1 0 0 20 1 100))) (pro-two (seg '(0 0 1 100))) (pro-amp (seg '(0 0 1 20 .5 40 0 100)))) (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 (seg '(0 0 1 100))) (w-down (seg '(1 0 0 100))) (w-end (seg '(0 0 1 15 .9 45 0 50 1 55 .9 90 .1 100))) (w-updown (seg '(.1 0 1 50 0 100)))) (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 (seg '(1 0 0 100))) (b-up (seg '(0 0 1 100))) (b-trill-one (seg '( 0 0 .8 6 0 12 .85 18 .05 24 .9 36 .1 42 .95 48 .2 54 1 60 .2 66 1 72 .2 78 1 84 .2 90 1 100))) (b-trill-two (seg '( 0 0 .8 5 0 10 .85 15 0 20 .9 25 0 30 .95 35 0 40 1 45 0 50 1 55 0 60 1 65 0 70 1 75 0 80 1 85 0 90 1 95 0 100)))) (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 (seg '(0 0 1 100))) (blue-two (seg '(1 0 0 100))) (blue-three (seg '(.6 0 1 10 0 20 1 25 0 30 1 35 0 40 1 45 0 50 1 75 0 100))) (blue-four (seg '(0 0 1 50 0 100))) (blue-five (seg '(.5 0 1 10 0 20 1 35 0 50 1 65 0 80 1 95 .5 100)))) (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 (seg '(1 0 0 100))) (wid-one (seg '(0 0 .1 10 1 25 .3 50 .7 80 0 100))) (wid-two (seg '(.2 0 1 30 .3 50 .7 60 .1 90 0 100)))) (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 (seg '(0 0 1 15 .8 75 1 90 .7 100))) (gskw2 (seg '(0 0 1 25 .7 75 0 100)))) (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 (seg '(0 0 1 100))) (black-down (seg '(1 0 0 100))) (black-down-amp (seg '(0 0 1 75 0 100))) (black-trill (seg '( 0 0 .7 3 0 6 .75 9 0 12 .8 15 .05 18 .85 21 .1 24 .9 27 .1 30 1 33 .1 36 1 39 .1 42 1 45 .1 48 1 51 .1 54 1 57 .1 60 1 63 .1 66 1 69 .1 72 1 75 .1 78 1 81 .1 84 1 87 0 90 .95 93 0 96 .9 100))) (black-up-down (seg '(0 0 1 50 .2 100))) (black-amp (seg '(0 0 1 50 0 100)))) (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 (seg '(0 0 1 100))) (chin-up2 (seg '(0 0 .2 30 1 100)))) (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))))