Re: Unterdrueckung von Diagramm nach Play[]

["Robert Nowak" <robert.nowak@XXXXXXX.at>]

ohne anspruch auf eleganz

SoundOnly={
    Display[$Display,#],
    SelectionMove[SelectedNotebook[],Previous, Cell],
    NotebookDelete[SelectedNotebook[]]
}&;

 Play[Sin[2 Pi 444 t],{t, 0, 1},DisplayFunction->SoundOnly];

---
Robert Nowak (robert.nowak@XXXXXXX.at)
IMS Nanofabrication GmbH
A-1020 Wien, Schreygasse 3, Austria
Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99

----- Original Message ----- 
From: Jens-Peer Kuska <kuska@XXXXXXX.de>
To: Simon Stingelin <simon.stingelin@XXXXXXX.ch>
Cc: Deutsche Mathematica News Group <dmug@XXXXXXX.ch>
Sent: Wednesday, October 10, 2001 8:32 AM
Subject: Re: Unterdrueckung von Diagramm nach Play[]


> Hallo,
> 
> das ist wohl eher nicht die Antwort auf die Frage, 
> denn dann gibts auch keinen Ton.
> Wie das subject der mail aber sagt
> "Unterdrueckung von Diagramm nach Play[]"
> soll das Diagramm unterdr"uckt werden,
> *nicht* aber den Ton.
> 
> Man braucht dazu allerdings einen externen Player,
> der WAV, AIFF oder was auch immer abspielen kann.
> 
> Auf meiner SGI w"are das z. B. das sch"one 
> Kommandozeilenprogramm
> 
> playaiff
> 
> unter Linux heisst das Ding wohl play.
> Ob es so etwas n"utzliches unter Windoofs gibt
> weis ich nicht ...
> 
> mit dem kleinen Paket
> ------------------------------------------------
> Begin["System`"]
> 
> Begin["`Private`"]
> 
> $PLAYSoundString := "playaiff"
> 
> Unprotect[$SoundDisplayFunction]
> 
> Clear[$SoundDisplayFunction]
> 
> $SoundDisplay = {}
> 
> $SoundDisplayFunction = Block[{file = OpenTemporary[]},
>       Export[file, #, "AIFF"];
>       Close[file];
>       Run[$PLAYSoundString, First[file]];
>       DeleteFile[First[file]];
>       #] &
> 
> End[]
> End[];
> -----------------------------------------------
> 
> wird ein AIFF file erzeugt, der externe player spielt das Ding
> aber es gibt kein Bild, weil Display[$SoundDisplay[,#]
> fehlt.
> 
> Gruss
>   Jens
> 
> 
> Simon Stingelin wrote:
> > 
> > Play[Sin[2 Pi 440 t], {t, 0, 1}, DisplayFunction -> Identity]
> > 
> > MfG S. Stingelin.
> > 
> > Am Dienstag den, 9. Oktober 2001, um 19:46, schrieb B. Schnizer:
> > 
> > > Play[Sin[2 Pi 440 t],{t,0,1}]
> > ---
> > mail: simon.stingelin@XXXXXXX.ch
> > web: http://www.diax.ch/users/stingelin
>