2001/10/02
CHAPTER 4 HP-GL/2 - 26
10 '-Edge Rectangle Absolute-
20 WIDTH "LPT1:", 255
30 LPRINT CHR$(27); "E";
40 LPRINT CHR$(27); "%0B";
50 LPRINT "IN;SP1;";
60 LPRINT "SC0,150,0,150,1;"
70 LPRINT "PA25;105;EA65;130;"
80 LPRINT "PA30;110;EA70,135;"
90 LPRINT "PA35;115;EA75;140;"
100 LPRINT CHR$(27); "%0A";
110 LPRINT CHR$(27); "E";
120 END
<sample 31>
ER - Edge rectangle relative
ER X, Y[;]
X ; X coordinate of opposite corner for the rectangle
Y ; Y coordinate of opposite corner for the rectangle
•
Coordinates are relative to the current position in current units.
•
Plots the rectangle formed by the current position and the opposite corner specified by X and Y.
•
After plotting, the cursor returns to its point of origin.
•
Plotting is performed whether the pen is up or down.
10 '-Edge Rectangle Relative -
20 WIDTH "LPT1:", 255
30 LPRINT CHR$(27); "E";
40 LPRINT CHR$(27); "%0B";
50 LPRINT "IN;SP1;";
60 LPRINT "SC0;150;0;150;1;"
70 LPRINT "PA25,105;ER40,25;"
80 LPRINT "PR 5, 5;ER40,25;"
90 LPRINT "PR 5, 5;ER40,25;"
100 LPRINT CHR$(27); "%0A";
110 LPRINT CHR$(27); "E";
120 END
<Sample 32>
EP - Edge polygon
EP [;]
•
This command plots the outline of the polygon currently stored in the polygon buffer.
•
The command only plots between points defined when the pen was down.
•
The command plots an outline irrespective of whether the pen is currently up or down.
•
The command does not affect the data in the polygon buffer.
•
On completion of the plot the cursor returns to the original position.
EW - Edge wedge
EW
r
,
q1
,
qc
(,
qd
)[;]
r
; Radius in current units
q1
; Start point angle
qc
; Arc angle
qd
; Chord angle
•
Plots a wedge centred on the current position with radius
r
, start point angle
q1
, arc angle
qc
and chord angle
qd
.
•
After plotting, the cursor returns to its point of origin.
•
Plotting is performed whether the pen is up or down.
•
You should use this command with the type "isotropic". Anisotropic type may make the wedge stretch.