Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
A crazy circle
#1
I got bored and made this small program... :bounce:

Code:
SCREEN 13
R = 0
SLEEP 1
Start:
DO
'''''''''''''''''''''''''''
                          '
FOR R = 1 TO 100          '
RANDOMIZE TIMER           '
C = INT(RND * 255) + 1    ' This makes it go out
CIRCLE (160, 100), R, C   '
NEXT R                    '
'''''''''''''''''''''''''''

'''''''''''''''''''''''''''
FOR R = 100 TO 1          '
RANDOMIZE TIMER           '
C = INT(RND * 255) + 1    ' This makes it go in
CIRCLE (160, 100), R, C   '
NEXT R                    '
'''''''''''''''''''''''''''
LOOP
Reply
#2
Just proves how bad the resolution is of screen 13h. :roll:
f only life let you press CTRL-Z.
--------------------------------------
Freebasic is like QB, except it doesn't suck.
Reply
#3
you may find these threads interesting if you like short-code graphics. The 9-line graphics challenge got a little out of hand with some really hard-to-follow code...not the best to learn from.

http://forum.qbasicnews.com/viewtopic.php?t=1876
http://forum.qbasicnews.com/viewtopic.php?t=3253
Reply
#4
Me and my stupid answers back then... :lol:
Reply
#5
:roll:

That was an amusing program =P
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)