Graphics printer (Rainbow 1981-09) - Revision history

Luis46coco: /* Links */

2019-05-02T15:14:02Z

Links

← Older revision		Revision as of 11:14, 2 May 2019
Line 16:		Line 16:
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-09/page/n12 See this article as it appeared in the magazine page 13]		[https://archive.org/details/rainbowmagazine-1981-09/page/n12 See this article as it appeared in the magazine page 13]
			[[Category:Printers]]

Luis46coco: Luis46coco moved page Graphics printer (Rainbow-1981-09) to Graphics printer (Rainbow 1981-09)

2019-04-23T04:46:17Z

Luis46coco moved page Graphics printer (Rainbow-1981-09) to Graphics printer (Rainbow 1981-09)

← Older revision	Revision as of 00:46, 23 April 2019
(No difference)

Luis46coco at 13:09, 6 April 2019

2019-04-06T13:09:31Z

← Older revision		Revision as of 09:09, 6 April 2019
Line 10:		Line 10:
	10 FOR X=0 TO 127		10 FOR X=0 TO 127
	11 FOR Y=0 TO 63		11 FOR Y=0 TO 63
	12 IF POINT(Y,X) ~~TNEN~~ PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);		12 IF POINT(Y,X) THEN PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);
	13 NEXT Y		13 NEXT Y
	14 PRINT#-2,CHR$(18)		14 PRINT#-2,CHR$(18)
	15 NEXTX		15 NEXTX
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-09/page/n12 See this article as it appeared in the magazine]		[https://archive.org/details/rainbowmagazine-1981-09/page/n12 See this article as it appeared in the magazine page 13]

Luis46coco at 12:53, 6 April 2019

2019-04-06T12:53:57Z

← Older revision		Revision as of 08:53, 6 April 2019
Line 1:		Line 1:
			{{NavRainbow1981-09}}
	As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII.		As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII.

Line 9:		Line 10:
	10 FOR X=0 TO 127		10 FOR X=0 TO 127
	11 FOR Y=0 TO 63		11 FOR Y=0 TO 63
	12 IF POINT(Y,X) TNEN ~~PRIHT~~#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);		12 IF POINT(Y,X) TNEN PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);
	13 NEXT Y		13 NEXT Y
	14 PRINT#-2,CHR$(18)		14 PRINT#-2,CHR$(18)
	15 NEXTX		15 NEXTX
			==Links==
			[https://archive.org/details/rainbowmagazine-1981-09/page/n12 See this article as it appeared in the magazine]

Luis46coco: Created page with "As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII. This same logic will..."

2019-03-31T08:05:40Z

Created page with "As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII. This same logic will..."

New page

As part of our continuity efforts to help with printer utilities, here is a screen printer for low-res graphics using the COLOR Computer and the LP VII.

This same logic will work with other printers, too. It is a little complicated with the LP VII because of the dot matrix graphics, a$ opposed to plain graphics characters.

If you want a fatter or thinner single graphics "block," just change the first CHR$(3) in Line 12 to another number. This number controls the number of times the dot-line is repeated. You will also have to change the record CHR$(3) in the same line to the value of the first so that the spaces and "blocks" match.

Here is the short program:

10 FOR X=0 TO 127
11 FOR Y=0 TO 63
12 IF POINT(Y,X) TNEN PRIHT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(255);ELSE PRINT#-2,CHR$(18)CHR$(28)CHR$(3)CHR$(128);
13 NEXT Y
14 PRINT#-2,CHR$(18)
15 NEXTX