#/***********************************************************
#    treecurv.c -- 樹木曲線
#***********************************************************/
require "plotter.rb"  # ラージモデルでコンパイル 

FACTOR = 0.7
TURN = 0.5

def tree(n,  length,  angle)
    dx = length * Math::sin(angle);  dy = length * Math::cos(angle)
    draw_rel(dx, dy)
    if (n > 0) 
        tree(n - 1, length * FACTOR, angle + TURN)
        tree(n - 1, length * FACTOR, angle - TURN)
    end
    move_rel(-dx, -dy)
end

printf("位数 = ");  order = gets.to_i
gr_on()
move(3, 0);  tree(order, 1, 0)
gr_off

exit 0