# use "binary_tree1.ml";;
# use "mysleep.ml";;
close_graph ();;

(*let bidule = big_brt 4 ;;
let bidule2 = make_b 30 cyan (Empty_b) bidule ;;
let truc = big_brt 7 ;;
let bidule3 = make_b 76 cyan truc (big_brt 3) ;;
let bidule4 = make_b 59 cyan bidule3 Empty_b ;;
let bidule5 = make_b 87 cyan bidule4 Empty_b ;;*)

let truc1 = Node_b
   {key_b=19; colour_b=65535;
    left_son_b=
     Node_b
      {key_b=5; colour_b=65535; left_son_b=Empty_b; right_son_b=Empty_b};
    right_son_b=
     Node_b
      {key_b=59; colour_b=65535;
       left_son_b=
        Node_b
         {key_b=43; colour_b=65535; left_son_b=Empty_b; right_son_b=Empty_b};
       right_son_b=
        Node_b
         {key_b=69; colour_b=65535; left_son_b=Empty_b; right_son_b=Empty_b}}} ;;

open_graph " 170x200" ;;
print_tree1 truc1;;
mysleep 5.0;;
close_graph();;

let truc2 =  Node_b
   {key_b=87; colour_b=65535;
    left_son_b=
     Node_b
      {key_b=59; colour_b=65535;
       left_son_b=
        Node_b
         {key_b=76; colour_b=65535;
          left_son_b=
           Node_b
            {key_b=52; colour_b=65535;
             left_son_b=
              Node_b
               {key_b=37; colour_b=65535;
                left_son_b=
                 Node_b
                  {key_b=15; colour_b=65535; left_son_b=Empty_b;
                   right_son_b=Empty_b};
                right_son_b=
                 Node_b
                  {key_b=42; colour_b=65535; left_son_b=Empty_b;
                   right_son_b=
                    Node_b
                     {key_b=49; colour_b=65535; left_son_b=Empty_b;
                      right_son_b=Empty_b}}};
             right_son_b=
              Node_b
               {key_b=60; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b}};
          right_son_b=
           Node_b
            {key_b=10; colour_b=65535; left_son_b=Empty_b;
             right_son_b=
              Node_b
               {key_b=25; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b}}};
       right_son_b=Empty_b};
    right_son_b=Empty_b};;

open_graph " 800x490" ;;
print_tree1 truc2;;
mysleep 5.0;;
close_graph();;

let truc3 = Node_b
   {key_b=166; colour_b=65535;
    left_son_b=
     Node_b
      {key_b=100; colour_b=65535;
       left_son_b=
        Node_b
         {key_b=25; colour_b=65535;
          left_son_b=
           Node_b
            {key_b=0; colour_b=65535; left_son_b=Empty_b;
             right_son_b=
              Node_b
               {key_b=23; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b}};
          right_son_b=
           Node_b
            {key_b=72; colour_b=65535;
             left_son_b=
              Node_b
               {key_b=44; colour_b=65535;
                left_son_b=
                 Node_b
                  {key_b=40; colour_b=65535;
                   left_son_b=
                    Node_b
                     {key_b=31; colour_b=65535; left_son_b=Empty_b;
                      right_son_b=Empty_b};
                   right_son_b=Empty_b};
                right_son_b=
                 Node_b
                  {key_b=68; colour_b=65535;
                   left_son_b=
                    Node_b
                     {key_b=45; colour_b=65535; left_son_b=Empty_b;
                      right_son_b=Empty_b};
                   right_son_b=Empty_b}};
             right_son_b=
              Node_b
               {key_b=99; colour_b=65535;
                left_son_b=
                 Node_b
                  {key_b=81; colour_b=65535; left_son_b=Empty_b;
                   right_son_b=Empty_b};
                right_son_b=Empty_b}}};
       right_son_b=
        Node_b
         {key_b=164; colour_b=65535;
          left_son_b=
           Node_b
            {key_b=142; colour_b=65535;
             left_son_b=
              Node_b
               {key_b=122; colour_b=65535;
                left_son_b=
                 Node_b
                  {key_b=107; colour_b=65535; left_son_b=Empty_b;
                   right_son_b=Empty_b};
                right_son_b=Empty_b};
             right_son_b=
              Node_b
               {key_b=150; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b}};
          right_son_b=Empty_b}};
    right_son_b=
     Node_b
      {key_b=237; colour_b=65535;
       left_son_b=
        Node_b
         {key_b=199; colour_b=65535;
          left_son_b=
           Node_b
            {key_b=180; colour_b=65535; left_son_b=Empty_b;
             right_son_b=
              Node_b
               {key_b=191; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b}};
          right_son_b=
           Node_b
            {key_b=235; colour_b=65535;
             left_son_b=
              Node_b
               {key_b=225; colour_b=65535; left_son_b=Empty_b;
                right_son_b=Empty_b};
             right_son_b=Empty_b}};
       right_son_b=Empty_b}} ;;

open_graph " 1000x550" ;;
print_tree1 truc3;;
mysleep 5.0;;
close_graph();;

open_graph " 170x200" ;;
print_tree2 truc1;;
mysleep 5.0;;
close_graph();;

open_graph " 800x490" ;;
print_tree2 truc2;;
mysleep 5.0;;
close_graph();;

open_graph " 1000x550" ;;
print_tree2 truc3;;
mysleep 3.0;;
close_graph();;


open_graph " 1000x880" ;;
print_tree2 (big_brt 101);;
mysleep 3.0;;
close_graph();;