7.4

Example:
This example the default User-Defined Emulation that corresponds to a Line Printer data file.
search(&str,'\014')
set(&current.line,&current.line + 1)
store(&current.line,&str)
doform()
clearpage()
endsearch()
set(&current.line,&current.line + 1)
store(&current.line,&str)
if(ge(&current.line,&current.lpp))
doform()
clearpage()
endif()
ClipPath (procedure)
The Clippath() command takes the last drawn path and selects it as the clipping region. Any subsequent drawing will only be
visible inside that clipping region. The clipping will stop at the next call to GRestore(). All PlanetPress objects are natively
wrapped in a GSave/GRestore(), so clipping between objects will not work.
Syntax
clippath()
Argument
None
Example
This example displays the coffee_time image partially, where only a square defined by the rlineto()is visible.
moveto((2.0000/(6.6529)) * &width, (0.2000/(4.9897)) * &height)
rlineto(0, (3.0000/(4.9897)) * &height)
rlineto((3.0000/(6.6529)) * &width, 0)
rlineto(0, neg((3.0000/(4.9897)) * &height))
closepath()
clippath()
moveto(0, 0)
showbitmap('coffee_time',&document.picturecolorres,&width,&height)
ClosePath (procedure)
Closes any open path and completes the current shape, if need be, by drawing a line from the last point in the shape to the
starting point. This ensures the shape is closed, thus enabling filling to take place if specified. Only closed shapes can be filled.
Syntax
closepath()
©2010 Objectif Lune Inc - 414 -