LB - Character plot ; LB [ cs ] < terminator > [;] ; DI - Absolute direction - Page 347

2001/10/02 

CHAPTER 9 HP-GL - 22 

LB - Character plot 

LB [ cs ]  < terminator > [;] 

cs : character string 

• 

Plots character strings,  numerical expressions, variables etc.

• 

Plotting is performed whether the pen is up or down.

• 

After plotting,  the cursor moves to the position of the next character. 

10 '*** LBEX1 *** 

20 LPRINT "SP2;PA1000,4000;" 

30 X=30 

40 LPRINT "LB",X,X+1,X+2,CHR$(3) 

50 END 

<Sample 81> 

10 '*** LBEX2 *** 

20 LPRINT "SP2;PA4000,5000;" 

30 X=30 

40 LPRINT "LB";X;X+1;X+2,CHR$(3) 

70 END 

<Sample 82> 

10 '*** LBEX3 *** 

20 LPRINT "SP2;PA5000,6000;" 

30 X=30 

40 LPRINT "LB";X;"   ";X+1;"   ";X+2,CHR$(3) 

70 END 

<Sample 83> 

DI - Absolute direction 

DI [ run, rise ] [;] 

run : X direction component 

rise : Y direction component 

• 

Specifies the character plot direction.

• 

Values for the run and rise are clamp ed real numbers.

• 

The instruction is ignored when the values for both run and rise are 0.

• 

When the parameter field is omitted,  the default value (horizontal direction) is used. 

θ

run

rise

tan

θ

= cos

sin

θ

θ

10 '*** DIEX *** 

15 DEG=-45 

16 RAD3.1416/180*DEG 

20 LPRINT "IN;SP2;PA3050,4450;" 

30 LPRINT "DI0,2;LB_*_1988";CHR$(3);"DI2,2;LB_*_1989";CHR$(3) 

40 LPRINT "DI2,0;LB_*_1990";CHR$(3);"DI2,-2;LB_*_1991";CHR$(3) 

50 LPRINT "DI0,-2;LB_*_1992";CHR$(3);DI-2,-2;LB_*_1993";CHR$(3) 

60 LPRINT "DI-2,0;LB_*_1994";CHR$(3);"DI-2,2;LB_*_1995";CHR$(3) 

70 LPRINT 

"PA3500,5350;DI",COS(0),SIN(0);"LB_*_2000";CHR$(13);CHR$(3); 

80 LPRINT "DI",COS(RAD);SIN(RAD);"LB_RETURN 

POINT";CHR$(13);CHR$(3) 

90 END 

<Sample 84>