Table of Contents
Advertisement
222
Radix User's Manual
470 LPRINT VTAB$ VTAB$ ;
480 FOR I = 0 TO 48
490 LPRINT TEXT$(I) : NEXT I
500 '
510 'Send bit image map to printer.
515 LPRINT ES@ "A" CHR$(6) ;
520 LPRINT REVFF$ VTAB$ VTAB$ VTAB$ ;
530 LPRINT LF$ LF$ LF$ LF$ LF$ LF$
540 FOR ROW% = 2 TO 33
550 LPRINT "
560 LPRINT ESC$ "K" CHR$(171) CHR$(;j;
570 FOR COL% = 1 TO 171
580 LPRINT CHR$(BIT%(COL%,ROW%)) j : NEXT
590 LPRINT
610 NEXT ROW%
620 LPRINT ESC$ "2" FF$
630 Em
640 '
650 'Subroutine to draw a line from Xl,Yl to X2,Y2.
660 '
670 XL = X2 - Xl
: YL = Y2 - Yl
680 NX = ABS(XL*LXFAC) : NY = ABS(YL*LYFAC)
690 IF NX ( NY THEN NX = NY
700 NS% = INT(NX+l)
710 DX = XL/NS%
: DY = YL/NS%
720 FOR 1% = 1 TO NS%
730 Xl = Xl + DX
: Yl = Yl + DY
740 GOSUB 780
750 NEXT 1%
760 PRINT "*'I;
770 RETURN
780 '
790 'Subroutine to plot a point at Xl,Yl.
800 '
810 XX = Xl * LXFAC
: YY = Yl * LYFAC
820 COL% = INT(XX) + 1
830 ROW% = INT(YY/6)
840 XIT% = INT(YY - ROW% * 6)+1
850 BIT%(COL%,ROW%) = BIT%(COL%,ROW%) OR MASK%(XIT%)
860 RETURN
870 '
880 'Subroutine to arrange field descriptions.
890 '
900 MIDANG%=(ANG%+PREVANG%)/2
-.
Advertisement
Table of Contents
