7.5

Example 2
define(&var,string,'very')
beginparagraph(1,3,0,'left',0.16)
setstyle(&Default)
show('This ')
show(&var)
show(' long line of text should wrap around')
endparagraph()
BeginUTF8Paragraph … EndUTF8Paragraph (procedure)
Delimits a paragraph of formatted UTF8 text.
This procedure is based on BeginParagraph … EndParagraph (procedure), with the following differences:
l ShowUTF8 (procedure)must be used instead of show()
l SetStyleExt (procedure) must use a style that has been associated with the True Type Font "TTHost UTF8Arabic".
l Only UTF8 text can be displayed in a PlanetPress Talk object defined using the beginUTF8paragraph …
endUTF8paragraph structure. Non-UTF8 static text should therefore be converted to its UTF8 reference using the
Ansi/UTF8 Converter (place the cursor within the string and press CTRL+N). Variable text should be converted using
MapUTF8 (function).
Syntax
beginUTF8paragraph( lmargin, rmargin, firstindent, align, leading, majormode, [forcedwordwrap] )
%Your Paragraph data here
endUTF8paragraph()
Arguments
Same as BeginParagraph … EndParagraph (procedure).
Code Sample Example
This example displays a justified paragraph with the UTF8 text running from right to left.
Example
setlinewidth(0.007)moveto(0,0)
rlineto(&width,0)
rlineto(0,&height)
rlineto(neg(&width),0)
rlineto(0,neg(&height))
closepath()
stroke()
moveto(&width/2,&height/18)
BeginUTF8Paragraph(0.0000,&width,0.0000,'leftright',0.1667,'rtl')
SetStyleExt(&Style1,12.0000,0,[100],100)
ShowUTF8('\u0623\u0633\u0627\u0633\u064B\u0627\u060C')
EndUTF8Paragraph()
©2010 Objectif Lune Inc - 411 -