Set the width, style and colour for lines and rectangles when drawn using a printer.
Restriction: This routine is not currently supported on UNIX platforms.
Syntax:
call "PC_PRINTER_SET_PEN" using
Printer-Handle
by value Pen-Width
by value Pen-Style
by value Pen-red
by value Pen-blue
by value Pen-green
end-call
Parameters:
|
Using call prototype (see
Key)
|
Picture
|
pen-width
|
cblt-x4-comp5
|
pic x(4) comp-5.
|
pen-width
|
cblt-x4-comp5
|
pic x(4) comp-5.
|
pen-red
|
cblt-x
|
pic x
|
pen-blue
|
cblt-x
|
pic x
|
pen-green
|
cblt-x
|
pic x
|
On Entry:
|
Value
|
Meaning
|
pen-style
|
0
|
solid line
|
|
1
|
dash
|
|
2
|
dot
|
|
3
|
dash, Dot
|
|
4
|
dash, dot, dot
|
|
5
|
invisible
|
pen-width
|
|
width of line when drawing lines or rectangles
|
pen-red
|
Value between 0 and 255
|
intensity of red
|
pen-green
|
Value between 0 and 255
|
intensity of green
|
pen-blue
|
Value between 0 and 255
|
intensity of blue
|