Re: Playing multiple sounds in sequence

*To*: mathgroup at smc.vnet.net*Subject*: [mg46829] Re: Playing multiple sounds in sequence*From*: Erich Neuwirth <erich.neuwirth at univie.ac.at>*Date*: Tue, 9 Mar 2004 04:31:22 -0500 (EST)*References*: <200403070633.BAA24105@smc.vnet.net> <c2hdbc$a84$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Thanks for the help. This is the code that does what I want. MyShow[obj_] := Show[obj, ImageSize -> {50, 20}, DisplayFunction -> $DisplayFunction] MyShow[Table[Play[Evaluate[Sin[2*Pi*256*2^(i/12)*t]], {t, 0, 1}, PlayRange -> {-1, 1}, DisplayFunction -> Identity], {i, 0, 12}]] Can this be done without defining a new version of Show? Oleksandr Pavlyk wrote: > Erich, > > I can not understand what you refer to as 'this' in the last > sentence. > > I assume you would like to play a sound which is a mixture > of 13 monochromatic chanes. Then, you use > > Play[ > Evaluate@Flatten@Table[ Sin[2*Pi*440*2^{i/12}*t], {i, 0, 12} ], > {t, 0, 1} > ] > > Regards, > Sasha > > Erich Neuwirth wrote: > >>Entering >>Table[Play[Sin[2*Pi*440*2^(i/12)*t], {t, 0, 1}], {i, 0, 12}] >>plays a chromatic scale, >>but some things are somewhat inconvenient. >>13 graphics pop up and use a lot of screen estate. >>Also, Mathematica starts playing the tones immediately >>when they are rendered. Since renedring is faster than playing, >>the first tone is cut off and the second tone starts playing too early. >> >>I would like collapsed output, at most one graph, >>and preferrably only in a ery small size so i till get the clickable >>sound symbol in the outline region so I can play the whole scale >>without rerendering. >> >>How can this be done? > >

**References**:**Playing multiple sounds in sequence***From:*Erich Neuwirth <erich.neuwirth@univie.ac.at>