Ahh... here is my version. 2 lines!
Code:
'$include: 'rellib.bi'
relcircle VIDEO, 100, 100, 10
I beet you all!
you beet the fuk out of use in spelleng, two
lol
Quote: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.
Quote: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...
holy shit, talk about digging up an old post.
BUMP
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...
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
Quote: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
Wow, that's the coolest thing I've ever seen!
:rotfl:
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