MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?
> 
> 


  • Prev by Date: Re: simple bug about Sum/Product function?
  • Next by Date: Re: Differences in Random Numbers
  • Previous by thread: Re: Playing multiple sounds in sequence
  • Next by thread: Converting to Standard LaTeX