/ Computerworld 1996 April / Computerworld_1996-04_cd.bin / cw / programy / esbeekay / macros / waves.mac

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 45 53 42 4b 4d 41 43 52 | 4f 00 01 00 57 61 76 65 |ESBKMACR|O...Wave|
|00000010| 20 62 61 74 63 68 20 69 | 6d 70 6f 72 74 00 2a 02 | batch i|mport.*.|
|00000020| 68 4f 06 00 00 00 00 00 | 03 00 00 00 00 00 00 00 |hO......|........|
|00000030| 80 00 00 00 00 00 00 00 | 68 4f 06 00 05 00 00 00 |........|hO......|
|00000040| 7c 00 00 00 ec f0 04 00 | a1 de f0 77 00 ec fd 7f ||.......|...w....|
|00000050| 00 00 00 40 03 00 00 00 | 1c f1 04 00 02 00 00 00 |...@....|........|
|00000060| 80 00 00 00 f6 b9 f0 77 | 7c 00 00 00 00 f1 04 00 |.......w||.......|
|00000070| f8 f0 04 00 08 00 00 00 | 04 00 00 00 03 00 00 00 |........|........|
|00000080| 07 00 00 00 19 ed 45 00 | 94 55 2b 00 38 f1 04 00 |......E.|.U+.8...|
|00000090| 19 ce 45 00 45 00 00 00 | 00 00 00 00 02 00 00 00 |..E.E...|........|
|000000a0| 00 00 00 00 0c 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000000b0| 03 00 00 00 00 00 00 40 | 00 00 00 00 24 01 00 00 |.......@|....$...|
|000000c0| 62 00 00 00 f5 f5 45 00 | fc 66 2b 00 01 83 00 00 |b.....E.|.f+.....|
|000000d0| 40 00 00 00 a4 01 00 00 | 78 f3 04 00 fc 65 2b 00 |@.......|x....e+.|
|000000e0| 60 00 00 00 30 f7 48 00 | 19 ed 45 00 5c 55 2b 00 |`...0.H.|..E.\U+.|
|000000f0| 78 f3 04 00 cc bd 45 00 | 1d 00 00 00 fc 65 2b 00 |x.....E.|.....e+.|
|00000100| fc 65 2b 00 e3 bd 45 00 | fc 66 2b 00 d3 00 17 00 |.e+...E.|.f+.....|
|00000110| 05 00 1e 04 00 00 00 00 | a3 00 07 00 2a 00 0c 00 |........|....*...|
|00000120| 69 6d 70 6f 72 74 00 00 | 00 49 6d 70 6f 72 74 20 |import..|.Import |
|00000130| 57 61 76 65 73 21 00 48 | 65 6c 76 00 08 00 00 00 |Waves!.H|elv.....|
|00000140| 00 00 00 00 00 00 0a 00 | 2d 00 07 00 2f 00 0c 00 |........|-.../...|
|00000150| 53 42 4b 4c 69 6e 6b 31 | 00 48 65 6c 76 00 08 00 |SBKLink1|.Helv...|
|00000160| 00 00 00 00 00 00 00 00 | 06 00 7d 00 07 00 14 00 |........|..}.....|
|00000170| 0c 00 4e 6f 74 65 49 6e | 31 00 48 65 6c 76 00 08 |..NoteIn|1.Helv..|
|00000180| 00 00 00 00 00 00 00 00 | 00 04 00 60 00 08 00 19 |........|...`....|
|00000190| 00 0a 00 54 65 78 74 31 | 00 41 74 20 6f 66 66 73 |...Text1|.At offs|
|000001a0| 65 74 3a 00 48 65 6c 76 | 00 08 00 00 00 00 00 00 |et:.Helv|........|
|000001b0| 00 00 00 04 00 05 00 08 | 00 24 00 0a 00 54 65 78 |........|.$...Tex|
|000001c0| 74 32 00 49 6d 70 6f 72 | 74 20 54 6f 3a 00 48 65 |t2.Impor|t To:.He|
|000001d0| 6c 76 00 08 00 00 00 00 | 00 00 00 00 00 25 20 42 |lv......|.....% B|
|000001e0| 61 74 63 68 20 69 6d 70 | 6f 72 74 20 6f 66 20 2e |atch imp|ort of .|
|000001f0| 77 61 76 20 66 69 6c 65 | 73 20 77 69 74 68 20 61 |wav file|s with a|
|00000200| 75 74 6f 6d 61 74 69 63 | 20 6f 66 66 73 65 74 74 |utomatic| offsett|
|00000210| 69 6e 67 0d 0a 0d 0a 69 | 6e 69 74 28 29 0d 0a 7b |ing....i|nit()..{|
|00000220| 0d 0a 20 20 77 69 6e 64 | 6f 77 4f 75 74 70 75 74 |..  wind|owOutput|
|00000230| 28 22 4e 6f 74 65 49 6e | 31 22 2c 20 30 29 3b 0d |("NoteIn|1", 0);.|
|00000240| 0a 7d 0d 0a 0d 0a 6f 66 | 66 73 65 74 53 61 6d 70 |.}....of|fsetSamp|
|00000250| 6c 65 28 69 6e 73 74 2c | 20 61 74 29 0d 0a 7b 0d |le(inst,| at)..{.|
|00000260| 0a 20 20 76 61 72 20 6c | 69 6e 6b 73 2c 20 6c 3b |.  var l|inks, l;|
|00000270| 0d 0a 0d 0a 20 20 6c 69 | 6e 6b 73 20 3a 3d 20 67 |....  li|nks := g|
|00000280| 65 74 49 6e 73 74 54 6f | 43 6f 6e 49 53 73 28 69 |etInstTo|ConISs(i|
|00000290| 6e 73 74 29 3b 0d 0a 20 | 20 66 6f 72 20 6c 20 69 |nst);.. | for l i|
|000002a0| 6e 20 6c 69 6e 6b 73 20 | 64 6f 0d 0a 20 20 7b 0d |n links |do..  {.|
|000002b0| 0a 20 20 20 20 73 65 74 | 50 61 72 61 6d 28 6c 2c |.    set|Param(l,|
|000002c0| 20 22 6b 65 79 52 61 6e | 67 65 22 2c 20 6d 61 6b | "keyRan|ge", mak|
|000002d0| 65 4b 65 79 52 61 6e 67 | 65 28 61 74 2c 20 61 74 |eKeyRang|e(at, at|
|000002e0| 29 29 3b 0d 0a 20 20 20 | 20 73 65 74 50 61 72 61 |));..   | setPara|
|000002f0| 6d 28 6c 2c 20 22 72 6f | 6f 74 4b 65 79 22 2c 20 |m(l, "ro|otKey", |
|00000300| 61 74 29 3b 0d 0a 20 20 | 7d 0d 0a 7d 0d 0a 0d 0a |at);..  |}..}....|
|00000310| 69 6d 70 6f 72 74 28 29 | 0d 0a 7b 0d 0a 20 20 76 |import()|..{..  v|
|00000320| 61 72 20 73 62 6b 2c 20 | 66 69 6c 65 73 2c 20 66 |ar sbk, |files, f|
|00000330| 6e 61 6d 65 2c 20 69 6e | 73 74 2c 20 70 61 74 63 |name, in|st, patc|
|00000340| 68 2c 20 61 74 2c 20 6f | 66 66 3b 0d 0a 0d 0a 20 |h, at, o|ff;.... |
|00000350| 20 73 62 6b 20 3a 3d 20 | 67 65 74 53 42 4b 4c 69 | sbk := |getSBKLi|
|00000360| 6e 6b 28 22 53 42 4b 4c | 69 6e 6b 31 22 29 3b 0d |nk("SBKL|ink1");.|
|00000370| 0a 20 20 69 66 20 28 21 | 76 61 6c 69 64 28 73 62 |.  if (!|valid(sb|
|00000380| 6b 29 29 0d 0a 20 20 7b | 0d 0a 20 20 20 20 6d 65 |k))..  {|..    me|
|00000390| 73 73 61 67 65 28 22 53 | 70 65 63 69 66 79 20 61 |ssage("S|pecify a|
|000003a0| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 53 42 4b | destina|tion SBK|
|000003b0| 22 29 3b 0d 0a 20 20 20 | 20 72 65 74 75 72 6e 3b |");..   | return;|
|000003c0| 0d 0a 20 20 7d 0d 0a 0d | 0a 20 20 69 66 20 28 21 |..  }...|.  if (!|
|000003d0| 77 69 6e 64 6f 77 49 6e | 70 75 74 56 61 6c 69 64 |windowIn|putValid|
|000003e0| 61 74 65 28 22 4e 6f 74 | 65 49 6e 31 22 29 29 0d |ate("Not|eIn1")).|
|000003f0| 0a 20 20 7b 0d 0a 20 20 | 20 20 6d 65 73 73 61 67 |.  {..  |  messag|
|00000400| 65 28 22 53 70 65 63 69 | 66 79 20 61 20 76 61 6c |e("Speci|fy a val|
|00000410| 69 64 20 6e 6f 74 65 20 | 6f 66 66 73 65 74 22 29 |id note |offset")|
|00000420| 3b 0d 0a 20 20 20 20 72 | 65 74 75 72 6e 3b 0d 0a |;..    r|eturn;..|
|00000430| 20 20 7d 0d 0a 20 20 6f | 66 66 20 3a 3d 20 77 69 |  }..  o|ff := wi|
|00000440| 6e 64 6f 77 49 6e 70 75 | 74 28 22 4e 6f 74 65 49 |ndowInpu|t("NoteI|
|00000450| 6e 31 22 29 3b 0d 0a 0d | 0a 20 20 61 74 20 20 20 |n1");...|.  at   |
|00000460| 20 3a 3d 20 6f 66 66 3b | 0d 0a 20 20 66 69 6c 65 | := off;|..  file|
|00000470| 73 20 3a 3d 20 66 69 6c | 65 50 72 6f 6d 70 74 28 |s := fil|ePrompt(|
|00000480| 7b 22 57 61 76 65 20 66 | 69 6c 65 73 20 28 2a 2e |{"Wave f|iles (*.|
|00000490| 77 61 76 29 22 7d 2c 20 | 7b 22 2a 2e 77 61 76 22 |wav)"}, |{"*.wav"|
|000004a0| 7d 2c 20 31 2c 20 31 2c | 20 22 22 29 3b 0d 0a 20 |}, 1, 1,| "");.. |
|000004b0| 20 69 66 20 28 21 76 61 | 6c 69 64 28 66 69 6c 65 | if (!va|lid(file|
|000004c0| 73 29 29 20 72 65 74 75 | 72 6e 3b 0d 0a 20 20 69 |s)) retu|rn;..  i|
|000004d0| 66 20 28 66 69 6c 65 73 | 20 3d 20 7b 7d 29 20 72 |f (files| = {}) r|
|000004e0| 65 74 75 72 6e 3b 0d 0a | 0d 0a 20 20 70 61 74 63 |eturn;..|..  patc|
|000004f0| 68 20 3a 3d 20 63 72 65 | 61 74 65 50 61 74 63 68 |h := cre|atePatch|
|00000500| 28 73 62 6b 2c 20 22 77 | 61 76 65 73 22 2c 20 30 |(sbk, "w|aves", 0|
|00000510| 2c 20 30 29 3b 0d 0a 20 | 20 66 6f 72 20 66 6e 61 |, 0);.. | for fna|
|00000520| 6d 65 20 69 6e 20 66 69 | 6c 65 73 20 64 6f 0d 0a |me in fi|les do..|
|00000530| 20 20 7b 0d 0a 20 20 20 | 20 69 6e 73 74 20 3a 3d |  {..   | inst :=|
|00000540| 20 69 6d 70 6f 72 74 57 | 61 76 65 28 73 62 6b 2c | importW|ave(sbk,|
|00000550| 20 66 6e 61 6d 65 2c 20 | 66 69 6c 65 6e 61 6d 65 | fname, |filename|
|00000560| 46 72 6f 6d 50 61 74 68 | 28 66 6e 61 6d 65 29 2c |FromPath|(fname),|
|00000570| 20 30 29 3b 0d 0a 20 20 | 20 20 69 66 20 28 76 61 | 0);..  |  if (va|
|00000580| 6c 69 64 28 69 6e 73 74 | 29 29 0d 0a 20 20 20 20 |lid(inst|))..    |
|00000590| 7b 0d 0a 20 20 20 20 20 | 20 6f 66 66 73 65 74 53 |{..     | offsetS|
|000005a0| 61 6d 70 6c 65 28 69 6e | 73 74 2c 20 61 74 29 3b |ample(in|st, at);|
|000005b0| 0d 0a 20 20 20 20 20 20 | 61 74 20 3a 3d 20 61 74 |..      |at := at|
|000005c0| 2b 31 3b 0d 0a 20 20 20 | 20 20 20 63 72 65 61 74 |+1;..   |   creat|
|000005d0| 65 53 74 64 43 6f 6e 50 | 49 28 70 61 74 63 68 2c |eStdConP|I(patch,|
|000005e0| 20 69 6e 73 74 29 3b 0d | 0a 20 20 20 20 7d 0d 0a | inst);.|.    }..|
|000005f0| 20 20 7d 0d 0a 7d 0d 0a | 0d 0a 00 00 00          |  }..}..|.....   |
+--------+-------------------------+-------------------------+--------+--------+