# An idea...

R

It isn't quite what I intended, but looks OK.

SCREEN 12
FOR I = 0 TO 15
OUT &H3C8, 15 - I
OUT &H3C9, I * 3.6 + 3
OUT &H3C9, I * 3.6 + 3
OUT &H3C9, I * 3.2 + 15
NEXT

FOR I = 0 TO 70
X = 319: Y = 440
XV = 0: YV = -22

M = 60

DO
d = XV * XV + YV * YV
R = 100 / SQR(d + 1)
S = SQR(R)
FOR J = 0 TO (R * M) / 90
TX = (RND * 2 - 1) * S
TY = (RND * 2 - 1) * S
IF TX * TX + TY * TY < R THEN
T = POINT(X + TX, Y + TY)
IF T < 7 OR (T < 15 AND INT(RND * 2)) THEN
PSET (X + TX, Y + TY), POINT(X + TX, Y + TY) + 1
END IF
END IF
NEXT
M = M - .1

IF M < 1 THEN EXIT DO
X = X + XV / 8
Y = Y + YV / 8

XV = XV * .86 + INT(RND * 9) - 4
YV = (YV + 4) * .86 - 4 + INT(RND * 9) - 4

LOOP

NEXT

Posted on Mar 16, 2009, 3:08 PM

Respond to this message

Goto Forum Home

 Response Title Author and Date That looks great... TheBOB on Mar 16 No offense, it looks like time-lapse photography of mold growing on my monitor. SOLUTION> Pete on Mar 16 * What is that, a penguin? Is TileX some sort of Linux distribution? qbguy on Mar 16 TileX is a product similar to simple roy... Pete on Mar 16 Speaking of Simple Roy............ Clippy on Mar 16 Well... Pete on Mar 16 * I did that stuff with the union! It will NEVER work! PAC's do. Clippy on Mar 16 Ascii art picture of Tux (the Linux penguin logo) [* URL] qbguy on Mar 16 * Looks kinda fat. Must not do much. :P Clippy on Mar 19 Linus Torvalds quote qbguy on Mar 19