CHAPTER 4 HP-GL/2 - 46
90 LPRINT "DT";"
100 LPRINT "DT0,2;LB_*_1988#"; "DI2,2;LB_*_1989#";
110 LPRINT "DT2,0;LB_*_1990#"; "DI2,-2;LB_*_1991#";
120 LPRINT "DT0,-2;LB_*_1992#"; "DI-2,-2;LB_*_1993#";
130 LPRINT "DT-2,0;LB_*_1994#"; "DI-2,2;LB_*_1995#";
140 LPRINT "PA3500,5350;DI", COS(0),SIN(0); "LB_*_2000"; CHR$(13); "#";
150 LPRINT "DI", COS(RAD); SIN(RAD); "LB_RETURN POINT"; CHR$(13); "#";
160 LPRINT CHR$(27); "%0A";
170 LPRINT CHR$(27); "E";
180 END
<sample 54>
DR - Relative direction
DR [
run
,
rise
] [;]
run
: X-component of the printing direction expressed as a percentage of the x-component of the
distance between P1 and P2.
rise
: Y-component of the printing direction expressed as a percentage of the y-component of the
distance between P1 and P2.
This command determines the direction in which subsequent labels will be printed.
Values for run and rise are clamped real numbers.
The instruction is ignored if run and rise are both 0.
When you issue a DR instruction the carriage return point is set to the current pen location.
Any text path that you set with the DV instruction will combine with the current printing direction to
determine the layout of characters on the page.
If you change the positions of P1 and P2 the printing direction will change accordingly.
If you omit the parameters the printing direction is horizontal and the run = 1% of |P2X-P1X|.
Actual values for run and rise are changed relative to the P1 and P2 value. It is calculated as below:
actual run =
run
parameter / 100 x (P2x - P1x)
actual rise =
rise
parameter / 100 x (P2y - P1y)
run=70%
rise = 60%
(70,0)
(0,60)
(0, 100)
(0, 100)
(100, 100)