1 files changed, 65 insertions, 0 deletions
diff --git a/src/calcideal.cc b/src/calcideal.cc
new file mode 100644
index 0000000000..8099e0e4c7
--- /dev/null
+++ b/src/calcideal.cc
@@ -0,0 +1,65 @@
+#include "tstream.hh"
+#include "score.hh"
+#include "pscore.hh"
+#include "staff.hh"
+#include "paper.hh"
+#include "sccol.hh"
+#include "debug.hh"
+
+
+void
+Score::do_connect(PCol *c1, PCol *c2, Real d)
+{
+    Idealspacing*sp=pscore_->get_spacing(c1,c2);
+	
+    if (!sp->hooke){
+	sp->hooke = 1.0;
+	sp->space =d;
+    }
+}
+
+void
+Score::connect_nonmus(PCol* c1, PCol *c2, Real d)
+{
+    if (c2->used && c1->used) {
+	do_connect(c1,c2,d);
+
+	// alert! this is broken!
+	if (c1->breakable()) {
+	    do_connect(c1->postbreak, c2,d);
+	}
+	if (c2->breakable()) {
+	    do_connect(c1, c2->prebreak,d);
+	}
+	if (c1->breakable() &&c2->breakable()) {
+	    do_connect(c1->postbreak, c2->prebreak,d);	    
+	}	
+    }
+}
+/* this needs A LOT of rethinking.
+
+    generate springs between columns.
+    */
+void
+Score::calc_idealspacing()
+{
+    PCursor<Score_column*> sc(cols_);
+
+    for (; sc.ok(); sc++) {
+	if (sc->musical)
+	    for (int i=0; i < sc->durations.sz(); i++) {
+		Real d = sc->durations[i];
+		Real dist = paper_->duration_to_dist(d);
+		PCol * c2 = find_col(sc->when + d,true)->pcol;
+		connect_nonmus(sc->pcol, c2, dist);
+		c2 = find_col(sc->when + d,false)->pcol;
+		connect_nonmus(sc->pcol, c2,  dist);
+	    }
+	else if (sc->used()) {	// ignore empty columns
+	    PCol * c2 = find_col(sc->when,true)->pcol;
+	    connect_nonmus(sc->pcol,c2,0.0);
+	}
+    }       	
+}
+
+