26 lines
795 B
Plaintext
26 lines
795 B
Plaintext
graphic #g, 200,200
|
|
dim preGen(200,200)
|
|
dim newGen(200,200)
|
|
|
|
for gen = 1 to 200
|
|
for x = 1 to 199
|
|
for y = 1 to 199
|
|
select case preGen(x,y)
|
|
case 0
|
|
if rnd(0) > .99 then newGen(x,y) = 1 : #g "color green ; set "; x; " "; y
|
|
case 2
|
|
newGen(x,y) = 0 : #g "color brown ; set "; x; " "; y
|
|
case 1
|
|
if preGen(x-1,y-1) = 2 or preGen(x-1,y) = 2 or preGen(x-1,y+1) = 2 _
|
|
or preGen(x,y-1) = 2 or preGen(x,y+1) = 2 or preGen(x+1,y-1) = 2 _
|
|
or preGen(x+1,y) = 2 or preGen(x+1,y+1) = 2 or rnd(0) > .999 then
|
|
#g "color red ; set "; x; " "; y
|
|
newGen(x,y) = 2
|
|
end if
|
|
end select
|
|
preGen(x-1,y-1) = newGen(x-1,y-1)
|
|
next y
|
|
next x
|
|
next gen
|
|
render #g
|