![]() |
Forum Index : Microcontroller and PC projects : CMM2 channeling my 10 year old self
Author | Message | ||||
perlmangle Newbie ![]() Joined: 16/08/2020 Location: United StatesPosts: 4 |
Hi folks. I spent evenings this week playing around with BASIC on the CMM2 and remembering the good old days on my VIC20 in the 1980s writing a program that would draw a straight line from a random point to a random point and pick a random color too! What fun that was. Welp, here's a take on that with some trig functions and color gradients and other highly sophisticated stuff ![]() I'm actually really pleased with how it came out looking, my old Commodore could never have kept up with this. Looks best in mode 1,16 with the lights off and playing Dark Side of the Moon. I'd appreciate suggestions for "cool" looking functions in this vein if you have any. Thanks all for supporting this kind of hobby that makes computing fun again! polarcoords.bas.zip |
||||
TassyJim![]() Guru ![]() Joined: 07/08/2011 Location: AustraliaPosts: 6283 |
Some nice patterns. A couple of comments on your code I notice you have RND(13) in a couple of places. RND() ignores the number if given. It's only there for compatibility with earlier Basics. In your SELECT CASE statements, You have a surplus ':' on the end of each CASE. You also don't need the '=' signs. CASE =19: should be CASE 19 Keep playing! Jim VK7JH MMedit |
||||
perlmangle Newbie ![]() Joined: 16/08/2020 Location: United StatesPosts: 4 |
Thanks! I cleaned it up. I was never a very good programmer; I lose interest as soon as it works so I end up with sloppiness. But it's fun and relaxing and I really enjoy seeing everything you guys do here. |
||||
![]() |
![]() |
The Back Shed's forum code is written, and hosted, in Australia. | © JAQ Software 2025 |