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 ;
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 ;

2
library/freetype/freetype.factor
View File

@ -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