MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
Graphics printer (Rainbow 1981-09)
| WELCOME |
|---|
| Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al |
See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.
This page was last updated on 05/2/2019. Total Pages: 747. Total Files: 997.
Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-09 - Graphics printer (Rainbow 1981-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.
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) 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 14 PRINT#-2,CHR$(18) 15 NEXTX