/ MacFormat 1995 April / macformat-023.iso / Shareware City / Sound / outofphase1.03nofpu / OutOfPhase 1.03 Distribution / Demo Sounds / LowpassSaw&Square

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 79 6e 32 02 00 00 00 | 00 00 00 ee 56 00 00 64 |Syn2....|....V..d|
|00000010| 00 00 00 00 3b 58 08 80 | 84 1e 00 08 01 01 80 84 |....;X..|........|
|00000020| 1e 00 00 12 7a 00 01 00 | 15 00 00 00 23 73 6f 6e |....z...|....#son|
|00000030| 67 20 70 6f 73 74 70 72 | 6f 63 65 73 73 69 6e 67 |g postpr|ocessing|
|00000040| 0a 02 00 00 00 02 1a 00 | 2f 00 f4 01 22 01 10 00 |........|/..."...|
|00000050| 00 00 4c 6f 77 70 61 73 | 73 20 53 61 77 74 6f 6f |..Lowpas|s Sawtoo|
|00000060| 74 68 00 00 00 00 00 00 | 00 00 01 00 00 00 00 00 |th......|........|
|00000070| 40 42 0f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |@B......|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 40 42 0f 00 |........|....@B..|
|00000090| 40 42 0f 00 00 00 00 00 | 00 40 42 0f 00 00 00 00 |@B......|.@B.....|
|000000a0| 00 00 00 00 00 00 01 01 | 10 00 00 00 4c 6f 77 70 |........|....Lowp|
|000000b0| 61 73 73 20 53 61 77 74 | 6f 6f 74 68 00 18 00 00 |ass Sawt|ooth....|
|000000c0| 00 23 63 68 61 6e 6e 65 | 6c 20 70 6f 73 74 70 72 |.#channe|l postpr|
|000000d0| 6f 63 65 73 73 69 6e 67 | 0a 02 01 00 00 00 01 00 |ocessing|........|
|000000e0| 00 00 09 94 28 00 c0 00 | 00 00 00 00 00 00 00 00 |....(...|........|
|000000f0| 00 00 e8 03 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| ff ff e8 03 e8 03 00 00 | e8 03 00 00 00 00 00 00 |........|........|
|00000110| 02 1a 00 2f 00 f4 01 22 | 01 0e 00 00 00 4c 6f 77 |.../..."|.....Low|
|00000120| 70 61 73 73 20 53 71 75 | 61 72 65 00 00 00 00 00 |pass Squ|are.....|
|00000130| 00 00 00 01 00 00 00 00 | 00 40 42 0f 00 00 00 00 |........|.@B.....|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 40 42 0f | 00 40 42 0f 00 00 00 00 |.....@B.|.@B.....|
|00000160| 00 00 40 42 0f 00 00 00 | 00 00 00 00 00 00 00 01 |..@B....|........|
|00000170| 01 0e 00 00 00 4c 6f 77 | 70 61 73 73 20 53 71 75 |.....Low|pass Squ|
|00000180| 61 72 65 00 18 00 00 00 | 23 63 68 61 6e 6e 65 6c |are.....|#channel|
|00000190| 20 70 6f 73 74 70 72 6f | 63 65 73 73 69 6e 67 0a | postpro|cessing.|
|000001a0| 02 03 00 00 00 01 00 00 | 00 09 96 28 00 c0 00 00 |........|...(....|
|000001b0| 00 00 00 00 00 00 00 00 | 00 e8 03 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 ff | ff e8 03 e8 03 00 00 e8 |........|........|
|000001d0| 03 00 00 01 00 00 00 05 | 96 28 00 c0 00 00 00 00 |........|.(......|
|000001e0| 00 00 00 00 00 00 00 e8 | 03 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 ff ff e8 | 03 e8 03 00 00 e8 03 00 |........|........|
|00000200| 00 01 00 00 00 09 94 28 | 00 c0 00 00 00 00 00 00 |.......(|........|
|00000210| 00 00 00 00 00 e8 03 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 ff ff e8 03 e8 | 03 00 00 e8 03 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 05 00 00 00 01 |........|........|
|00000240| 0f 00 28 00 67 02 4b 01 | 0c 00 00 00 52 65 73 6f |..(.g.K.|....Reso|
|00000250| 6e 20 46 69 6c 74 65 72 | 9b 06 00 00 23 20 73 65 |n Filter|....# se|
|00000260| 63 6f 6e 64 20 6f 72 64 | 65 72 20 72 65 63 75 72 |cond ord|er recur|
|00000270| 73 69 76 65 20 66 69 6c | 74 65 72 2e 0a 23 20 66 |sive fil|ter..# f|
|00000280| 72 6f 6d 20 41 70 70 65 | 6e 64 69 78 20 28 70 61 |rom Appe|ndix (pa|
|00000290| 67 65 20 33 34 39 2d 33 | 35 30 29 20 6f 66 0a 23 |ge 349-3|50) of.#|
|000002a0| 20 44 6f 64 67 65 2c 20 | 43 68 61 72 6c 65 73 20 | Dodge, |Charles |
|000002b0| 61 6e 64 20 4a 65 72 73 | 65 2c 20 54 68 6f 6d 61 |and Jers|e, Thoma|
|000002c0| 73 20 41 2e 0a 23 20 43 | 6f 6d 70 75 74 65 72 20 |s A..# C|omputer |
|000002d0| 4d 75 73 69 63 3a 20 20 | 53 79 6e 74 68 65 73 69 |Music:  |Synthesi|
|000002e0| 73 2c 20 43 6f 6d 70 6f | 73 69 74 69 6f 6e 2c 20 |s, Compo|sition, |
|000002f0| 61 6e 64 20 50 65 72 66 | 6f 72 6d 61 6e 63 65 0a |and Perf|ormance.|
|00000300| 23 20 53 63 68 69 72 6d | 65 72 20 42 6f 6f 6b 73 |# Schirm|er Books|
|00000310| 2c 20 4e 65 77 20 59 6f | 72 6b 2c 20 31 39 38 35 |, New Yo|rk, 1985|
|00000320| 0a 0a 23 20 66 69 6c 74 | 65 72 20 73 65 74 20 75 |..# filt|er set u|
|00000330| 70 20 66 75 6e 63 74 69 | 6f 6e 0a 23 20 20 20 63 |p functi|on.#   c|
|00000340| 66 20 3d 20 63 65 6e 74 | 65 72 20 66 72 65 71 75 |f = cent|er frequ|
|00000350| 65 6e 63 79 20 69 6e 20 | 48 65 72 74 7a 2e 0a 23 |ency in |Hertz..#|
|00000360| 20 20 20 62 77 20 3d 20 | 33 20 64 42 20 62 61 6e |   bw = |3 dB ban|
|00000370| 64 77 69 64 74 68 20 69 | 6e 20 48 65 72 74 7a 0a |dwidth i|n Hertz.|
|00000380| 23 20 20 20 73 63 6c 20 | 3d 20 61 6d 70 6c 69 74 |#   scl |= amplit|
|00000390| 75 64 65 20 73 63 61 6c | 69 6e 67 20 6d 65 74 68 |ude scal|ing meth|
|000003a0| 6f 64 0a 23 20 20 20 20 | 20 30 20 3d 20 6e 6f 20 |od.#    | 0 = no |
|000003b0| 73 63 61 6c 69 6e 67 0a | 23 20 20 20 20 20 31 20 |scaling.|#     1 |
|000003c0| 3d 20 67 61 69 6e 20 3d | 20 31 20 61 74 20 63 66 |= gain =| 1 at cf|
|000003d0| 0a 23 20 20 20 20 20 32 | 20 3d 20 67 61 69 6e 20 |.#     2| = gain |
|000003e0| 3d 20 31 20 6f 6e 20 77 | 68 69 74 65 20 6e 6f 69 |= 1 on w|hite noi|
|000003f0| 73 65 20 69 6e 70 75 74 | 0a 23 20 20 20 73 72 20 |se input|.#   sr |
|00000400| 3d 20 73 61 6d 70 6c 69 | 6e 67 20 72 61 74 65 20 |= sampli|ng rate |
|00000410| 69 6e 20 48 65 72 74 7a | 0a 23 20 20 20 72 65 74 |in Hertz|.#   ret|
|00000420| 75 72 6e 73 20 61 72 72 | 61 79 20 66 6f 72 20 77 |urns arr|ay for w|
|00000430| 6f 72 6b 73 70 61 63 65 | 0a 66 75 6e 63 20 72 73 |orkspace|.func rs|
|00000440| 6e 73 65 74 28 63 66 3a | 64 6f 75 62 6c 65 2c 20 |nset(cf:|double, |
|00000450| 62 77 3a 64 6f 75 62 6c | 65 2c 20 73 63 6c 3a 69 |bw:doubl|e, scl:i|
|00000460| 6e 74 2c 20 73 72 3a 64 | 6f 75 62 6c 65 29 20 3a |nt, sr:d|ouble) :|
|00000470| 20 64 6f 75 62 6c 65 61 | 72 72 61 79 0a 09 28 0a | doublea|rray..(.|
|00000480| 09 09 76 61 72 20 61 3a | 64 6f 75 62 6c 65 61 72 |..var a:|doublear|
|00000490| 72 61 79 28 35 29 3b 0a | 09 09 73 65 74 20 61 5b |ray(5);.|..set a[|
|000004a0| 32 5d 20 3a 3d 20 65 78 | 70 28 2d 20 32 20 2a 20 |2] := ex|p(- 2 * |
|000004b0| 70 69 20 2a 20 62 77 20 | 2f 20 73 72 29 3b 0a 09 |pi * bw |/ sr);..|
|000004c0| 09 76 61 72 20 63 3a 64 | 6f 75 62 6c 65 20 3d 20 |.var c:d|ouble = |
|000004d0| 31 20 2b 20 61 5b 32 5d | 3b 0a 09 09 73 65 74 20 |1 + a[2]|;...set |
|000004e0| 61 5b 31 5d 20 3a 3d 20 | 2d 34 20 2a 20 61 5b 32 |a[1] := |-4 * a[2|
|000004f0| 5d 20 2f 20 63 20 2a 20 | 63 6f 73 28 32 20 2a 20 |] / c * |cos(2 * |
|00000500| 70 69 20 2a 20 63 66 20 | 2f 20 73 72 29 3b 0a 09 |pi * cf |/ sr);..|
|00000510| 09 69 66 20 28 73 63 6c | 20 3d 20 32 29 20 74 68 |.if (scl| = 2) th|
|00000520| 65 6e 0a 09 09 09 73 65 | 74 20 61 5b 30 5d 20 3a |en....se|t a[0] :|
|00000530| 3d 20 73 71 72 74 28 28 | 31 20 2d 20 61 5b 32 5d |= sqrt((|1 - a[2]|
|00000540| 29 20 2f 20 63 20 2a 20 | 28 63 20 2a 20 63 20 2d |) / c * |(c * c -|
|00000550| 20 61 5b 31 5d 20 2a 20 | 61 5b 31 5d 29 29 0a 09 | a[1] * |a[1]))..|
|00000560| 09 65 6c 73 65 20 69 66 | 20 28 73 63 6c 20 3d 20 |.else if| (scl = |
|00000570| 31 29 20 74 68 65 6e 0a | 09 09 09 73 65 74 20 61 |1) then.|...set a|
|00000580| 5b 30 5d 20 3a 3d 20 28 | 31 20 2d 20 61 5b 32 5d |[0] := (|1 - a[2]|
|00000590| 29 20 2a 20 73 71 72 74 | 28 31 20 2d 20 61 5b 31 |) * sqrt|(1 - a[1|
|000005a0| 5d 20 2a 20 61 5b 31 5d | 20 2f 20 28 34 20 2a 20 |] * a[1]| / (4 * |
|000005b0| 61 5b 32 5d 29 29 0a 09 | 09 65 6c 73 65 0a 09 09 |a[2]))..|.else...|
|000005c0| 09 73 65 74 20 61 5b 30 | 5d 20 3a 3d 20 31 3b 0a |.set a[0|] := 1;.|
|000005d0| 09 09 61 0a 09 29 3b 0a | 0a 23 20 61 70 70 6c 79 |..a..);.|.# apply|
|000005e0| 20 74 68 65 20 66 69 6c | 74 65 72 20 74 6f 20 6f | the fil|ter to o|
|000005f0| 6e 65 20 73 61 6d 70 6c | 65 0a 23 20 20 20 78 69 |ne sampl|e.#   xi|
|00000600| 6e 20 3d 20 73 61 6d 70 | 6c 65 20 70 6f 69 6e 74 |n = samp|le point|
|00000610| 20 69 6e 20 5b 2d 31 2e | 2e 31 5d 0a 23 20 20 20 | in [-1.|.1].#   |
|00000620| 61 20 3d 20 77 6f 72 6b | 73 70 61 63 65 20 61 72 |a = work|space ar|
|00000630| 72 61 79 0a 23 20 20 20 | 72 65 74 75 72 6e 73 20 |ray.#   |returns |
|00000640| 74 68 65 20 6e 65 77 20 | 73 61 6d 70 6c 65 20 70 |the new |sample p|
|00000650| 6f 69 6e 74 0a 66 75 6e | 63 20 72 65 73 6f 6e 28 |oint.fun|c reson(|
|00000660| 78 69 6e 3a 64 6f 75 62 | 6c 65 2c 20 61 3a 64 6f |xin:doub|le, a:do|
|00000670| 75 62 6c 65 61 72 72 61 | 79 29 20 3a 20 64 6f 75 |ublearra|y) : dou|
|00000680| 62 6c 65 0a 09 28 0a 09 | 09 76 61 72 20 79 69 3a |ble..(..|.var yi:|
|00000690| 64 6f 75 62 6c 65 20 3d | 20 61 5b 30 5d 20 2a 20 |double =| a[0] * |
|000006a0| 78 69 6e 20 2d 20 61 5b | 31 5d 20 2a 20 61 5b 33 |xin - a[|1] * a[3|
|000006b0| 5d 20 2d 20 61 5b 32 5d | 20 2a 20 61 5b 34 5d 3b |] - a[2]| * a[4];|
|000006c0| 0a 09 09 73 65 74 20 61 | 5b 34 5d 20 3a 3d 20 61 |...set a|[4] := a|
|000006d0| 5b 33 5d 3b 0a 09 09 73 | 65 74 20 61 5b 33 5d 20 |[3];...s|et a[3] |
|000006e0| 3a 3d 20 79 69 0a 09 29 | 3b 0a 0a 23 20 61 70 70 |:= yi..)|;..# app|
|000006f0| 6c 79 20 66 69 6c 74 65 | 72 20 74 6f 20 61 20 72 |ly filte|r to a r|
|00000700| 61 6e 67 65 20 6f 66 20 | 73 61 6d 70 6c 65 73 2e |ange of |samples.|
|00000710| 20 20 6f 6e 65 20 70 61 | 73 73 20 69 73 20 6d 61 |  one pa|ss is ma|
|00000720| 64 65 20 74 6f 20 73 74 | 61 62 69 6c 69 7a 65 20 |de to st|abilize |
|00000730| 66 69 6c 74 65 72 2c 0a | 23 20 61 6e 64 20 74 68 |filter,.|# and th|
|00000740| 65 20 73 65 63 6f 6e 64 | 20 70 61 73 73 20 69 73 |e second| pass is|
|00000750| 20 74 68 65 6e 20 75 73 | 65 64 0a 66 75 6e 63 20 | then us|ed.func |
|00000760| 61 70 70 6c 79 72 65 73 | 6f 6e 28 64 61 74 61 3a |applyres|on(data:|
|00000770| 66 69 78 65 64 61 72 72 | 61 79 2c 20 73 74 61 72 |fixedarr|ay, star|
|00000780| 74 3a 69 6e 74 2c 20 6c | 65 6e 3a 69 6e 74 2c 20 |t:int, l|en:int, |
|00000790| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 2c 20 63 |a:double|array, c|
|000007a0| 6f 75 6e 74 3a 69 6e 74 | 29 20 3a 20 66 69 78 65 |ount:int|) : fixe|
|000007b0| 64 61 72 72 61 79 0a 09 | 28 0a 09 09 76 61 72 20 |darray..|(...var |
|000007c0| 69 3a 69 6e 74 20 3d 20 | 30 3b 0a 09 09 77 68 69 |i:int = |0;...whi|
|000007d0| 6c 65 20 63 6f 75 6e 74 | 20 3e 20 30 20 64 6f 0a |le count| > 0 do.|
|000007e0| 09 09 09 28 0a 09 09 09 | 09 73 65 74 20 69 20 3a |...(....|.set i :|
|000007f0| 3d 20 30 3b 0a 09 09 09 | 09 77 68 69 6c 65 20 69 |= 0;....|.while i|
|00000800| 20 3c 20 6c 65 6e 20 64 | 6f 0a 09 09 09 09 09 28 | < len d|o......(|
|00000810| 0a 09 09 09 09 09 09 72 | 65 73 6f 6e 28 64 61 74 |.......r|eson(dat|
|00000820| 61 5b 73 74 61 72 74 20 | 2b 20 69 5d 2c 61 29 3b |a[start |+ i],a);|
|00000830| 0a 09 09 09 09 09 09 73 | 65 74 20 69 20 3a 3d 20 |.......s|et i := |
|00000840| 69 20 2b 20 31 3b 0a 09 | 09 09 09 09 29 3b 0a 09 |i + 1;..|....);..|
|00000850| 09 09 09 73 65 74 20 63 | 6f 75 6e 74 20 3a 3d 20 |...set c|ount := |
|00000860| 63 6f 75 6e 74 20 2d 20 | 31 3b 0a 09 09 09 29 3b |count - |1;....);|
|00000870| 0a 09 09 73 65 74 20 69 | 20 3a 3d 20 30 3b 0a 09 |...set i| := 0;..|
|00000880| 09 77 68 69 6c 65 20 69 | 20 3c 20 6c 65 6e 20 64 |.while i| < len d|
|00000890| 6f 0a 09 09 09 28 0a 09 | 09 09 09 73 65 74 20 64 |o....(..|...set d|
|000008a0| 61 74 61 5b 73 74 61 72 | 74 20 2b 20 69 5d 20 3a |ata[star|t + i] :|
|000008b0| 3d 20 66 69 78 65 64 20 | 72 65 73 6f 6e 28 64 61 |= fixed |reson(da|
|000008c0| 74 61 5b 73 74 61 72 74 | 20 2b 20 69 5d 2c 61 29 |ta[start| + i],a)|
|000008d0| 3b 0a 09 09 09 09 73 65 | 74 20 69 20 3a 3d 20 69 |;.....se|t i := i|
|000008e0| 20 2b 20 31 3b 0a 09 09 | 09 29 3b 0a 09 09 64 61 | + 1;...|.);...da|
|000008f0| 74 61 0a 09 29 3b 0a 01 | 13 00 14 00 55 02 65 01 |ta..);..|....U.e.|
|00000900| 09 00 00 00 4e 6f 72 6d | 61 6c 69 7a 65 8f 04 00 |....Norm|alize...|
|00000910| 00 23 20 74 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |.# this |function|
|00000920| 20 6e 6f 72 6d 61 6c 69 | 7a 65 73 20 74 68 65 20 | normali|zes the |
|00000930| 7a 6f 6e 65 20 69 6e 20 | 74 68 65 20 61 72 72 61 |zone in |the arra|
|00000940| 79 0a 66 75 6e 63 20 6e | 6f 72 6d 61 6c 69 7a 65 |y.func n|ormalize|
|00000950| 73 65 67 6d 65 6e 74 28 | 64 61 74 61 3a 66 69 78 |segment(|data:fix|
|00000960| 65 64 61 72 72 61 79 2c | 73 74 61 72 74 3a 69 6e |edarray,|start:in|
|00000970| 74 2c 6c 65 6e 3a 69 6e | 74 29 3a 66 69 78 65 64 |t,len:in|t):fixed|
|00000980| 61 72 72 61 79 0a 09 28 | 0a 09 09 76 61 72 20 69 |array..(|...var i|
|00000990| 3a 69 6e 74 20 3d 20 30 | 3b 0a 09 09 76 61 72 20 |:int = 0|;...var |
|000009a0| 6d 61 78 3a 64 6f 75 62 | 6c 65 20 3d 20 30 3b 0a |max:doub|le = 0;.|
|000009b0| 0a 09 09 77 68 69 6c 65 | 20 69 20 3c 20 6c 65 6e |...while| i < len|
|000009c0| 20 64 6f 0a 09 09 09 28 | 0a 09 09 09 09 76 61 72 | do....(|.....var|
|000009d0| 20 70 6f 69 6e 74 3a 64 | 6f 75 62 6c 65 20 3d 20 | point:d|ouble = |
|000009e0| 61 62 73 20 64 61 74 61 | 5b 73 74 61 72 74 20 2b |abs data|[start +|
|000009f0| 20 69 5d 3b 0a 09 09 09 | 09 69 66 20 6d 61 78 20 | i];....|.if max |
|00000a00| 3c 20 70 6f 69 6e 74 20 | 74 68 65 6e 20 73 65 74 |< point |then set|
|00000a10| 20 6d 61 78 20 3a 3d 20 | 70 6f 69 6e 74 3b 0a 09 | max := |point;..|
|00000a20| 09 09 09 73 65 74 20 69 | 20 3a 3d 20 69 20 2b 20 |...set i| := i + |
|00000a30| 31 3b 0a 09 09 09 29 3b | 0a 0a 09 09 73 65 74 20 |1;....);|....set |
|00000a40| 69 20 3a 3d 20 30 3b 0a | 09 09 69 66 20 6d 61 78 |i := 0;.|..if max|
|00000a50| 20 3c 20 2e 30 31 20 74 | 68 65 6e 20 65 72 72 6f | < .01 t|hen erro|
|00000a60| 72 20 22 6e 6f 72 6d 61 | 6c 69 7a 65 73 65 67 6d |r "norma|lizesegm|
|00000a70| 65 6e 74 3a 20 20 73 63 | 61 6c 65 20 69 73 20 76 |ent:  sc|ale is v|
|00000a80| 65 72 79 20 6c 61 72 67 | 65 22 20 72 65 73 75 6d |ery larg|e" resum|
|00000a90| 61 62 6c 65 20 74 72 75 | 65 3b 0a 09 09 77 68 69 |able tru|e;...whi|
|00000aa0| 6c 65 20 69 20 3c 20 6c | 65 6e 20 64 6f 0a 09 09 |le i < l|en do...|
|00000ab0| 09 28 0a 09 09 09 09 73 | 65 74 20 64 61 74 61 5b |.(.....s|et data[|
|00000ac0| 73 74 61 72 74 20 2b 20 | 69 5d 20 3a 3d 20 66 69 |start + |i] := fi|
|00000ad0| 78 65 64 28 64 61 74 61 | 5b 73 74 61 72 74 20 2b |xed(data|[start +|
|00000ae0| 20 69 5d 20 2f 20 6d 61 | 78 29 3b 0a 09 09 09 09 | i] / ma|x);.....|
|00000af0| 73 65 74 20 69 20 3a 3d | 20 69 20 2b 20 31 3b 0a |set i :=| i + 1;.|
|00000b00| 09 09 09 29 3b 0a 0a 09 | 09 64 61 74 61 0a 09 29 |...);...|.data..)|
|00000b10| 3b 0a 0a 23 20 74 68 69 | 73 20 66 75 6e 63 74 69 |;..# thi|s functi|
|00000b20| 6f 6e 20 73 63 61 6c 65 | 73 20 61 6e 64 20 73 68 |on scale|s and sh|
|00000b30| 69 66 74 73 20 74 68 65 | 20 73 6f 75 6e 64 20 74 |ifts the| sound t|
|00000b40| 6f 20 6d 61 78 69 6d 69 | 7a 65 20 74 68 65 20 63 |o maximi|ze the c|
|00000b50| 68 61 6e 6e 65 6c 20 75 | 73 61 67 65 0a 66 75 6e |hannel u|sage.fun|
|00000b60| 63 20 6d 61 78 69 6d 69 | 7a 65 73 65 67 6d 65 6e |c maximi|zesegmen|
|00000b70| 74 28 64 61 74 61 3a 66 | 69 78 65 64 61 72 72 61 |t(data:f|ixedarra|
|00000b80| 79 2c 73 74 61 72 74 3a | 69 6e 74 2c 6c 65 6e 3a |y,start:|int,len:|
|00000b90| 69 6e 74 29 3a 66 69 78 | 65 64 61 72 72 61 79 0a |int):fix|edarray.|
|00000ba0| 09 28 0a 09 09 76 61 72 | 20 69 3a 69 6e 74 20 3d |.(...var| i:int =|
|00000bb0| 20 30 3b 0a 09 09 76 61 | 72 20 6d 61 78 3a 64 6f | 0;...va|r max:do|
|00000bc0| 75 62 6c 65 20 3d 20 2d | 31 30 30 30 30 30 30 3b |uble = -|1000000;|
|00000bd0| 0a 09 09 76 61 72 20 6d | 69 6e 3a 64 6f 75 62 6c |...var m|in:doubl|
|00000be0| 65 20 3d 20 31 30 30 30 | 30 30 30 3b 0a 0a 09 09 |e = 1000|000;....|
|00000bf0| 77 68 69 6c 65 20 69 20 | 3c 20 6c 65 6e 20 64 6f |while i |< len do|
|00000c00| 0a 09 09 09 28 0a 09 09 | 09 09 76 61 72 20 69 74 |....(...|..var it|
|00000c10| 65 6d 3a 66 69 78 65 64 | 20 3d 20 64 61 74 61 5b |em:fixed| = data[|
|00000c20| 73 74 61 72 74 20 2b 20 | 69 5d 3b 0a 09 09 09 09 |start + |i];.....|
|00000c30| 69 66 20 6d 61 78 20 3c | 20 69 74 65 6d 20 74 68 |if max <| item th|
|00000c40| 65 6e 20 73 65 74 20 6d | 61 78 20 3a 3d 20 69 74 |en set m|ax := it|
|00000c50| 65 6d 3b 0a 09 09 09 09 | 69 66 20 6d 69 6e 20 3e |em;.....|if min >|
|00000c60| 20 69 74 65 6d 20 74 68 | 65 6e 20 73 65 74 20 6d | item th|en set m|
|00000c70| 69 6e 20 3a 3d 20 69 74 | 65 6d 3b 0a 09 09 09 09 |in := it|em;.....|
|00000c80| 73 65 74 20 69 20 3a 3d | 20 69 20 2b 20 31 3b 0a |set i :=| i + 1;.|
|00000c90| 09 09 09 29 3b 0a 0a 09 | 09 73 65 74 20 69 20 3a |...);...|.set i :|
|00000ca0| 3d 20 30 3b 0a 09 09 76 | 61 72 20 73 70 61 6e 3a |= 0;...v|ar span:|
|00000cb0| 64 6f 75 62 6c 65 20 3d | 20 28 6d 61 78 20 2d 20 |double =| (max - |
|00000cc0| 6d 69 6e 29 20 2f 20 32 | 3b 0a 09 09 69 66 20 73 |min) / 2|;...if s|
|00000cd0| 70 61 6e 20 3c 20 2e 30 | 31 20 74 68 65 6e 20 65 |pan < .0|1 then e|
|00000ce0| 72 72 6f 72 20 22 6d 61 | 78 69 6d 69 7a 65 73 65 |rror "ma|ximizese|
|00000cf0| 67 6d 65 6e 74 3a 20 20 | 73 70 61 6e 20 69 73 20 |gment:  |span is |
|00000d00| 76 65 72 79 20 73 6d 61 | 6c 6c 22 20 72 65 73 75 |very sma|ll" resu|
|00000d10| 6d 61 62 6c 65 20 74 72 | 75 65 3b 0a 09 09 77 68 |mable tr|ue;...wh|
|00000d20| 69 6c 65 20 69 20 3c 20 | 6c 65 6e 20 64 6f 0a 09 |ile i < |len do..|
|00000d30| 09 09 28 0a 09 09 09 09 | 73 65 74 20 64 61 74 61 |..(.....|set data|
|00000d40| 5b 73 74 61 72 74 20 2b | 20 69 5d 20 3a 3d 20 66 |[start +| i] := f|
|00000d50| 69 78 65 64 28 28 64 61 | 74 61 5b 73 74 61 72 74 |ixed((da|ta[start|
|00000d60| 20 2b 20 69 5d 20 2d 20 | 6d 69 6e 29 20 2f 20 73 | + i] - |min) / s|
|00000d70| 70 61 6e 20 2d 20 31 29 | 3b 0a 09 09 09 09 73 65 |pan - 1)|;.....se|
|00000d80| 74 20 69 20 3a 3d 20 69 | 20 2b 20 31 3b 0a 09 09 |t i := i| + 1;...|
|00000d90| 09 29 3b 0a 0a 09 09 64 | 61 74 61 0a 09 29 3b 0a |.);....d|ata..);.|
|00000da0| 01 0f 00 1f 00 66 02 55 | 01 0b 00 00 00 50 75 6c |.....f.U|.....Pul|
|00000db0| 73 65 20 57 69 64 74 68 | 7a 03 00 00 23 20 73 74 |se Width|z...# st|
|00000dc0| 61 74 69 63 20 70 75 6c | 73 65 77 69 64 74 68 20 |atic pul|sewidth |
|00000dd0| 66 75 6e 63 74 69 6f 6e | 0a 23 20 20 20 70 68 61 |function|.#   pha|
|00000de0| 73 65 20 3d 20 69 6e 64 | 65 78 20 28 30 2e 2e 31 |se = ind|ex (0..1|
|00000df0| 29 0a 23 20 20 20 64 75 | 74 79 20 3d 20 66 72 61 |).#   du|ty = fra|
|00000e00| 63 74 69 6f 6e 20 61 74 | 20 68 69 67 68 20 6c 65 |ction at| high le|
|00000e10| 76 65 6c 0a 23 20 20 20 | 74 72 61 6e 73 20 3d 20 |vel.#   |trans = |
|00000e20| 66 72 61 63 74 69 6f 6e | 20 69 6e 20 74 72 61 6e |fraction| in tran|
|00000e30| 73 69 74 20 62 65 74 77 | 65 65 6e 20 6c 65 76 65 |sit betw|een leve|
|00000e40| 6c 73 0a 66 75 6e 63 20 | 70 75 6c 73 65 77 69 64 |ls.func |pulsewid|
|00000e50| 74 68 28 70 68 61 73 65 | 3a 64 6f 75 62 6c 65 2c |th(phase|:double,|
|00000e60| 20 64 75 74 79 3a 64 6f | 75 62 6c 65 2c 20 74 72 | duty:do|uble, tr|
|00000e70| 61 6e 73 3a 64 6f 75 62 | 6c 65 29 20 3a 20 64 6f |ans:doub|le) : do|
|00000e80| 75 62 6c 65 0a 09 28 0a | 09 09 76 61 72 20 70 65 |uble..(.|..var pe|
|00000e90| 61 6b 31 3a 64 6f 75 62 | 6c 65 20 3d 20 74 72 61 |ak1:doub|le = tra|
|00000ea0| 6e 73 20 2f 20 34 3b 0a | 09 09 76 61 72 20 70 65 |ns / 4;.|..var pe|
|00000eb0| 61 6b 32 3a 64 6f 75 62 | 6c 65 20 3d 20 70 65 61 |ak2:doub|le = pea|
|00000ec0| 6b 31 20 2b 20 28 64 75 | 74 79 20 2d 20 74 72 61 |k1 + (du|ty - tra|
|00000ed0| 6e 73 20 2f 20 32 29 3b | 0a 09 09 76 61 72 20 74 |ns / 2);|...var t|
|00000ee0| 72 6f 75 67 68 31 3a 64 | 6f 75 62 6c 65 20 3d 20 |rough1:d|ouble = |
|00000ef0| 70 65 61 6b 32 20 2b 20 | 74 72 61 6e 73 20 2f 20 |peak2 + |trans / |
|00000f00| 32 3b 0a 09 09 76 61 72 | 20 74 72 6f 75 67 68 32 |2;...var| trough2|
|00000f10| 3a 64 6f 75 62 6c 65 20 | 3d 20 31 20 2d 20 74 72 |:double |= 1 - tr|
|00000f20| 61 6e 73 20 2f 20 34 3b | 0a 0a 09 09 69 66 20 70 |ans / 4;|....if p|
|00000f30| 68 61 73 65 20 3c 20 70 | 65 61 6b 31 20 74 68 65 |hase < p|eak1 the|
|00000f40| 6e 0a 09 09 09 70 68 61 | 73 65 20 2f 20 70 65 61 |n....pha|se / pea|
|00000f50| 6b 31 0a 09 09 65 6c 73 | 65 20 69 66 20 70 68 61 |k1...els|e if pha|
|00000f60| 73 65 20 3c 20 70 65 61 | 6b 32 20 74 68 65 6e 0a |se < pea|k2 then.|
|00000f70| 09 09 09 31 0a 09 09 65 | 6c 73 65 20 69 66 20 70 |...1...e|lse if p|
|00000f80| 68 61 73 65 20 3c 20 74 | 72 6f 75 67 68 31 20 74 |hase < t|rough1 t|
|00000f90| 68 65 6e 0a 09 09 09 28 | 74 72 6f 75 67 68 31 20 |hen....(|trough1 |
|00000fa0| 2d 20 70 68 61 73 65 29 | 20 2f 20 70 65 61 6b 31 |- phase)| / peak1|
|00000fb0| 20 2d 20 31 0a 09 09 65 | 6c 73 65 20 69 66 20 70 | - 1...e|lse if p|
|00000fc0| 68 61 73 65 20 3c 20 74 | 72 6f 75 67 68 32 20 74 |hase < t|rough2 t|
|00000fd0| 68 65 6e 0a 09 09 09 2d | 31 0a 09 09 65 6c 73 65 |hen....-|1...else|
|00000fe0| 0a 09 09 09 28 70 68 61 | 73 65 20 2d 20 74 72 6f |....(pha|se - tro|
|00000ff0| 75 67 68 32 29 20 2f 20 | 28 74 72 61 6e 73 20 2f |ugh2) / |(trans /|
|00001000| 20 34 29 20 2d 20 31 0a | 09 29 3b 0a 0a 23 20 67 | 4) - 1.|.);..# g|
|00001010| 65 6e 65 72 61 74 65 20 | 70 75 6c 73 65 77 69 64 |enerate |pulsewid|
|00001020| 74 68 20 77 61 76 65 66 | 6f 72 6d 20 69 6e 74 6f |th wavef|orm into|
|00001030| 20 61 6e 20 61 72 72 61 | 79 20 73 65 63 74 69 6f | an arra|y sectio|
|00001040| 6e 0a 66 75 6e 63 20 70 | 75 6c 73 65 77 69 64 74 |n.func p|ulsewidt|
|00001050| 68 61 72 72 61 79 28 64 | 61 74 61 3a 66 69 78 65 |harray(d|ata:fixe|
|00001060| 64 61 72 72 61 79 2c 20 | 73 74 61 72 74 3a 69 6e |darray, |start:in|
|00001070| 74 2c 20 6c 65 6e 3a 69 | 6e 74 2c 20 64 75 74 79 |t, len:i|nt, duty|
|00001080| 3a 64 6f 75 62 6c 65 2c | 20 74 72 61 6e 73 3a 64 |:double,| trans:d|
|00001090| 6f 75 62 6c 65 29 20 3a | 20 66 69 78 65 64 61 72 |ouble) :| fixedar|
|000010a0| 72 61 79 0a 09 28 0a 09 | 09 76 61 72 20 69 3a 69 |ray..(..|.var i:i|
|000010b0| 6e 74 20 3d 20 30 3b 0a | 09 09 77 68 69 6c 65 20 |nt = 0;.|..while |
|000010c0| 69 20 3c 20 6c 65 6e 20 | 64 6f 0a 09 09 09 28 0a |i < len |do....(.|
|000010d0| 09 09 09 09 73 65 74 20 | 64 61 74 61 5b 69 20 2b |....set |data[i +|
|000010e0| 20 73 74 61 72 74 5d 20 | 3a 3d 20 66 69 78 65 64 | start] |:= fixed|
|000010f0| 20 70 75 6c 73 65 77 69 | 64 74 68 28 69 20 2f 20 | pulsewi|dth(i / |
|00001100| 6c 65 6e 2c 64 75 74 79 | 2c 74 72 61 6e 73 29 3b |len,duty|,trans);|
|00001110| 0a 09 09 09 09 73 65 74 | 20 69 20 3a 3d 20 69 20 |.....set| i := i |
|00001120| 2b 20 31 3b 0a 09 09 09 | 29 3b 0a 09 09 64 61 74 |+ 1;....|);...dat|
|00001130| 61 0a 09 29 3b 0a 01 4f | 00 2d 00 0e 02 32 01 08 |a..);..O|.-...2..|
|00001140| 00 00 00 53 61 77 74 6f | 6f 74 68 e9 00 00 00 23 |...Sawto|oth....#|
|00001150| 20 67 65 6e 65 72 61 74 | 65 20 61 20 73 61 77 74 | generat|e a sawt|
|00001160| 6f 6f 74 68 20 77 61 76 | 65 0a 66 75 6e 63 20 73 |ooth wav|e.func s|
|00001170| 61 77 74 6f 6f 74 68 61 | 72 72 61 79 28 64 61 74 |awtootha|rray(dat|
|00001180| 61 3a 66 69 78 65 64 61 | 72 72 61 79 2c 20 73 74 |a:fixeda|rray, st|
|00001190| 61 72 74 3a 69 6e 74 2c | 20 6c 65 6e 3a 69 6e 74 |art:int,| len:int|
|000011a0| 29 3a 66 69 78 65 64 61 | 72 72 61 79 0a 09 28 0a |):fixeda|rray..(.|
|000011b0| 09 09 76 61 72 20 69 3a | 69 6e 74 20 3d 20 30 3b |..var i:|int = 0;|
|000011c0| 0a 09 09 77 68 69 6c 65 | 20 69 20 3c 20 6c 65 6e |...while| i < len|
|000011d0| 20 64 6f 0a 09 09 09 28 | 0a 09 09 09 09 73 65 74 | do....(|.....set|
|000011e0| 20 64 61 74 61 5b 69 20 | 2b 20 73 74 61 72 74 5d | data[i |+ start]|
|000011f0| 20 3a 3d 20 66 69 78 65 | 64 28 2d 31 20 2b 20 32 | := fixe|d(-1 + 2|
|00001200| 20 2a 20 69 20 2f 20 28 | 6c 65 6e 20 2d 20 31 29 | * i / (|len - 1)|
|00001210| 29 3b 0a 09 09 09 09 73 | 65 74 20 69 20 3a 3d 20 |);.....s|et i := |
|00001220| 69 20 2b 20 31 3b 0a 09 | 09 09 29 3b 0a 09 09 64 |i + 1;..|..);...d|
|00001230| 61 74 61 0a 09 29 3b 0a | 01 12 00 23 00 5f 02 42 |ata..);.|...#._.B|
|00001240| 01 0b 00 00 00 54 6f 6e | 65 20 46 69 6c 74 65 72 |.....Ton|e Filter|
|00001250| 6a 05 00 00 23 20 66 69 | 72 73 74 20 6f 72 64 65 |j...# fi|rst orde|
|00001260| 72 20 72 65 63 75 72 73 | 69 76 65 20 66 69 6c 74 |r recurs|ive filt|
|00001270| 65 72 2e 0a 23 20 66 72 | 6f 6d 20 41 70 70 65 6e |er..# fr|om Appen|
|00001280| 64 69 78 20 28 70 61 67 | 65 20 33 34 39 29 20 6f |dix (pag|e 349) o|
|00001290| 66 0a 23 20 44 6f 64 67 | 65 2c 20 43 68 61 72 6c |f.# Dodg|e, Charl|
|000012a0| 65 73 20 61 6e 64 20 4a | 65 72 73 65 2c 20 54 68 |es and J|erse, Th|
|000012b0| 6f 6d 61 73 20 41 2e 0a | 23 20 43 6f 6d 70 75 74 |omas A..|# Comput|
|000012c0| 65 72 20 4d 75 73 69 63 | 3a 20 20 53 79 6e 74 68 |er Music|:  Synth|
|000012d0| 65 73 69 73 2c 20 43 6f | 6d 70 6f 73 69 74 69 6f |esis, Co|mpositio|
|000012e0| 6e 2c 20 61 6e 64 20 50 | 65 72 66 6f 72 6d 61 6e |n, and P|erforman|
|000012f0| 63 65 0a 23 20 53 63 68 | 69 72 6d 65 72 20 42 6f |ce.# Sch|irmer Bo|
|00001300| 6f 6b 73 2c 20 4e 65 77 | 20 59 6f 72 6b 2c 20 31 |oks, New| York, 1|
|00001310| 39 38 35 0a 0a 23 20 66 | 69 6c 74 65 72 20 73 65 |985..# f|ilter se|
|00001320| 74 20 75 70 20 66 75 6e | 63 74 69 6f 6e 0a 23 20 |t up fun|ction.# |
|00001330| 20 20 66 63 20 3d 20 63 | 75 74 6f 66 66 20 66 72 |  fc = c|utoff fr|
|00001340| 65 71 75 65 6e 63 79 20 | 69 6e 20 48 65 72 74 7a |equency |in Hertz|
|00001350| 2e 0a 23 20 20 20 20 20 | 66 63 20 3c 20 30 20 3d |..#     |fc < 0 =|
|00001360| 3e 20 68 69 67 68 20 70 | 61 73 73 20 66 69 6c 74 |> high p|ass filt|
|00001370| 65 72 0a 23 20 20 20 20 | 20 66 63 20 3e 20 30 20 |er.#    | fc > 0 |
|00001380| 3d 3e 20 6c 6f 77 20 70 | 61 73 73 20 66 69 6c 74 |=> low p|ass filt|
|00001390| 65 72 0a 23 20 20 20 73 | 72 20 3d 20 73 61 6d 70 |er.#   s|r = samp|
|000013a0| 6c 69 6e 67 20 72 61 74 | 65 20 69 6e 20 48 65 72 |ling rat|e in Her|
|000013b0| 74 7a 0a 23 20 20 20 72 | 65 74 75 72 6e 73 20 61 |tz.#   r|eturns a|
|000013c0| 72 72 61 79 20 6f 66 20 | 33 20 65 6c 65 6d 65 6e |rray of |3 elemen|
|000013d0| 74 73 20 74 6f 20 63 6f | 6e 74 61 69 6e 20 77 6f |ts to co|ntain wo|
|000013e0| 72 6b 73 70 61 63 65 20 | 66 6f 72 20 66 69 6c 74 |rkspace |for filt|
|000013f0| 65 72 0a 66 75 6e 63 20 | 74 6f 6e 65 73 65 74 28 |er.func |toneset(|
|00001400| 66 63 3a 64 6f 75 62 6c | 65 2c 20 73 72 3a 64 6f |fc:doubl|e, sr:do|
|00001410| 75 62 6c 65 29 20 3a 20 | 64 6f 75 62 6c 65 61 72 |uble) : |doublear|
|00001420| 72 61 79 0a 09 28 0a 09 | 09 76 61 72 20 61 3a 64 |ray..(..|.var a:d|
|00001430| 6f 75 62 6c 65 61 72 72 | 61 79 28 33 29 3b 0a 09 |oublearr|ay(3);..|
|00001440| 09 76 61 72 20 62 3a 64 | 6f 75 62 6c 65 20 3d 20 |.var b:d|ouble = |
|00001450| 32 20 2d 20 63 6f 73 28 | 32 20 2a 20 70 69 20 2a |2 - cos(|2 * pi *|
|00001460| 20 66 63 20 2f 20 73 72 | 29 3b 0a 09 09 73 65 74 | fc / sr|);...set|
|00001470| 20 61 5b 31 5d 20 3a 3d | 20 73 71 72 74 28 62 20 | a[1] :=| sqrt(b |
|00001480| 2a 20 62 20 2d 20 31 29 | 20 2d 20 62 3b 0a 09 09 |* b - 1)| - b;...|
|00001490| 73 65 74 20 61 5b 30 5d | 20 3a 3d 20 31 20 2a 20 |set a[0]| := 1 * |
|000014a0| 61 5b 31 5d 3b 0a 09 09 | 69 66 20 66 63 20 3c 20 |a[1];...|if fc < |
|000014b0| 30 20 74 68 65 6e 20 73 | 65 74 20 61 5b 31 5d 20 |0 then s|et a[1] |
|000014c0| 3a 3d 20 2d 61 5b 31 5d | 3b 0a 09 09 61 0a 09 29 |:= -a[1]|;...a..)|
|000014d0| 3b 0a 0a 23 20 66 69 6c | 74 65 72 20 73 69 6e 67 |;..# fil|ter sing|
|000014e0| 6c 65 20 73 74 65 70 20 | 66 75 6e 63 74 69 6f 6e |le step |function|
|000014f0| 0a 23 20 20 20 78 69 6e | 20 3d 20 69 6e 70 75 74 |.#   xin| = input|
|00001500| 20 73 61 6d 70 6c 65 20 | 76 61 6c 75 65 20 5b 2d | sample |value [-|
|00001510| 31 2e 2e 31 5d 0a 23 20 | 20 20 61 20 3d 20 61 72 |1..1].# |  a = ar|
|00001520| 72 61 79 20 6f 62 74 61 | 69 6e 65 64 20 66 72 6f |ray obta|ined fro|
|00001530| 6d 20 74 6f 6e 65 73 65 | 74 0a 23 20 20 20 72 65 |m tonese|t.#   re|
|00001540| 74 75 72 6e 73 20 6e 65 | 77 20 73 61 6d 70 6c 65 |turns ne|w sample|
|00001550| 20 76 61 6c 75 65 0a 66 | 75 6e 63 20 74 6f 6e 65 | value.f|unc tone|
|00001560| 28 78 69 6e 3a 64 6f 75 | 62 6c 65 2c 20 61 3a 64 |(xin:dou|ble, a:d|
|00001570| 6f 75 62 6c 65 61 72 72 | 61 79 29 20 3a 20 64 6f |oublearr|ay) : do|
|00001580| 75 62 6c 65 0a 09 28 0a | 09 09 73 65 74 20 61 5b |uble..(.|..set a[|
|00001590| 32 5d 20 3a 3d 20 61 5b | 30 5d 20 2a 20 78 69 6e |2] := a[|0] * xin|
|000015a0| 20 2d 20 61 5b 31 5d 20 | 2a 20 61 5b 32 5d 3b 0a | - a[1] |* a[2];.|
|000015b0| 09 29 3b 0a 0a 23 20 61 | 70 70 6c 79 20 66 69 6c |.);..# a|pply fil|
|000015c0| 74 65 72 20 74 6f 20 61 | 20 72 61 6e 67 65 20 6f |ter to a| range o|
|000015d0| 66 20 73 61 6d 70 6c 65 | 73 2e 20 20 6f 6e 65 20 |f sample|s.  one |
|000015e0| 70 61 73 73 20 69 73 20 | 6d 61 64 65 20 74 6f 20 |pass is |made to |
|000015f0| 73 74 61 62 69 6c 69 7a | 65 20 66 69 6c 74 65 72 |stabiliz|e filter|
|00001600| 2c 0a 23 20 61 6e 64 20 | 74 68 65 20 73 65 63 6f |,.# and |the seco|
|00001610| 6e 64 20 70 61 73 73 20 | 69 73 20 74 68 65 6e 20 |nd pass |is then |
|00001620| 75 73 65 64 0a 66 75 6e | 63 20 61 70 70 6c 79 74 |used.fun|c applyt|
|00001630| 6f 6e 65 28 64 61 74 61 | 3a 66 69 78 65 64 61 72 |one(data|:fixedar|
|00001640| 72 61 79 2c 20 73 74 61 | 72 74 3a 69 6e 74 2c 20 |ray, sta|rt:int, |
|00001650| 6c 65 6e 3a 69 6e 74 2c | 20 61 3a 64 6f 75 62 6c |len:int,| a:doubl|
|00001660| 65 61 72 72 61 79 2c 20 | 63 6f 75 6e 74 3a 69 6e |earray, |count:in|
|00001670| 74 29 20 3a 20 66 69 78 | 65 64 61 72 72 61 79 0a |t) : fix|edarray.|
|00001680| 09 28 0a 09 09 76 61 72 | 20 69 3a 69 6e 74 20 3d |.(...var| i:int =|
|00001690| 20 30 3b 0a 09 09 77 68 | 69 6c 65 20 63 6f 75 6e | 0;...wh|ile coun|
|000016a0| 74 20 3e 20 30 20 64 6f | 0a 09 09 09 28 0a 09 09 |t > 0 do|....(...|
|000016b0| 09 09 73 65 74 20 69 20 | 3a 3d 20 30 3b 0a 09 09 |..set i |:= 0;...|
|000016c0| 09 09 77 68 69 6c 65 20 | 69 20 3c 20 6c 65 6e 20 |..while |i < len |
|000016d0| 64 6f 0a 09 09 09 09 09 | 28 0a 09 09 09 09 09 09 |do......|(.......|
|000016e0| 74 6f 6e 65 28 64 61 74 | 61 5b 73 74 61 72 74 20 |tone(dat|a[start |
|000016f0| 2b 20 69 5d 2c 61 29 3b | 0a 09 09 09 09 09 09 73 |+ i],a);|.......s|
|00001700| 65 74 20 69 20 3a 3d 20 | 69 20 2b 20 31 3b 0a 09 |et i := |i + 1;..|
|00001710| 09 09 09 09 29 3b 0a 09 | 09 09 09 73 65 74 20 63 |....);..|...set c|
|00001720| 6f 75 6e 74 20 3a 3d 20 | 63 6f 75 6e 74 20 2d 20 |ount := |count - |
|00001730| 31 3b 0a 09 09 09 29 3b | 0a 09 09 73 65 74 20 69 |1;....);|...set i|
|00001740| 20 3a 3d 20 30 3b 0a 09 | 09 77 68 69 6c 65 20 69 | := 0;..|.while i|
|00001750| 20 3c 20 6c 65 6e 20 64 | 6f 0a 09 09 09 28 0a 09 | < len d|o....(..|
|00001760| 09 09 09 73 65 74 20 64 | 61 74 61 5b 73 74 61 72 |...set d|ata[star|
|00001770| 74 20 2b 20 69 5d 20 3a | 3d 20 66 69 78 65 64 20 |t + i] :|= fixed |
|00001780| 74 6f 6e 65 28 64 61 74 | 61 5b 73 74 61 72 74 20 |tone(dat|a[start |
|00001790| 2b 20 69 5d 2c 61 29 3b | 0a 09 09 09 09 73 65 74 |+ i],a);|.....set|
|000017a0| 20 69 20 3a 3d 20 69 20 | 2b 20 31 3b 0a 09 09 09 | i := i |+ 1;....|
|000017b0| 29 3b 0a 09 09 64 61 74 | 61 0a 09 29 3b 0a 00 00 |);...dat|a..);...|
|000017c0| 00 00 02 00 00 00 01 46 | 00 14 00 1f 02 65 01 10 |.......F|.....e..|
|000017d0| 00 00 00 4c 6f 77 70 61 | 73 73 20 53 61 77 74 6f |...Lowpa|ss Sawto|
|000017e0| 6f 74 68 ec 03 00 00 23 | 20 66 72 61 6d 65 73 20 |oth....#| frames |
|000017f0| 3a 20 69 6e 74 65 67 65 | 72 3b 20 74 61 62 6c 65 |: intege|r; table|
|00001800| 73 20 3a 20 69 6e 74 65 | 67 65 72 3b 20 64 61 74 |s : inte|ger; dat|
|00001810| 61 20 3a 20 66 69 78 65 | 64 61 72 72 61 79 0a 70 |a : fixe|darray.p|
|00001820| 72 6f 74 6f 20 70 75 6c | 73 65 77 69 64 74 68 61 |roto pul|sewidtha|
|00001830| 72 72 61 79 28 64 61 74 | 61 3a 66 69 78 65 64 61 |rray(dat|a:fixeda|
|00001840| 72 72 61 79 2c 20 73 74 | 61 72 74 3a 69 6e 74 2c |rray, st|art:int,|
|00001850| 20 6c 65 6e 3a 69 6e 74 | 2c 20 64 75 74 79 3a 64 | len:int|, duty:d|
|00001860| 6f 75 62 6c 65 2c 20 74 | 72 61 6e 73 3a 64 6f 75 |ouble, t|rans:dou|
|00001870| 62 6c 65 29 20 3a 20 66 | 69 78 65 64 61 72 72 61 |ble) : f|ixedarra|
|00001880| 79 3b 0a 70 72 6f 74 6f | 20 73 61 77 74 6f 6f 74 |y;.proto| sawtoot|
|00001890| 68 61 72 72 61 79 28 64 | 61 74 61 3a 66 69 78 65 |harray(d|ata:fixe|
|000018a0| 64 61 72 72 61 79 2c 20 | 73 74 61 72 74 3a 69 6e |darray, |start:in|
|000018b0| 74 2c 20 6c 65 6e 3a 69 | 6e 74 29 3a 66 69 78 65 |t, len:i|nt):fixe|
|000018c0| 64 61 72 72 61 79 3b 0a | 70 72 6f 74 6f 20 74 6f |darray;.|proto to|
|000018d0| 6e 65 73 65 74 28 66 63 | 3a 64 6f 75 62 6c 65 2c |neset(fc|:double,|
|000018e0| 20 73 72 3a 64 6f 75 62 | 6c 65 29 20 3a 20 64 6f | sr:doub|le) : do|
|000018f0| 75 62 6c 65 61 72 72 61 | 79 3b 0a 70 72 6f 74 6f |ublearra|y;.proto|
|00001900| 20 61 70 70 6c 79 74 6f | 6e 65 28 64 61 74 61 3a | applyto|ne(data:|
|00001910| 66 69 78 65 64 61 72 72 | 61 79 2c 20 73 74 61 72 |fixedarr|ay, star|
|00001920| 74 3a 69 6e 74 2c 20 6c | 65 6e 3a 69 6e 74 2c 20 |t:int, l|en:int, |
|00001930| 61 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 2c 20 63 |a:double|array, c|
|00001940| 6f 75 6e 74 3a 69 6e 74 | 29 20 3a 20 66 69 78 65 |ount:int|) : fixe|
|00001950| 64 61 72 72 61 79 3b 0a | 70 72 6f 74 6f 20 6e 6f |darray;.|proto no|
|00001960| 72 6d 61 6c 69 7a 65 73 | 65 67 6d 65 6e 74 28 64 |rmalizes|egment(d|
|00001970| 61 74 61 3a 66 69 78 65 | 64 61 72 72 61 79 2c 73 |ata:fixe|darray,s|
|00001980| 74 61 72 74 3a 69 6e 74 | 2c 6c 65 6e 3a 69 6e 74 |tart:int|,len:int|
|00001990| 29 3a 66 69 78 65 64 61 | 72 72 61 79 3b 0a 70 72 |):fixeda|rray;.pr|
|000019a0| 6f 74 6f 20 6d 61 78 69 | 6d 69 7a 65 73 65 67 6d |oto maxi|mizesegm|
|000019b0| 65 6e 74 28 64 61 74 61 | 3a 66 69 78 65 64 61 72 |ent(data|:fixedar|
|000019c0| 72 61 79 2c 73 74 61 72 | 74 3a 69 6e 74 2c 6c 65 |ray,star|t:int,le|
|000019d0| 6e 3a 69 6e 74 29 3a 66 | 69 78 65 64 61 72 72 61 |n:int):f|ixedarra|
|000019e0| 79 3b 0a 76 61 72 20 69 | 3a 69 6e 74 20 3d 20 30 |y;.var i|:int = 0|
|000019f0| 3b 0a 77 68 69 6c 65 20 | 69 20 3c 20 74 61 62 6c |;.while |i < tabl|
|00001a00| 65 73 20 64 6f 0a 09 28 | 0a 09 09 73 61 77 74 6f |es do..(|...sawto|
|00001a10| 6f 74 68 61 72 72 61 79 | 28 64 61 74 61 2c 69 20 |otharray|(data,i |
|00001a20| 2a 20 66 72 61 6d 65 73 | 2c 66 72 61 6d 65 73 29 |* frames|,frames)|
|00001a30| 3b 0a 09 09 76 61 72 20 | 61 3a 64 6f 75 62 6c 65 |;...var |a:double|
|00001a40| 61 72 72 61 79 20 3d 20 | 74 6f 6e 65 73 65 74 28 |array = |toneset(|
|00001a50| 31 30 30 20 2b 20 69 20 | 2f 20 74 61 62 6c 65 73 |100 + i |/ tables|
|00001a60| 20 2a 20 32 30 30 30 2c | 32 36 31 2e 36 20 2a 20 | * 2000,|261.6 * |
|00001a70| 66 72 61 6d 65 73 29 3b | 0a 09 09 61 70 70 6c 79 |frames);|...apply|
|00001a80| 74 6f 6e 65 28 64 61 74 | 61 2c 69 20 2a 20 66 72 |tone(dat|a,i * fr|
|00001a90| 61 6d 65 73 2c 66 72 61 | 6d 65 73 2c 61 2c 34 29 |ames,fra|mes,a,4)|
|00001aa0| 3b 0a 09 09 6d 61 78 69 | 6d 69 7a 65 73 65 67 6d |;...maxi|mizesegm|
|00001ab0| 65 6e 74 28 64 61 74 61 | 2c 69 20 2a 20 66 72 61 |ent(data|,i * fra|
|00001ac0| 6d 65 73 2c 66 72 61 6d | 65 73 29 3b 0a 09 09 76 |mes,fram|es);...v|
|00001ad0| 61 72 20 62 3a 64 6f 75 | 62 6c 65 61 72 72 61 79 |ar b:dou|blearray|
|00001ae0| 20 3d 20 74 6f 6e 65 73 | 65 74 28 31 30 30 20 2b | = tones|et(100 +|
|00001af0| 20 69 20 2f 20 74 61 62 | 6c 65 73 20 2a 20 32 30 | i / tab|les * 20|
|00001b00| 30 30 2c 32 36 31 2e 36 | 20 2a 20 66 72 61 6d 65 |00,261.6| * frame|
|00001b10| 73 29 3b 0a 09 09 61 70 | 70 6c 79 74 6f 6e 65 28 |s);...ap|plytone(|
|00001b20| 64 61 74 61 2c 69 20 2a | 20 66 72 61 6d 65 73 2c |data,i *| frames,|
|00001b30| 66 72 61 6d 65 73 2c 62 | 2c 34 29 3b 0a 09 09 6d |frames,b|,4);...m|
|00001b40| 61 78 69 6d 69 7a 65 73 | 65 67 6d 65 6e 74 28 64 |aximizes|egment(d|
|00001b50| 61 74 61 2c 69 20 2a 20 | 66 72 61 6d 65 73 2c 66 |ata,i * |frames,f|
|00001b60| 72 61 6d 65 73 29 3b 0a | 09 09 73 65 74 20 69 20 |rames);.|..set i |
|00001b70| 3a 3d 20 69 20 2b 20 31 | 3b 0a 09 29 3b 0a 23 6e |:= i + 1|;..);.#n|
|00001b80| 6f 72 6d 61 6c 69 7a 65 | 73 65 67 6d 65 6e 74 28 |ormalize|segment(|
|00001b90| 64 61 74 61 2c 30 2c 74 | 61 62 6c 65 73 20 2a 20 |data,0,t|ables * |
|00001ba0| 66 72 61 6d 65 73 29 3b | 0a 23 6d 61 78 69 6d 69 |frames);|.#maximi|
|00001bb0| 7a 65 73 65 67 6d 65 6e | 74 28 64 61 74 61 2c 30 |zesegmen|t(data,0|
|00001bc0| 2c 74 61 62 6c 65 73 20 | 2a 20 66 72 61 6d 65 73 |,tables |* frames|
|00001bd0| 29 3b 0a 80 00 00 00 40 | 00 00 00 10 01 49 00 14 |);.....@|.....I..|
|00001be0| 00 1f 02 65 01 0e 00 00 | 00 4c 6f 77 70 61 73 73 |...e....|.Lowpass|
|00001bf0| 20 53 71 75 61 72 65 f5 | 03 00 00 23 20 66 72 61 | Square.|...# fra|
|00001c00| 6d 65 73 20 3a 20 69 6e | 74 65 67 65 72 3b 20 74 |mes : in|teger; t|
|00001c10| 61 62 6c 65 73 20 3a 20 | 69 6e 74 65 67 65 72 3b |ables : |integer;|
|00001c20| 20 64 61 74 61 20 3a 20 | 66 69 78 65 64 61 72 72 | data : |fixedarr|
|00001c30| 61 79 0a 70 72 6f 74 6f | 20 70 75 6c 73 65 77 69 |ay.proto| pulsewi|
|00001c40| 64 74 68 61 72 72 61 79 | 28 64 61 74 61 3a 66 69 |dtharray|(data:fi|
|00001c50| 78 65 64 61 72 72 61 79 | 2c 20 73 74 61 72 74 3a |xedarray|, start:|
|00001c60| 69 6e 74 2c 20 6c 65 6e | 3a 69 6e 74 2c 20 64 75 |int, len|:int, du|
|00001c70| 74 79 3a 64 6f 75 62 6c | 65 2c 20 74 72 61 6e 73 |ty:doubl|e, trans|
|00001c80| 3a 64 6f 75 62 6c 65 29 | 20 3a 20 66 69 78 65 64 |:double)| : fixed|
|00001c90| 61 72 72 61 79 3b 0a 70 | 72 6f 74 6f 20 73 61 77 |array;.p|roto saw|
|00001ca0| 74 6f 6f 74 68 61 72 72 | 61 79 28 64 61 74 61 3a |tootharr|ay(data:|
|00001cb0| 66 69 78 65 64 61 72 72 | 61 79 2c 20 73 74 61 72 |fixedarr|ay, star|
|00001cc0| 74 3a 69 6e 74 2c 20 6c | 65 6e 3a 69 6e 74 29 3a |t:int, l|en:int):|
|00001cd0| 66 69 78 65 64 61 72 72 | 61 79 3b 0a 70 72 6f 74 |fixedarr|ay;.prot|
|00001ce0| 6f 20 74 6f 6e 65 73 65 | 74 28 66 63 3a 64 6f 75 |o tonese|t(fc:dou|
|00001cf0| 62 6c 65 2c 20 73 72 3a | 64 6f 75 62 6c 65 29 20 |ble, sr:|double) |
|00001d00| 3a 20 64 6f 75 62 6c 65 | 61 72 72 61 79 3b 0a 70 |: double|array;.p|
|00001d10| 72 6f 74 6f 20 61 70 70 | 6c 79 74 6f 6e 65 28 64 |roto app|lytone(d|
|00001d20| 61 74 61 3a 66 69 78 65 | 64 61 72 72 61 79 2c 20 |ata:fixe|darray, |
|00001d30| 73 74 61 72 74 3a 69 6e | 74 2c 20 6c 65 6e 3a 69 |start:in|t, len:i|
|00001d40| 6e 74 2c 20 61 3a 64 6f | 75 62 6c 65 61 72 72 61 |nt, a:do|ublearra|
|00001d50| 79 2c 20 63 6f 75 6e 74 | 3a 69 6e 74 29 20 3a 20 |y, count|:int) : |
|00001d60| 66 69 78 65 64 61 72 72 | 61 79 3b 0a 70 72 6f 74 |fixedarr|ay;.prot|
|00001d70| 6f 20 6e 6f 72 6d 61 6c | 69 7a 65 73 65 67 6d 65 |o normal|izesegme|
|00001d80| 6e 74 28 64 61 74 61 3a | 66 69 78 65 64 61 72 72 |nt(data:|fixedarr|
|00001d90| 61 79 2c 73 74 61 72 74 | 3a 69 6e 74 2c 6c 65 6e |ay,start|:int,len|
|00001da0| 3a 69 6e 74 29 3a 66 69 | 78 65 64 61 72 72 61 79 |:int):fi|xedarray|
|00001db0| 3b 0a 70 72 6f 74 6f 20 | 6d 61 78 69 6d 69 7a 65 |;.proto |maximize|
|00001dc0| 73 65 67 6d 65 6e 74 28 | 64 61 74 61 3a 66 69 78 |segment(|data:fix|
|00001dd0| 65 64 61 72 72 61 79 2c | 73 74 61 72 74 3a 69 6e |edarray,|start:in|
|00001de0| 74 2c 6c 65 6e 3a 69 6e | 74 29 3a 66 69 78 65 64 |t,len:in|t):fixed|
|00001df0| 61 72 72 61 79 3b 0a 76 | 61 72 20 69 3a 69 6e 74 |array;.v|ar i:int|
|00001e00| 20 3d 20 30 3b 0a 77 68 | 69 6c 65 20 69 20 3c 20 | = 0;.wh|ile i < |
|00001e10| 74 61 62 6c 65 73 20 64 | 6f 0a 09 28 0a 09 09 70 |tables d|o..(...p|
|00001e20| 75 6c 73 65 77 69 64 74 | 68 61 72 72 61 79 28 64 |ulsewidt|harray(d|
|00001e30| 61 74 61 2c 69 20 2a 20 | 66 72 61 6d 65 73 2c 66 |ata,i * |frames,f|
|00001e40| 72 61 6d 65 73 2c 2e 35 | 2c 2e 30 35 29 3b 0a 09 |rames,.5|,.05);..|
|00001e50| 09 76 61 72 20 61 3a 64 | 6f 75 62 6c 65 61 72 72 |.var a:d|oublearr|
|00001e60| 61 79 20 3d 20 74 6f 6e | 65 73 65 74 28 31 30 30 |ay = ton|eset(100|
|00001e70| 20 2b 20 69 20 2f 20 74 | 61 62 6c 65 73 20 2a 20 | + i / t|ables * |
|00001e80| 32 30 30 30 2c 32 36 31 | 2e 36 20 2a 20 66 72 61 |2000,261|.6 * fra|
|00001e90| 6d 65 73 29 3b 0a 09 09 | 61 70 70 6c 79 74 6f 6e |mes);...|applyton|
|00001ea0| 65 28 64 61 74 61 2c 69 | 20 2a 20 66 72 61 6d 65 |e(data,i| * frame|
|00001eb0| 73 2c 66 72 61 6d 65 73 | 2c 61 2c 34 29 3b 0a 09 |s,frames|,a,4);..|
|00001ec0| 09 6d 61 78 69 6d 69 7a | 65 73 65 67 6d 65 6e 74 |.maximiz|esegment|
|00001ed0| 28 64 61 74 61 2c 69 20 | 2a 20 66 72 61 6d 65 73 |(data,i |* frames|
|00001ee0| 2c 66 72 61 6d 65 73 29 | 3b 0a 09 09 76 61 72 20 |,frames)|;...var |
|00001ef0| 62 3a 64 6f 75 62 6c 65 | 61 72 72 61 79 20 3d 20 |b:double|array = |
|00001f00| 74 6f 6e 65 73 65 74 28 | 31 30 30 20 2b 20 69 20 |toneset(|100 + i |
|00001f10| 2f 20 74 61 62 6c 65 73 | 20 2a 20 32 30 30 30 2c |/ tables| * 2000,|
|00001f20| 32 36 31 2e 36 20 2a 20 | 66 72 61 6d 65 73 29 3b |261.6 * |frames);|
|00001f30| 0a 09 09 61 70 70 6c 79 | 74 6f 6e 65 28 64 61 74 |...apply|tone(dat|
|00001f40| 61 2c 69 20 2a 20 66 72 | 61 6d 65 73 2c 66 72 61 |a,i * fr|ames,fra|
|00001f50| 6d 65 73 2c 62 2c 34 29 | 3b 0a 09 09 6d 61 78 69 |mes,b,4)|;...maxi|
|00001f60| 6d 69 7a 65 73 65 67 6d | 65 6e 74 28 64 61 74 61 |mizesegm|ent(data|
|00001f70| 2c 69 20 2a 20 66 72 61 | 6d 65 73 2c 66 72 61 6d |,i * fra|mes,fram|
|00001f80| 65 73 29 3b 0a 09 09 73 | 65 74 20 69 20 3a 3d 20 |es);...s|et i := |
|00001f90| 69 20 2b 20 31 3b 0a 09 | 29 3b 0a 23 6e 6f 72 6d |i + 1;..|);.#norm|
|00001fa0| 61 6c 69 7a 65 73 65 67 | 6d 65 6e 74 28 64 61 74 |alizeseg|ment(dat|
|00001fb0| 61 2c 30 2c 74 61 62 6c | 65 73 20 2a 20 66 72 61 |a,0,tabl|es * fra|
|00001fc0| 6d 65 73 29 3b 0a 23 6d | 61 78 69 6d 69 7a 65 73 |mes);.#m|aximizes|
|00001fd0| 65 67 6d 65 6e 74 28 64 | 61 74 61 2c 30 2c 74 61 |egment(d|ata,0,ta|
|00001fe0| 62 6c 65 73 20 2a 20 66 | 72 61 6d 65 73 29 3b 0a |bles * f|rames);.|
|00001ff0| 80 00 00 00 40 00 00 00 | 10 02 00 00 00 01 16 00 |....@...|........|
|00002000| 28 00 ea 01 40 01 10 00 | 00 00 4c 6f 77 70 61 73 |(...@...|..Lowpas|
|00002010| 73 20 53 61 77 74 6f 6f | 74 68 6a 01 00 00 69 6e |s Sawtoo|thj...in|
|00002020| 73 74 72 75 6d 65 6e 74 | 0a 09 28 0a 09 09 6c 6f |strument|..(...lo|
|00002030| 75 64 6e 65 73 73 20 31 | 3b 0a 09 09 6f 73 63 69 |udness 1|;...osci|
|00002040| 6c 6c 61 74 6f 72 20 78 | 0a 09 09 09 28 0a 09 09 |llator x|....(...|
|00002050| 09 09 73 61 6d 70 6c 65 | 6c 69 73 74 20 28 22 4c |..sample|list ("L|
|00002060| 6f 77 70 61 73 73 20 53 | 61 77 74 6f 6f 74 68 22 |owpass S|awtooth"|
|00002070| 20 31 30 30 30 30 3b 29 | 3b 0a 09 09 09 09 74 79 | 10000;)|;.....ty|
|00002080| 70 65 20 77 61 76 65 74 | 61 62 6c 65 3b 0a 09 09 |pe wavet|able;...|
|00002090| 09 09 6c 6f 75 64 6e 65 | 73 73 20 31 3b 0a 09 09 |..loudne|ss 1;...|
|000020a0| 09 09 6c 6f 75 64 6e 65 | 73 73 65 6e 76 65 6c 6f |..loudne|ssenvelo|
|000020b0| 70 65 0a 09 09 09 09 09 | 28 0a 09 09 09 09 09 09 |pe......|(.......|
|000020c0| 70 6f 69 6e 74 73 0a 09 | 09 09 09 09 09 09 28 0a |points..|......(.|
|000020d0| 09 09 09 09 09 09 09 09 | 64 65 6c 61 79 20 30 20 |........|delay 0 |
|000020e0| 6c 65 76 65 6c 20 31 20 | 73 75 73 74 61 69 6e 70 |level 1 |sustainp|
|000020f0| 6f 69 6e 74 20 31 3b 0a | 09 09 09 09 09 09 09 29 |oint 1;.|.......)|
|00002100| 3b 0a 09 09 09 09 09 29 | 3b 0a 09 09 09 09 69 6e |;......)|;.....in|
|00002110| 64 65 78 65 6e 76 65 6c | 6f 70 65 0a 09 09 09 09 |dexenvel|ope.....|
|00002120| 09 28 0a 09 09 09 09 09 | 09 70 6f 69 6e 74 73 0a |.(......|.points.|
|00002130| 09 09 09 09 09 09 09 28 | 0a 09 09 09 09 09 09 09 |.......(|........|
|00002140| 09 64 65 6c 61 79 20 30 | 20 6c 65 76 65 6c 20 31 |.delay 0| level 1|
|00002150| 3b 0a 09 09 09 09 09 09 | 09 09 64 65 6c 61 79 20 |;.......|..delay |
|00002160| 36 2e 35 20 6c 65 76 65 | 6c 20 30 3b 0a 09 09 09 |6.5 leve|l 0;....|
|00002170| 09 09 09 09 29 3b 0a 09 | 09 09 09 09 29 3b 0a 09 |....);..|....);..|
|00002180| 09 09 29 3b 0a 09 29 0a | 01 16 00 27 00 ea 01 40 |..);..).|...'...@|
|00002190| 01 0e 00 00 00 4c 6f 77 | 70 61 73 73 20 53 71 75 |.....Low|pass Squ|
|000021a0| 61 72 65 68 01 00 00 69 | 6e 73 74 72 75 6d 65 6e |areh...i|nstrumen|
|000021b0| 74 0a 09 28 0a 09 09 6c | 6f 75 64 6e 65 73 73 20 |t..(...l|oudness |
|000021c0| 31 3b 0a 09 09 6f 73 63 | 69 6c 6c 61 74 6f 72 20 |1;...osc|illator |
|000021d0| 78 0a 09 09 09 28 0a 09 | 09 09 09 73 61 6d 70 6c |x....(..|...sampl|
|000021e0| 65 6c 69 73 74 20 28 22 | 4c 6f 77 70 61 73 73 20 |elist ("|Lowpass |
|000021f0| 53 71 75 61 72 65 22 20 | 31 30 30 30 30 3b 29 3b |Square" |10000;);|
|00002200| 0a 09 09 09 09 74 79 70 | 65 20 77 61 76 65 74 61 |.....typ|e waveta|
|00002210| 62 6c 65 3b 0a 09 09 09 | 09 6c 6f 75 64 6e 65 73 |ble;....|.loudnes|
|00002220| 73 20 31 3b 0a 09 09 09 | 09 6c 6f 75 64 6e 65 73 |s 1;....|.loudnes|
|00002230| 73 65 6e 76 65 6c 6f 70 | 65 0a 09 09 09 09 09 28 |senvelop|e......(|
|00002240| 0a 09 09 09 09 09 09 70 | 6f 69 6e 74 73 0a 09 09 |.......p|oints...|
|00002250| 09 09 09 09 09 28 0a 09 | 09 09 09 09 09 09 09 64 |.....(..|.......d|
|00002260| 65 6c 61 79 20 30 20 6c | 65 76 65 6c 20 31 20 73 |elay 0 l|evel 1 s|
|00002270| 75 73 74 61 69 6e 70 6f | 69 6e 74 20 31 3b 0a 09 |ustainpo|int 1;..|
|00002280| 09 09 09 09 09 09 29 3b | 0a 09 09 09 09 09 29 3b |......);|......);|
|00002290| 0a 09 09 09 09 69 6e 64 | 65 78 65 6e 76 65 6c 6f |.....ind|exenvelo|
|000022a0| 70 65 0a 09 09 09 09 09 | 28 0a 09 09 09 09 09 09 |pe......|(.......|
|000022b0| 70 6f 69 6e 74 73 0a 09 | 09 09 09 09 09 09 28 0a |points..|......(.|
|000022c0| 09 09 09 09 09 09 09 09 | 64 65 6c 61 79 20 30 20 |........|delay 0 |
|000022d0| 6c 65 76 65 6c 20 31 3b | 0a 09 09 09 09 09 09 09 |level 1;|........|
|000022e0| 09 64 65 6c 61 79 20 36 | 2e 35 20 6c 65 76 65 6c |.delay 6|.5 level|
|000022f0| 20 30 3b 0a 09 09 09 09 | 09 09 09 29 3b 0a 09 09 | 0;.....|...);...|
|00002300| 09 09 09 29 3b 0a 09 09 | 09 29 3b 0a 09 29 0a 00 |...);...|.);..)..|
|00002310| 00 00 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+