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.