This repository has been archived by the owner. It is now read-only.
Permalink
Browse files

further compatibility changes

  • Loading branch information...
1 parent 1d77321 commit a5045ad609301cde724c2ca32b1596e1af5bff48 @ztellman committed May 23, 2010
Showing with 6 additions and 2 deletions.
  1. +1 −1 src/penumbra/glsl/core.clj
  2. +5 −1 test/example/opengl/marble.clj
@@ -196,7 +196,7 @@
(take (-> x count dec) x)
(if (or (-> x last number?) (-> x last typeof (= :int)))
(list (int (last x)))
- (list (last x)))))
+ (list (list 'int (last x))))))
(defmethod transformer 'lighting [x]
(list* 'lighting (list 'int (second x)) (nnext x)))
@@ -81,11 +81,15 @@
(defn display [[delta time] state]
(light 0
- :position [1 1 1 0])
+ :position [1 1 1 0])
+ (enable :light0)
+ (enable :lighting)
+
(material :front-and-back
:ambient-and-diffuse [1 1 1 1]
:specular [0.5 0.4 0.4 1]
:shininess 64)
+
(rotate (:rot-x state) 1 0 0)
(rotate (:rot-y state) 0 1 0)
(color 1 0 0)

0 comments on commit a5045ad

Please sign in to comment.