1# bird songs 2# translated (semi-automatically) from a Sambox note list to bird.clm, then bird.scm, then bird.rb 3 4$out_file = false 5$out_data = false 6$with_editable_mixes = false 7 8def normalize_partials(lst1) 9 lst = lst1.flatten # i.e. copy -- there doesn't seem to be a copy method for arrays? 10 sum = 0.0 11 len = (lst.length) / 2 12 0.upto(len - 1) do |i| 13 sum = sum + lst[(i * 2) + 1] 14 end 15 0.upto(len - 1) do |i| 16 lst[(i * 2) + 1] = lst[(i * 2) + 1] / sum 17 end 18 lst 19end 20 21def bigbird(start, dur, frequency, freqskew, amplitude, freq_envelope, amp_envelope, partials) 22 gls_env = make_env(freq_envelope, hz2radians(freqskew), dur) 23 os = make_oscil(frequency) 24 coeffs = partials2polynomial(normalize_partials(partials)) 25 amp_env = make_env(amp_envelope, amplitude, dur) 26 beg = (srate() * start).round 27 len = (srate() * dur).round 28 local_data = make_vct len 29 local_data.map! do 30 env(amp_env) * 31 polynomial(coeffs, 32 oscil(os, env(gls_env))) 33 end 34 vct_add!($out_data, local_data, beg) 35end 36 37def bird(start, dur, frequency, freqskew, amplitude, freq_envelope, amp_envelope) 38 gls_env = make_env(freq_envelope, hz2radians(freqskew), dur) 39 os = make_oscil(frequency) 40 amp_env = make_env(amp_envelope, amplitude, dur) 41 beg = (srate() * start).round 42 len = (srate() * dur).round 43 local_data = make_vct len 44 local_data.map! do 45 env(amp_env) * oscil(os, env(gls_env)) 46 end 47 vct_add!($out_data, local_data, beg) 48end 49 50def one_bird(beg, maxdur, birdname, &func) 51 $out_data = make_vct((srate() * maxdur).round) 52 func.call() 53 mix_vct($out_data, (beg*srate()).round, $out_file, 0, $with_editable_mixes) 54 birdname 55end 56 57$main_amp = [0.00, 0.00, 0.25, 1.00, 0.60, 0.70, 0.75, 1.00, 1.00, 0.0] 58$bird_tap = [0.00, 0.00, 0.01, 1.00, 0.99, 1.00, 1.00, 0.0] 59$bird_amp = [0.00, 0.00, 0.25, 1.00, 0.75, 1.00, 1.00, 0.0] 60 61def orchard_oriole(beg) 62 oriup = [0.00, 0.00, 1.00, 1.0] 63 oridwn = [0.00, 1.00, 1.00, 0.0] 64 oriupdwna = [0.00, 0.00, 0.60, 1.00, 1.00, 0.60] 65 oriupdwnb = [0.00, 0.50, 0.30, 1.00, 1.00, 0.0] 66 oribiga = [0.00, 0.90, 0.15, 1.00, 0.40, 0.30, 0.60, 0.60, 0.85, 0.00, 1.00, 0.0] 67 orimid = [0.00, 1.00, 0.05, 0.50, 0.10, 1.00, 0.25, 0.00, 0.85, 0.50, 1.00, 0.0] 68 oridwnup = [0.00, 0.30, 0.25, 0.00, 1.00, 1.0] 69 oriamp = [0.00, 0.00, 0.10, 1.00, 1.00, 0.0] 70 71 one_bird(beg, 3.0, "orchard_oriole") do 72 bird(0.38, 0.03, 3700, 100, 0.05, oridwn, $main_amp) 73 bird(0.41, 0.05, 2500, 1000, 0.1, oriup, $main_amp) 74 bigbird(0.5, 0.1, 2000, 800, 0.2, oriupdwna, $main_amp, [1, 1, 2, 0.02, 3, 0.05]) 75 bird(0.65, 0.03, 3900, 1200, 0.1, oridwn, $main_amp) 76 bigbird(0.7, 0.21, 2000, 1200, 0.15, oribiga, $main_amp, [1, 1, 2, 0.05]) 77 bird(1.0, 0.05, 4200, 1000, 0.1, oridwn, $main_amp) 78 bigbird(1.1, 0.1, 2000, 1000, 0.25, orimid, $main_amp, [1, 1, 2, 0.05]) 79 bigbird(1.3, 0.1, 2000, 1000, 0.25, orimid, $main_amp, [1, 1, 2, 0.05]) 80 bird(1.48, 0.1, 2300, 3200, 0.1, oriupdwnb, oriamp) 81 bird(1.65, 0.03, 1800, 300, 0.05, oriup, $main_amp) 82 bird(1.7, 0.03, 2200, 100, 0.04, oridwn, $main_amp) 83 bird(1.8, 0.07, 2500, 2000, 0.15, oriupdwnb, oriamp) 84 bigbird(1.92, 0.2, 2400, 1200, 0.25, oridwnup, $main_amp, [1, 1, 2, 0.04]) 85 bird(2.2, 0.02, 2200, 3000, 0.04, oriup, $main_amp) 86 bird(2.28, 0.02, 2200, 3000, 0.04, oriup, $main_amp) 87 bigbird(2.4, 0.17, 2000, 1000, 0.2, oriupdwna, oriamp, [1, 1, 2, 0.04]) 88 end 89end 90 91 92def cassins_kingbird(beg) 93 kingfirst = [0.00, 0.30, 0.45, 1.00, 0.90, 0.10, 1.00, 0.0] 94 kingsecond = [0.00, 0.00, 0.02, 0.50, 0.04, 0.00, 0.06, 0.55, 0.08, 0.05, 0.10, 0.60, 0.12, 0.05, 0.14, 0.65, 0.16, 0.10, 0.18, 0.70, 0.20, 0.10, 0.22, 0.75, 0.24, 0.15, 0.26, 0.80, 0.28, 0.20, 0.30, 0.85, 0.32, 0.25, 0.34, 0.90, 0.36, 0.30, 0.38, 0.95, 0.40, 0.40, 0.42, 1.00, 0.44, 0.50, 0.46, 1.00, 0.48, 0.45, 0.50, 1.00, 0.52, 0.50, 0.54, 1.00, 0.56, 0.40, 0.58, 0.95, 0.60, 0.40, 0.62, 0.90, 0.64, 0.40, 0.66, 0.85, 0.68, 0.35, 0.70, 0.80, 0.72, 0.30, 0.74, 0.75, 0.76, 0.25, 0.78, 0.70, 0.80, 0.20, 0.82, 0.65, 0.84, 0.10, 0.86, 0.60, 0.88, 0.00, 0.90, 0.55, 0.92, 0.00, 0.94, 0.50, 0.96, 0.00, 1.00, 0.40] 95 96 one_bird(beg, 3.0, "cassins_kingbird") do 97 bigbird(0.03, 0.04, 1700, 1200, 0.15, kingfirst, $main_amp, [1, 1, 2, 0.5, 3, 0, 4, 0.2]) 98 bigbird(0.12, 0.18, 1700, 900, 0.25, kingsecond, $main_amp, [1, 1, 2, 0.01, 3, 0, 4, 0.1]) 99 end 100end 101 102 103def chipping_sparrow(beg) 104 chip_up = [0.00, 0.80, 0.15, 1.00, 0.75, 0.30, 1.00, 0.0] 105 106 one_bird(beg, 1.1, "chipping_sparrow") do 107 bird(0, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 108 bird(0.06, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 109 bird(0.12, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 110 bird(0.18, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 111 bird(0.24, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 112 bird(0.30, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 113 bird(0.36, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 114 bird(0.42, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 115 bird(0.48, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 116 bird(0.54, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 117 bird(0.60, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 118 bird(0.66, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 119 bird(0.72, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 120 bird(0.78, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 121 bird(0.84, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 122 bird(0.90, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 123 bird(0.96, 0.05, 4000, 2400, 0.2, chip_up, $main_amp) 124 end 125end 126 127 128def bobwhite(beg) 129 bobup1 = [0.00, 0.00, 0.40, 1.00, 1.00, 1.0] 130 bobup2 = [0.00, 0.00, 0.65, 0.50, 1.00, 1.0] 131 132 one_bird(beg, 2.0, "bobwhite") do 133 bigbird(0.4, 0.2, 1800, 200, 0.1, bobup1, $main_amp, [1, 1, 2, 0.02]) 134 bigbird(1, 0.20, 1800, 1200, 0.2, bobup2, $main_amp, [1, 1, 2, 0.02]) 135 end 136end 137 138 139def western_meadowlark(beg) 140 no_skw = [0.00, 0.00, 1.00, 0.0] 141 down_skw = [0.00, 1.00, 0.40, 0.40, 1.00, 0.0] 142 fas_down = [0.00, 1.00, 1.00, 0.0] 143 144 one_bird(beg, 3.0, "western_meadowlark") do 145 bigbird(0.800, 0.1, 2010.000, 0.000, 0.100, no_skw, $main_amp, [1, 1, 2, 0.04]) 146 bigbird(1.100, 0.15, 3000.000, 100.000, 0.110, down_skw, $main_amp, [1, 1, 2, 0.04]) 147 bigbird(1.300, 0.25, 2000.000, 150.000, 0.200, down_skw, $main_amp, [1, 1, 2, 0.04]) 148 bigbird(1.650, 0.15, 3010.000, 250.000, 0.110, down_skw, $main_amp, [1, 1, 2, 0.04]) 149 bigbird(1.850, 0.10, 2200.000, 150.000, 0.110, down_skw, $main_amp, [1, 1, 2, 0.04]) 150 bigbird(2.000, 0.10, 3200.000, 1400.000, 0.110, fas_down, $main_amp, [1, 1, 2, 0.04]) 151 bigbird(2.200, 0.05, 2000.000, 200.000, 0.110, fas_down, $main_amp, [1, 1, 2, 0.04]) 152 bigbird(2.300, 0.10, 1600.000, 0.000, 0.110, fas_down, $main_amp, [1, 1, 2, 0.04]) 153 end 154end 155 156 157def scissor_tailed_flycatcher(beg) 158 scissor = [0.00, 0.00, 0.40, 1.00, 0.60, 1.00, 1.00, 0.0] 159 one_bird(beg, 1.0, "scissor_tailed_flycatcher") do 160 bigbird(0, 0.05, 1800, 1800, 0.2, scissor, $main_amp, [1, 0.5, 2, 1, 3, 0.5, 4, 0.1, 5, 0.01]) 161 end 162end 163 164 165def great_horned_owl(beg) 166 owlup = [0.00, 0.00, 0.30, 1.00, 1.00, 1.0] 167 owldown = [0.00, 1.00, 1.00, 0.0] 168 169 one_bird(beg, 3.0, "great_horned_owl") do 170 bigbird(0.3, 0.1, 300, 0, 0.1, $main_amp, $main_amp, [1, 1, 3, 0.02, 7, 0.01]) 171 bigbird(0.6, 0.4, 293, 6, 0.1, owldown, $main_amp, [1, 1, 3, 0.02, 7, 0.01]) 172 bigbird(1.75, 0.35, 293, 7, 0.1, owlup, $main_amp, [1, 1, 3, 0.02, 7, 0.01]) 173 bigbird(2.5, 0.2, 300, 0, 0.1, owlup, $main_amp, [1, 1, 3, 0.02, 7, 0.01]) 174 end 175end 176 177 178def black_throated_gray_warbler(beg) 179 grayone = [0.00, 0.50, 0.02, 0.60, 0.04, 0.45, 0.06, 0.62, 0.08, 0.40, 0.10, 0.65, 0.12, 0.35, 0.14, 0.70, 0.18, 0.30, 0.20, 0.70, 0.22, 0.30, 0.24, 0.70, 0.25, 0.20, 0.30, 0.80, 0.35, 0.10, 0.40, 0.90, 0.45, 0.00, 0.50, 1.00, 0.55, 0.00, 0.60, 1.00, 0.65, 0.00, 0.70, 1.00, 0.75, 0.00, 0.80, 1.00, 0.85, 0.00, 0.90, 1.00, 0.95, 0.00, 1.00, 0.50] 180 graytwo = [0.00, 0.00, 0.01, 0.40, 0.02, 0.00, 0.03, 0.40, 0.04, 0.00, 0.05, 0.40, 0.06, 0.00, 0.07, 0.40, 0.08, 0.00, 0.09, 0.40, 0.10, 0.00, 0.25, 0.80, 0.40, 0.30, 0.55, 1.00, 0.70, 0.00, 0.85, 0.80, 1.00, 0.40] 181 graythree = [0.00, 1.00, 0.01, 0.60, 0.02, 1.00, 0.03, 0.60, 0.04, 1.00, 0.05, 0.60, 0.06, 1.00, 0.07, 0.60, 0.08, 1.00, 0.09, 0.60, 0.10, 1.00, 0.11, 0.60, 0.12, 1.00, 0.13, 0.60, 0.14, 1.00, 0.15, 0.60, 0.16, 1.00, 0.17, 0.60, 0.18, 1.00, 0.19, 0.60, 0.20, 1.00, 0.21, 0.55, 0.22, 1.00, 0.23, 0.50, 0.24, 1.00, 0.25, 0.50, 0.26, 1.00, 0.27, 0.50, 0.28, 1.00, 0.29, 0.50, 0.30, 1.00, 0.31, 0.50, 0.32, 1.00, 0.33, 0.50, 0.34, 1.00, 0.35, 0.50, 0.36, 1.00, 0.37, 0.50, 0.38, 1.00, 0.39, 0.50, 0.40, 1.00, 0.41, 0.50, 0.42, 1.00, 0.43, 0.50, 0.44, 1.00, 0.45, 0.50, 0.46, 1.00, 0.47, 0.50, 0.48, 1.00, 0.49, 0.50, 0.50, 1.00, 0.51, 0.50, 0.52, 1.00, 0.53, 0.50, 0.54, 1.00, 0.55, 0.50, 0.56, 1.00, 0.57, 0.50, 0.58, 1.00, 0.59, 0.50, 0.60, 1.00, 1.00, 0.0] 182 grayfour = [0.00, 0.00, 1.00, 1.0] 183 184 one_bird(beg, 2.0, "black_throated_gray_warbler") do 185 bird(0, 0.12, 3700, 600, 0.05, grayone, $main_amp) 186 bird(0.18, 0.08, 3000, 800, 0.07, graytwo, $main_amp) 187 bird(0.28, 0.12, 3700, 600, 0.12, grayone, $main_amp) 188 bird(0.44, 0.08, 3000, 800, 0.15, graytwo, $main_amp) 189 bird(0.54, 0.12, 3700, 600, 0.20, grayone, $main_amp) 190 bird(0.72, 0.08, 3000, 800, 0.25, graytwo, $main_amp) 191 bird(0.82, 0.12, 3700, 600, 0.25, grayone, $main_amp) 192 bird(0.96, 0.2, 3000, 2000, 0.2, graythree, $main_amp) 193 bird(1.2, 0.02, 4500, 500, 0.05, grayfour, $main_amp) 194 bird(1.25, 0.02, 4200, 800, 0.05, grayfour, $main_amp) 195 bird(1.3, 0.02, 4000, 900, 0.05, grayfour, $main_amp) 196 end 197end 198 199 200def yellow_warbler(beg) 201 yellow_up = [0.00, 0.00, 0.60, 1.00, 1.00, 0.50] 202 yellow_swirl = [0.00, 1.00, 0.05, 1.00, 0.60, 0.00, 0.80, 0.30, 1.00, 0.10] 203 yellow_down = [0.00, 1.00, 1.00, 0.0] 204 yellow_last = [0.00, 0.00, 0.30, 0.20, 0.80, 0.70, 1.00, 1.0] 205 swirl_amp = [0.00, 0.00, 0.90, 1.00, 1.00, 0.0] 206 207 one_bird(beg, 2.0, "yellow_warbler") do 208 bird(0, 0.05, 5600, 400, 0.05, yellow_up, $main_amp) 209 bird(0.23, 0.12, 5000, 1500, 0.15, yellow_swirl, swirl_amp) 210 bird(0.45, 0.13, 5000, 1700, 0.17, yellow_swirl, swirl_amp) 211 bird(0.62, 0.16, 5000, 2000, 0.20, yellow_swirl, swirl_amp) 212 bird(0.85, 0.15, 5000, 2000, 0.20, yellow_swirl, swirl_amp) 213 bird(1.05, 0.075, 3700, 1000, 0.20, yellow_down, $main_amp) 214 bird(1.15, 0.075, 3700, 800, 0.15, yellow_down, $main_amp) 215 bird(1.25, 0.075, 3700, 800, 0.15, yellow_down, $main_amp) 216 bird(1.4, 0.2, 3700, 2000, 0.2, yellow_last, swirl_amp) 217 end 218end 219 220 221def black_necked_stilt(beg) 222 upamp = [0.00, 0.00, 0.90, 1.00, 1.00, 0.0] 223 rampup = [0.00, 0.00, 0.50, 1.00, 1.00, 0.20] 224 225 one_bird(beg, 1.0, "black_necked_stilt") do 226 bigbird(0, 0.1, 900, 100, 0.2, rampup, upamp, [1, 0.5, 2, 1, 3, 0.75, 4, 0.5, 5, 0.1]) 227 bigbird(0.30, 0.1, 900, 200, 0.2, rampup, upamp, [1, 0.5, 2, 1, 3, 0.75, 4, 0.5, 5, 0.1]) 228 bigbird(0.60, 0.1, 900, 250, 0.2, rampup, upamp, [1, 0.5, 2, 1, 3, 0.75, 4, 0.5, 5, 0.1]) 229 end 230end 231 232 233 234def chestnut_sided_warbler(beg) 235 ycurve = [0.00, 1.00, 0.30, 0.50, 0.60, 1.00, 0.80, 0.20, 1.00, 0.0] 236 vcurve = [0.00, 0.20, 0.50, 1.00, 1.00, 0.0] 237 wcurve = [0.00, 0.50, 0.15, 0.00, 0.45, 0.10, 0.60, 1.00, 0.70, 0.90, 1.00, 0.90] 238 upcurve = [0.00, 0.00, 0.95, 1.00, 1.00, 1.0] 239 downcurve = [0.00, 1.00, 0.25, 0.30, 0.60, 0.15, 1.00, 0.0] 240 louder = [0.00, 0.00, 0.90, 1.00, 1.00, 0.0] 241 wamp = [0.00, 0.00, 0.10, 1.00, 0.40, 0.10, 0.50, 0.90, 0.60, 0.10, 0.70, 1.00, 1.00, 0.0] 242 243 one_bird(beg, 2.0, "chestnut_sided_warbler") do 244 bigbird(0.1, 0.1, 4050, 1200, 0.05, ycurve, $main_amp, [1, 1, 2, 0.1]) 245 bigbird(0.25, 0.03, 3900, 300, 0.075, vcurve, $main_amp, [1, 1, 2, 0.1]) 246 bigbird(0.3, 0.1, 4050, 1200, 0.15, ycurve, louder, [1, 1, 2, 0.1]) 247 bigbird(0.42, 0.03, 3800, 500, 0.1, vcurve, $main_amp, [1, 1, 2, 0.1]) 248 bigbird(0.5, 0.1, 4000, 1200, 0.2, ycurve, $bird_tap, [1, 1, 2, 0.1]) 249 bigbird(0.65, 0.03, 3800, 500, 0.15, vcurve, $main_amp, [1, 1, 2, 0.1]) 250 bigbird(0.72, 0.1, 4000, 1200, 0.2, ycurve, $bird_tap, [1, 1, 2, 0.1]) 251 bigbird(0.85, 0.03, 3800, 500, 0.15, vcurve, $main_amp, [1, 1, 2, 0.1]) 252 bigbird(0.91, 0.1, 4000, 1200, 0.2, ycurve, $bird_tap, [1, 1, 2, 0.1]) 253 bigbird(1.05, 0.12, 3800, 2200, 0.15, wcurve, wamp, [1, 1, 2, 0.1]) 254 bigbird(1.20, 0.12, 3800, 2200, 0.15, wcurve, wamp, [1, 1, 2, 0.1]) 255 bigbird(1.35, 0.12, 2500, 2200, 0.25, upcurve, louder, [1, 1, 2, 0.1]) 256 bigbird(1.50, 0.12, 2500, 4000, 0.15, downcurve, $main_amp, [1, 1, 2, 0.1]) 257 end 258end 259 260 261def grasshopper_sparrow(beg) 262 grassone = [0.00, 0.50, 0.02, 0.80, 0.04, 0.30, 0.06, 0.80, 0.07, 0.10, 0.08, 0.90, 0.10, 0.00, 0.11, 0.90, 0.12, 0.00, 0.13, 0.90, 0.14, 0.10, 0.15, 1.00, 0.16, 0.10, 0.17, 1.00, 0.18, 0.10, 0.19, 1.00, 0.20, 0.10, 0.21, 1.00, 0.22, 0.10, 0.23, 1.00, 0.24, 0.10, 0.25, 1.00, 0.26, 0.10, 0.27, 1.00, 0.28, 0.10, 0.29, 1.00, 0.30, 0.10, 0.31, 1.00, 0.32, 0.10, 0.33, 1.00, 0.34, 0.10, 0.35, 1.00, 0.36, 0.10, 0.37, 1.00, 0.38, 0.10, 0.39, 1.00, 0.40, 0.10, 0.41, 1.00, 0.42, 0.10, 0.43, 1.00, 0.44, 0.10, 0.45, 1.00, 0.46, 0.10, 0.47, 1.00, 0.48, 0.10, 0.49, 1.00, 0.50, 0.10, 0.51, 1.00, 0.52, 0.10, 0.53, 1.00, 0.54, 0.10, 0.55, 1.00, 0.56, 0.10, 0.57, 1.00, 0.58, 0.10, 0.59, 1.00, 0.60, 0.10, 0.61, 1.00, 0.62, 0.10, 0.63, 1.00, 0.64, 0.10, 0.65, 1.00, 0.66, 0.10, 0.67, 1.00, 0.68, 0.10, 0.69, 1.00, 0.70, 0.10, 0.71, 1.00, 0.72, 0.10, 0.73, 1.00, 0.74, 0.10, 0.75, 1.00, 0.76, 0.10, 0.77, 1.00, 0.78, 0.10, 0.79, 1.00, 0.80, 0.10, 0.81, 1.00, 0.82, 0.10, 0.83, 1.00, 0.84, 0.10, 0.85, 1.00, 0.86, 0.10, 0.87, 1.00, 0.88, 0.10, 0.89, 1.00, 0.90, 0.10, 0.91, 1.00, 0.92, 0.10, 0.93, 1.00, 0.94, 0.10, 0.95, 1.00, 0.96, 0.10, 0.97, 1.00, 0.98, 0.10, 1.00, 1.0] 263 grasstwo = [0.00, 0.00, 0.10, 1.00, 0.20, 0.00, 0.30, 1.00, 0.40, 0.00, 0.50, 1.00, 0.60, 0.00, 0.70, 1.00, 0.80, 0.00, 0.90, 1.00, 1.00, 0.0] 264 265 one_bird(beg, 3.0, "grasshopper_sparrow") do 266 bird(0.49, 0.01, 8000, 100, 0.1, grasstwo, $main_amp) 267 bird(0.60, 0.01, 5700, 300, 0.1, grasstwo, $main_amp) 268 bird(0.92, 0.01, 3900, 100, 0.1, grasstwo, $main_amp) 269 bird(1.00, 1.4, 6000, 2500, 0.2, grassone, $main_amp) 270 end 271end 272 273 274def swamp_sparrow(beg) 275 swamp_up = [0.00, 0.00, 0.60, 0.70, 1.00, 1.0] 276 swamp_down = [0.00, 1.00, 0.50, 0.50, 0.60, 0.60, 1.00, 0.0] 277 278 one_bird(beg, 2.0, "swamp_sparrow") do 279 bird(0, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 280 bird(0.035, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 281 bird(0.08, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 282 283 bird(0.1, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 284 bird(0.135, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 285 bird(0.18, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 286 287 bird(0.2, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 288 bird(0.235, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 289 bird(0.28, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 290 291 bird(0.3, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 292 bird(0.335, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 293 bird(0.38, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 294 295 bird(0.4, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 296 bird(0.435, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 297 bird(0.48, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 298 299 bird(0.5, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 300 bird(0.535, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 301 bird(0.58, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 302 303 bird(0.6, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 304 bird(0.635, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 305 bird(0.68, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 306 307 bird(0.7, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 308 bird(0.735, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 309 bird(0.78, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 310 311 bird(0.8, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 312 bird(0.835, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 313 bird(0.88, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 314 315 bird(0.9, 0.02, 3900, 200, 0.3, swamp_up, $main_amp) 316 bird(0.935, 0.035, 3200, 3000, 0.1, swamp_down, $main_amp) 317 bird(0.98, 0.025, 3700, 0, 0.1, $main_amp, $main_amp) 318 end 319end 320 321 322def golden_crowned_sparrow(beg) 323 goldone = [0.00, 1.00, 0.25, 0.20, 1.00, 0.0] 324 goldtwo = [0.00, 0.90, 0.05, 1.00, 0.10, 0.40, 1.00, 0.0] 325 goldtrill = [0.00, 0.50, 0.10, 0.00, 0.20, 1.00, 0.30, 0.00, 0.40, 1.00, 0.50, 0.00, 0.60, 1.00, 0.70, 0.00, 0.80, 1.00, 0.90, 0.00, 1.00, 0.50] 326 327 one_bird(beg, 3.0, "golden_crowned_sparrow") do 328 bird(0.6, 0.5, 4300, 1000, 0.15, goldone, $main_amp) 329 bird(1.3, 0.45, 3300, 200, 0.15, goldone, $main_amp) 330 bird(1.75, 0.4, 3800, 100, 0.15, goldtwo, $main_amp) 331 bird(2.2, 0.3, 3800, 100, 0.1, goldtrill, $main_amp) 332 end 333end 334 335 336def indigo_bunting(beg) 337 buntdwn = [0.00, 1.00, 1.00, 0.0] 338 buntv = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 339 bunty = [0.00, 1.00, 0.50, 0.00, 1.00, 0.90] 340 buntn = [0.00, 0.80, 0.30, 1.00, 0.70, 0.20, 1.00, 0.0] 341 buntx = [0.00, 1.00, 0.10, 0.50, 0.25, 0.90, 1.00, 0.0] 342 buntup = [0.00, 0.00, 1.00, 1.0] 343 344 one_bird(beg, 3.0, "indigo_bunting") do 345 bird(0.4, 0.08, 3000, 700, 0.25, buntdwn, $main_amp) 346 bird(0.52, 0.02, 6200, 1000, 0.05, buntdwn, $main_amp) 347 bird(0.55, 0.15, 3500, 2300, 0.1, buntv, $main_amp) 348 bird(0.74, 0.02, 6200, 1800, 0.05, buntx, $main_amp) 349 bird(0.80, 0.15, 3400, 2300, 0.1, buntv, $main_amp) 350 bird(1.00, 0.1, 3400, 800, 0.2, buntv, $main_amp) 351 bird(1.13, 0.03, 4100, 2000, 0.05, buntdwn, $main_amp) 352 bird(1.25, 0.08, 3400, 800, 0.2, buntv, $main_amp) 353 bird(1.40, 0.03, 4100, 2000, 0.05, buntdwn, $main_amp) 354 bird(1.5, 0.07, 3700, 300, 0.1, buntdwn, $main_amp) 355 bird(1.6, 0.1, 4100, 2200, 0.15, bunty, $main_amp) 356 bird(1.72, 0.05, 3700, 300, 0.1, buntdwn, $main_amp) 357 bird(1.81, 0.1, 4100, 2200, 0.15, bunty, $main_amp) 358 bird(1.94, 0.07, 5200, 1800, 0.2, buntn, $main_amp) 359 bird(2.05, 0.08, 3000, 1500, 0.15, buntup, $main_amp) 360 bird(2.20, 0.07, 5200, 1800, 0.2, buntn, $main_amp) 361 bird(2.33, 0.08, 3000, 1500, 0.15, buntup, $main_amp) 362 bird(2.43, 0.07, 5200, 1800, 0.1, buntn, $main_amp) 363 bird(2.51, 0.08, 3000, 1500, 0.10, buntup, $main_amp) 364 end 365end 366 367 368def hooded_warbler(beg) 369 hoodup = [0.00, 0.00, 1.00, 1.0] 370 hooddown = [0.00, 1.00, 1.00, 0.0] 371 372 one_bird(beg, 3.0, "hooded_warbler") do 373 bird(0.6, 0.03, 3900, 1600, 0.05, hooddown, $main_amp) 374 bird(0.64, 0.03, 3900, 1700, 0.05, hooddown, $main_amp) 375 bird(0.8, 0.03, 3900, 2000, 0.10, hooddown, $main_amp) 376 bird(0.84, 0.03, 3900, 2000, 0.10, hooddown, $main_amp) 377 bird(0.93, 0.03, 3900, 2100, 0.15, hooddown, $main_amp) 378 bird(0.97, 0.03, 3900, 2100, 0.15, hooddown, $main_amp) 379 bird(1.05, 0.03, 3900, 2100, 0.05, hooddown, $main_amp) 380 bird(1.09, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 381 bird(1.17, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 382 bird(1.21, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 383 bird(1.39, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 384 bird(1.43, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 385 bird(1.51, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 386 bird(1.55, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 387 bird(1.63, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 388 bird(1.67, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 389 bird(1.75, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 390 bird(1.80, 0.03, 3900, 2100, 0.2, hooddown, $main_amp) 391 392 bird(1.90, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 393 bird(1.98, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 394 bird(2.05, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 395 bird(2.13, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 396 bird(2.21, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 397 bird(2.29, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 398 bird(2.37, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 399 bird(2.45, 0.04, 3000, 1000, 0.15, hoodup, $main_amp) 400 end 401end 402 403 404 405def american_widgeon(beg) 406 widgeon = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 407 408 one_bird(beg, 1.0, "american_widgeon") do 409 bigbird(0.3, 0.07, 1900, 300, 0.15, widgeon, widgeon, [1, 1, 2, 0.02]) 410 bigbird(0.4, 0.11, 1700, 1400, 0.25, widgeon, widgeon, [1, 0.7, 2, 1, 3, 0.02]) 411 bigbird(0.55, 0.07, 1900, 300, 0.15, widgeon, widgeon, [1, 1, 2, 0.02]) 412 end 413end 414 415 416def louisiana_waterthrush(beg) 417 water_one = [0.00, 0.80, 0.35, 0.40, 0.45, 0.90, 0.50, 1.00, 0.75, 1.00, 1.00, 0.10] 418 water_two = [0.00, 1.00, 0.40, 0.00, 0.60, 0.10, 1.00, 0.80] 419 water_three = [0.00, 1.00, 0.95, 0.00, 1.00, 0.0] 420 water_four = [0.00, 0.00, 1.00, 1.0] 421 water_five = [0.00, 1.00, 1.00, 0.0] 422 water_amp = [0.00, 0.00, 0.35, 1.00, 0.50, 0.20, 0.90, 1.00, 1.00, 0.0] 423 water_damp = [0.00, 0.00, 0.90, 1.00, 1.00, 0.0] 424 425 one_bird(beg, 2.0, "louisiana_waterthrush") do 426 bird(0, 0.17, 4100, 2000, 0.2, water_one, water_amp) 427 bird(0.32, 0.18, 4050, 2050, 0.3, water_one, water_amp) 428 bird(0.64, 0.20, 4000, 1900, 0.25, water_one, water_amp) 429 bird(0.9, 0.2, 3900, 2000, 0.3, water_two, $bird_tap) 430 bird(1.25, 0.12, 3000, 3000, 0.25, water_three, water_damp) 431 bird(1.4, 0.1, 2700, 1500, 0.2, water_four, water_damp) 432 bird(1.58, 0.02, 5200, 1000, 0.1, water_five, $main_amp) 433 bird(1.65, 0.02, 5200, 1000, 0.1, water_five, $main_amp) 434 bird(1.7, 0.035, 3200, 1000, 0.1, water_four, water_damp) 435 end 436end 437 438 439def robin(beg) 440 r_one = [0.00, 0.10, 0.08, 0.70, 0.30, 0.00, 0.35, 1.00, 0.40, 0.30, 1.00, 0.30] 441 r_two = [0.00, 0.00, 0.10, 1.00, 0.20, 0.70, 0.35, 0.70, 0.65, 0.30, 0.70, 0.50, 0.80, 0.00, 0.90, 0.20, 1.00, 0.0] 442 r_three = [0.00, 0.20, 0.25, 1.00, 0.60, 0.70, 0.90, 0.00, 1.00, 0.10] 443 r_four = [0.00, 1.00, 1.00, 0.0] 444 r_five = [0.00, 0.50, 0.10, 0.00, 0.20, 1.00, 0.30, 0.00, 0.40, 1.00, 0.50, 0.00, 0.60, 1.00, 0.70, 0.50, 1.00, 0.20] 445 r_six = [0.00, 0.00, 0.12, 0.70, 0.30, 0.00, 0.70, 1.00, 1.00, 0.50] 446 447 one_bird(beg, 3.0, "robin") do 448 bigbird(0.45, 0.06, 2000, 800, 0.15, r_six, $main_amp, [1, 1, 2, 0.1]) 449 bigbird(0.56, 0.10, 2000, 900, 0.15, r_one, $main_amp, [1, 1, 2, 0.1]) 450 bigbird(1.04, 0.24, 2000, 2000, 0.25, r_two, $main_amp, [1, 1, 2, 0.1]) 451 bigbird(1.63, 0.13, 1900, 1600, 0.20, r_three, $main_amp, [1, 1, 2, 0.1]) 452 bigbird(1.80, 0.11, 2200, 1200, 0.25, r_four, $main_amp, [1, 1, 2, 0.1]) 453 bigbird(2.31, 0.21, 1950, 2000, 0.15, r_five, $main_amp, [1, 1, 2, 0.1]) 454 end 455end 456 457 458def solitary_vireo(beg) 459 bigskew = [0.00, 0.20, 0.03, 0.30, 0.06, 0.10, 0.10, 0.50, 0.13, 0.40, 0.16, 0.80, 0.19, 0.50, 0.22, 0.90, 0.25, 0.60, 0.28, 1.00, 0.31, 0.60, 0.34, 1.00, 0.37, 0.50, 0.41, 0.90, 0.45, 0.40, 0.49, 0.80, 0.51, 0.40, 0.54, 0.75, 0.57, 0.35, 0.60, 0.70, 0.63, 0.30, 0.66, 0.60, 0.69, 0.25, 0.72, 0.50, 0.75, 0.20, 0.78, 0.30, 0.82, 0.10, 0.85, 0.30, 0.88, 0.05, 0.91, 0.30, 0.94, 0.00, 0.95, 0.30, 0.99, 0.00, 1.00, 0.10] 460 one_bird(beg, 1.0, "solitary_vireo") do 461 bird(0, 0.4, 1800, 1200, 0.2, bigskew, $main_amp) 462 end 463end 464 465 466def pigeon_hawk(beg) 467 hupdown = [0.00, 0.00, 0.30, 1.00, 0.70, 1.00, 1.00, 0.0] 468 469 one_bird(beg, 2.0, "pigeon_hawk") do 470 bigbird(0, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 471 bigbird(0.12, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 472 bigbird(0.13, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 473 bigbird(0.25, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 474 bigbird(0.26, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 475 bigbird(0.38, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 476 bigbird(0.39, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 477 bigbird(0.51, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 478 bigbird(0.52, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 479 bigbird(0.64, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 480 bigbird(0.65, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 481 bigbird(0.77, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 482 bigbird(0.78, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 483 bigbird(0.90, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 484 bigbird(0.91, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 485 bigbird(1.03, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 486 bigbird(1.04, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 487 bigbird(1.16, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 488 bigbird(1.17, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 489 bigbird(1.29, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 490 bigbird(1.30, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 491 bigbird(1.42, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 492 bigbird(1.43, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 493 bigbird(1.55, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 494 bigbird(1.56, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 495 bigbird(1.68, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 496 bigbird(1.69, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 497 bigbird(1.81, 0.01, 2050, 0, 0.1, $main_amp, $main_amp, [1, 0.5, 2, 1]) 498 bigbird(1.82, 0.1, 1900, 200, 0.2, hupdown, $main_amp, [1, 0.7, 2, 1]) 499 end 500end 501 502 503def cerulean_warbler(beg) 504 w_down = [0.00, 1.00, 1.00, 0.0] 505 trill = [0.00, 0.80, 0.10, 1.00, 0.25, 0.50, 0.40, 1.00, 0.55, 0.50, 0.70, 1.00, 1.00, 0.0] 506 w_up = [0.00, 0.00, 1.00, 1.0] 507 508 one_bird(beg, 2.0, "cerulean_warbler") do 509 bird(0.27, 0.05, 3000, 1000, 0.05, w_down, $main_amp) 510 bird(0.33, 0.05, 3000, 800, 0.075, w_up, $main_amp) 511 bird(0.41, 0.01, 3200, 700, 0.07, w_down, $main_amp) 512 bird(0.42, 0.01, 3200, 700, 0.08, w_down, $main_amp) 513 bird(0.43, 0.06, 3200, 700, 0.09, w_down, $main_amp) 514 bird(0.51, 0.06, 3200, 500, 0.1, w_up, $main_amp) 515 bird(0.6, 0.10, 3000, 1200, 0.2, trill, $main_amp) 516 bird(0.72, 0.05, 3000, 800, 0.2, w_up, $main_amp) 517 bird(0.8, 0.10, 3000, 1200, 0.2, trill, $main_amp) 518 bird(0.92, 0.05, 3000, 800, 0.2, w_up, $main_amp) 519 bird(1.00, 0.01, 3900, 600, 0.1, w_up, $main_amp) 520 bird(1.01, 0.01, 3910, 800, 0.1, w_up, $main_amp) 521 bird(1.02, 0.01, 3940, 500, 0.1, w_up, $main_amp) 522 bird(1.03, 0.01, 4000, 500, 0.1, w_up, $main_amp) 523 bird(1.04, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 524 bird(1.05, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 525 bird(1.06, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 526 bird(1.07, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 527 bird(1.08, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 528 bird(1.09, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 529 bird(1.10, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 530 bird(1.11, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 531 bird(1.12, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 532 bird(1.13, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 533 bird(1.14, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 534 bird(1.15, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 535 bird(1.16, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 536 bird(1.17, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 537 bird(1.18, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 538 bird(1.19, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 539 bird(1.20, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 540 bird(1.21, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 541 bird(1.22, 0.01, 3900, 1000, 0.1, w_up, $main_amp) 542 bird(1.23, 0.01, 3900, 1200, 0.1, w_up, $main_amp) 543 bird(1.24, 0.01, 3900, 1200, 0.1, w_up, $main_amp) 544 bird(1.25, 0.01, 3900, 1200, 0.1, w_up, $main_amp) 545 bird(1.26, 0.01, 3900, 1200, 0.1, w_up, $main_amp) 546 bird(1.27, 0.01, 3900, 1400, 0.1, w_up, $main_amp) 547 bird(1.28, 0.01, 3900, 1400, 0.1, w_up, $main_amp) 548 bird(1.29, 0.01, 3900, 1400, 0.1, w_up, $main_amp) 549 bird(1.30, 0.01, 3900, 1400, 0.1, w_up, $main_amp) 550 end 551end 552 553 554def nashville_warbler(beg) 555 nash_blip = [0.00, 0.60, 0.35, 1.00, 1.00, 0.0] 556 nash_down = [0.00, 0.90, 0.05, 1.00, 0.10, 0.90, 0.65, 0.50, 1.00, 0.0] 557 nash_up = [0.00, 0.00, 0.15, 0.20, 0.25, 0.05, 0.90, 0.95, 1.00, 1.0] 558 nash_amp = [0.00, 0.00, 0.80, 1.00, 1.00, 0.0] 559 560 one_bird(beg, 2.0, "nashville_warbler") do 561 bird(0.15, 0.025, 3900, 300, 0.3, nash_blip, $main_amp) 562 bird(0.24, 0.16, 4200, 3800, 0.15, nash_down, nash_amp) 563 bird(0.42, 0.025, 3900, 300, 0.3, nash_blip, $main_amp) 564 bird(0.55, 0.14, 4300, 3700, 0.15, nash_down, nash_amp) 565 bird(0.75, 0.03, 3950, 350, 0.3, nash_blip, $main_amp) 566 bird(0.81, 0.17, 4200, 3900, 0.175, nash_down, $main_amp) 567 bird(1.0, 0.02, 3800, 400, 0.25, nash_blip, $main_amp) 568 bird(1.11, 0.14, 4200, 3800, 0.165, nash_down, nash_amp) 569 bird(1.3, 0.03, 3750, 300, 0.2, nash_blip, $main_amp) 570 bird(1.4, 0.11, 4200, 3700, 0.1, nash_down, $main_amp) 571 bird(1.57, 0.1, 3800, 2200, 0.1, nash_up, $main_amp) 572 bird(1.7, 0.1, 3800, 2150, 0.125, nash_up, $main_amp) 573 bird(1.85, 0.075, 3900, 1800, 0.1, nash_up, nash_amp) 574 end 575end 576 577 578def eastern_phoebe(beg) 579 phoebe_one = [0.00, 0.00, 0.30, 0.30, 0.35, 0.50, 0.55, 0.40, 0.70, 0.80, 0.75, 0.70, 0.80, 1.00, 0.95, 0.90, 1.00, 0.0] 580 phoebe_two = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 581 phoebe_three = [0.00, 0.00, 0.10, 0.40, 0.80, 1.00, 1.00, 0.10] 582 phoebe_four = [0.00, 1.00, 0.50, 0.70, 1.00, 0.0] 583 phoebe_amp = [0.00, 0.00, 0.10, 1.00, 1.00, 0.0] 584 585 one_bird(beg, 1.0, "eastern_phoebe") do 586 bird(0, 0.225, 3000, 1300, 0.3, phoebe_one, $main_amp) 587 bird(0.35, 0.12, 3000, 500, 0.1, phoebe_two, phoebe_amp) 588 bird(0.4, 0.10, 3000, 1500, 0.2, phoebe_three, phoebe_amp) 589 bird(0.55, 0.05, 3000, 1400, 0.2, phoebe_four, phoebe_amp) 590 end 591end 592 593 594def painted_bunting(beg) 595 b_one = [0.00, 0.00, 1.00, 1.0] 596 b_two = [0.00, 0.00, 0.90, 1.00, 1.00, 0.0] 597 b_three = [0.00, 1.00, 1.00, 0.0] 598 b_four = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 599 b_five = [0.00, 0.70, 0.15, 0.00, 0.40, 1.00, 0.80, 1.00, 1.00, 0.50] 600 b_six = [0.00, 0.00, 0.10, 0.50, 0.15, 0.00, 0.40, 1.00, 0.90, 1.00, 1.00, 0.0] 601 b_seven = [0.00, 1.00, 0.25, 0.40, 0.75, 0.50, 1.00, 0.0] 602 b_eight = [0.00, 0.30, 0.40, 0.40, 0.50, 1.00, 0.60, 0.20, 1.00, 0.0] 603 b_nine = [0.00, 0.00, 0.05, 1.00, 0.30, 1.00, 0.50, 0.30, 0.90, 1.00, 1.00, 0.0] 604 b_ten = [0.00, 0.40, 0.25, 0.00, 0.35, 1.00, 0.50, 0.00, 0.65, 1.00, 0.75, 0.00, 0.85, 1.00, 1.00, 0.0] 605 b_eleven = [0.00, 1.00, 1.00, 0.0] 606 b_twelve = [0.00, 0.00, 0.50, 1.00, 1.00, 0.50] 607 b_thirteen = [0.00, 0.00, 0.05, 1.00, 0.30, 0.20, 0.60, 0.20, 0.90, 1.00, 1.00, 0.0] 608 b_fourteen = [0.00, 0.30, 0.30, 1.00, 0.60, 0.30, 1.00, 0.0] 609 b_fifteen = [0.00, 0.00, 0.10, 0.50, 0.50, 0.50, 0.90, 1.00, 1.00, 0.0] 610 611 one_bird(beg, 2.0, "painted_bunting") do 612 bird(0.05, 0.10, 3100, 900, 0.05, b_one, b_two) 613 bird(0.21, 0.07, 4100, 700, 0.15, b_three, $main_amp) 614 bird(0.36, 0.12, 3700, 1000, 0.20, b_four, $main_amp) 615 bird(0.52, 0.08, 2300, 1600, 0.15, b_five, b_six) 616 bird(0.68, 0.1, 4000, 1000, 0.25, b_one, $bird_tap) 617 bird(0.8, 0.12, 2300, 1700, 0.2, b_seven, $main_amp) 618 bird(0.96, 0.15, 3800, 2200, 0.3, b_eight, b_nine) 619 bird(1.18, 0.1, 2300, 1600, 0.15, b_ten, $main_amp) 620 bird(1.3, 0.02, 3200, 1000, 0.1, b_eleven, $main_amp) 621 bird(1.33, 0.02, 3200, 1000, 0.1, b_eleven, $main_amp) 622 bird(1.36, 0.02, 3200, 1000, 0.1, b_eleven, $main_amp) 623 bird(1.40, 0.03, 4000, 2000, 0.12, b_twelve, b_thirteen) 624 bird(1.47, 0.1, 2300, 1700, 0.2, b_fourteen, b_fifteen) 625 end 626end 627 628 629def western_flycatcher(beg) 630 f_one = [0.00, 0.00, 0.10, 1.00, 0.20, 0.40, 0.95, 0.10, 1.00, 0.0] 631 a_one = [0.00, 0.00, 0.10, 0.20, 0.20, 0.10, 0.30, 1.00, 0.90, 1.00, 1.00, 0.0] 632 f_two = [0.00, 0.50, 0.25, 1.00, 0.50, 0.00, 0.60, 0.00, 0.95, 0.30, 1.00, 0.60] 633 a_two = [0.00, 0.00, 0.10, 1.00, 0.20, 1.00, 0.50, 0.10, 0.60, 0.10, 0.90, 1.00, 1.00, 0.0] 634 635 one_bird(beg, 1.0, "western_flycatcher") do 636 bigbird(0, 0.2, 2000, 2200, 0.2, f_one, a_one, [1, 1, 2, 0.02, 3, 0.1, 4, 0.01]) 637 bigbird(0.3, 0.2, 2000, 1100, 0.2, f_two, a_two, [1, 1, 2, 0.02, 3, 0.1, 4, 0.01]) 638 end 639end 640 641 642def bachmans_sparrow(beg) 643 sopening = [0.00, 1.00, 0.10, 0.50, 0.90, 0.50, 1.00, 0.0] 644 sup = [0.00, 0.10, 0.35, 0.00, 1.00, 1.0] 645 sdwn = [0.00, 1.00, 0.40, 0.50, 1.00, 0.0] 646 supn = [0.00, 0.00, 1.00, 1.0] 647 slast = [0.00, 1.00, 0.25, 0.00, 0.75, 0.40, 1.00, 0.50] 648 649 one_bird(beg, 5.0, "bachmans_sparrow") do 650 bird(0, 0.51, 4900, 200, 0.3, sopening, $main_amp) 651 bird(0.52, 0.015, 3800, 200, 0.1, sup, $main_amp) 652 bird(0.52, 0.015, 3750, 250, 0.1, sup, $main_amp) 653 bird(0.54, 0.015, 3600, 300, 0.1, sup, $main_amp) 654 bird(0.56, 0.015, 3500, 250, 0.1, sup, $main_amp) 655 bird(0.58, 0.015, 3400, 200, 0.1, sup, $main_amp) 656 bird(0.60, 0.015, 3200, 200, 0.1, sup, $main_amp) 657 bird(0.62, 0.015, 3800, 100, 0.1, sup, $main_amp) 658 659 bird(0.65, 0.07, 3000, 750, 0.2, sup, $main_amp) 660 bird(0.73, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 661 bird(0.80, 0.07, 3000, 750, 0.2, sup, $main_amp) 662 bird(0.88, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 663 bird(0.95, 0.07, 3000, 750, 0.2, sup, $main_amp) 664 bird(1.03, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 665 bird(1.10, 0.07, 3000, 750, 0.2, sup, $main_amp) 666 bird(1.18, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 667 bird(1.25, 0.07, 3000, 750, 0.2, sup, $main_amp) 668 bird(1.33, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 669 bird(1.40, 0.07, 3000, 750, 0.2, sup, $main_amp) 670 bird(1.48, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 671 bird(1.55, 0.07, 3000, 750, 0.2, sup, $main_amp) 672 bird(1.63, 0.03, 5000, 1000, 0.1, sdwn, $main_amp) 673 674 bird(2.8, 0.06, 4000, 1700, 0.1, supn, $main_amp) 675 bird(2.87, 0.01, 5200, 0, 0.2, supn, $main_amp) 676 bird(2.9, 0.06, 4000, 1700, 0.1, supn, $main_amp) 677 bird(2.97, 0.01, 5200, 0, 0.2, supn, $main_amp) 678 bird(3.0, 0.06, 4000, 1700, 0.1, supn, $main_amp) 679 bird(3.07, 0.01, 5200, 0, 0.2, supn, $main_amp) 680 bird(3.1, 0.06, 4000, 1700, 0.1, supn, $main_amp) 681 bird(3.17, 0.01, 5200, 0, 0.2, supn, $main_amp) 682 bird(3.2, 0.06, 4000, 1700, 0.1, supn, $main_amp) 683 bird(3.27, 0.01, 5200, 0, 0.2, supn, $main_amp) 684 685 bird(3.4, 0.15, 3000, 1000, 0.2, slast, $main_amp) 686 bird(3.6, 0.15, 3000, 1000, 0.2, slast, $main_amp) 687 bird(3.8, 0.15, 3000, 1000, 0.2, slast, $main_amp) 688 bird(4.0, 0.15, 3000, 1000, 0.2, slast, $main_amp) 689 bird(4.2, 0.15, 3000, 1000, 0.2, slast, $main_amp) 690 bird(4.4, 0.15, 3000, 1000, 0.2, slast, $main_amp) 691 end 692end 693 694 695def cedar_waxwing(beg) 696 cedar = [0.00, 0.00, 0.25, 0.70, 0.70, 1.00, 0.90, 1.00, 1.00, 0.20] 697 cedamp = [0.00, 0.00, 0.20, 1.00, 0.40, 1.00, 1.00, 0.0] 698 699 one_bird(beg, 1.0, "cedar_waxwing") do 700 bird(0, 0.50, 6000, 800, 0.2, cedar, cedamp) 701 end 702end 703 704 705def bairds_sparrow(beg) 706 bairdend = [0.00, 0.00, 0.25, 1.00, 0.50, 0.00, 0.75, 1.00, 1.00, 0.0] 707 bairdstart = [0.00, 0.50, 0.05, 1.00, 0.10, 0.00, 0.15, 1.00, 0.20, 0.00, 0.25, 1.00, 0.30, 0.00, 0.35, 1.00, 0.40, 0.00, 0.45, 1.00, 0.50, 0.00, 0.55, 1.00, 0.60, 0.00, 0.65, 1.00, 0.70, 0.00, 0.75, 1.00, 0.80, 0.00, 0.85, 1.00, 0.90, 0.00, 0.95, 1.00, 1.00, 0.0] 708 709 one_bird(beg, 2.0, "bairds_sparrow") do 710 bird(0, 0.09, 6500, 1500, 0.2, bairdstart, $main_amp) 711 bird(0.22, 0.01, 5900, 100, 0.2, bairdend, $main_amp) 712 bird(0.25, 0.09, 6000, 1000, 0.2, bairdstart, $main_amp) 713 bird(0.45, 0.01, 4200, 100, 0.2, bairdend, $main_amp) 714 bird(0.50, 0.08, 4200, 600, 0.2, bairdstart, $main_amp) 715 bird(0.59, 0.01, 4400, 100, 0.2, bairdend, $main_amp) 716 bird(0.60, 0.01, 4400, 100, 0.2, bairdend, $main_amp) 717 bird(0.68, 0.07, 5400, 700, 0.2, bairdstart, $main_amp) 718 719 bird(0.75, 0.01, 4200, 100, 0.2, bairdend, $main_amp) 720 bird(0.79, 0.01, 4400, 100, 0.2, bairdend, $main_amp) 721 bird(0.83, 0.01, 4200, 100, 0.19, bairdend, $main_amp) 722 bird(0.87, 0.01, 4400, 100, 0.19, bairdend, $main_amp) 723 bird(0.91, 0.01, 4200, 100, 0.18, bairdend, $main_amp) 724 bird(0.95, 0.01, 4400, 100, 0.18, bairdend, $main_amp) 725 bird(0.99, 0.01, 4200, 100, 0.17, bairdend, $main_amp) 726 bird(1.03, 0.01, 4400, 100, 0.17, bairdend, $main_amp) 727 bird(1.07, 0.01, 4200, 100, 0.16, bairdend, $main_amp) 728 bird(1.11, 0.01, 4400, 100, 0.16, bairdend, $main_amp) 729 bird(1.15, 0.01, 4200, 100, 0.15, bairdend, $main_amp) 730 bird(1.19, 0.01, 4400, 100, 0.15, bairdend, $main_amp) 731 bird(1.23, 0.01, 4200, 100, 0.14, bairdend, $main_amp) 732 bird(1.27, 0.01, 4400, 100, 0.14, bairdend, $main_amp) 733 bird(1.31, 0.01, 4200, 100, 0.13, bairdend, $main_amp) 734 bird(1.35, 0.01, 4400, 100, 0.13, bairdend, $main_amp) 735 bird(1.39, 0.01, 4200, 100, 0.12, bairdend, $main_amp) 736 bird(1.43, 0.01, 4400, 100, 0.12, bairdend, $main_amp) 737 bird(1.47, 0.01, 4200, 100, 0.11, bairdend, $main_amp) 738 bird(1.51, 0.01, 4400, 100, 0.11, bairdend, $main_amp) 739 bird(1.55, 0.01, 4200, 100, 0.10, bairdend, $main_amp) 740 bird(1.59, 0.01, 4400, 100, 0.10, bairdend, $main_amp) 741 bird(1.63, 0.01, 4200, 100, 0.09, bairdend, $main_amp) 742 bird(1.67, 0.01, 4400, 100, 0.09, bairdend, $main_amp) 743 bird(1.71, 0.01, 4200, 100, 0.08, bairdend, $main_amp) 744 bird(1.75, 0.01, 4400, 100, 0.08, bairdend, $main_amp) 745 bird(1.79, 0.01, 4200, 100, 0.07, bairdend, $main_amp) 746 bird(1.83, 0.01, 4400, 100, 0.07, bairdend, $main_amp) 747 bird(1.87, 0.01, 4200, 100, 0.06, bairdend, $main_amp) 748 bird(1.92, 0.01, 4400, 100, 0.06, bairdend, $main_amp) 749 bird(1.97, 0.01, 4200, 100, 0.05, bairdend, $main_amp) 750 end 751end 752 753 754def kentucky_warbler(beg) 755 kenstart = [0.00, 0.30, 0.50, 1.00, 1.00, 0.0] 756 kendwn = [0.00, 0.90, 0.10, 1.00, 1.00, 0.0] 757 kenup = [0.00, 0.00, 1.00, 1.0] 758 kentrill = [0.00, 1.00, 0.25, 0.00, 0.50, 0.00, 0.75, 1.00, 1.00, 0.0] 759 760 one_bird(beg, 3.0, "kentucky_warbler") do 761 bigbird(0.6, 0.02, 3800, 200, 0.05, kenstart, $main_amp, [1, 1, 2, 0.03]) 762 bigbird(0.65, 0.03, 4300, 200, 0.15, kenup, $main_amp, [1, 1, 2, 0.1]) 763 bigbird(0.73, 0.02, 3200, 100, 0.1, kendwn, $main_amp, [1, 1, 2, 0.1]) 764 765 bigbird(0.75, 0.05, 3000, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 766 bigbird(0.82, 0.06, 3100, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 767 bigbird(0.90, 0.06, 3200, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 768 bigbird(0.98, 0.05, 4600, 100, 0.2, kentrill, $main_amp, [1, 1, 2, 0.1]) 769 770 bigbird(1.10, 0.05, 2900, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 771 bigbird(1.17, 0.06, 3000, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 772 bigbird(1.25, 0.06, 3100, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 773 bigbird(1.33, 0.05, 4600, 100, 0.2, kentrill, $main_amp, [1, 1, 2, 0.1]) 774 775 bigbird(1.43, 0.05, 2800, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 776 bigbird(1.50, 0.05, 2700, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 777 bigbird(1.57, 0.06, 2800, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 778 bigbird(1.64, 0.05, 4600, 100, 0.2, kentrill, $main_amp, [1, 1, 2, 0.1]) 779 780 bigbird(1.75, 0.05, 2700, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 781 bigbird(1.81, 0.05, 2600, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 782 bigbird(1.88, 0.06, 2600, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 783 bigbird(1.97, 0.05, 4600, 100, 0.2, kentrill, $main_amp, [1, 1, 2, 0.1]) 784 785 bigbird(2.05, 0.05, 2700, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 786 bigbird(2.12, 0.06, 2600, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 787 bigbird(2.20, 0.05, 4600, 100, 0.2, kentrill, $main_amp, [1, 1, 2, 0.1]) 788 789 bigbird(2.30, 0.05, 2800, 800, 0.15, kenstart, $main_amp, [1, 1, 2, 0.01]) 790 bigbird(2.37, 0.06, 2700, 1200, 0.1, kendwn, $main_amp, [1, 1, 2, 0.01]) 791 bigbird(2.45, 0.05, 4700, 100, 0.25, kentrill, $main_amp, [1, 1, 2, 0.1]) 792 end 793end 794 795 796def rufous_sided_towhee(beg) 797 towhee_one = [0.00, 0.10, 0.02, 0.05, 0.04, 0.15, 0.06, 0.05, 0.08, 0.20, 0.10, 0.04, 0.12, 0.25, 0.14, 0.03, 0.16, 0.30, 0.18, 0.02, 0.20, 0.35, 0.22, 0.01, 0.24, 0.40, 0.26, 0.00, 0.28, 0.45, 0.30, 0.00, 0.32, 0.50, 0.34, 0.00, 0.36, 0.50, 0.80, 1.00, 1.00, 0.0] 798 towhee_two = [0.00, 0.00, 1.00, 1.0] 799 towhee_three = [0.00, 1.00, 1.00, 0.0] 800 801 one_bird(beg, 2.0, "rufous_sided_towhee") do 802 bigbird(0.25, 0.13, 1400, 1100, 0.2, towhee_one, $main_amp, [1, 0.03, 2, 1, 3, 0.03]) 803 bigbird(0.45, 0.13, 1400, 1100, 0.2, towhee_one, $main_amp, [1, 0.03, 2, 1, 3, 0.03]) 804 bigbird(0.60, 0.13, 1400, 1100, 0.2, towhee_one, $main_amp, [1, 0.03, 2, 1, 3, 0.03]) 805 bigbird(0.75, 0.10, 1400, 1100, 0.2, towhee_one, $main_amp, [1, 0.03, 2, 1, 3, 0.03]) 806 807 bird(0.88, 0.01, 5100, 2000, 0.1, towhee_two, $main_amp) 808 bird(0.895, 0.01, 5100, 1600, 0.1, towhee_two, $main_amp) 809 bird(0.91, 0.01, 5100, 1000, 0.1, towhee_two, $main_amp) 810 bird(0.93, 0.01, 3000, 1200, 0.1, towhee_three, $main_amp) 811 812 bird(0.945, 0.01, 5100, 2000, 0.09, towhee_two, $main_amp) 813 bird(0.96, 0.01, 5100, 1600, 0.09, towhee_two, $main_amp) 814 bird(0.975, 0.01, 5100, 1000, 0.09, towhee_two, $main_amp) 815 bird(0.995, 0.01, 3000, 1200, 0.09, towhee_three, $main_amp) 816 817 bird(1.01, 0.01, 5100, 2000, 0.1, towhee_two, $main_amp) 818 bird(1.025, 0.01, 5100, 1600, 0.1, towhee_two, $main_amp) 819 bird(1.04, 0.01, 5100, 1000, 0.1, towhee_two, $main_amp) 820 bird(1.06, 0.01, 3000, 1200, 0.1, towhee_three, $main_amp) 821 822 bird(1.075, 0.01, 5100, 2000, 0.09, towhee_two, $main_amp) 823 bird(1.09, 0.01, 5100, 1600, 0.09, towhee_two, $main_amp) 824 bird(1.105, 0.01, 5100, 1000, 0.09, towhee_two, $main_amp) 825 bird(1.125, 0.01, 3000, 1200, 0.09, towhee_three, $main_amp) 826 827 bird(1.14, 0.01, 5100, 2000, 0.08, towhee_two, $main_amp) 828 bird(1.155, 0.01, 5100, 1600, 0.08, towhee_two, $main_amp) 829 bird(1.17, 0.01, 5100, 1000, 0.08, towhee_two, $main_amp) 830 bird(1.19, 0.01, 3000, 1200, 0.08, towhee_three, $main_amp) 831 832 bird(1.205, 0.01, 5100, 2000, 0.08, towhee_two, $main_amp) 833 bird(1.220, 0.01, 5100, 1600, 0.08, towhee_two, $main_amp) 834 bird(1.235, 0.01, 5100, 1000, 0.08, towhee_two, $main_amp) 835 bird(1.255, 0.01, 3000, 1200, 0.08, towhee_three, $main_amp) 836 837 bird(1.27, 0.01, 5100, 2000, 0.07, towhee_two, $main_amp) 838 bird(1.285, 0.01, 5100, 1600, 0.07, towhee_two, $main_amp) 839 bird(1.30, 0.01, 5100, 1000, 0.07, towhee_two, $main_amp) 840 bird(1.32, 0.01, 3000, 1200, 0.07, towhee_three, $main_amp) 841 842 bird(1.335, 0.01, 5100, 2000, 0.06, towhee_two, $main_amp) 843 bird(1.350, 0.01, 5100, 1600, 0.06, towhee_two, $main_amp) 844 bird(1.365, 0.01, 5100, 1000, 0.06, towhee_two, $main_amp) 845 bird(1.385, 0.01, 3000, 1200, 0.06, towhee_three, $main_amp) 846 847 bird(1.400, 0.01, 5100, 2000, 0.05, towhee_two, $main_amp) 848 bird(1.415, 0.01, 5100, 1600, 0.05, towhee_two, $main_amp) 849 bird(1.430, 0.01, 5100, 1000, 0.05, towhee_two, $main_amp) 850 bird(1.45, 0.01, 3000, 1200, 0.05, towhee_three, $main_amp) 851 852 bird(1.465, 0.01, 5100, 2000, 0.03, towhee_two, $main_amp) 853 bird(1.480, 0.01, 5100, 1600, 0.03, towhee_two, $main_amp) 854 bird(1.495, 0.01, 5100, 1000, 0.03, towhee_two, $main_amp) 855 bird(1.515, 0.01, 3000, 1200, 0.03, towhee_three, $main_amp) 856 end 857end 858 859 860def prothonotary_warbler(beg) 861 pro_one = [0.00, 0.10, 0.20, 0.00, 1.00, 1.0] 862 pro_two = [0.00, 0.00, 1.00, 1.0] 863 pro_amp = [0.00, 0.00, 0.20, 1.00, 0.40, 0.50, 1.00, 0.0] 864 865 one_bird(beg, 3.0, "prothonotary_warbler") do 866 bird(0.76, 0.08, 3000, 3000, 0.05, pro_one, pro_amp) 867 bird(0.85, 0.05, 4000, 2500, 0.06, pro_two, $bird_amp) 868 869 bird(1.02, 0.09, 3000, 3000, 0.10, pro_one, pro_amp) 870 bird(1.12, 0.05, 4000, 2500, 0.10, pro_two, $bird_amp) 871 872 bird(1.26, 0.08, 3000, 3000, 0.15, pro_one, pro_amp) 873 bird(1.35, 0.05, 4000, 2500, 0.16, pro_two, $bird_amp) 874 875 bird(1.54, 0.08, 3000, 3000, 0.20, pro_one, pro_amp) 876 bird(1.63, 0.05, 4000, 2500, 0.19, pro_two, $bird_amp) 877 878 bird(1.80, 0.08, 3000, 3000, 0.20, pro_one, pro_amp) 879 bird(1.89, 0.05, 4000, 2500, 0.16, pro_two, $bird_amp) 880 881 bird(2.03, 0.08, 3000, 3000, 0.15, pro_one, pro_amp) 882 bird(2.12, 0.05, 4000, 2500, 0.10, pro_two, $bird_amp) 883 884 bird(2.30, 0.08, 3000, 3000, 0.10, pro_one, pro_amp) 885 bird(2.39, 0.05, 4000, 2500, 0.06, pro_two, $bird_amp) 886 end 887end 888 889 890def audubons_warbler(beg) 891 w_up = [0.00, 0.00, 1.00, 1.0] 892 w_down = [0.00, 1.00, 1.00, 0.0] 893 w_end = [0.00, 0.00, 0.15, 1.00, 0.45, 0.90, 0.50, 0.00, 0.55, 1.00, 0.90, 0.90, 1.00, 0.10] 894 w_updown = [0.00, 0.10, 0.50, 1.00, 1.00, 0.0] 895 896 one_bird(beg, 3.0, "audubons_warbler") do 897 bird(0.75, 0.04, 2400, 200, 0.05, w_down, $bird_amp) 898 bird(0.83, 0.03, 3200, 200, 0.1, w_up, $bird_amp) 899 bird(0.90, 0.04, 2500, 300, 0.15, w_up, $bird_amp) 900 bird(0.97, 0.04, 2300, 600, 0.15, w_down, $bird_amp) 901 bird(1.02, 0.03, 3500, 400, 0.20, w_up, $bird_amp) 902 bird(1.06, 0.04, 2300, 1200, 0.10, w_up, $bird_amp) 903 bird(1.13, 0.05, 2300, 1200, 0.15, w_down, $bird_amp) 904 bird(1.22, 0.02, 3200, 800, 0.25, w_up, $bird_amp) 905 bird(1.25, 0.08, 2400, 600, 0.20, w_updown, $bird_amp) 906 bird(1.35, 0.02, 2200, 400, 0.10, w_up, $bird_amp) 907 bird(1.38, 0.07, 2400, 1400, 0.15, w_down, $bird_amp) 908 bird(1.47, 0.03, 3000, 800, 0.20, w_up, $bird_amp) 909 bird(1.50, 0.03, 2500, 400, 0.10, w_updown, $bird_amp) 910 bird(1.55, 0.01, 2300, 100, 0.05, w_up, $bird_amp) 911 bird(1.56, 0.06, 2200, 1400, 0.15, w_down, $bird_amp) 912 bird(1.65, 0.03, 3100, 800, 0.10, w_up, $bird_amp) 913 bird(1.70, 0.07, 2800, 800, 0.15, w_updown, $bird_amp) 914 bird(1.79, 0.06, 2400, 1000, 0.10, w_down, $bird_amp) 915 bird(1.86, 0.14, 3100, 900, 0.25, w_end, $bird_amp) 916 bird(2.02, 0.12, 3200, 800, 0.20, w_end, $bird_amp) 917 end 918end 919 920 921def lark_bunting(beg) 922 b_down = [0.00, 1.00, 1.00, 0.0] 923 b_up = [0.00, 0.00, 1.00, 1.0] 924 b_trill_one = [0.00, 0.00, 0.06, 0.80, 0.12, 0.00, 0.18, 0.85, 0.24, 0.05, 0.36, 0.90, 0.42, 0.10, 0.48, 0.95, 0.54, 0.20, 0.60, 1.00, 0.66, 0.20, 0.72, 1.00, 0.78, 0.20, 0.84, 1.00, 0.90, 0.20, 1.00, 1.0] 925 b_trill_two = [0.00, 0.00, 0.05, 0.80, 0.10, 0.00, 0.15, 0.85, 0.20, 0.00, 0.25, 0.90, 0.30, 0.00, 0.35, 0.95, 0.40, 0.00, 0.45, 1.00, 0.50, 0.00, 0.55, 1.00, 0.60, 0.00, 0.65, 1.00, 0.70, 0.00, 0.75, 1.00, 0.80, 0.00, 0.85, 1.00, 0.90, 0.00, 0.95, 1.00, 1.00, 0.0] 926 927 one_bird(beg, 3.0, "lark_bunting") do 928 bird(0.1, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 929 bird(0.2, 0.12, 3700, 400, 0.2, b_up, $bird_amp) 930 931 bird(0.4, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 932 bird(0.45, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 933 bird(0.51, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 934 935 bird(0.6, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 936 bird(0.65, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 937 bird(0.71, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 938 939 bird(0.8, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 940 bird(0.85, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 941 bird(0.91, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 942 943 bird(1.0, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 944 bird(1.05, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 945 bird(1.11, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 946 947 bird(1.2, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 948 bird(1.25, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 949 bird(1.31, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 950 951 bird(1.4, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 952 bird(1.45, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 953 bird(1.51, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 954 955 bird(1.6, 0.03, 4100, 500, 0.15, b_down, $bird_amp) 956 bird(1.65, 0.05, 2000, 400, 0.20, b_down, $bird_amp) 957 bird(1.71, 0.03, 1800, 100, 0.1, b_up, $bird_amp) 958 959 bird(1.77, 0.23, 6000, 600, 0.15, b_trill_one, $bird_amp) 960 bird(2.005, 0.28, 6000, 600, 0.15, b_trill_two, $bird_amp) 961 end 962end 963 964 965def eastern_bluebird(beg) 966 blue_one = [0.00, 0.00, 1.00, 1.0] 967 blue_two = [0.00, 1.00, 1.00, 0.0] 968 blue_three = [0.00, 0.60, 0.10, 1.00, 0.20, 0.00, 0.25, 1.00, 0.30, 0.00, 0.35, 1.00, 0.40, 0.00, 0.45, 1.00, 0.50, 0.00, 0.75, 1.00, 1.00, 0.0] 969 blue_four = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 970 blue_five = [0.00, 0.50, 0.10, 1.00, 0.20, 0.00, 0.35, 1.00, 0.50, 0.00, 0.65, 1.00, 0.80, 0.00, 0.95, 1.00, 1.00, 0.50] 971 972 one_bird(beg, 3.0, "eastern_bluebird") do 973 bird(0.75, 0.02, 2000, 1600, 0.1, blue_one, $bird_amp) 974 bird(0.80, 0.02, 2000, 1600, 0.1, blue_one, $bird_amp) 975 bird(0.86, 0.02, 2000, 1600, 0.1, blue_one, $bird_amp) 976 bird(1.00, 0.13, 2000, 1400, 0.2, blue_two, $bird_amp) 977 bird(1.20, 0.24, 2000, 800, 0.2, blue_three, $bird_amp) 978 bird(1.68, 0.03, 2200, 400, 0.1, blue_one, $bird_amp) 979 bird(1.72, 0.10, 1950, 100, 0.15, blue_four, $bird_amp) 980 bird(1.96, 0.15, 2000, 600, 0.20, blue_five, $bird_amp) 981 end 982end 983 984 985def chuck_wills_widow(beg) 986 wid_down = [0.00, 1.00, 1.00, 0.0] 987 wid_one = [0.00, 0.00, 0.10, 0.10, 0.25, 1.00, 0.50, 0.30, 0.80, 0.70, 1.00, 0.0] 988 wid_two = [0.00, 0.20, 0.30, 1.00, 0.50, 0.30, 0.60, 0.70, 0.90, 0.10, 1.00, 0.0] 989 990 one_bird(beg, 1.0, "chuck_wills_widow") do 991 bird(0.05, 0.03, 1000, 800, 0.1, wid_down, $bird_amp) 992 bird(0.32, 0.20, 1000, 1000, 0.2, wid_one, $bird_amp) 993 bird(0.56, 0.29, 900, 1100, 0.2, wid_two, $bird_amp) 994 end 995end 996 997 998def blue_gray_gnatcatcher(beg) 999 gskw1 = [0.00, 0.00, 0.15, 1.00, 0.75, 0.80, 0.90, 1.00, 1.00, 0.70] 1000 gskw2 = [0.00, 0.00, 0.25, 1.00, 0.75, 0.70, 1.00, 0.0] 1001 1002 one_bird(beg, 3.0, "blue_gray_gnatcatcher") do 1003 bigbird(0.5, 0.20, 4000, 1000, 0.2, gskw1, $bird_amp, [1, 0.4, 2, 1, 3, 0.1]) 1004 bigbird(0.8, 0.13, 4000, 800, 0.2, gskw2, $bird_amp, [1, 0.4, 2, 1, 3, 0.2]) 1005 1006 bigbird(1.4, 0.25, 4000, 800, 0.2, gskw2, $bird_amp, [1, 0.4, 2, 1, 3, 0.3]) 1007 bigbird(1.80, 0.17, 4000, 900, 0.2, gskw1, $bird_amp, [1, 0.4, 2, 1, 3, 0.3]) 1008 bigbird(2.00, 0.17, 4000, 700, 0.2, gskw1, $bird_amp, [1, 0.4, 2, 1, 3, 0.3]) 1009 bigbird(2.20, 0.17, 4000, 800, 0.2, gskw2, $bird_amp, [1, 0.4, 2, 1, 3, 0.3]) 1010 end 1011end 1012 1013 1014def black_throated_sparrow(beg) 1015 black_up = [0.00, 0.00, 1.00, 1.0] 1016 black_down = [0.00, 1.00, 1.00, 0.0] 1017 black_down_amp = [0.00, 0.00, 0.75, 1.00, 1.00, 0.0] 1018 black_trill = [0.00, 0.00, 0.03, 0.70, 0.06, 0.00, 0.09, 0.75, 0.12, 0.00, 0.15, 0.80, 0.18, 0.05, 0.21, 0.85, 0.24, 0.10, 0.27, 0.90, 0.30, 0.10, 0.33, 1.00, 0.36, 0.10, 0.39, 1.00, 0.42, 0.10, 0.45, 1.00, 0.48, 0.10, 0.51, 1.00, 0.54, 0.10, 0.57, 1.00, 0.60, 0.10, 0.63, 1.00, 0.66, 0.10, 0.69, 1.00, 0.72, 0.10, 0.75, 1.00, 0.78, 0.10, 0.81, 1.00, 0.84, 0.10, 0.87, 1.00, 0.90, 0.00, 0.93, 0.95, 0.96, 0.00, 1.00, 0.90] 1019 black_up_down = [0.00, 0.00, 0.50, 1.00, 1.00, 0.20] 1020 black_amp = [0.00, 0.00, 0.50, 1.00, 1.00, 0.0] 1021 1022 one_bird(beg, 3.0, "black_throated_sparrow") do 1023 bird(0.8, 0.02, 2200, 1000, 0.1, black_down, $bird_amp) 1024 bird(0.83, 0.01, 3000, 200, 0.05, black_up, $bird_amp) 1025 bird(0.96, 0.02, 5800, 500, 0.05, black_up, $bird_amp) 1026 bird(1.00, 0.02, 4000, 200, 0.05, black_up, $bird_amp) 1027 bird(1.04, 0.10, 2100, 1700, 0.15, black_down, black_down_amp) 1028 bird(1.15, 0.05, 5700, 400, 0.25, black_up, $bird_amp) 1029 bird(1.25, 0.25, 2000, 900, 0.2, black_trill, $bird_amp) 1030 bird(1.52, 0.05, 5600, 400, 0.15, black_up_down, $bird_amp) 1031 1032 bird(1.6, 0.04, 3900, 1100, 0.15, black_up, $bird_amp) 1033 bird(1.66, 0.01, 1900, 100, 0.10, black_up, black_amp) 1034 1035 bird(1.69, 0.01, 3600, 300, 0.10, black_up, black_amp) 1036 bird(1.71, 0.03, 3900, 1000, 0.15, black_up, black_amp) 1037 bird(1.74, 0.02, 5000, 100, 0.20, black_up, black_amp) 1038 bird(1.76, 0.01, 1900, 100, 0.10, black_up, black_amp) 1039 1040 bird(1.78, 0.01, 3600, 300, 0.10, black_up, black_amp) 1041 bird(1.80, 0.03, 3900, 1000, 0.15, black_up, black_amp) 1042 bird(1.83, 0.02, 5000, 100, 0.20, black_up, black_amp) 1043 bird(1.85, 0.01, 1900, 100, 0.10, black_up, black_amp) 1044 1045 bird(1.87, 0.01, 3600, 300, 0.10, black_up, black_amp) 1046 bird(1.89, 0.03, 3900, 1000, 0.15, black_up, black_amp) 1047 bird(1.92, 0.02, 5000, 100, 0.20, black_up, black_amp) 1048 bird(1.94, 0.01, 1900, 100, 0.10, black_up, black_amp) 1049 1050 bird(1.96, 0.01, 3600, 300, 0.10, black_up, black_amp) 1051 bird(1.98, 0.03, 3900, 1000, 0.15, black_up, black_amp) 1052 bird(2.01, 0.02, 5000, 100, 0.20, black_up, black_amp) 1053 bird(2.03, 0.01, 1900, 100, 0.10, black_up, black_amp) 1054 1055 bird(2.05, 0.01, 3600, 300, 0.10, black_up, black_amp) 1056 bird(2.07, 0.03, 3900, 1000, 0.15, black_up, black_amp) 1057 bird(2.10, 0.02, 5000, 100, 0.20, black_up, black_amp) 1058 bird(2.13, 0.01, 1900, 100, 0.10, black_up, black_amp) 1059 1060 bird(2.16, 0.03, 3800, 300, 0.1, black_up, $bird_amp) 1061 end 1062end 1063 1064 1065 1066def black_chinned_sparrow(beg) 1067 chin_up = [0.00, 0.00, 1.00, 1.0] 1068 chin_up2 = [0.00, 0.00, 0.30, 0.20, 1.00, 1.0] 1069 1070 one_bird(beg, 3.0, "black_chinned_sparrow") do 1071 bird(0.6, 0.2, 4200, 100, 0.1, chin_up, $bird_amp) 1072 bird(1.0, 0.09, 3800, 2000, 0.1, chin_up2, $bird_amp) 1073 bird(1.25, 0.08, 3900, 1700, 0.12, chin_up2, $bird_amp) 1074 bird(1.40, 0.08, 3600, 2300, 0.13, chin_up, $bird_amp) 1075 bird(1.50, 0.11, 3100, 2800, 0.14, chin_up, $bird_amp) 1076 bird(1.65, 0.07, 2900, 2700, 0.15, chin_up, $bird_amp) 1077 bird(1.74, 0.07, 2900, 2700, 0.15, chin_up, $bird_amp) 1078 bird(1.82, 0.07, 3000, 2300, 0.13, chin_up, $bird_amp) 1079 bird(1.89, 0.07, 3200, 2000, 0.10, chin_up, $bird_amp) 1080 bird(1.97, 0.05, 3200, 1500, 0.10, chin_up, $bird_amp) 1081 bird(2.04, 0.04, 3400, 1000, 0.07, chin_up, $bird_amp) 1082 bird(2.10, 0.03, 3600, 700, 0.05, chin_up, $bird_amp) 1083 bird(2.15, 0.03, 3800, 300, 0.05, chin_up, $bird_amp) 1084 bird(2.19, 0.02, 3900, 100, 0.03, chin_up, $bird_amp) 1085 bird(2.22, 0.01, 3900, 100, 0.01, chin_up, $bird_amp) 1086 bird(2.24, 0.01, 3900, 100, 0.01, chin_up, $bird_amp) 1087 end 1088end 1089 1090 1091def various_gull_cries_from_end_of_colony_5(beg) 1092 gullstart = [0, 0, 10, 1, 20, 0.5000, 40, 0.6000, 60, 0.5000, 100, 0] 1093 gullmiddle = [0, 0, 10, 1, 30, 0.5000, 80, 0.5000, 100, 0] 1094 gullend = [0, 0, 5, 1, 10, 0.5000, 90, 0.4000, 100, 0] 1095 unknown = [1, 0.1, 2, 1, 3, 0.1, 4, 0.01, 5, 0.09, 6, 0.01, 7, 0.01] 1096 1097 one_bird(beg, 10.0, "gulls") do 1098 bigbird(0.250, 0.80, 1180, 1180, 0.08, gullend, $bird_amp, unknown) 1099 bigbird(1.500, 0.90, 1180, 1180, 0.07, gullend, $bird_amp, unknown) 1100 bigbird(2.750, 1.00, 1050, 1050, 0.08, gullend, $bird_amp, unknown) 1101 bigbird(4.800, 0.05, 1180, 1180, 0.06, gullstart, $bird_amp, unknown) 1102 bigbird(4.950, 0.10, 1180, 1180, 0.08, gullstart, $bird_amp, unknown) 1103 bigbird(5.150, 0.10, 1180, 1180, 0.09, gullstart, $bird_amp, unknown) 1104 bigbird(5.350, 0.10, 1180, 1180, 0.1, gullmiddle, $bird_amp, unknown) 1105 bigbird(5.450, 0.40, 1050, 1050, 0.1, gullend, $bird_amp, unknown) 1106 bigbird(6.250, 0.80, 1050, 1050, 0.1, gullend, $bird_amp, unknown) 1107 bigbird(7.450, 1.80, 1050, 1050, 0.1, gullend, $bird_amp, unknown) 1108 end 1109end 1110 1111 1112def make_birds 1113# atime = Time.new 1114 $out_file = new_sound("test.snd") 1115 set_squelch_update(true, $out_file, 0) 1116 orchard_oriole(0) 1117 cassins_kingbird(3) 1118 chipping_sparrow(6) 1119 bobwhite(9) 1120 western_meadowlark(12) 1121 scissor_tailed_flycatcher(15) 1122 great_horned_owl(18) 1123 black_throated_gray_warbler(21) 1124 yellow_warbler(24) 1125 black_necked_stilt(27) 1126 chestnut_sided_warbler(30) 1127 grasshopper_sparrow(33) 1128 swamp_sparrow(36) 1129 golden_crowned_sparrow(39) 1130 indigo_bunting(42) 1131 hooded_warbler(45) 1132 american_widgeon(48) 1133 louisiana_waterthrush(51) 1134 robin(54) 1135 solitary_vireo(57) 1136 pigeon_hawk(61) 1137 cerulean_warbler(64) 1138 nashville_warbler(67) 1139 eastern_phoebe(70) 1140 painted_bunting(73) 1141 western_flycatcher(76) 1142 bachmans_sparrow(79) 1143 cedar_waxwing(82) 1144 bairds_sparrow(85) 1145 kentucky_warbler(88) 1146 rufous_sided_towhee(91) 1147 prothonotary_warbler(94) 1148 audubons_warbler(97) 1149 lark_bunting(100) 1150 eastern_bluebird(103) 1151 chuck_wills_widow(106) 1152 blue_gray_gnatcatcher(109) 1153 black_throated_sparrow(112) 1154 black_chinned_sparrow(115) 1155 set_squelch_update(false, $out_file, 0) 1156 various_gull_cries_from_end_of_colony_5(118) 1157 $out_data = false 1158# btime = Time.new 1159# $stderr.write sprintf("time: %f\n", btime - atime) 1160end 1161 1162