Fix bunny for float array change

diff --git a/extra/bunny/bunny.factor b/extra/bunny/bunny.factor
index b315e4ca5a26b99567c535092a9fa132a6fe4826..a927f1f05544e0d624745fde41b7d9e9f6e08f0b 100755 (executable)
--- a/extra/bunny/bunny.factor
+++ b/extra/bunny/bunny.factor
@@ -42,13 +42,15 @@ M: bunny-gadget ungraft* ( gadget -- )
     [ draw-seq>> [ [ dispose ] when* ] each ] bi ;
 
 M: bunny-gadget draw-gadget* ( gadget -- )
-    0.15 0.15 0.15 1.0 glClearColor
-    GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear
-    dup demo-gadget-set-matrices
-    GL_MODELVIEW glMatrixMode
-    0.02 -0.105 0.0 glTranslatef
-    { geom>> bunny-gadget-draw } get-slots
-    draw-bunny ;
+    dup draw-seq>> empty? [ drop ] [
+        0.15 0.15 0.15 1.0 glClearColor
+        GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear
+        dup demo-gadget-set-matrices
+        GL_MODELVIEW glMatrixMode
+        0.02 -0.105 0.0 glTranslatef
+        { geom>> bunny-gadget-draw } get-slots
+        draw-bunny
+    ] if ;
 
 M: bunny-gadget pref-dim* ( gadget -- dim )
     drop { 640 480 } ;

diff --git a/extra/bunny/model/model.factor b/extra/bunny/model/model.factor
index b1f2f19d9c03fb6fce09d63c6147b3121615c9e8..97477a6f68a2e26ef607f1a1d0a06b2355cfed1d 100755 (executable)
--- a/extra/bunny/model/model.factor
+++ b/extra/bunny/model/model.factor
@@ -66,7 +66,7 @@ TUPLE: bunny-buffers array element-array nv ni ;
     {
         [
             [ first concat ] [ second concat ] bi
-            append >float-array
+            append >c-double-array
             GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer>
         ]
         [