Qbasicnews.com

Qbasicnews.com > General > General/Misc > Just fooling around with graphics....
Full Version: Just fooling around with graphics....
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

Mitthrawnuruodo

03-28-2005, 05:27 AM
Here's something cool:

Code:
CLEAR
SCREEN 13
CLS
x& = 160
y& = 100
angle2% = 0
DO
CLS
angle% = 0
angle2% = angle2% + 1
i% = 0
x& = 160
y& = 100
col% = 0
FOR i% = 0 TO 300
angle% = (angle% + angle2%) MOD 360
x& = i% * COS(angle%) + 160
y& = i% * SIN(angle%) + 100
col% = (col% + 1) MOD 255
PSET (x&, y&), col%
NEXT i%
DO: LOOP WHILE INKEY$ = ""
LOOP

Heh I was just fooling around... Big Grin

Rattrapmax6

03-28-2005, 05:39 AM
d=Big Grin=b Thats cool man!!!

:wink: Does a diff one each time, that's neat.. Smile

Mitthrawnuruodo

03-28-2005, 05:42 AM
thx....well, you know me, just fooling around with graphics.... :lol:

Ralph

06-13-2005, 12:21 AM
Yes, nice...and see what you build up if you remark out the CLS after the first DO! It can get beautiful, fast!

TheBlueKeyboard

06-13-2005, 03:40 AM
very cool Big Grin
Qbasicnews.com > General > General/Misc > Just fooling around with graphics....