diff options
author | David Thompson <dthompson2@worcester.edu> | 2015-09-21 19:44:10 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2015-09-21 19:48:44 -0400 |
commit | 46544b7dba0081f22e686f70c606a338c7fa52dd (patch) | |
tree | 9688f43493606f7b0e4da8784a7804cc32f128eb /.dir-locals.el | |
parent | b7bf25020f146331d161d86ef30df31d2959a8dc (diff) |
render: Reimplement rendering engine using functional combinators.
Warning: This is a huge commit.
I completely gutted the old scene graph and replaced it with a somewhat
monadic rendering combinator module instead. The interface remains
purely functional, but replaces the <model> data type with procedures in
the rendering monad instead. This opens the door for
rendering *anything*, not just meshes. Now I can implement particle
systems and other non-static things.
Diffstat (limited to '.dir-locals.el')
-rw-r--r-- | .dir-locals.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el new file mode 100644 index 0000000..57fd98f --- /dev/null +++ b/.dir-locals.el @@ -0,0 +1,20 @@ +((scheme-mode + . + ((eval . (put 'call-with-transform-excursion 'scheme-indent-function 1)) + (eval . (put 'with-transform-excursion 'scheme-indent-function 1)) + (eval . (put 'graphics-model-view-excursion 'scheme-indent-function 1)) + (eval . (put 'graphics-projection-excursion 'scheme-indent-function 1)) + (eval . (put 'graphics-uniform-excursion 'scheme-indent-function 2)) + (eval . (put 'graphics-mesh-excursion 'scheme-indent-function 1)) + (eval . (put 'with-blend-mode 'scheme-indent-function 1)) + (eval . (put 'with-depth-test 'scheme-indent-function 1)) + (eval . (put 'with-texture 'scheme-indent-function 1)) + (eval . (put 'with-shader 'scheme-indent-function 1)) + (eval . (put 'with-mesh 'scheme-indent-function 1)) + (eval . (put 'with-framebuffer 'scheme-indent-function 1)) + (eval . (put 'with-viewport 'scheme-indent-function 1)) + (eval . (put 'with-projection-mul 'scheme-indent-function 1)) + (eval . (put 'with-model-view-mul 'scheme-indent-function 1)) + (eval . (put 'with-camera 'scheme-indent-function 1)) + (eval . (put 'with-color 'scheme-indent-function 1)) + (eval . (put 'uniform-let 'scheme-indent-function 1))))) |