+
+void nuevo_arbol ()
+{
+ real_canvas->set_scroll_region (0, 0, 5000, 5000);
+
+ NewTreeDialog d;
+ if (d.run () == Gtk::RESPONSE_OK) {
+ uint altas = d.getAdds ();
+ uint bajas = d.getDels ();
+
+ double paltas = bajas / (double)altas;
+
+ int type = d.getKeyType ();
+ tree = Glib::RefPtr<ViewBTree>(new ViewBTree (real_canvas->root(), "test.idx", d.getBlockSize (), type));
+ tree->signal_selected ().connect ( sigc::mem_fun (*real_frame, &ViewProperties::ShowItem) );
+ vdebug->SetTree (tree);
+ if (type == BTree::KEY_FIXED) {
+ std::list<int> lst;
+ std::list<int>::iterator it;
+ Random::Init ();
+ Random::Ints (lst, altas);
+
+ it = lst.begin ();
+ uint i = 0;
+ while (it != lst.end ()) {
+ ClaveFija c(*it);
+
+ double l = Random::Double (0.0f, 1.0f);
+ std::cout << l << " >= " << paltas << std::endl;
+ if (l >= paltas) {
+ tree->AddKey (c);
+ i++;
+ vdebug->AddKey (c);
+ } else {
+ /* Tengo que borrar una clave entre 0 e "i" de la lista
+ * porque son las que ya agregue. */
+ int aborrar = (int)Random::Double (0, i);
+ std::list<int>::iterator otro = lst.begin ();
+ int j = 0;
+ while (j < aborrar) {
+ otro++;
+ j++;
+ }
+ ClaveFija c(*otro);
+
+ tree->DelKey (c);
+ std::string sss = c;
+ std::cout << "Clave Borrada " << sss << std::endl;
+ }
+
+ it++;
+ }
+ } else {
+ std::list<std::string> lst;
+ std::list<std::string>::iterator it;
+ Random::Init ();
+ Random::Strings (lst, altas);
+
+ it = lst.begin ();
+ while (it != lst.end ()) {
+ ClaveVariable c(*it);
+
+ tree->AddKey (c);
+ vdebug->AddKey (c);
+ it++;
+ }
+ }
+ tree->AddNode (0);
+ double x1, x2, y1, y2;
+ tree->get_bounds (x1, y1, x2, y2);
+ }
+}
+
+void zoom_out ()
+{
+ double r = real_canvas->get_pixels_per_unit ();
+ r *= 0.9f;
+ if (r < 0.0001)
+ r = 0.0001;
+ real_canvas->set_pixels_per_unit (r);
+}
+
+void zoom_in ()
+{
+ double r = real_canvas->get_pixels_per_unit ();
+ r *= 1.1f;
+ if (r > 10)
+ r = 10;
+ real_canvas->set_pixels_per_unit (r);
+}
+
+void zoom_normal ()
+{
+ real_canvas->set_pixels_per_unit (1.0f);
+}
+