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.
CHAPTER 4 HP-GL/2 - 26