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.
Random graphic fun: Difference between revisions
Luis46coco (talk | contribs) Created page with "{{NavRainbow1981-12}} Here's a nice short program that will bite the Apple right down to the core! Robert Foulke contributes this little gem that will generate random-type gr..." |
Luis46coco (talk | contribs) mNo edit summary |
||
| Line 25: | Line 25: | ||
140 GOTO30 | 140 GOTO30 | ||
</pre> | </pre> | ||
==Links== | |||
[https://archive.org/details/rainbowmagazine-1981-12/page/n7 See this article as it appeared in the Rainbow Magazine 1981-12 Pag 8, in archive.org] | |||
[[Category:Graphics]] | |||
Revision as of 04:44, 19 May 2019
| 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/19/2019. Total Pages: 747. Total Files: 997.
Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-12 - Random graphic fun
Here's a nice short program that will bite the Apple right down to the core!
Robert Foulke contributes this little gem that will generate random-type graphic images that are beautifully geometric. If you have a screen print program, you can get some super-fantastic printouts!
In the fourth program line, where you have the option of changing the RND number, try 3 or 30 first. These can produce some exceptionally fine graphics. But, as Robert says, any number will do.
We believe you'll really like this one. It can be extremely entertaining.
The Listing:
10 ' R. FOULKE - 1981 20 ' "POLYGON" 30 PMODE 4,1:PCLS:SCREEN1,1 41 PI=3.14159:M=RND(90) 51 FOR T=0 TO 2*PI STEP PI/75 60 R=COS(M*T)*95 71 X1=COS(T)*R+128:Y1=SIN(T)*R+96 80 A=T+PI/3 90 R2=COS(M*A)*95 100 X2=COS(A)*R2+128:Y2=SIN(A)*R2+96 110 LINE (X1,Y1)-(X2,Y2),PSET 120 NEXT T 130 FOR T=1 TO 800:NEXTT 140 GOTO30
Links
See this article as it appeared in the Rainbow Magazine 1981-12 Pag 8, in archive.org