From: U-SLAVA-DFB8FF805\Slava Date: Thu, 2 Apr 2009 18:24:34 +0000 (-0500) Subject: Fix Uniscribe font size X-Git-Tag: 0.94~2170^2~42^2~8 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=b357812589b393a2b53e1ee2c211e1d696ac21fc Fix Uniscribe font size --- diff --git a/basis/windows/fonts/fonts.factor b/basis/windows/fonts/fonts.factor index b9fb48d840..a034856b34 100755 --- a/basis/windows/fonts/fonts.factor +++ b/basis/windows/fonts/fonts.factor @@ -1,4 +1,4 @@ -USING: assocs memoize locals kernel accessors init fonts +USING: assocs memoize locals kernel accessors init fonts math combinators windows windows.types windows.gdi32 ; IN: windows.fonts @@ -10,7 +10,7 @@ IN: windows.fonts } at-default ; MEMO:: (cache-font) ( font -- HFONT ) - font size>> ! nHeight + font size>> neg ! nHeight 0 0 0 ! nWidth, nEscapement, nOrientation font bold?>> FW_BOLD FW_NORMAL ? ! fnWeight font italic?>> TRUE FALSE ? ! fdwItalic