PSET Circle!

[Diroga]

VERY NICE. how did you come up wiht that? the patterns are great

[Rattrapmax6]

Thats cool Mitth,. tho it took me awhile to wait for it to work.. :wink:

[Mitthrawnuruodo]

Accually it was working Rattra, but it was drawing color# 000000 :lol: .

Umm. I was originally trying to rotate Diroga's one by adding an increasing number to the degrees already there each Do loop. But someting happened and it didn't work.

So then I left it there and played with the color max. I then noticed how each number gave a different pattern. So then I just increase that value in the DO:loop.

So that's how I did it.

[Rattrapmax6]

<-- How you like that PSET circle? its what happens when a single pixel is rocketing around 3D cords at 6600+ FPS and shading with RGB(z!, z!, z!)..

:rotfl: :bounce: :rotfl: :bounce: :rotfl:

\/ \/ Click down there \/ \/

[Mitthrawnuruodo]

Love the avatar!

[Rattrapmax6]

Made it with FB,... :wink: .... :roll:

[Mitthrawnuruodo]

Oh, I know QB can't handle 500000fps. :lol:

[Rattrapmax6]

:o No, it would fry! oh no!! :rotfl: :wink:

[Mitthrawnuruodo]

Just like that artoo pic, eh? BOOM! :lol:

[Quibbler]

Its a little long and includes : But there's no cos,sin,sqr,* or / just + and -. the fisrt line y=180 changes the radius xoff and yoff move it around the screen.

Code:

SCREEN 12
y = 180: xoff = 280: yoff = 200: x = -1
WHILE x < y
x = x + 1: d = d + x + x + 1
IF d > 0 THEN d = d - y - y + 1: y = y - 1
FOR k = 0 TO 7
IF k AND 4 THEN a = -x ELSE a = x
IF k AND 2 THEN b = -y ELSE b = y
IF k AND 1 THEN SWAP a, b
PSET (a + xoff, b + yoff)
NEXT k
WEND