steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cargo-culting freetype fix for amd64

cvs 0.80
Slava Pestov 2006-01-31 02:04:26 +00:00
parent 3e29bee73b
commit 18b581688d
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/canvas.factor
View File

@ -46,7 +46,7 @@ C: canvas ( quot -- )
dup delegate>gadget [ set-canvas-quot ] keep ; dup delegate>gadget [ set-canvas-quot ] keep ;
M: canvas add-notify* ( gadget -- ) 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 ; swap set-canvas-id ;
M: canvas draw-gadget* ( gadget -- ) M: canvas draw-gadget* ( gadget -- )
@ -68,10 +68,10 @@ M: canvas draw-gadget* ( gadget -- )
4 [ drop 255 random-int 255 /f ] map gl-color ; 4 [ drop 255 random-int 255 /f ] map gl-color ;
: turtle-test : turtle-test
{ 800 800 0 } [ { 400 400 0 } [
36 [ 36 [
random-color ! random-color
10 line-to 10 line-to
10 turn-by [ 60 17 regular-polygon ] new-pen 10 turn-by [ 60 10 regular-polygon ] new-pen
] times ] times
] with-canvas ; ] with-canvas ;

2
library/freetype/freetype.factor
View File

@ -66,7 +66,7 @@ BEGIN-STRUCT: glyph
FIELD: FT_Pos advance-x FIELD: FT_Pos advance-x
FIELD: FT_Pos advance-y FIELD: FT_Pos advance-y
FIELD: int format FIELD: long format
FIELD: int bitmap-rows FIELD: int bitmap-rows
FIELD: int bitmap-width FIELD: int bitmap-width