DEMO: Teaching an Old Dog New Tricks

[Pixel_Outlaw]

I've always had an interest in the Lisp and Smalltalk projects at Xerox PARC in the 70s through the 90s.
Recently, there have been great efforts to revive Medley Interlisp, a pure Lisp OS designed for Cold War Era AI and beyond.
This is a very old dialect of Lisp but it's still interesting to use. (I'm generally a Common Lisp guy).

Anyway, they've got a BITBLT function and that means demoscene stuff IS possible.
I may do more if there is interest, but twisting a DARPA funded AI OS that only runs Lisp is fertile ground for cool hacks.

This is a WIP, I may do more if there is interest.

You can download a personal copy of Medley for Linux, Mac, and Windows currently.
Paolo Amoroso has good build instructions.
The repository is here.

See the attached image, hopefully it animates...

[Pixel_Outlaw]

Well I think I'm done. July 4th is coming up pretty quick and so it evolved.
Medley only does black and white so I can't do full color.
I set the host to navy here since I can't have both red and blue...
Some day that part might be restored as originally they had indexed color.

Anyway.
I'll attach the source code files and provide an image.

To use them right click the desktop in a blank space.
Select EXEC then drag over to Interlisp and release.
Then making sure your files are in your interlisp base path

Code: [Select]

(LOAD 'RBMATH)
(LOAD 'JULY4TH)
(DEMOSCENE)