Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al
8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (CDT)
Random graphic fun
|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|
This page was last updated on 05/19/2019. Total Pages: 650. Total Files: 937.
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.
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