2006/05/31
CHAPTER 9 HP-GL - 14
• When there is no scaling, the coordinate values for X and Y are integer numbers.
Current position
(X, Y)
10 '*** EAEX ***
20 LPRINT "IN;SP1;PA7000,4000;"
30 LPRINT "PT.3;FT1;RA6000,3000;"
40 LPRINT "SP3,;EA6000,3000;"
50 LPRINT "SP4;FT3,100;RA8000,3000;"
60 LPRINT "SP3,;EA8000,3000;"
70 LPRINT "SP5;PT.3;FT2;RA8000,5000;"
80 LPRINT "SP3;EA8000,5000;"
90 LPRINT "SP6;FT4,100,45;RA6000,5000;"
100 LPRINT "SP3;EA6000,5000;PG"
110 END
<Sample 72>
ER - Edge rectangle relative
ER X, Y[;]
X ; X coordinate of opposite angle for the rectangle
Y ; Y coordinate of opposite angle for the rectangle
• Coordinates are relative to the current position in user units or graphics units.
• Plots the rectangle formed by the current position and the opposite angle 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.
• When scaling has been performed, the rectangle is plotted in user units.
• Also, when scaling has been performed, the values for X and Y are real numbers.
• When there is no scaling, the rectangle is plotted in graphics units.
• When there is no scaling, the coordinate values for X and Y are integer numbers.
Current position
Y increment
X increment
10 '*** EREX ***
20 LPRINT "IN;SP1;PA5000,5000;"
30 LPRINT "PT.3;FT1;RR500,500;"
40 LPRINT "SP3,;ER500,500;"
50 LPRINT "PR500,0"
60 LPRINT "SP4;FT3,;RR500,500;"
70 LPRINT "SP3,;ER500,500;"
80 LPRINT "PR0,500;"
90 LPRINT "SP5;PT.3;FT2;RR500,500;"
100 LPRINT "SP3;ER500,500;"
110 LPRINT "SP6;FT4,100,45;RR-500,500;"
120 LPRINT "SP3;ER-500,500;PG"
130 END
<Sample 74>