Qbasicnews.com

Full Version: PSET Circle!
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6 7
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
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... Tongue
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... Tongue
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? Tongue

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! Smile=b
Pages: 1 2 3 4 5 6 7