From f6c1d00c37070157f6ce639ffc4b0e535b9f6840 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 19 Aug 2015 17:20:45 -0500 Subject: [PATCH] ui.baseline-alignment: Don't divide f by 2. Also, can't put ``0 or`` after ``max-cap-height`` because it breaks something else. --- basis/ui/baseline-alignment/baseline-alignment.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/baseline-alignment/baseline-alignment.factor b/basis/ui/baseline-alignment/baseline-alignment.factor index 46729877d8e..27330d798a4 100644 --- a/basis/ui/baseline-alignment/baseline-alignment.factor +++ b/basis/ui/baseline-alignment/baseline-alignment.factor @@ -61,7 +61,7 @@ TUPLE: gadget-metrics height ascent descent cap-height ; :: combine-metrics ( graphics-height ascent descent cap-height -- ascent' descent' ) ascent [ - cap-height 2 / :> mid-line + cap-height 0 or 2 / :> mid-line graphics-height 2 / [ ascent mid-line - max mid-line + floor >integer ] [ descent mid-line + max mid-line - ceiling >integer ] bi