From 18b581688d8d64beae10358b16117ecded0177df Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 31 Jan 2006 02:04:26 +0000 Subject: [PATCH] cargo-culting freetype fix for amd64 --- examples/canvas.factor | 8 ++++---- library/freetype/freetype.factor | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/examples/canvas.factor b/examples/canvas.factor index 0f705db08f..0130aa8add 100644 --- 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 cf3b1b8275..b82fd153f1 100644 --- 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 -- 2.34.1