[Gag] C=64

Guiserver, GTK-server, OpenGL, PostScript,
HTML 5, MIDI, IDE
Locked
newdep
Posts: 2038
Joined: Mon Feb 23, 2004 7:40 pm
Location: Netherlands

[Gag] C=64

Post by 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

Norman.
-- (define? (Cornflakes))

cormullion
Posts: 2038
Joined: Tue Nov 29, 2005 8:28 pm
Location: latiitude 50N longitude 3W
Contact:

Post by 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/ by Sarah Childers.

And then it's:

Code: Select all

(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
Posts: 2038
Joined: Mon Feb 23, 2004 7:40 pm
Location: Netherlands

Post by 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...
-- (define? (Cornflakes))

Lutz
Posts: 5289
Joined: Thu Sep 26, 2002 4:45 pm
Location: Pasadena, California
Contact:

Post by 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 all

(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
Posts: 2038
Joined: Mon Feb 23, 2004 7:40 pm
Location: Netherlands

Post by 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.
-- (define? (Cornflakes))

Locked