RA - Fill rectangle absolute ; RA X, Y[;] - Page 175

2001/10/02 

CHAPTER 4 HP-GL/2 - 27 

• 

r

 specifies the radius of the circle.  A positive value for 

r

 places the 0° reference point onto the positive x-

axis and a negative value for 

r

 places the 0° reference point onto the negative x-axis. 

• 

The value for 

q1

 is a clamped real number. 

q1

qc

r

0° reference point

current

position

• 

q1

 specifies the wedge starting point relative to the 0 degree reference point. 

• 

When 

q1

 is positive, the positive direction of the X axis relative to the current position is set at 0 degrees and 

the start point is sought in the counterclockwise direction.  The opposite occurs when 

q1

 is negative: the 

negative X axis is set at 0 degrees and the start point is sought by going clockwise. 

• 

qc

 specifies the angle of the wedge in degrees. 

• 

The value for 

qc

 is a clamped real number. 

• 

Plotting proceeds counterclockwise when 

qc

 is positive and clockwise when negative. 

• 

The value for 

qd

 must be an integer from -32,768 to +32,767. 

• 

When 

qd

 is not specified, the chord angle is the default value ( 5 degrees ) 

10 '- Edge Wedge - 

20 WIDTH "LPT1:", 255 

30 LPRINT CHR$(27); "E"; 

40 LPRINT CHR$(27); "%0B"; 

50 LPRINT "IN;SP1;" 

60 LPRINT "PA2000,5000;" 

70 LPRINT "EW1250,90,180,5;" 

80 LPRINT "EW1250,270,120;" 

90 LPRINT "EW1250,30,60;" 

100 LPRINT CHR$(27); "%0A"; 

110 LPRINT CHR$(27); "E"; 

120 END 

<Sample 33> 

RA - Fill rectangle absolute 

RA X, Y[;] 

X ; X coordinate of opposite corner for the rectangle 
Y ; Y coordinate of opposite corner for the rectangle 

• 

X and Y coordinates are absolute coordinates in current units. 

• 

Fill 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 ' - Fill Absolute Rectangle - 

20 WIDTH "LPT1:", 255 

30 LPRINT CHR$(27); "E"; 

40 LPRINT CHR$(27); "%0B"; 

50 LPRINT "IN;SP1;PA5000,4000;" 

60 LPRINT "FT1;RA4250,3250;" 

70 LPRINT "FT3,100;RA5750,3250;" 

80 LPRINT "FT2;RA5750,4750;"