Mathematica, sounds and placing graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg32835] Mathematica, sounds and placing graphics
- From: "Enrico Luciano" <e.luciano at NOSPAMMMwirecom.it>
- Date: Thu, 14 Feb 2002 01:44:20 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Dear Sirs,
I'm a novice using Mathematica and I've a problem I an't solve...
I want to play a sound, but to suppress the graphic or (better) place the
graphic somewhere in my notebook...
I tried to do this with Simple text and it worked fine:
As an example;
CellPrint[
Cell[TextData["1"], "Output", Evaluatable -> False,
CellTags -> {"suono1"}]];
CellPrint[
Cell[TextData["2"], "Output", Evaluatable -> False,
CellTags -> {"suono2"}]];
CellPrint[
Cell[TextData["3"], "Output", Evaluatable -> False,
CellTags -> {"suono3"}]];
CellPrint[
Cell[TextData["4"], "Output", Evaluatable -> False,
CellTags -> {"suono4"}]];
and
mymodule:=Module[
{x, y, nb = ButtonNotebook[]},
NotebookFind[nb, "suono2", All, CellTags];
SelectionMove[nb, All, Cell];
NotebookWrite[nb,
Cell[TextData["Here!"], "Output", Evaluatable -> False,
CellTags -> {"suono2"}]
];
]
then I've a button:
CellPrint[
Cell[BoxData[
ButtonBox["Substitute", Active -> True, ButtonEvaluator ->
Automatic,
ButtonFunction :> mymodule]]]];
Everything works fine here: I get four tagged cells, and when I click on my
button the "2" become "Here!"...
Now I have a sound generated as follows:
suond = Miscellaneous`Audio`Waveform[Miscellaneous`Audio`Triangle, 400, 0.5
If I do Show[sound] it plays fine...
But when I try to put it (the graphic, obviously) in the second tagged cell
it wont work. I modify the module as follows:
mymodule:=Module[
{x, y, nb = ButtonNotebook[]},
NotebookFind[nb, "suono2", All, CellTags];
SelectionMove[nb, All, Cell];
NotebookWrite[nb,
Cell[GraphicsData[Show[suond]], "Graphics", Evaluatable -> False,
CellTags -> {"suono2"}]
];
]
but nothing goes in the cell, the graphics goes after my button...
In my opinion the problem is the use of the Show Function so I researche how
to "pass" grahics and sounds... But I found nothing about sounds...
I also tried modifying something like:
gr = Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, DisplayFunction -> Identity];
nb = NotebookPut[
Notebook[{Cell[GraphicsData["PostScript", DisplayString[gr]],
"Graphics", ShowCellBracket -> False,
ImageMargins -> {{0, 0}, {0, 0}}]},
WindowSize -> {FitAll, FitAll}, WindowElements -> {}]];
to open a new notebook, but I got nothing useful.
I've read somewhere on the Mathematica book that sound can be encapsulated
embedded with graphics as Postscript and played on systems with audio
capabilities...
Is there anyone who can help me?
I need this for a college exam.. the rest of the noteboo is fine, I've only
problems with this.
Best regards...
Enrico