Just playing around

[whitetiger0990]

I was bored one day *ahem* and i was playing around with qbasic and i came up with this...

Code:

CLS
SCREEN 13
DO
FOR z = 1 TO 255
FOR y = 1 TO 100
FOR x = 1 TO 100
press$ = INKEY$
PSET (x, y), (x / y + z)
IF press$ <> "" THEN EXIT DO
NEXT x, y, z
LOOP

i was going to play around with it more but, *yawn*, it's getting late. see ya

[TheBigBasicQ]

Kewl :bounce:

[whitetiger0990]

i know. but i cant think of a purpose yet

[Dantheman10110]

Yea, that was rather cool

[Lachie Dazdarian]

Tell me this is neat....

Code:

SCREEN 13
FOR m = 2 TO 5
FOR I = 0 TO 230

CIRCLE (160, 100), I, I * 23

LINE (0, 0)-(160, I * m), I * 23
LINE (160, I * m)-(319, 0), I * 23

LINE (0, 200)-(160, I * m), I * 23
LINE (160, I * m)-(319, 200), I * 23

LINE (319, 100)-(160, I * m), I * 23
LINE (160, I * m)-(0, 100), I * 23
NEXT I
NEXT m

[Neo]

Usage of proper formulas tend to draw some nice figures with cool colors. I like them all you posted here. But there's something I like better, Plasmas!!

[TheBigBasicQ]

Hehe, yeah.

mmmm....plasma

[KiZ]

yea, theres something that ive got like that, but its on my other computer. Som really small code which makes a iterative fractal. Interesting.

White tiger: Thats some pretty wicked code! Can you just "play around" a bit more please!

[whitetiger0990]

White tiger: Thats some pretty wicked code! Can you just "play around" a bit more please!

sure. thats my job :wink:

[relsoft]

Usage of proper formulas tend to draw some nice figures with cool colors. I like them all you posted here. But there's something I like better, Plasmas!!

Just wait a lil wee longer. ;*)
Just a lil wee. ;*)