<!-- #INCLUDE FILE="../library/rtflib_20050408.asp" -->
<%

dim RTF_OUTPUT
dim filename, filespec, binLogo, strLogo, binLine, strLine
dim HeaderContent, sText

RTF_OUTPUT = ""

sub Append (strContent)
	'THIS FUNCTION SIMPLIFIES APPENDING CONTENT TO THE MAIN RTF_CONTENT STRING
	RTF_OUTPUT = RTF_OUTPUT & strContent
end sub

SetVerticalMeasure("inches")
SetHorizontalMeasure("inches")

Append DrawRTFHeader("Doc Title","Document Subject","Doc Author","Company","Document Comments",RTF_FONT_ARIAL,11,RTF_PORTRAIT,8.5,11,"1","1","1","1",RTF_EDITABLE)

Call RegisterFont(RTF_FONT_ARIAL, "10", RTF_BOLD, RTF_DARK_GRAY)

Append DrawLine(0,6.5,1,1,2,"AABBCC",RTF_SOLID)
Append DrawParagraph("The solid line is a horizontal line.")

Append DrawLine(0,0,1,8,2,"CCDDEE",RTF_DASH_WIN)
Append DrawParagraph("The dashed line is a vertical line.")

Append DrawLine(0,6.5,1,8,2,"33EEFF",RTF_DOT_WIN)
Append DrawParagraph("The dotted line is a SLANTED line.")

Append DrawParagraph("See more shapes on the next page....")

Call RegisterFont(RTF_FONT_ARIAL, "7", RTF_BOLD, RTF_BLUE)

Append DrawFigure(RTF_BOX_ROUNDED,3,4,1,2,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"AABBCC","This is a Rounded Box")

Append DrawFigure(RTF_CIRCLE,1,2,2,3,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Circle")
'Append DrawFigure(RTF_TRIANGLE,3,4,3,4,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","FFAABB")
Append DrawTextFigure(RTF_TRIANGLE,DrawChars("This is a Triangle", null, null, null, null),3,4,3,4,"c", 5,"FF3333",RTF_DASH_WIN,"BBCCDD",0,0,0,0,"This is a Tool Tip")

Append DrawFigure(RTF_PARALLELOGRAM,5,6,2,3,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Parallelogram")
Append DrawFigure(RTF_TRIANGLE_SQUARE,1,2,4,5,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Triangle")
'Append DrawFigure(RTF_TRAPEZOID,3,4,5,6,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","FFAABB")

Append DrawTextFigure(RTF_TRAPEZOID,DrawChars("This is a Trapezoid", null, null, null, null),3,4,5,6,"c", 5,"FF3333",RTF_DASH_WIN,"BBCCDD",0,0,0,0,"This is a Trapezoid")

Append DrawFigure(RTF_HEXAGON,5,6,4,5,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Hexagon")

Append RTF_PAGE_BREAK

Append DrawFigure(RTF_CROSS,0,1,0,1,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Cross")
Append DrawFigure(RTF_STAR,2,3,1,2,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Star")
Append DrawFigure(RTF_ARROW,4,5,0,1,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Arrow")

Append DrawFigure(RTF_CHEVRON,0,1,2,3,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a chevron.")
Append DrawFigure(RTF_BOX_3D,2,3,3,4,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a 3D box")
Append DrawFigure(RTF_BOX_CALLOUT,4,5,2,3,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Callout box")

Append DrawFigure(RTF_STARBURST,0,1,4,5,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a Starburst")
Append DrawFigure(RTF_BOX_INDENTED_CORNERS,2,3,5,6,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a box with indented corners")
Append DrawFigure(RTF_CYLINDER,4,5,4,5,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a cylinder")

Append DrawFigure(RTF_WASHER,0,1,6,7,5,"FF3333",RTF_LONG_DASH_DOT_DOT,"CCDDEE","This is a washer")

'==================================================
Append DrawRTFFooter()
'==================================================

Response.ContentType="application/rtf"
Response.AddHeader "content-disposition", "filename=sample.rtf"
Response.Write RTF_OUTPUT

%>