PSET Circle!

[Nathan1993]

Ahh... here is my version. 2 lines!

Code:

'$include: 'rellib.bi'
relcircle VIDEO, 100, 100, 10

I beet you all!

[Anonymous]

you beet the fuk out of use in spelleng, two

lol

[Neo]

Ahh... here is my version. 2 lines!

Code:

'$include: 'rellib.bi'
relcircle VIDEO, 100, 100, 10

I beet you all!

If you want to play lame... here's my circle:
It's too big to display on screen, but it is there.

[Rattrapmax6]

Ahh... here is my version. 2 lines!

Code:

'$include: 'rellib.bi'
relcircle VIDEO, 100, 100, 10

I beet you all!

*Ahem*... Its a PSET Circle... You seem to have forgot the PSET....

Sorry.... just felt like huge letters...

[Dio]

holy shit, talk about digging up an old post.


























BUMP

[Rattrapmax6]

More like "Talk about being bored",.. this thing had to be about 2,.. 3 pages back... unless he used search, or was reading over past articles of QBE and fond Pete's news article... either way...

[Ralph]

I vote for Dark_Prevail's solution, but only if married to Meg's, thus:

Code:

FOR i = 0 TO 360
   IF(i = 0 THEN screen 13 ELSE PSET (SIN(3.14*I / 180) * 30 + 160, COS(3.14*i / 180) * 30 + 100)
NEXT

[dumbledore]

OK, why not?

Code:

Screen 18, 32
Do While InKey$=""
   Y=(Y+1)Mod 480
   For X = 0 to 639
     If ABS(SQR((320-X)^2 + (240-Y)^2))<= 255 then PSet(X,Y),RGB(0,0,255-ABS(SQR((320-X)^2 + (240-Y)^2)))
   Next
Loop

how about this? :lol:

Code:

For I = -1 to 479 * 639
    If I = -1 Then Screen 18, 32 Else If ABS(SQR((320-(I MOD 640))^2 + (240-(I\640))^2))<= 255 then PSet((I MOD 640),(I\640)),RGB(0,0,255-ABS(SQR((320-(I MOD 640))^2 + (240-(I\640))^2)))
Next
Sleep

[Dr_Davenstein]

Wow, that's the coolest thing I've ever seen!


:rotfl:

[Dio]

i made something like that. and it took alot more lines of code to do it. (about 900% more. and i was so proud of myself. hmm...)

but yeah, really cool! =b