Option Explicit
Sub Main
	Dim doc As FMDocument
	Dim pt_list As FMCurvePtList
	Dim curve1 As FMCurve, curve2 As FMCurve

	Set doc = ActiveDocument
	Set pt_list = doc.CreateCurvePtList

	pt_list.AddPt 0,-2,0
	pt_list.AddPt .5,-2,0
	pt_list.AddArc 1,-2.5,0,1,-2,0,False
	pt_list.AddPt 1,-2.75,0
	pt_list.AddPt 2,-2.75,0
	pt_list.AddArc 2.5,-2.25,0,2.5,-2.75,0,False
	pt_list.AddPt 2.5,-2,0
	pt_list.AddPt 3.5,-2,0
	pt_list.AddArc 4,-1.5,0,4,-2,0,True
	pt_list.AddPt 4,-1.25,0
	pt_list.AddPt 6,-1.25,0
	pt_list.AddArc 6.5,-1.75,0,6.5,-1.25,0,True
	pt_list.AddPt 6.5,-4.5,0
	pt_list.AddPt 2,-4.5,0
	Set curve1 = pt_list.AddCurveFromPtList

	pt_list.AddPt 2,-3.5,0
	Set curve2 = pt_list.AddCurveFromPtList( False)

	MsgBox "curve1: " + curve1 + ", curve2: " + curve2

	Set pt_list = Nothing

End Sub