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.
[Gag] C=64
[Gag] C=64
-- (define? (Cornflakes))
-
- Posts: 2038
- Joined: Tue Nov 29, 2005 8:28 pm
- Location: latiitude 50N longitude 3W
- Contact:
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:
but then the graphics don't move and I hear the music instead. (Groovy baby!).
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:
Code: Select all
(if (= ostype {OSX}) (set 'player "/Users/me/bin/qtplay"))
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?
'exec' is blocking and waits for the task to finish, while 'process' will return right away.
Lutz
You should be able to make that work by changing 'exec' into 'process':but then the graphics don't move and I hear the music instead.
Code: Select all
(exec (string player " ./themodel.wav"))
; change into
(process (string player " ./themodel.wav"))
Lutz