Brother HL- SERIES, Technical Reference Manual, Page: 89 / 392

Revision C 16/01/96
Chapter 2 "PCL" - 74
Pattern example
10 WIDTH "LPT1:", 255
20 ESC$ = CHR$(27)
30 REM --- RESET PRINTER ---
40 LPRINT ESC$; "E";
50 REM --- SET SOURCE=TRANSPARENT ---
60 REM --- SET PATTERN=OPAQUE ---
70 LPRINT ESC$; "*v0n1O";
80 REM --- BACKGROUND ---
90 LPRINT ESC$; "*c80G"; ESC$; "*v2T";
100 LPRINT ESC$; "*p100x100Y"; ESC$; "*c1000a300b2P";
110 REM --- PATTERN ---
120 LPRINT ESC$; "*p150x300Y";
130 LPRINT ESC$; "(s1p48v0s0b4101T";
140 LPRINT ESC$; "*c1G"; ESC$; "*v3T"; : LPRINT "P";
150 LPRINT ESC$; "*c2G"; ESC$; "*v3T"; : LPRINT "A";
160 LPRINT ESC$; "*c6G"; ESC$; "*v3T"; : LPRINT "T";
170 LPRINT ESC$; "*c4G"; ESC$; "*v3T"; : LPRINT "T";
180 LPRINT ESC$; "*c5G"; ESC$; "*v3T"; : LPRINT "E";
190 LPRINT ESC$; "*c3G"; ESC$; "*v3T"; : LPRINT "R";
200 LPRINT ESC$; "*c1G"; ESC$; "*v3T"; : LPRINT "N";
210 REM --- PAPER EJECT ---
220 LPRINT CHR$(12);
230 END
< Sample file 6 >
Plotting rectangles
Drawing rectangles is a basic case of printing graphics: the source image consists solely of the rectangle itself.
Thus only the pattern transparency has any bearing on the final effect - the source transparency is irrelevant.
Cursor position
Position the cursor using the commands described in the chapter entitled “The Page”. You can use units,
decipoints or rows and columns as coordinate units. Remember that the y-coordinate value goes up as the cursor
moves down the logical page.
Set rectangle width
Esc*c#A (27)(42)(99)#(65) <1Bh><2Ah><63h>#<41h>
•
This command sets the width of the rectangle to be printed in dots.
•
# is a number of dots.
Esc*c#H (27)(42)(99)#(72) <1Bh><2Ah><63h>#<48h>
•
This command sets the width of the rectangle to be printed in decipoints.
•
# is a number of decipoints.