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>
- Playing multiple sounds in sequence