Qbasicnews.com
PSET Circle! - Printable Version

+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: PSET Circle! (/thread-6492.html)

Pages: 1 2 3 4 5 6 7

PSET Circle! - Nathan1993 - 08-19-2005

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

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

I beet you all!

PSET Circle! - Anonymous - 08-19-2005

you beet the fuk out of use in spelleng, two

lol

PSET Circle! - Neo - 08-20-2005

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.

PSET Circle! - Rattrapmax6 - 08-20-2005

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

PSET Circle! - Dio - 08-20-2005

holy shit, talk about digging up an old post.


























BUMP

PSET Circle! - Rattrapmax6 - 08-20-2005

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

PSET Circle! - Ralph - 08-29-2005

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


PSET Circle! - dumbledore - 08-30-2005

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


PSET Circle! - Dr_Davenstein - 08-30-2005

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


:rotfl:

PSET Circle! - Dio - 08-30-2005

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