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

windows.uniscribe: add SSA_FALLBACK and SSA_TAB to the flags, should fix #860

db4
Björn Lindqvist 2015-10-22 23:14:55 +02:00
parent ff118771ae
commit 436cb76dd3
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/windows/uniscribe/uniscribe.factor
View File

@ -1,11 +1,10 @@
! 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: kernel assocs math sequences fry io.encodings.string USING: accessors alien.c-types alien.data arrays assocs cache
io.encodings.utf16n accessors arrays combinators destructors classes.struct combinators destructors fonts init io.encodings.string
cache namespaces init fonts alien.c-types alien.data io.encodings.utf16n kernel literals locals math namespaces sequences
windows.usp10 windows.offscreen windows.gdi32 windows.ole32 windows.errors windows.fonts windows.gdi32 windows.offscreen
windows.types windows.fonts opengl.textures locals windows.ole32 windows.types windows.usp10 ;
windows.errors classes.struct ;
IN: windows.uniscribe IN: windows.uniscribe
TUPLE: script-string < disposable font string metrics ssa size image ; TUPLE: script-string < disposable font string metrics ssa size image ;
@ -29,13 +28,15 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
<PRIVATE <PRIVATE
CONSTANT: ssa-dwFlags flags{ SSA_GLYPHS SSA_FALLBACK SSA_TAB }
: make-ssa ( dc script-string -- ssa ) : make-ssa ( dc script-string -- ssa )
dup selection? [ string>> ] when dup selection? [ string>> ] when
[ utf16n encode ] ! pString [ utf16n encode ] ! pString
[ length ] bi ! cString [ length ] bi ! cString
dup 1.5 * 16 + >integer ! cGlyphs -- MSDN says this is "recommended size" dup 1.5 * 16 + >integer ! cGlyphs -- MSDN says this is "recommended size"
-1 ! iCharset -- Unicode -1 ! iCharset -- Unicode
SSA_GLYPHS ! dwFlags ssa-dwFlags
0 ! iReqWidth 0 ! iReqWidth
f ! psControl f ! psControl
f ! psState f ! psState