newLISP Fan Club

Forum => newLISP Graphics & Sound => Topic started by: newdep on September 28, 2007, 03:20:23 PM

Title: [Gag] C=64
Post by: newdep on September 28, 2007, 03:20:23 PM
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



Norman.
Title:
Post by: cormullion on September 29, 2007, 12:22:20 AM
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/ by Sarah Childers.



And then it's:


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

but then the graphics don't move and I hear the music instead. (Groovy baby!).
Title:
Post by: newdep on September 29, 2007, 03:17:59 AM
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...
Title:
Post by: Lutz on September 29, 2007, 05:07:09 AM
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?


Quotebut 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':


(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
Title:
Post by: newdep on September 29, 2007, 10:50:01 AM
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.