CHAPTER 9 HP-GL - 13
10 '*** CIEX1 ***
20 LPRINT "IN;SP1;IP2650,1325,7650,6325;"
30 LPRINT "SC-100,100,-100,100;"
40 LPRINT "PA-60,50;CI40,45;"
50 LPRINT "PA60,50;CI40,30;"
60 LPRINT "PA-60,-50;CI40,15;"
70 LPRINT "PA60,-50;CI40,5;"
80 END
<Sample 65>
10 '*** CIEX2 ***
20 LPRINT "IN;SP1;IP2650,1325,8650,7325;"
30 LPRINT "SC0,170,0,170;"
40 LPRINT "PA100,100;LT;CI10,5;LT0;CI-20,5;LT1;CI30,5;"
50 LPRINT "LT2;CI-40,5;LT3;CI50,5;LT4;CI-
60,5;LT5;CI70,5;LT6;CI80,5;"
60 END
<Sample 66>
10 '*** CIEX3 ***
20 LPRINT "IN;SP1;IP2650,1325,7650,6325;"
30 LPRINT "SC-1000,1000,-1000,1000;"
40 LPRINT "PA-800,800;"
50 GOSUB 130
60 LPRINT "PA200,800;"
70 GOSUB 130
80 LPRINT "PA-800,-200;"
90 GOSUB 130
100 LPRINT"PA200,-200;"
110 GOSUB 130
120 END
130 LPRINT "CI70;PR600,0;CI70;PR-300,-300;CI250;"
140 LPRINT "PR-300,-300;CI70;PR600,0;CI70;"
150 RETURN
<Sample 67>
3.4.
The polygon Group
Instruction Function
EA
Edge Absolute Rectangle
ER
Edge Relative Rectangle
EW Edge
Wedge
RA
Fill Absolute Rectangle
RR
Fill Relative Rectangle
WG Fill
Wedge
EA - Edge rectangle absolute
EA X, Y[;]
X ; X coordinate of opposite angle for the rectangle
Y ; Y coordinate of opposite angle for the rectangle
X and Y coordinates are absolute coordinates 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.