Glisp: A Lisp-Based Design Tool Bridging Graphic Design and Computational Arts

Glisp: A Lisp-Based Design Tool Bridging Graphic Design and Computational Arts(github.com)

54 points by Syntheticate 4 years ago | 6 comments

iLemming 4 years ago |

This is beautiful. I really don't understand when programmers when presented with laconic elegance like this:

    (def w 36)
    (def s (/ w 2))

    (defn slash [i p]
      (path/transform
       (mat2d/* (translate p)
       (scale-x (compare (rnd i) .5)))
       (line [(- s) (- s)] [s s])))

    (background "snow")

    (style (stroke "salmon" 10)
      (for [y (column -5 5 w)
            x (column -5 5 w)
            :index i]
       (slash i [x y])))

Very often don't even want to appreciate the beauty and only see "annoying, pesky parentheses".

ptrott2017 4 years ago |

This is very cool - recommend checking out the demo and examples:

https://glisp.app/commit:e7fbaae/

- its a very nice UI experience - try hello world then move the circle and see the code update automatically.

If you are interested in lisp and creative coding this is well worth experimenting with - really nice work!

bwestergard 4 years ago |

Some prior art, from the 90s: https://en.wikipedia.org/wiki/AutoLISP

eggy 4 years ago | |

I programmed AutoLISP, and it is cool, but you need AutoCAD (or other CAD with AutoLISP feature). I found Rosetta [1] six years ago, that is a universal language for doing CAD/geometry/procedural stuff, that uses Rhino or AutoCAD as its backend for execution and display. The hope was that it would allow people to learn a geometry-based language that could be used with many programs to give them a procedural, programmatic interface as an option. I tried to contact the author several times, but no response. I haven't seen it move at all. Racket is the environment it uses to create in, and hook into the CAD program. I was hoping someone would pick it up and create a generic viewer and export functions for target CAD programs. Maybe I could someday work on this...

[1] http://web.ist.utl.pt/antonio.menezes.leitao/Rosetta/index.h...

Aditya_Garg 4 years ago |

Very very cool. I see a video export option, but don't see anything in the docs about animations. Can this be used to make animations as well?

math-dev 4 years ago |

Very nice! Was thinking something like this whilst in the elevator today, will definitely check it out in detail

(def w 36) (def s (/ w 2)) (defn slash [i p] (path/transform (mat2d/* (translate p) (scale-x (compare (rnd i) .5))) (line [(- s) (- s)] [s s]))) (background "snow") (style (stroke "salmon" 10) (for [y (column -5 5 w) x (column -5 5 w) :index i] (slash i [x y])))