Posts: 2,404
Threads: 153
Joined: Jan 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:
Kevin (
x.t.r.GRAPHICS)
Posts: 1,025
Threads: 44
Joined: May 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.
Posts: 1,774
Threads: 62
Joined: Aug 2003
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:
Posts: 2,404
Threads: 153
Joined: Jan 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:
Kevin (
x.t.r.GRAPHICS)
Posts: 489
Threads: 34
Joined: Jan 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]
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
Posts: 2,404
Threads: 153
Joined: Jan 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
Kevin (
x.t.r.GRAPHICS)
Posts: 489
Threads: 34
Joined: Jan 2005
thx :lol:
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
Posts: 488
Threads: 19
Joined: Sep 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???
Posts: 1,025
Threads: 44
Joined: May 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.
Posts: 116
Threads: 5
Joined: Jul 2004
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