>_<.

require 'sdl'

SDL.init(SDL::INIT_VIDEO)
$screen = SDL::set_video_mode(640, 480, 16, SDL::HWSURFACE)

$x = 320
$y = 479

def random_tree(n, length, angle)

    dx = length * Math.sin(angle)
    dy = length * Math.cos(angle)

    turn1 = rand
    turn2 = rand
    scale = rand / 5.0 + 0.7

    if(length <= 10)
        $screen.draw_line($x, $y, $x - dx, $y - dy, [0, 200, 0])
    else
        $screen.draw_line($x, $y, $x - dx, $y - dy, [150, 70, 0])
    end

    $screen.flip

    $x = $x - dx
    $y = $y - dy

    if n > 0
        random_tree(n - 1, length * scale, angle + turn1)
        random_tree(n - 1, length * scale, angle - turn2)
    end

    $x = $x + dx
    $y = $y + dy
end

random_tree(13, 80, 0)
puts "gg"

while true
    while event = SDL::Event2.poll
        case event
        when SDL::Event2::Quit, SDL::Event2::KeyDown
            exit
        end
    end
end