2001/10/02
CHAPTER 9 HP-GL - 25
10 '"*** SLEX ***
20 LPRINT "DF;SP1;SI1.3,1.3;PA100,6000;"
30 LPRINT "SL2;LBLASER";CHR$(3)
40 LPRINT "SL-2;PR3000,0;LBLASER";CHR$(3)
50 END
<Sample 91>
UC - User-defined character
UC X1, Y1, X2, Y2..., Xn, Yn[;]
Xi : Number of grids in X direction
Yi : Number of grids in Y direction
•
Draws user-generated character or symbol.
•
Values for Xi and Yi are clamped real numbers.
•
If a value between 99.0000 and 127.9999 is entered between(Xi, Yi) and (Xi+1, Yi+1), the pen will be lowered at
that point.
•
If a value between -128.0000 and -99.0000 is entered between (Xi, Yi) and (Xi+1, Yi+1), the pen will be raised at
that point.
(-4,0)
(2, -4)
(-2, -4)
(4, 0)
(0, 1)
(0, 1)
UC 4, 99, 0, 1, -4, 0, 2, -4, -2, -4, 4, 0, 0, 1;
Character point of origin
10 '*** UCEX1 ***
20 LPRINT "IN;SP2;PA2000,2000;"
30 FOR AA=19 TO 89 STEP 10
40 A=AA/100
50 LPRINT "SI",A,A*1.7
60 LPRINT "UC4,7,99,0,1,-4,0,2,-4,-2,-4,4,0,0,1;"
70 NEXT AA
80 LPRINT "PA2000,3750;"
90 FOR BB=19 TO 89 STEP 10
100 B=BB/100
110 LPRINT "SI",B,B*1.7
120 LPRINT "LBE";CHR$(3)
130 NEXT BB
140 END
<Sample 92>
10 '*** UCEX2 ***
20 LPRINT "SP1;PA3000,5000;SI.5,.8"
30 LPRINT "UC0,4,99,1.75,0,1.5,4,3,-8,3,8,3,-8,3,8,3,-
8,1.5,4,1.75,0;"
40 LPRINT "CP5,0;LB1000 ohms";CHR$(3)
50 END
<Sample 93>
10 '*** UCEX2 ***
20 LPRINT "SP1;PA3000,4500;SI.5,.8"
30 LPRINT "UC0,8,99,3.5,0,3,8,6,-16,6,16,6,-16,6,16,6,-
16,3,8,3.5,0;"
40 END
<Sample 94>