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 clamped 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>