-----------------------------------

fishtastic

Fri Feb 15, 2008 3:58 pm


Moving Fractal Tree

-----------------------------------

Not as good as i expected. but I wanted to do this :mrgreen: 

var tree : collection of
    record
        l : int
        a : real
        c : int
        t : int
        b : int
        son : array 1 .. 6 of pointer to tree
    end record

const d := 5 % mess around with this var
const t := Rand.Int (2, 3) % and this var
var s := -0.2
var acc := 0.01
var col : array 1 .. d of int
var roots : array 1 .. t of pointer to tree
var x : array 1 .. t of int

proc initialize (var t : pointer to tree, c, depth : int)
    new tree, t
    if c  l := floor ((1.6 ** (depth - c) * Rand.Int (15, 30)))
        t -> a := Rand.Int (-60, 60) + 90
        if c = 1 then
            t -> a := 90
        end if
        t -> c := c
        t -> t := (depth - c) * 3
        t -> b := Rand.Int (depth - c, 6)
        for i : 1 .. t -> b
            initialize (t -> son (i), c + 1, depth)
        end for
    end if
end initialize

proc draw (t : pointer to tree, c, depth, x, y : int)
    if c  c))
        else
            var dx := round (cosd (t -> a) * t -> l)
            var dy := round (sind (t -> a) * t -> l)
            Draw.ThickLine (x, y, x + dx, y + dy, ceil (1.25 ** t -> t), col (t -> c))
            for i : 1 .. t -> b
                draw (t -> son (i), c + 1, depth, x + dx, y + dy)
            end for
        end if
    end if
end draw

proc move (t : pointer to tree, c, depth, a : real)
    if c  a += a
        for i : 1 .. t -> b
            move (t -> son (i), c + 1, depth, a * 2)
        end for
    end if
end move

View.Set ("offscreenonly")
colorback (102)
for i : 1 .. d div 2
    col (i) := RGB.AddColour (0.2 + 0.1 * i, 0.1 + 0.1 * i, 0)
end for
for i : d div 2 .. d
    col (i) := RGB.AddColour (0.0, 0.1 * i, 0)
end for
for i : 1 .. t
    initialize (roots (i), 1, d)
    x (i) := Rand.Int (50, maxx - 50)
end for

loop
    cls
    for i : 1 .. t
        draw (roots (i), 1, d, x (i), 0)
        move (roots (i), 1, d, s)
    end for
    s += acc
    if s > 0.2 or s < -0.2 then
        acc := -acc
    end if
    View.Update
end loop




-----------------------------------

Mackie

Fri Feb 15, 2008 4:29 pm


RE:Moving Fractal Tree

-----------------------------------

O wow, that's awesome. I'm adding this to my lst of things to research/create.


-----------------------------------

SIXAXIS

Fri Feb 22, 2008 8:33 am


Re: Moving Fractal Tree

-----------------------------------

Looks great. Reminds me a bit of the trees in Far Cry 2; they move in the wind and they can regenerate after a while.


-----------------------------------

DanielG

Sun Feb 24, 2008 5:28 pm


RE:Moving Fractal Tree

-----------------------------------

Its not bad, but I think it is a little too slow


-----------------------------------

McKenzie

Sun Feb 24, 2008 7:51 pm


Re: Moving Fractal Tree

-----------------------------------

The key is you're on the right track, now all that's left is to play with it until it looks the way you want it to. Trust me, I've drawn many, many fractal trees in Turing. Keep playing, you'll get it.


-----------------------------------

DaveAngus

Tue Mar 18, 2008 9:16 am


RE:Moving Fractal Tree

-----------------------------------

This is pretty cool. I like it.


-----------------------------------

Loading

Thu Nov 21, 2019 10:45 pm


RE:Moving Fractal Tree

-----------------------------------

How do i make a plain tree? Not moving