X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fevent.cc;h=314ed194d611d4674af1619aab9a5cc2264c654d;hb=e1b465ac050fed8f3957c999ec469fda0b66d351;hp=75948dac04d13e376988b7d4b7b23346c2f1a83d;hpb=10f0e1d58eda7e8d5f3e7d5613ca2d976620e434;p=lilypond.git

diff --git a/lily/event.cc b/lily/event.cc
index 75948dac04..314ed194d6 100644
--- a/lily/event.cc
+++ b/lily/event.cc
@@ -3,187 +3,35 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "event.hh"
 #include "warn.hh"
-#include "event.hh"
-  
-Moment
-Event::get_length () const
-{
-  Duration *d = unsmob_duration (get_mus_property ("duration"));
-  if (!d)
-    {
-      Moment m ;
-      return m;
-    }
-  return d->get_length ();
-}
-
-void
-Event::compress (Moment m)
-{
-  Duration *d =  unsmob_duration (get_mus_property ("duration"));
-  if (d)
-    set_mus_property ("duration", d ->compressed (m.main_part_).smobbed_copy ());
-}
-
-void
-Event::transpose (Pitch delta)
-{
-  /*
-    TODO: should change music representation such that
-    _all_ pitch values are transposed automatically.
-   */
-  
-  Pitch *p = unsmob_pitch (get_mus_property ("pitch"));
-  if (!p)
-    return ;
-
-  Pitch np = p->transposed (delta);
-  
-  if (abs (np.get_alteration ()) > DOUBLE_SHARP)
-    {
-	warning (_f ("Transposition by %s makes alteration larger than two",
-	  delta.to_string ()));
-    }
-
-  set_mus_property ("pitch", np.smobbed_copy ());
-}
-
-Pitch
-Event::to_relative_octave (Pitch last)
-{
-  Pitch *old_pit = unsmob_pitch (get_mus_property ("pitch"));
-  if (old_pit)
-    {
-      Pitch new_pit = *old_pit;
-      new_pit = new_pit.to_relative_octave (last);
-      set_mus_property ("pitch", new_pit.smobbed_copy ());
-  
-      return new_pit;
-    }
-  return last;
-}
-  
-Event::Event ()
-  : Music ()
-{
-}
 
-ADD_MUSIC(Event);
-LY_DEFINE(ly_music_duration_length, "ly:music-duration-length", 1, 0,0,
-	  (SCM mus),
-	  "Extract the duration field from @var{mus}, and return the length.")
+MAKE_SCHEME_CALLBACK (Event, length_callback, 1);
+SCM
+Event::length_callback (SCM m)
 {
-  Music* m =   unsmob_music(mus);
-  SCM_ASSERT_TYPE(m, mus, SCM_ARG1, __FUNCTION__, "Music");
-  
-  Duration *d = unsmob_duration (m->get_mus_property ("duration"));
+  Music *me = unsmob_music (m);
+  Duration *d = unsmob_duration (me->get_property ("duration"));
 
-  Moment l ;
-  
+  Moment mom;
   if (d)
     {
-      l = d->get_length ();  
+      mom = d->get_length ();
     }
-  else
-    programming_error("Music has no duration");
-  return l.smobbed_copy();
-  
+  return mom.smobbed_copy ();
 }
 
-
-LY_DEFINE(ly_music_duration_compress, "ly:music-duration-compress", 2, 0,0,
-	  (SCM mus, SCM factor),
-	  "Extract the duration field from @var{mus}, and compress it.")
-{
-  Music* m =   unsmob_music(mus);
-  Moment * f = unsmob_moment (factor);
-  SCM_ASSERT_TYPE(m, mus, SCM_ARG1, __FUNCTION__, "Music");
-  SCM_ASSERT_TYPE(f, factor, SCM_ARG2, __FUNCTION__, "Moment");
-  
-  Duration *d = unsmob_duration (m->get_mus_property ("duration"));
-  if (d)
-    m->set_mus_property ("duration", d->compressed (f->main_part_).smobbed_copy());
-  return SCM_UNSPECIFIED;
-}
-
-
-
-/*
-  This is hairy, since the scale in a key-change event may contain
-  octaveless notes.
-
-
-  TODO: this should use ly:pitch. 
- */
-LY_DEFINE(ly_transpose_key_alist, "ly:transpose-key-alist",
-	  2, 0,0, (SCM l, SCM pitch),
-	  "Make a new key alist of @var{l} transposed by pitch @var{pitch}")
+Event::Event (SCM i)
+  : Music (i)
 {
-  SCM newlist = SCM_EOL;
-  Pitch *p = unsmob_pitch (pitch);
-  
-  for (SCM s = l; gh_pair_p (s); s = ly_cdr (s))
+  if (!ly_c_procedure_p (length_callback_))
     {
-      SCM key = ly_caar (s);
-      SCM alter = ly_cdar (s);
-      if (gh_pair_p (key))
-	{
-	  Pitch orig (gh_scm2int (ly_car (key)),
-		      gh_scm2int (ly_cdr (key)),
-		      gh_scm2int (alter));
-
-	  orig =orig.transposed (*p);
-
-	  SCM key = gh_cons (scm_int2num (orig.get_octave ()),
-			     scm_int2num (orig.get_notename ()));
-
-	  newlist = gh_cons (gh_cons (key, scm_int2num (orig.get_alteration ())),
-			     newlist);
-	}
-      else if (gh_number_p (key))
-	{
-	  Pitch orig (0, gh_scm2int (key), gh_scm2int (alter));
-	  orig = orig.transposed (*p);
-
-	  key =scm_int2num (orig.get_notename ());
-	  alter = scm_int2num (orig.get_alteration());
-	  newlist = gh_cons (gh_cons (key, alter), newlist);
-	}
+      length_callback_ = length_callback_proc;
     }
-  return scm_reverse_x (newlist, SCM_EOL);
 }
 
-void
-Key_change_ev::transpose (Pitch p)
-{
-  SCM pa = get_mus_property ("pitch-alist");
-
-  set_mus_property ("pitch-alist", ly_transpose_key_alist (pa, p.smobbed_copy()));
-  Pitch tonic = *unsmob_pitch (get_mus_property ("tonic"));
-  set_mus_property ("tonic",
-		    tonic.smobbed_copy ());
-}
+ADD_MUSIC (Event);
 
-bool
-alist_equal_p (SCM a, SCM b)
-{
-  for (SCM s = a;
-       gh_pair_p (s); s = ly_cdr (s))
-    {
-      SCM key = ly_caar (s);
-      SCM val = ly_cdar (s);
-      SCM l = scm_assoc (key, b);
-
-      if (l == SCM_BOOL_F
-	  || !gh_equal_p ( ly_cdr (l), val))
-
-	return false;
-    }
-  return true;
-}
-ADD_MUSIC (Key_change_ev);