/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2006--2014 Han-Wen Nienhuys <hanwen@lilypond.org>
+ Copyright (C) 2006--2015 Han-Wen Nienhuys <hanwen@lilypond.org>
2007--2008 Rune Zedeler
2008 Joe Neeman <joeneeman@gmail.com>
#include "scale.hh"
-#include "ly-smobs.icc"
/*
todo: put string <-> pitch here too.
return ret;
}
-int
-Scale::print_smob (SCM /* x */,
- SCM port,
- scm_print_state *)
-{
- scm_puts ("#<Scale>", port);
- return 1;
-}
-SCM
-Scale::mark_smob (SCM)
-{
- return SCM_UNSPECIFIED;
-}
Scale::Scale (vector<Rational> const &tones)
{
}
Scale::Scale (Scale const &src)
+ : Smob<Scale> ()
{
step_tones_ = src.step_tones_;
smobify_self ();
Scale::~Scale ()
{
}
-
-IMPLEMENT_SMOBS (Scale);
-IMPLEMENT_DEFAULT_EQUAL_P (Scale);