'
' Copyright (c) 2001-2012 by PDFTron Systems Inc. All Rights Reserved.
'

Imports System

Imports pdftron
Imports pdftron.Common
Imports pdftron.Filters
Imports pdftron.SDF
Imports pdftron.PDF

' This example illustrates how to create Unicode text and how to embed composite fonts.
Module Module1

	' Note: This demo assumes that 'arialuni.ttf' is present in '/Samples/TestFiles' 
	' directory. Arial Unicode MS is about 24MB in size and it comes together with Windows and 
	' MS Office.
	' 
	' For more information about Arial Unicode MS, please consult the following Microsoft Knowledge 
	' Base Article: WD2002: General Information About the Arial Unicode MS Font
	'  http://support.microsoft.com/support/kb/articles/q287/2/47.asp
	'
	' For more information consult: 
	'    http://office.microsoft.com/search/results.aspx?Scope=DC&Query=font&CTT=6&Origin=EC010331121033
	'    http://www.microsoft.com/downloads/details.aspx?FamilyID=1F0303AE-F055-41DA-A086-A65F22CB5593
	' 
	' In case you don't have access to Arial Unicode MS you can use cyberbit.ttf 
	' (ftp://ftp.netscape.com/pub/communicator/extras/fonts/windows/) instead.
	'
	Sub Main()

		PDFNet.Initialize()

		' Relative path to the folder containing test files.
		Dim input_path As String = "../../../TestFiles/"
		Dim output_path As String = "../../../TestFiles/Output/"

		Try
			Dim doc As PDFDoc = New PDFDoc

			Dim eb As ElementBuilder = New ElementBuilder
			Dim writer As ElementWriter = New ElementWriter

			' Start a new page ------------------------------------
			Dim page As Page = doc.PageCreate(New Rect(0, 0, 612, 794))

			writer.Begin(page)		  ' begin writing to this page

			Dim fnt As Font
			Try

				' Full font embedding
				Dim myfont As System.Drawing.Font = New System.Drawing.Font("Arial Unicode MS", 12)
				fnt = Font.CreateCIDTrueTypeFont(doc.GetSDFDoc(), myfont, True, True)

				' To embed the font file directly use:
				' fnt = Font.CreateCIDTrueTypeFont(doc, input_path + "arialuni.ttf", true, true)

				' Example of font substitution
				' fnt = Font.CreateCIDTrueTypeFont(doc, input_path + "arialuni.ttf", false)
			Catch ex As PDFNetException

				Console.WriteLine(ex.Message)
				Console.WriteLine()

				Console.WriteLine("'arialuni.ttf' font file was not found in 'Samples/TestFiles' directory.")
				PDFNet.Terminate()
				Return

			End Try

			Dim element As Element = eb.CreateTextBegin(fnt, 1)
			element.SetTextMatrix(10, 0, 0, 10, 50, 600)
			element.GetGState().SetLeading(2)			' Set the spacing between lines
			writer.WriteElement(element)

			' Hello World!!!
			Dim hello As String = "Hello World!"
			writer.WriteElement(eb.CreateUnicodeTextRun(hello))
			writer.WriteElement(eb.CreateTextNewLine())

			' Latin
			Dim latin As Char() = { _
			 "a"c, "A"c, "b"c, "B"c, "c"c, "C"c, "d"c, "D"c, ChrW(&H45), ChrW(&H46), ChrW(&HC0), _
			 ChrW(&HC1), ChrW(&HC2), ChrW(&H143), ChrW(&H144), ChrW(&H145), ChrW(&H152), "1"c, "2"c _
			 }			 ' etc.

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(latin)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Greek
			Dim greek As Char() = { _
			 ChrW(&H39E), ChrW(&H39F), ChrW(&H3A0), ChrW(&H3A1), ChrW(&H3A3), ChrW(&H3A6), ChrW(&H3A8), ChrW(&H3A9) _
			 }			 ' etc.

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(greek)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Cyrillic
			Dim cyrillic As Char() = { _
			 ChrW(&H409), ChrW(&H40A), ChrW(&H40B), ChrW(&H40C), ChrW(&H40E), ChrW(&H40F), ChrW(&H410), ChrW(&H411), _
			 ChrW(&H412), ChrW(&H413), ChrW(&H414), ChrW(&H415), ChrW(&H416), ChrW(&H417), ChrW(&H418), ChrW(&H419) _
			 }			 ' etc.

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(cyrillic)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Hebrew
			Dim hebrew As Char() = { _
			 ChrW(&H5D0), ChrW(&H5D1), ChrW(&H5D3), ChrW(&H5D3), ChrW(&H5D4), ChrW(&H5D5), ChrW(&H5D6), ChrW(&H5D7), ChrW(&H5D8), _
			 ChrW(&H5D9), ChrW(&H5DA), ChrW(&H5DB), ChrW(&H5DC), ChrW(&H5DD), ChrW(&H5DE), ChrW(&H5DF), ChrW(&H5E0), ChrW(&H5E1) _
			 }			 ' etc. 

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(hebrew)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Arabic
			Dim arabic As Char() = { _
			 ChrW(&H624), ChrW(&H625), ChrW(&H626), ChrW(&H627), ChrW(&H628), ChrW(&H629), ChrW(&H62A), ChrW(&H62B), ChrW(&H62C), _
			 ChrW(&H62D), ChrW(&H62E), ChrW(&H62F), ChrW(&H630), ChrW(&H631), ChrW(&H632), ChrW(&H633), ChrW(&H634), ChrW(&H635) _
			 }			 ' etc. 

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(arabic)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Thai 
			Dim thai As Char() = { _
			 ChrW(&HE01), ChrW(&HE02), ChrW(&HE03), ChrW(&HE04), ChrW(&HE05), ChrW(&HE06), ChrW(&HE07), ChrW(&HE08), ChrW(&HE09), _
			 ChrW(&HE0A), ChrW(&HE0B), ChrW(&HE0C), ChrW(&HE0D), ChrW(&HE0E), ChrW(&HE0F), ChrW(&HE10), ChrW(&HE11), ChrW(&HE12) _
			 }			 ' etc. 

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(thai)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Hiragana - Japanese 
			Dim hiragana As Char() = { _
			 ChrW(&H3041), ChrW(&H3042), ChrW(&H3043), ChrW(&H3044), ChrW(&H3045), ChrW(&H3046), ChrW(&H3047), ChrW(&H3048), ChrW(&H3049), _
			 ChrW(&H304A), ChrW(&H304B), ChrW(&H304C), ChrW(&H304D), ChrW(&H304E), ChrW(&H304F), ChrW(&H3051), ChrW(&H3051), ChrW(&H3052) _
			 }			 ' etc. 

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(hiragana)))
			writer.WriteElement(eb.CreateTextNewLine())

			' CJK Unified Ideographs
			Dim cjk_uni As Char() = { _
			 ChrW(&H5841), ChrW(&H5842), ChrW(&H5843), ChrW(&H5844), ChrW(&H5845), ChrW(&H5846), ChrW(&H5847), ChrW(&H5848), ChrW(&H5849), _
			 ChrW(&H584A), ChrW(&H584B), ChrW(&H584C), ChrW(&H584D), ChrW(&H584E), ChrW(&H584F), ChrW(&H5850), ChrW(&H5851), ChrW(&H5852) _
			 }			 ' etc. 

			writer.WriteElement(eb.CreateUnicodeTextRun(New String(cjk_uni)))
			writer.WriteElement(eb.CreateTextNewLine())

			' Finish the block of text
			writer.WriteElement(eb.CreateTextEnd())

			writer.End()			  ' save changes to the current page
			doc.PagePushBack(page)

			' Calling Dispose() on ElementReader/Writer/Builder can result in increased performance and lower memory consumption.
			eb.Dispose()
			writer.Dispose()

            doc.Save(output_path + "unicodewrite.pdf", SDF.SDFDoc.SaveOptions.e_remove_unused Or SDF.SDFDoc.SaveOptions.e_hex_strings)
			doc.Close()

            Console.WriteLine("Done. Result saved in unicodewrite.pdf")

		Catch ex As PDFNetException

			Console.WriteLine(ex.Message)
			Console.WriteLine()

		Catch ex As Exception

			MsgBox(ex.Message)

		End Try

		PDFNet.Terminate()

	End Sub

End Module