[Gag] C=64

[newdep]

Back in 1985 I had this C64 machine and that fabulous cassette-recorder to

Load,8,1 "" anything from tape ;-) (took me ages..)



Well on one of those tapes was a small demo called

"the model" based on the music from kraftwerk..



Its a copy as i remember it..(and while you run it ,

remember that was 20 years ago some psycho moving ;-)



Please read the script-header befor loading it!



http://www.nodep.nl/downloads/newlisp/model.lsp">//http://www.nodep.nl/downloads/newlisp/model.lsp



Norman.

[cormullion]

Ah - the fun we had then!...? :)



Without the sound set up, I see the graphics move.



On MacOS X, the best way to play sound at the command line is probably to download qtplay http://rainbowflight.googlepages.com/">//http://rainbowflight.googlepages.com/ by Sarah Childers.



And then it's:

Code Select Expand

(if (= ostype {OSX}) (set 'player "/Users/me/bin/qtplay"))

but then the graphics don't move and I hear the music instead. (Groovy baby!).

[newdep]

aha yes your right..that happens on windows too it seems,

so this only works on linux where a "exec" is spawned and starts the

other OSes do wait until finished...

[Lutz]

There is also a 'gs:play-sound', but it did not work on that file 'themodel.wav' (but gs:play-sound works on most other .wav files I found on my system) perhaps it can get translated to a suitable format?

but then the graphics don't move and I hear the music instead.

You should be able to make that work by changing 'exec' into 'process':

Code Select Expand

(exec (string player " ./themodel.wav"))

; change into

(process (string player " ./themodel.wav"))


'exec' is blocking and waits for the task to finish, while 'process' will return right away.



Lutz

[newdep]

gs:play-sound does work here fine on linux and XP with themodel.wav.



But the problem with gs-play-sound is that its 'blocking' the rest of the

GS process..see my other posting...



Yes process is a good choice here indeed, forgot we had that ;-)



Norman.