copy 'direction from tie-cause to tie. Fixes #139.

diff --git a/lily/tie-engraver.cc b/lily/tie-engraver.cc
index ed46d59a77ccbdb437139e6bee7355d250e7ef6b..af3c5a4ad647f89fafee53b0e2bada63d786c061 100644 (file)
--- a/lily/tie-engraver.cc
+++ b/lily/tie-engraver.cc
@@ -135,6 +135,13 @@ Tie_engraver::acknowledge_note_head (Grob_info i)
          Tie::set_head (p, LEFT, th);
          Tie::set_head (p, RIGHT, h);
 
+
+         if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
+           {
+             Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
+             p->set_property ("direction", scm_from_int (d)); 
+           }
+         
          ties_.push_back (p);
          heads_to_tie_.erase (heads_to_tie_.begin () + i);
        }