sText$ = \"Test Text\"
hText = GG_Create_Text_Block(sText,50,35,1.5)
ScaleEntity hText,.75,.75,1
PositionEntity hText,-13.125,-10,-8
RotateEntity hText,45,0,0

EntityOrder hText,-10

Function GG_Create_Text_Block(sText$,iCharsPerLine% = 80,iAlign% = -1,fLineSpacing# = 1,fLetterSpacing# = 1,hParent% = 0)
	; Create a collection of text lines that are all parented to a single pivot, which is returned.
	Local hLine,hPivot,sTextPart$,i%,fLineY#,iSpace%
	; If justified, use default letter spacing to prevent strange spacing.
	If iAlign > 1 Then fLetterSpacing = 1
	; Cannot exceed max chars per line.
	If iCharsPerLine > GG_MAX_CHARS_PER_LINE Then iCharsPerLine = GG_MAX_CHARS_PER_LINE

	hPivot = CreatePivot(hParent)
	; Keep making text line objects until all text has been used.
	While sText <> \"\"
		If Len(sText$) >= iCharsPerLine Then
			sTextPart = Left(sText,iCharsPerLine)
		Else
			sTextPart = sText
		End If
		If Len(sTextPart) = iCharsPerLine Then
			; find the first space from the end for word wrapping
			iSpace = GG_InstrRev(sTextPart,\" \")
			If iSpace > 1 Then
				sTextPart = Left(sTextPart,iSpace-1)
			Else
				iSpace = iCharsPerLine		; nowhere to break, so use the whole line
			End If
			; Remove the text part from the main text.
			sText = Mid(sText,iSpace+1)
		Else
			sText = \"\"
		End If
		; If on the last line of text and the block is justified, make the last line flush left.
		If sText = \"\" And iAlign > 1 Then iAlign = -1
		; Make the text line object with the text part.
		hLine = GG_Create_Text_Line(Trim(sTextPart),iAlign,fLetterSpacing,1,hPivot)
		; Move the line down for line spacing.
		PositionEntity hLine,0,fLineY,0
		fLineY = fLineY - fLineSpacing * 1.8
	Wend
	
	Return hPivot
End Function