diff options
author | David Thompson <dthompson2@worcester.edu> | 2015-12-22 14:35:44 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2015-12-22 16:28:18 -0500 |
commit | 8b9b5d371d1dc1c780e227ce9a555cf6c88a85c8 (patch) | |
tree | f1b6524f92aaa329667f08f4a010a7b5e6925ae8 /sly/render.scm | |
parent | 60d601cbb5eb142d01f880b5902329ada93fc91a (diff) |
Upgrade to SDL2!
This commit is massive and crazy and I'm not going to do the usual GNU
ChangeLog thing because it's just too much. Let's just be happy that
the port is completed!
Diffstat (limited to 'sly/render.scm')
-rw-r--r-- | sly/render.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/sly/render.scm b/sly/render.scm index b6dd3fb..875f7c1 100644 --- a/sly/render.scm +++ b/sly/render.scm @@ -519,11 +519,8 @@ COLOR and applies RENDERER." (graphics-model-view-excursion gfx (lambda (gfx) (graphics-model-view-mul! gfx (graphics-projection-transform gfx)) - (graphics-mesh-excursion gfx - (lambda (gfx) - (set-graphics-mesh! gfx mesh) - (graphics-uniform-excursion gfx - `((mvp ,(graphics-model-view-transform gfx)) - (texture? ,(not (texture-null? - (graphics-texture gfx))))) - draw-graphics-mesh!))))))) + (set-graphics-mesh! gfx mesh) + (graphics-uniform-excursion gfx + `((mvp ,(graphics-model-view-transform gfx)) + (texture? ,(not (texture-null? (graphics-texture gfx))))) + draw-graphics-mesh!))))) |