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

Fix rounding error

db4
Slava Pestov 2009-04-14 15:14:57 -05:00
parent d582c260ac
commit 2a5a5ee376
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/baseline-alignment/baseline-alignment.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel locals math math.order math.vectors USING: arrays kernel locals math math.functions math.order math.vectors
sequences ui.gadgets accessors combinators ; sequences ui.gadgets accessors combinators ;
IN: ui.baseline-alignment IN: ui.baseline-alignment
@ -46,8 +46,8 @@ TUPLE: gadget-metrics height ascent descent cap-height ;
ascent [ ascent [
cap-height 2 / :> mid-line cap-height 2 / :> mid-line
graphics-height 2 / graphics-height 2 /
[ ascent mid-line - max mid-line + >integer ] [ ascent mid-line - max mid-line + ceiling >integer ]
[ descent mid-line + max mid-line - >integer ] bi [ descent mid-line + max mid-line - floor >integer ] bi
] [ f f ] if ; ] [ f f ] if ;
: (measure-metrics) ( children sizes -- graphics-height ascent descent cap-height ) : (measure-metrics) ( children sizes -- graphics-height ascent descent cap-height )