From b357812589b393a2b53e1ee2c211e1d696ac21fc Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Thu, 2 Apr 2009 13:24:34 -0500
Subject: [PATCH] Fix Uniscribe font size

---
 basis/windows/fonts/fonts.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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