CHAPTER 4 HP-GL/2 - 19
PA - Plot absolute
PA [ X, Y [,...]] [;]
X ; X coordinate of the cursor movement destination
Y ; Y coordinate of the cursor movement destination
Coordinates are absolute values in user or current units.
Whether used with or without parameters the command establishes absolute plotting as the plotting mode.
The command moves the cursor to the specified coordinates, drawing straight lines, only when the pen is
down.
In symbol mode PA draws the specified symbol at each point in the parameter list.
In polygon mode the specified coordinate pairs are placed in the polygon buffer.
If an odd number of coordinates are specified, the final (unpaired) coordinate is ignored.
10 ' -- Plot Absolute --
20 WIDTH "LPT1:",255
30 LPRINT CHR$(27);"E";
40 LPRINT CHR$(27);"%0B";
50 LPRINT "IN;SP1;";
60 LPRINT "PA2000,6000;PD0,6000,2000,7500,2000,6000;PU2500,6000;";
70 LPRINT "PAPD4500,6000,2500,7500,2500,6000;PU10365,500;";
80 LPRINT CHR$(27);"%0A";
90 LPRINT CHR$(27);"E";
100 END
<Sample 24>
PR - Relative coordinate pen move
PR [X, Y [,...]] [;]
X ; X coordinate of the cursor movement destination
Y ; Y coordinate of the cursor movement destination
Coordinates used are relative values in current units.
Whether used with or without parameters the command establishes relative plotting as the plotting mode.
The command moves the cursor to the specified coordinates, drawing straight lines, only when the pen is
down.
You can specify any number of coordinated pairs and plotting is performed in the order the coordinates are
specified.
In symbol mode PR draws the specified symbol at each point in the parameter list.
In polygon mode the specified coordinate pairs are placed in the polygon buffer.
If an odd number of coordinates are specified, the final (unpaired) coordinate is ignored.
10 ' - Plot Relative -
20 WIDTH "LPT1:", 255
20 LPRINT CHR$(27); "E";
30 LPRINT CHR$(27); "%0B";
40 LPRINT "IN;SP1;"
50 LPRINT "PA5000,4500,;PDPR-2000,0,2000,2000,0,-2000;PU500,0;"
60 LPRINT "PD2000,0,-2000,2000,0,-2000;PU;"
70 LPRINT CHR$(27); "%0A";
80 LPRINT CHR$(27); "E";
90 END
<Sample 25>