PROGRAM CFTREE(INPUT,OUTPUT);

CONST
  PI = 3.1415926;

TYPE
  complex = RECORD
              re,im :REAL
            end;

VAR
  th           :REAL;
  sinth        :REAL;
  costh        :REAL;
  factor       :REAL;
  center       :REAL;
  hi, order    :INTEGER;
  f0,f1,c0,c1  :COMPLEX;

{$I GRAPHICS.PAS}

{$I B:FTREE.SRC}

BEGIN
  opengraph;
  cleargraph;
  center := MAXINT/2000;
  WRITE('hight ? '); READLN(hi);
  WRITE('order ? '); READLN(order);
  WRITE('factor? '); READLN(factor);
  WRITE('kakudo? '); READLN(th);
  th := PI*th/180.0;
  costh := cos(th);
  sinth := sin(th);
  set_complex(factor*costh + 1,  factor*sinth, f0);
  set_complex(factor*costh + 1, -factor*sinth, f1);
  set_complex(center,0,c0);
  set_complex(center,hi,c1);
  ftree(c0,c1,f0,f1,order)
END.