]> gitweb.factorcode.org Git - factor.git/commitdiff
ui.baseline-alignment: Don't divide f by 2. Also, can't put ``0 or`` after
authorDoug Coleman <doug.coleman@gmail.com>
Wed, 19 Aug 2015 22:20:45 +0000 (17:20 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Wed, 19 Aug 2015 22:20:45 +0000 (17:20 -0500)
``max-cap-height`` because it breaks something else.

basis/ui/baseline-alignment/baseline-alignment.factor

index 46729877d8ec52c60824ecc81d50d67c23c50a0e..27330d798a41fdc142fd4432135402caa79381c1 100644 (file)
@@ -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