/* Exercises DirectWrite through its public interfaces: the system fonts, a face, glyph metrics, an outline and a rendered glyph run. */
#define INITGUID
#define COBJMACROS
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <d2d1.h>
#include <dwrite_2.h>

static int outline_segments, outline_figures;

static HRESULT STDMETHODCALLTYPE sink_query(IUnknown *self, REFIID iid, void **out) { *out = self; return S_OK; }
static ULONG STDMETHODCALLTYPE sink_ref(IUnknown *self) { return 1; }
static void STDMETHODCALLTYPE sink_fill(ID2D1SimplifiedGeometrySink *self, D2D1_FILL_MODE mode) {}
static void STDMETHODCALLTYPE sink_flags(ID2D1SimplifiedGeometrySink *self, D2D1_PATH_SEGMENT flags) {}
static void STDMETHODCALLTYPE sink_begin(ID2D1SimplifiedGeometrySink *self, D2D1_POINT_2F start, D2D1_FIGURE_BEGIN begin) { ++outline_figures; }
static void STDMETHODCALLTYPE sink_lines(ID2D1SimplifiedGeometrySink *self, const D2D1_POINT_2F *points, UINT32 count) { outline_segments += (int)count; }
static void STDMETHODCALLTYPE sink_beziers(ID2D1SimplifiedGeometrySink *self, const D2D1_BEZIER_SEGMENT *segments, UINT32 count) { outline_segments += (int)count; }
static void STDMETHODCALLTYPE sink_end(ID2D1SimplifiedGeometrySink *self, D2D1_FIGURE_END end) {}
static HRESULT STDMETHODCALLTYPE sink_close(ID2D1SimplifiedGeometrySink *self) { return S_OK; }

static ID2D1SimplifiedGeometrySinkVtbl sink_vtbl = {
	{sink_query, sink_ref, sink_ref}, sink_fill, sink_flags, sink_begin, sink_lines, sink_beziers, sink_end, sink_close,
};

int raven_entry(void)
{
	IDWriteFactory *factory = NULL;
	IDWriteFactory2 *factory2 = NULL;
	IDWriteFontCollection *collection = NULL;
	IDWriteFontFamily *family = NULL;
	IDWriteFont *font = NULL;
	IDWriteFontFace *face = NULL;
	IDWriteLocalizedStrings *names = NULL;
	IDWriteGlyphRunAnalysis *analysis = NULL;
	DWRITE_FONT_METRICS metrics;
	DWRITE_GLYPH_METRICS glyph_metrics[2];
	DWRITE_GLYPH_RUN run;
	UINT32 index, codepoints[2] = {'A', 'g'}, count;
	UINT16 glyphs[2];
	WINBOOL exists;
	RECT bounds;
	static BYTE texture[64 * 64 * 3];
	FLOAT advances[2] = {12.0f, 10.0f};
	WCHAR name[64];
	int lit = 0, position;
	ID2D1SimplifiedGeometrySink sink = {&sink_vtbl};

	if (FAILED(DWriteCreateFactory(DWRITE_FACTORY_TYPE_SHARED, &IID_IDWriteFactory, (IUnknown **)&factory)) || !factory)
		return 1;
	if (FAILED(IDWriteFactory_QueryInterface(factory, &IID_IDWriteFactory2, (void **)&factory2)))
		return 2;
	IDWriteFactory2_Release(factory2);
	if (FAILED(IDWriteFactory_GetSystemFontCollection(factory, &collection, FALSE)) || IDWriteFontCollection_GetFontFamilyCount(collection) == 0)
		return 3;
	if (FAILED(IDWriteFontCollection_FindFamilyName(collection, L"Arial", &index, &exists)) || !exists)
		return 4;
	if (FAILED(IDWriteFontCollection_GetFontFamily(collection, index, &family)))
		return 5;
	if (FAILED(IDWriteFontFamily_GetFamilyNames(family, &names)) || FAILED(IDWriteLocalizedStrings_GetString(names, 0, name, 64)) || name[0] != 'A' || name[1] != 'r')
		return 6;
	if (FAILED(IDWriteFontFamily_GetFirstMatchingFont(family, DWRITE_FONT_WEIGHT_REGULAR, DWRITE_FONT_STRETCH_NORMAL, DWRITE_FONT_STYLE_NORMAL, &font)))
		return 7;
	if (IDWriteFont_GetWeight(font) != DWRITE_FONT_WEIGHT_REGULAR)
		return 8;
	{
		/* A face found under Arial goes by Arial in its Win32 family name, whichever host font stands for it. */
		IDWriteLocalizedStrings *win32 = NULL;
		if (FAILED(IDWriteFont_GetInformationalStrings(font, DWRITE_INFORMATIONAL_STRING_WIN32_FAMILY_NAMES, &win32, &exists)) || !exists ||
			FAILED(IDWriteLocalizedStrings_GetString(win32, 0, name, 64)) || lstrcmpW(name, L"Arial"))
			return 22;
		IDWriteLocalizedStrings_Release(win32);
	}
	if (FAILED(IDWriteFont_CreateFontFace(font, &face)))
		return 9;
	IDWriteFontFace_GetMetrics(face, &metrics);
	if (metrics.designUnitsPerEm < 256 || metrics.ascent == 0 || metrics.descent == 0)
		return 10;
	if (FAILED(IDWriteFontFace_GetGlyphIndices(face, codepoints, 2, glyphs)) || glyphs[0] == 0 || glyphs[1] == 0 || glyphs[0] == glyphs[1])
		return 11;
	if (FAILED(IDWriteFontFace_GetDesignGlyphMetrics(face, glyphs, 2, glyph_metrics, FALSE)) || glyph_metrics[0].advanceWidth == 0 ||
		glyph_metrics[0].advanceWidth > metrics.designUnitsPerEm * 2)
		return 12;
	{
		const void *table;
		UINT32 size;
		void *context;
		if (FAILED(IDWriteFontFace_TryGetFontTable(face, DWRITE_MAKE_OPENTYPE_TAG('c', 'm', 'a', 'p'), &table, &size, &context, &exists)) || !exists || size < 4)
			return 13;
		IDWriteFontFace_ReleaseFontTable(face, context);
	}
	if (FAILED(IDWriteFontFace_GetGlyphRunOutline(face, 20.0f, glyphs, advances, NULL, 2, FALSE, FALSE, &sink)) || outline_figures < 2 || outline_segments < 8)
		return 14;
	run.fontFace = face;
	run.fontEmSize = 20.0f;
	run.glyphCount = 2;
	run.glyphIndices = glyphs;
	run.glyphAdvances = advances;
	run.glyphOffsets = NULL;
	run.isSideways = FALSE;
	run.bidiLevel = 0;
	if (FAILED(IDWriteFactory_CreateGlyphRunAnalysis(factory, &run, 1.0f, NULL, DWRITE_RENDERING_MODE_NATURAL_SYMMETRIC, DWRITE_MEASURING_MODE_NATURAL, 4.0f, 30.0f, &analysis)))
		return 15;
	if (FAILED(IDWriteGlyphRunAnalysis_GetAlphaTextureBounds(analysis, DWRITE_TEXTURE_CLEARTYPE_3x1, &bounds)) ||
		bounds.right - bounds.left < 8 || bounds.bottom - bounds.top < 8 || bounds.right - bounds.left > 40 || bounds.bottom - bounds.top > 40 || bounds.top > 30 || bounds.bottom < 30)
		return 16;
	if (FAILED(IDWriteGlyphRunAnalysis_CreateAlphaTexture(analysis, DWRITE_TEXTURE_CLEARTYPE_3x1, &bounds, texture, sizeof(texture))))
		return 17;
	for (position = 0; position < (bounds.right - bounds.left) * (bounds.bottom - bounds.top) * 3; ++position)
		if (texture[position])
			++lit;
	if (lit < 40)
		return 18;
	{
		/* A text format and an empty layout made from it answer with the settings they were given. */
		IDWriteTextFormat *format;
		IDWriteTextLayout *layout;
		if (FAILED(IDWriteFactory_CreateTextFormat(factory, L"Arial", NULL, DWRITE_FONT_WEIGHT_BOLD, DWRITE_FONT_STYLE_ITALIC, DWRITE_FONT_STRETCH_NORMAL,
			14.0f, L"en-us", &format)))
			return 19;
		if (IDWriteTextFormat_GetFontSize(format) != 14.0f || IDWriteTextFormat_GetFontWeight(format) != DWRITE_FONT_WEIGHT_BOLD ||
			IDWriteTextFormat_GetFontStyle(format) != DWRITE_FONT_STYLE_ITALIC)
			return 20;
		if (FAILED(IDWriteFactory_CreateTextLayout(factory, L"", 0, format, 100.0f, 20.0f, &layout)) ||
			IDWriteTextFormat_GetFontSize((IDWriteTextFormat *)layout) != 14.0f || IDWriteTextFormat_GetFontWeight((IDWriteTextFormat *)layout) != DWRITE_FONT_WEIGHT_BOLD)
			return 21;
		{
			/* A format answers for version 1 and hands its settings to the layouts made from it. */
			IDWriteTextFormat1 *format1;
			IDWriteTextLayout1 *layout1;
			IDWriteFontFace2 *face2;
			IDWriteTextLayout *wide;
			DWRITE_TEXT_METRICS plain, spaced;
			FLOAT leading, trailing, minimum;
			DWRITE_TEXT_RANGE range = {0, 2};
			if (FAILED(IDWriteTextFormat_QueryInterface(format, &IID_IDWriteTextFormat1, (void **)&format1)))
				return 28;
			if (FAILED(IDWriteTextFormat1_SetLastLineWrapping(format1, FALSE)) || IDWriteTextFormat1_GetLastLineWrapping(format1))
				return 29;
			IDWriteTextFormat1_Release(format1);
			if (FAILED(IDWriteFactory_CreateTextLayout(factory, L"ab", 2, format, 400.0f, 40.0f, &wide)) ||
				FAILED(IDWriteTextLayout_GetMetrics(wide, &plain)))
				return 30;
			if (FAILED(IDWriteTextLayout_QueryInterface(wide, &IID_IDWriteTextLayout1, (void **)&layout1)))
				return 31;
			if (FAILED(IDWriteTextLayout1_SetCharacterSpacing(layout1, 1.0f, 2.0f, 0.0f, range)) ||
				FAILED(IDWriteTextLayout1_GetCharacterSpacing(layout1, 0, &leading, &trailing, &minimum, NULL)) ||
				leading != 1.0f || trailing != 2.0f || minimum != 0.0f)
				return 32;
			if (FAILED(IDWriteTextLayout_GetMetrics(wide, &spaced)) || spaced.width < plain.width + 5.0f)
				return 33;
			IDWriteTextLayout1_Release(layout1);
			IDWriteTextLayout_Release(wide);
			if (FAILED(IDWriteFontFace_QueryInterface(face, &IID_IDWriteFontFace2, (void **)&face2)))
				return 34;
			if (IDWriteFontFace2_IsColorFont(face2) || IDWriteFontFace2_GetColorPaletteCount(face2))
				return 35;
			IDWriteFontFace2_Release(face2);
		}
		{
			/* No text still takes a line of the format's font, with no room or plenty. */
			DWRITE_TEXT_METRICS empty;
			IDWriteTextLayout *none;
			if (FAILED(IDWriteTextLayout_GetMetrics(layout, &empty)) || empty.height < 10.0f || empty.width != 0.0f)
				return 36;
			if (FAILED(IDWriteFactory_CreateTextLayout(factory, L"", 0, format, 0.0f, 0.0f, &none)) ||
				FAILED(IDWriteTextLayout_GetMetrics(none, &empty)) || empty.height < 10.0f)
				return 37;
			IDWriteTextLayout_Release(none);
		}
		IDWriteTextLayout_Release(layout);
		IDWriteTextFormat_Release(format);
	}
	{
		/* The analyzer answers for its later versions, and one of their methods places a rotated glyph. */
		IDWriteTextAnalyzer *analyzer;
		IDWriteTextAnalyzer1 *analyzer1;
		IDWriteTextAnalyzer2 *analyzer2;
		DWRITE_MATRIX turned;
		if (FAILED(IDWriteFactory_CreateTextAnalyzer(factory, &analyzer)))
			return 22;
		if (FAILED(IDWriteTextAnalyzer_QueryInterface(analyzer, &IID_IDWriteTextAnalyzer1, (void **)&analyzer1)))
			return 23;
		if (FAILED(IDWriteTextAnalyzer_QueryInterface(analyzer, &IID_IDWriteTextAnalyzer2, (void **)&analyzer2)))
			return 24;
		if (FAILED(IDWriteTextAnalyzer1_GetGlyphOrientationTransform(analyzer1, DWRITE_GLYPH_ORIENTATION_ANGLE_90_DEGREES, FALSE, &turned)) ||
			turned.m11 != 0.0f || turned.m12 != 1.0f || turned.m21 != -1.0f || turned.m22 != 0.0f)
			return 25;
		if (FAILED(IDWriteTextAnalyzer2_GetGlyphOrientationTransform(analyzer2, DWRITE_GLYPH_ORIENTATION_ANGLE_0_DEGREES, FALSE, 5.0f, 6.0f, &turned)) ||
			turned.m11 != 1.0f || turned.m22 != 1.0f)
			return 26;
		if (IDWriteTextAnalyzer_QueryInterface(analyzer, &IID_IDWriteFactory, (void **)&factory2) != E_NOINTERFACE)
			return 27;
		IDWriteTextAnalyzer2_Release(analyzer2);
		IDWriteTextAnalyzer1_Release(analyzer1);
		IDWriteTextAnalyzer_Release(analyzer);
	}
	IDWriteGlyphRunAnalysis_Release(analysis);
	IDWriteFontFace_Release(face);
	IDWriteFont_Release(font);
	IDWriteLocalizedStrings_Release(names);
	IDWriteFontFamily_Release(family);
	count = IDWriteFactory_Release(factory);
	(void)count;
	return 0;
}