cargo-culting freetype fix for amd64

[factor.git] / examples / canvas.factor

diff --git a/examples/canvas.factor b/examples/canvas.factor
index 0f705db08f5e2d11ac41f4156cc999a71772bd88..0130aa8addd61759aa76658895d0ac3bcfc7341b 100644 (file)
--- a/examples/canvas.factor
+++ b/examples/canvas.factor
@@ -46,7 +46,7 @@ C: canvas ( quot -- )
     dup delegate>gadget [ set-canvas-quot ] keep ;
 
 M: canvas add-notify* ( gadget -- )
-    canvas-quot GL_COMPILE [ with-scope ] make-dlist
+    dup canvas-quot GL_COMPILE [ with-scope ] make-dlist
     swap set-canvas-id ;
 
 M: canvas draw-gadget* ( gadget -- )
@@ -68,10 +68,10 @@ M: canvas draw-gadget* ( gadget -- )
     4 [ drop 255 random-int 255 /f ] map gl-color ;
 
 : turtle-test
-    { 800 800 0 } [
+    { 400 400 0 } [
         36 [
-            random-color
+            ! random-color
             10 line-to
-            10 turn-by [ 60 17 regular-polygon ] new-pen
+            10 turn-by [ 60 10 regular-polygon ] new-pen
         ] times
     ] with-canvas ;