MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

Random graphic fun

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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: 728. Total Files: 992.


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