+- 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)
PSET Circle! - Rattrapmax6 - 08-30-2005
: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:
PSET Circle! - Deleter - 08-30-2005
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.
PSET Circle! - Dr_Davenstein - 08-30-2005
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!=b
Did you get the joke though? :lol:
PSET Circle! - Rattrapmax6 - 08-30-2005
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.
Evil plan... but it works well don't it? Muhahahahaha!!! :rotfl:
PSET Circle! - dumbledore - 08-30-2005
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]
PSET Circle! - Rattrapmax6 - 08-30-2005
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
PSET Circle! - dumbledore - 08-31-2005
thx :lol:
PSET Circle! - axipher - 12-13-2005
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???
PSET Circle! - Deleter - 12-13-2005
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.
PSET Circle! - Nemesis - 12-13-2005
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
but, this one still produces some nice patterns.
(I think they repeat after 255 but, it will run a long time.)
Cya,
Nemesis