chinese-text.r3

REBOL [
	title: "chinese font rendering test (Windows)"
	author: "Richard Smolak"
]
print ""
fnt: make system/standard/font [
	name: "Tahoma"
	size: 64
]

ch-fnt: make system/standard/font [
	name: "SimSun"
	size: 64
]

par: make system/standard/para [wrap?: off]

win-size: 840x300

append append
	win: make gob! [size: win-size]
		make gob! [size: win-size color: sky]
			tg: make gob! [size: win-size]
			

tg/text: to-text compose [
		anti-alias on
		para par
		font fnt
		"Příliš žluťoučký kůň"
		newline
		font ch-fnt
		"这是一份非常间单的说明书…"
		newline
		"這是一份非常間單的說明書…"
] copy []


view/options win [
	title: "Basic TEXT test"
	offset: 'center
]