X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspring-smob.cc;h=4b20641e95af80c166f99f0b0285547db241a2da;hb=9c3ecc7d6e596e8151a58ce7ed0dd9e1b0802d1e;hp=baf3e9eb0e53c46a53fa7cfb20f570cb3c6e8b51;hpb=634ad74db688a5305f001917453c5cd15305c539;p=lilypond.git diff --git a/lily/spring-smob.cc b/lily/spring-smob.cc index baf3e9eb0e..4b20641e95 100644 --- a/lily/spring-smob.cc +++ b/lily/spring-smob.cc @@ -1,39 +1,32 @@ -/* +/* spring.cc -- implement Spring - + source file of the GNU LilyPond music typesetter - - (c) 1999--2005 Han-Wen Nienhuys - - */ + + (c) 1999--2009 Han-Wen Nienhuys +*/ #include "spring.hh" #include "warn.hh" #include "ly-smobs.icc" -Spring_smob::Spring_smob () -{ - distance_ = 0.; - strength_ =1.0; - expand_only_b_ = false; - other_ = 0; -} - - -IMPLEMENT_SIMPLE_SMOBS (Spring_smob); +IMPLEMENT_SIMPLE_SMOBS (Spring); SCM -Spring_smob::mark_smob (SCM) { return SCM_UNSPECIFIED; } +Spring::mark_smob (SCM) +{ + return SCM_UNSPECIFIED; +} int -Spring_smob::print_smob (SCM, SCM p, scm_print_state *) +Spring::print_smob (SCM, SCM p, scm_print_state *) { scm_puts ("#", p); return 1; } SCM -Spring_smob::equal_p (SCM a , SCM b) +Spring::equal_p (SCM a, SCM b) { return a == b? SCM_BOOL_T : SCM_BOOL_F; }