Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
PSET Circle!
#41
Ahh... here is my version. 2 lines!

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

I beet you all!
f a fly walked, would it be called a walk?
Why dosn't someone make a word that rymes with purple or orange?
WHY AM I SO ANNOYING? Becuase I wanna!
Why am I typeing this? Cuz im bored!
Reply
#42
you beet the fuk out of use in spelleng, two

lol
Reply
#43
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.
Reply
#44
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
Kevin (x.t.r.GRAPHICS)

[Image: 11895-r.png]
Reply
#45
holy shit, talk about digging up an old post.


























BUMP
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Reply
#46
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
Kevin (x.t.r.GRAPHICS)

[Image: 11895-r.png]
Reply
#47
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
Ralph, using QuickBASIC 4.5 and Windows XP Home Edition and Service Pack 2, with HP LaserJet 4L printer.
Reply
#48
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
ttp://m0n573r.afraid.org/
Quote:quote: "<+whtiger> you... you don't know which way the earth spins?" ... see... stupidity leads to reverence, reverence to shakiness, shakiness to... the dark side
...phear
Reply
#49
Wow, that's the coolest thing I've ever seen!


:rotfl:
Reply
#50
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
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Reply


Forum Jump:


Users browsing this thread: 3 Guest(s)