UL - User-defined line type ; WU - Select unit for pen width ; UL [ - Page 186

2001/10/02 

CHAPTER 4 HP-GL/2 - 38 

170 'Source 2 

180 LPRINT "FT10,50;PA4000,5000;RR500,500;PA4500,5500;RR500,500;" 

190 LPRINT "FT10,1;PA4500,5000;RR500,500;PA4000,5500;RR500,500;FT;" 

200 ' 

210 '( POLYGON ) 

220 LPRINT "PA2000,1000;PM0;PDPA4000,1000,3000,3000;PM1;" 

230 LPRINT "PA2500,1200,3500,1200,3000,2500;PM1;" 

240 LPRINT "PA3000,800,3700,2500,2300,2500;PM1;" 

250 LPRINT "PM2;FP;" 

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

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

280 END 

<Sample 45> 

UL - User-defined line type 

UL [ 

i

 ] [,

g

 [...,]] [;] 

i

 ; unit type   

g

 : gap length 

• 

This command allows you to define line types which you can then subsequently select with the LT command. 

• 

i

 must be in the range 1-8. 

  i

 identifies the line type that is to be defined. 

• 

The index parameter uses absolute values. 

• 

g

 (the gap length) alternately specifies pen up and pen down parts of the defined line type.  A maximum of 

twenty line sections are permitted,  the first of which is a pen down section.  Numbers must be integers in 
the range 0~32767.  These numbers are converted to percentages by t he LT command. 

• 

Maximum definition for the gap of each line type is 20. 

• 

The sum of the gap parameters must be greater than 0. 

• 

Specifying an index number with no gap parameters sets the line type to the default pattern for that index 
number. 

• 

Using the command with no parameter sets all line types to the defaults. 

10 '-User Defined Line Type- 

20 WIDTH "LPT1:", 255 

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

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

50 LPRINT "IN;SP1;;" 

60 LPRINT "UL8,0,15,0,15,0,15,40,15;" 

70 LPRINT "LT8,5;PA2000,2500;PDPA5000,2500;PU;" 

80 LPRINT "UL4,40,15,0,15,0,15,40,15,0,15;" 

90 LPRINT "LT4,10;PA2000,3000;PDPA5000,3000;PU;" 

100 LPRINT "UL1,40,40,40,40,40;" 

110 LPRINT "LT1,10;PA2000,3500;PDPA5000,3500;PU;" 

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

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

140 END 

<Sample 46> 

WU - Select unit for pen width 

WU [ 

t

 ] [;] 

t

 ; unit type 

• 

This command specifies the pen width unit.  It applies to all pens. 

• 

t

 must be either 0 or 1. 

• 

If t is 0 the pen width parameter which accompanies subsequent PW commands will be treated as a reading in 
millimeters. 

• 

If t is 1 the pen width parameter which accompanies subsequent PW commands will be treated as percentage 
of the distance between the scaling points P1 and P2.  The default width is 0.1% of the diagonal distance 
from P1 to P2.