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>