--proc/resources/font: font resources (the old API)
--Written by Cosmin Apreutesei. Public Domain.

setfenv(1, require'winapi')
require'winapi.winuser'
require'winapi.gdi'
require'winapi.logfonttype'

ffi.cdef[[
HFONT   CreateFontIndirectW(const LOGFONTW *);
]]

--weights
FW_DONTCARE         = 0
FW_THIN             = 100
FW_EXTRALIGHT       = 200
FW_LIGHT            = 300
FW_NORMAL           = 400
FW_MEDIUM           = 500
FW_SEMIBOLD         = 600
FW_BOLD             = 700
FW_EXTRABOLD        = 800
FW_HEAVY            = 900
FW_ULTRALIGHT       = FW_EXTRALIGHT
FW_REGULAR          = FW_NORMAL
FW_DEMIBOLD         = FW_SEMIBOLD
FW_ULTRABOLD        = FW_EXTRABOLD
FW_BLACK            = FW_HEAVY
--charsets
ANSI_CHARSET            = 0
DEFAULT_CHARSET         = 1
SYMBOL_CHARSET          = 2
SHIFTJIS_CHARSET        = 128
HANGEUL_CHARSET         = 129
HANGUL_CHARSET          = 129
GB2312_CHARSET          = 134
CHINESEBIG5_CHARSET     = 136
OEM_CHARSET             = 255
JOHAB_CHARSET           = 130
HEBREW_CHARSET          = 177
ARABIC_CHARSET          = 178
GREEK_CHARSET           = 161
TURKISH_CHARSET         = 162
VIETNAMESE_CHARSET      = 163
THAI_CHARSET            = 222
EASTEUROPE_CHARSET      = 238
RUSSIAN_CHARSET         = 204
MAC_CHARSET             = 77
BALTIC_CHARSET          = 186
--styles
FS_LATIN1               = 0x00000001
FS_LATIN2               = 0x00000002
FS_CYRILLIC             = 0x00000004
FS_GREEK                = 0x00000008
FS_TURKISH              = 0x00000010
FS_HEBREW               = 0x00000020
FS_ARABIC               = 0x00000040
FS_BALTIC               = 0x00000080
FS_VIETNAMESE           = 0x00000100
FS_THAI                 = 0x00010000
FS_JISJAPAN             = 0x00020000
FS_CHINESESIMP          = 0x00040000
FS_WANSUNG              = 0x00080000
FS_CHINESETRAD          = 0x00100000
FS_JOHAB                = 0x00200000
FS_SYMBOL               = 0x80000000
--output precisions
OUT_DEFAULT_PRECIS          = 0
OUT_STRING_PRECIS           = 1
OUT_CHARACTER_PRECIS        = 2
OUT_STROKE_PRECIS           = 3
OUT_TT_PRECIS               = 4
OUT_DEVICE_PRECIS           = 5
OUT_RASTER_PRECIS           = 6
OUT_TT_ONLY_PRECIS          = 7
OUT_OUTLINE_PRECIS          = 8
OUT_SCREEN_OUTLINE_PRECIS   = 9
OUT_PS_ONLY_PRECIS          = 10
--clip precisions
CLIP_DEFAULT_PRECIS     = 0
CLIP_CHARACTER_PRECIS   = 1
CLIP_STROKE_PRECIS      = 2
CLIP_MASK               = 0xf
CLIP_LH_ANGLES          = bit.lshift(1,4)
CLIP_TT_ALWAYS          = bit.lshift(2,4)
CLIP_DFA_DISABLE        = bit.lshift(4,4)
CLIP_EMBEDDED           = bit.lshift(8,4)
--qualities
DEFAULT_QUALITY         = 0
DRAFT_QUALITY           = 1
PROOF_QUALITY           = 2
NONANTIALIASED_QUALITY  = 3
ANTIALIASED_QUALITY     = 4
CLEARTYPE_QUALITY       = 5
CLEARTYPE_NATURAL_QUALITY = 6
--pitches
DEFAULT_PITCH           = 0
FIXED_PITCH             = 1
VARIABLE_PITCH          = 2
--families
FF_DONTCARE         = bit.lshift(0,4) -- Don't care or don't know.
FF_ROMAN            = bit.lshift(1,4) -- Variable stroke width, serifed. Times Roman, Century Schoolbook, etc.
FF_SWISS            = bit.lshift(2,4) -- Variable stroke width, sans-serifed. Helvetica, Swiss, etc.
FF_MODERN           = bit.lshift(3,4) -- Constant stroke width, serifed or sans-serifed. Pica, Elite, Courier, etc.
FF_SCRIPT           = bit.lshift(4,4) -- Cursive, etc.
FF_DECORATIVE       = bit.lshift(5,4) -- Old English, etc.

local function setpitch(v, cdata) --it's in the first 2 low bits
	return bit.bor(v, bit.band(cdata.lfPitchAndFamily, 0xff-3))
end

local function setfamily(v, cdata) --it's in the high 6 bits
	return bit.bor(v, bit.band(cdata.lfPitchAndFamily, 3))
end

local function getpitch(v, cdata) --it's in the first 2 low bits
	return bit.band(cdata.lfPitchAndFamily, 3)
end

local function getfamily(v, cdata) --it's in the high 6 bits
	return bit.band(cdata.lfPitchAndFamily, 0xff-3)
end

LOGFONT = struct{
	ctype = 'LOGFONTW',
	fields = sfields{
		'weight', 'lfWeight', flags, pass, --FW_*
		'charset', 'lfCharSet', flags, pass, --*_CHARSET
		'precision', 'lfOutPrecision', flags, pass, --OUT_*
		'clip_precision', 'lfClipPrecision', flags, pass, --CLIP_*
		'quality', 'lfQuality', flags, pass, --*_QUALITY
		'pitch', 'lfPitchAndFamily', setpitch, getpitch, --*_PITCH
		'family', 'lfPitchAndFamily', setfamily, getfamily, --FF_*
		'facename', '', wc_set'lfFaceName', wc_get'lfFaceName',
	}
}

function CreateFont(lf)
	return own(checkh(C.CreateFontIndirectW(LOGFONT(lf))), DeleteObject)
end

--showcase

if not ... then
	local logfont = LOGFONT{facename = 'Arial'}
	assert(logfont.facename == 'Arial')
	print('CreateFont:', CreateFont(logfont))
end