Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: ScottyBrosious on June 18, 2007

Title: Tree Trouble
Post by: ScottyBrosious on June 18, 2007

I am haveing trouble makeing this look like a real tree.
Can anyone help?

dim bt(126)

dim xtemp(126)
dim ytemp(126)

screen 18

screenwidth  = 640
screenheight = 480

angle = 35

mult = 1
add  = 1

bt(0) = 90

bt(index + mult + position) = bt(0) + angle
bt(index + mult + position + add) = bt(0) - angle

print bt(0)

mult = mult * 2
num2 = 2

a = 1

for j = 0 to 4

num = mult - 1

for i = num to num2

if i <  mult then position = 0
if i >= mult then position = position + 1

bt(i + mult + position) = bt(a) + angle
bt(i + mult + position + add) = bt(a) - angle

print bt(i);" ";

a = a + 1

next i

print

old = old + mult
mult = mult * 2

num2 = old + mult

next j

print

gosub render

sleep

end

render:

a = 1
b = 2
c = 0

mult1 = 2
mult2 = 4

pi# = 3.1415926

x1 = screenwidth / 2
y1 = screenheight

lenght = screenheight / 4

xtemp(0) = x1 + -cos(bt(0) * pi# / 180) * lenght
ytemp(0) = y1 + -sin(bt(0) * pi# / 180) * lenght

line(x1,y1)-(xtemp(0),ytemp(0)),15

for j = 0 to 4

lenght = lenght / 1.4

for i = a to b

if j > 0 and d = 0 then c = c + 1

xtemp(i) = xtemp(c) + -cos(bt(i) * pi# / 180) * lenght
ytemp(i) = ytemp(c) + -sin(bt(i) * pi# / 180) * lenght

line(xtemp(c),ytemp(c))-(xtemp(i),ytemp(i)),15

d = d + 1
if d = 2 then d = 0

next i

if j > 0 then mult1 = mult1 * 2
if j > 0 then mult2 = mult2 * 2

a = a + mult1
b = b + mult2

next j

return

Title: Re: Tree Trouble
Post by: Jim on June 19, 2007

I guess the problem is that it's a little too regular.  One thing you can do is add some randomness in.  For instance I just had a quick go changing

Code: [Select]

bt(i + mult + position) = bt(a) + angle
bt(i + mult + position + add) = bt(a) - angle
to

Code: [Select]

bt(i + mult + position) = bt(a) + angle * rnd()
bt(i + mult + position + add) = bt(a) - angle * rnd()
and

Code: [Select]

xtemp(i) = xtemp(c) + -cos(bt(i) * pi# / 180) * lenght
ytemp(i) = ytemp(c) + -sin(bt(i) * pi# / 180) * lenght
to

Code: [Select]

xtemp(i) = xtemp(c) + -cos(bt(i) * pi# / 180) * lenght * rnd()
ytemp(i) = ytemp(c) + -sin(bt(i) * pi# / 180) * lenght * rnd()

That makes an enormous difference.  The other thing you might want to look in to is splitting some branches more than others, or splitting in to more than two parts.

Jim

Title: Re: Tree Trouble
Post by: Shockwave on June 19, 2007

Needs to be rendered out of something more organig looking too, maybe using sprites instead of lines or something.
Nice enough fractal though :)