Star Micronics Radix User Manual page 162

148 Radix User's Manual
5@ DIM BIT%(MAXCOL%,MAXROW%)
68 MASK%(l) = 64 : MASKI(4)
= 8
78 MASKX(2) = 32 : MASK%(5) = 4
80 MASK%(3) = 16
: MASKj(6) = 2
98 Lx = 28
: LY = 20
100 LXFAC = 72/LX
: LYFAC = 87/LY
110 '
120 'Plot curve.
130 GOSUB 600
140 '
150 'Send bit image map to printer.
160 LPRINT CHR$(27) "A" CHR$(6)
170 FOR ROW% = 0 TO MAXROW%
180
A$ = ""
190 LPRINT CHR$(27) "K" CHR$(MAXCOL%) CHR$(B);
>>
200 FOR COL% = 1 TO MAXCOL%
210 A$ = A$ + CHR$(BIT%(COL%,ROW%
220 NEXT COLI
230 LPRINT A$ " "
240 NEXT ROW%
250 LPRINT CHR$(27) "2"
260
END
270
'
280 'Subroutine to draw a line from Xl,Yl to X2,Y2.
290 '
300
XL = x2 - xl : YL = Y2 - Yl
310 NX = AB~(~L*LXFA~) : NY = ABS(YL*LYFAC)
320 IF NX ( NY THEN Nx = Ny
330
NS% = INT(NX+l)
340 DX = XL/NS% : DY = YL/NS%
350
FOR 1% = 1 TO NS%
360
Xl = Xl + DX
: Yl = Yl + DY
370 GOSUB 400
380 NEXT 1%
390 RETURN
400 1
410
'Subroutine to plot a point at Xl,Yl.
420 '
430 XX =
Xl * LXFAC :YY= Yl * LYFAC
440 COL% = INT(XX) + 1
450
ROW% = INT(YY/6)
460
XIT% = INT(YY - ROW% *
6)+1
470
BIT%(COL%,ROW%) = BIT%(COL%,ROW%) OR MASK%(XIT%)
480 RETURN