PSET Circle!

[Nemesis]

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