2006/05/31
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.