IMPORTANT: this repository is in archive mode, the Yaw project is now developed at yaw-central: https://github.com/yaw-central
(ultimately) a 3D live-coding experience for Clojurians of all ages
(for now a dumb imperative (!) Clojure wrapper for LWJGL...)
Yaw is not yet usable, except for extremely simplistic examples! The Java/OpenGL-side of things is a basic engine relatively well-tested. The Clojure part is minimalistic for now.
- Clojure 1.8+
- Java : 1.8 +
- Leiningen 2.7.1+
- LWJGL 3.0+ (via Hello_jgl, thanks !)
For now the Clojure API is just a thin layer above
the java mess... So expect many bangs (!
's) ...
Most of the current API can be found in the
yaw.world
namespace.
So you can fire your repl
$ lein repl
and type (after the =>
prompt of course):
(use 'yaw.world)
An openGL window lives in a universe
(because we're megalomaniacs!)
(def univ (start-universe!))
If all goes well a window will open, empty and dark as hell! To create a 3D scene we'll need to get a reference to the (for now, empty) world.
(def world (:world @univ))
Yaw will only use basic 3D objects with simple materials. For new there's only a bunch of available objects, and the material only talks about color and reflectance.
Let's create a solid block (a.k.a. a cube) with the default properties.
(def block (create-block! world))
Now you should see a blue block in the middle of your window. If not, then something went wrong ... please fill an issue in this case (if you're on a mac please stay tuned and blame the company behind it)...
To see something we should put it a little bit farther away.
(translate! block :z -2)
We can rotate our cube, e.g. 20 degrees on y...
(rotate! block :y 20)
It's working (hopefully) but we don't really see the edges of the block. That's because the only light in the scene for now is ambient light.
One can also quickly create a square-based pyramid like so
(def pyr (create-pyramid! world))
(use 'yaw.world)
(def univ (start-universe!))
(def world (:world @univ))
(def block (create-block! world))
(translate! block :z -1)
(rotate! block :y 20)