cargo-culting freetype fix for amd64

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 ;

diff --git a/library/freetype/freetype.factor b/library/freetype/freetype.factor
index cf3b1b827501344c11b752aa33b63427a3217e13..b82fd153f1a2d864205ff0a5cd075e8c7ff6b99c 100644 (file)
--- a/library/freetype/freetype.factor
+++ b/library/freetype/freetype.factor
@@ -66,7 +66,7 @@ BEGIN-STRUCT: glyph
     FIELD: FT_Pos   advance-x
     FIELD: FT_Pos   advance-y
                     
-    FIELD: int      format
+    FIELD: long     format
                     
     FIELD: int      bitmap-rows
     FIELD: int      bitmap-width