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
:lol: I ment to tell ya,.. that was more of a PSET Sphere... :rotfl: ... but its round, so, who cares... :lol:


Funny how this lil challenge is still going..... :roll: :lol:
Quote:Funny how this lil challenge is still going..... :roll: :lol:
you never declared a winner, made a voting post of any kind, nor did you seta date. so of course its still going. Big Grin
Quote: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

Did you get the joke though? :lol:
Quote:
Rattrapmax6 Wrote:Funny how this lil challenge is still going..... :roll: :lol:
you never declared a winner, made a voting post of any kind, nor did you seta date. so of course its still going. Big Grin

Evil plan... but it works well don't it? Muhahahahaha!!! :rotfl:
ok, here's one i wrote meself:
[syntax="qbasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15
Next[/syntax]
and in fb
[syntax="freebasic"]For i = -1 To 639 * 399
If i = -1 Then Screen 13 Else If Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15 Else Sleep
Next[/syntax]
You could have made the FB one 3 lines also.. :lol:

Code:
For i = -1 To 639 * 399
    If i = -1 Then Screen 13 Else if i <> (639 * 399) THEN Pset( i Mod 639, i \ 639 ), -( Int( Sqr( ( 160 - ( i Mod 639 ) ) ^ 2 + ( 100 - ( i \ 639 ) ) ^ 2 ) ) = 50 ) * 15 else sleep
Next

Tongue
thx :lol:
I know I am digging up this old topic, but I need you PSET Circle making Guru's help, can you make a working circle drawer that you can set limits in like drawing a circle at points (1,1) to (16,16), and the circle not be drawn outside that area???
well, you can find the radius within that and then use a normal circle command.
radius in that would equal half the shorter side of your confining box, obviously placed in the middle.
Heh, I remember this topic from a few months back, it was kinda cool
so I mucked around with the original posters code and came up with this...
Code:
'$DYNAMIC
DEFINT A-Z
SCREEN 13
CLS
DIM V(32001)
r# = ATN(1 / 4)
V(0) = 2560
V(1) = 200
DEF SEG = VARSEG(V(0))
DO
h = (h + 1) MOD 255
c = h
z = 75
FOR ii = 1 TO 150
  z = z - 1
  FOR i = 1 TO 360
   d = i MOD 360
   x = INT(z * (COS(r# * d))) + 159
   y = INT(z * (SIN(r# * d))) + 99
   c = c + 1
   IF c > h THEN c = c - h
   IF c >= 32767 THEN c = -32768
   POKE (4 + (x + (y * 320&))), c
  NEXT
NEXT
'
PUT (0, 0), V(0), PSET
'
p& = p& + 1
LOCATE 1, 1: PRINT p&; "      "
'
LOOP UNTIL LEN(INKEY$)

Ummm.... sorry this wasn't the real cool one I did (can't find it Sad
but, this one still produces some nice patterns.
(I think they repeat after 255 but, it will run a long time.)

Cya,

Nemesis
Pages: 1 2 3 4 5 6 7