2006/05/31
CHAPTER 9 HP-GL - 19
PW-Pen width
PW n[;]
w ; width (unit = 1/300 inch)
• This command specifies the width of the currently selected pen.
• The value of w is an integer number from 1 to 10.
SM - Symbol mode
SM c[;]
c ; ASCII character or symbol code
• The command specifies the symbol to be drawn.
• When the PA, PR, PD or PU instruction is used, the specified symbol will be drawn at the end of each
vector.
• The specified symbol will be drawn at the end of each vector even if the pen is up when the PA or PR
instructions are used.
• Omitting the parameter field cancels the symbol mode.
10 '*** SMEX ***
20 LPRINT "IN;SP1;SM*;PA500,1500;"
30 LPRINT "PD600,1590,670,1860,850,1960,1320,1900,1940,2350:"
40 LPRINT "PU;SM;PA500,500;SM3;"
50 LPRINT "PA550,800,680,720,800,950,1150,1230,1870,1350;PU;"
60 LPRINT "SM;PA1850,600;PD;SMY;PA3000,1450;"
70 LPRINT "SMZ;PA3300,1150;SMX;PA1850,600;PU;"
80 END
<Sample 78>
SP - Select pen
SP [ n ] [;]
n ; Pen number
• Selects the pen specified by the pen number.
• The value for n must be an integer from 0 to 6.
TL - Tick length
TL l1(,l2)[;]
1-Length of ticks in the positive X- and Y-axes
2-Length of ticks in the negative X- and Y-axes
• Tick length is a percentage of the vertical and horizontal distances between P1 and P2.
• Sets the length of tick marks for the XT and YT instructions.
• Values for
1 and 2 are clamped real numbers.
• When the parameter field is omitted, the default values for tick length are used, for both l1 and l2, these are
0.5% of the horizontal and vertical distances between P1 and P2.
10 '*** TLEX ***
30 FOR I=1 TO 10
40 LPRINT "PR800,0;XT;"
50 NEXT I
60 LPRINT "TL;PU;PA300,279;PD;"
70 GOSUB 1000
80 LPRINT "TL1,0;PU;PA1100,279;PD;"
20 LPRINT "IN;PA300,279;SP2;PD;TL90;XT;";
90 GOSUB 1000
100 LPRINT "TL0,5;PU;PA1900,279;"
110 GOSUB 1000
120 LPRINT "PA300,6759;TL80;YT;PU;"
130 END
1000 '* SUBROUTINE DRAW TICKS *
1010 FOR J=1 TO 8
1020 LPRINT "PRO,720;YT;"
1030 NEXT J
1040 RETURN
<Sample 77>