]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/pitch-scheme.cc
Grand fixcc.py run on all .hh .cc files.
[lilypond.git] / lily / pitch-scheme.cc
index bc69b633a780dd3cb995e26ff40a91affd88719f..4461ce4a32d9920ecbb88885846f553f8dafb9d4 100644 (file)
@@ -20,9 +20,9 @@
 #include "pitch.hh"
 
 LY_DEFINE (ly_pitch_transpose, "ly:pitch-transpose",
-          2, 0, 0, (SCM p, SCM delta),
-          "Transpose @var{p} by the amount @var{delta},"
-          " where @var{delta} is relative to middle@tie{}C.")
+           2, 0, 0, (SCM p, SCM delta),
+           "Transpose @var{p} by the amount @var{delta},"
+           " where @var{delta} is relative to middle@tie{}C.")
 {
   LY_ASSERT_SMOB (Pitch, p, 1);
   LY_ASSERT_SMOB (Pitch, delta, 2);
@@ -34,27 +34,27 @@ LY_DEFINE (ly_pitch_transpose, "ly:pitch-transpose",
 
 /* Should add optional args.  */
 LY_DEFINE (ly_make_pitch, "ly:make-pitch",
-          2, 1, 0, (SCM octave, SCM note, SCM alter),
-          "@var{octave} is specified by an integer, zero for the octave"
-          " containing middle@tie{}C. @var{note} is a number indexing the"
-          " global default scale, with 0 corresponding to pitch@tie{}C"
-          " and 6 usually corresponding to pitch@tie{}B. @var{alter} is" 
-          " a rational number of 200-cent whole tones for alteration.")
+           2, 1, 0, (SCM octave, SCM note, SCM alter),
+           "@var{octave} is specified by an integer, zero for the octave"
+           " containing middle@tie{}C. @var{note} is a number indexing the"
+           " global default scale, with 0 corresponding to pitch@tie{}C"
+           " and 6 usually corresponding to pitch@tie{}B. @var{alter} is"
+           " a rational number of 200-cent whole tones for alteration.")
 
 {
   LY_ASSERT_TYPE (scm_is_integer, octave, 1);
   LY_ASSERT_TYPE (scm_is_integer, note, 2);
   LY_ASSERT_TYPE (scm_is_rational, alter, 3);
-  
+
   Pitch p (scm_to_int (octave), scm_to_int (note),
-          ly_scm2rational (alter));
-  
+           ly_scm2rational (alter));
+
   return p.smobbed_copy ();
 }
 
 LY_DEFINE (ly_pitch_negate, "ly:pitch-negate", 1, 0, 0,
-          (SCM p),
-          "Negate @var{p}.")
+           (SCM p),
+           "Negate @var{p}.")
 {
   LY_ASSERT_SMOB (Pitch, p, 1);
   Pitch *pp = unsmob_pitch (p);
@@ -62,9 +62,9 @@ LY_DEFINE (ly_pitch_negate, "ly:pitch-negate", 1, 0, 0,
 }
 
 LY_DEFINE (ly_pitch_steps, "ly:pitch-steps", 1, 0, 0,
-          (SCM p),
-          "Number of steps counted from middle@tie{}C of the"
-          " pitch@tie{}@var{p}.")
+           (SCM p),
+           "Number of steps counted from middle@tie{}C of the"
+           " pitch@tie{}@var{p}.")
 {
   LY_ASSERT_SMOB (Pitch, p, 1);
   Pitch *pp = unsmob_pitch (p);
@@ -72,8 +72,8 @@ LY_DEFINE (ly_pitch_steps, "ly:pitch-steps", 1, 0, 0,
 }
 
 LY_DEFINE (ly_pitch_octave, "ly:pitch-octave",
-          1, 0, 0, (SCM pp),
-          "Extract the octave from pitch@tie{}@var{pp}.")
+           1, 0, 0, (SCM pp),
+           "Extract the octave from pitch@tie{}@var{pp}.")
 {
   LY_ASSERT_SMOB (Pitch, pp, 1);
   Pitch *p = unsmob_pitch (pp);
@@ -82,8 +82,8 @@ LY_DEFINE (ly_pitch_octave, "ly:pitch-octave",
 }
 
 LY_DEFINE (ly_pitch_alteration, "ly:pitch-alteration",
-          1, 0, 0, (SCM pp),
-          "Extract the alteration from pitch@tie{}@var{pp}.")
+           1, 0, 0, (SCM pp),
+           "Extract the alteration from pitch@tie{}@var{pp}.")
 {
   LY_ASSERT_SMOB (Pitch, pp, 1);
   Pitch *p = unsmob_pitch (pp);
@@ -93,8 +93,8 @@ LY_DEFINE (ly_pitch_alteration, "ly:pitch-alteration",
 }
 
 LY_DEFINE (pitch_notename, "ly:pitch-notename",
-          1, 0, 0, (SCM pp),
-          "Extract the note name from pitch @var{pp}.")
+           1, 0, 0, (SCM pp),
+           "Extract the note name from pitch @var{pp}.")
 {
   LY_ASSERT_SMOB (Pitch, pp, 1);
   Pitch *p = unsmob_pitch (pp);
@@ -103,9 +103,9 @@ LY_DEFINE (pitch_notename, "ly:pitch-notename",
 }
 
 LY_DEFINE (ly_pitch_quartertones, "ly:pitch-quartertones",
-          1, 0, 0, (SCM pp),
-          "Calculate the number of quarter tones of@tie{}@var{pp} from"
-          " middle@tie{}C.")
+           1, 0, 0, (SCM pp),
+           "Calculate the number of quarter tones of@tie{}@var{pp} from"
+           " middle@tie{}C.")
 {
   LY_ASSERT_SMOB (Pitch, pp, 1);
   Pitch *p = unsmob_pitch (pp);
@@ -114,9 +114,9 @@ LY_DEFINE (ly_pitch_quartertones, "ly:pitch-quartertones",
 }
 
 LY_DEFINE (ly_pitch_semitones, "ly:pitch-semitones",
-          1, 0, 0, (SCM pp),
-          "Calculate the number of semitones of@tie{}@var{pp} from"
-          " middle@tie{}C.")
+           1, 0, 0, (SCM pp),
+           "Calculate the number of semitones of@tie{}@var{pp} from"
+           " middle@tie{}C.")
 {
   LY_ASSERT_SMOB (Pitch, pp, 1);
   Pitch *p = unsmob_pitch (pp);
@@ -125,8 +125,8 @@ LY_DEFINE (ly_pitch_semitones, "ly:pitch-semitones",
 }
 
 LY_DEFINE (ly_pitch_less_p, "ly:pitch<?",
-          2, 0, 0, (SCM p1, SCM p2),
-          "Is @var{p1} lexicographically smaller than @var{p2}?")
+           2, 0, 0, (SCM p1, SCM p2),
+           "Is @var{p1} lexicographically smaller than @var{p2}?")
 {
   LY_ASSERT_SMOB (Pitch, p1, 1);
   LY_ASSERT_SMOB (Pitch, p2, 2);
@@ -141,11 +141,11 @@ LY_DEFINE (ly_pitch_less_p, "ly:pitch<?",
 }
 
 LY_DEFINE (ly_pitch_diff, "ly:pitch-diff",
-          2, 0, 0, (SCM pitch, SCM root),
-          "Return pitch @var{delta} such that @var{pitch} transposed by"
-          " @var{delta} equals @var{root}.")
+           2, 0, 0, (SCM pitch, SCM root),
+           "Return pitch @var{delta} such that @var{pitch} transposed by"
+           " @var{delta} equals @var{root}.")
 {
+
   LY_ASSERT_SMOB (Pitch, pitch, 1);
   LY_ASSERT_SMOB (Pitch, root, 2);
 
@@ -158,10 +158,10 @@ LY_DEFINE (ly_pitch_diff, "ly:pitch-diff",
 /* FIXME: probably isn't the right place for this function */
 #include "context.hh"
 LY_DEFINE (ly_set_middle_C_x, "ly:set-middle-C!",
-          1, 0, 0, (SCM context),
-          "Set the @code{middleCPosition} variable in @var{context}"
-          " based on the variables @code{middleCClefPosition} and"
-          " middleCOffset.")
+           1, 0, 0, (SCM context),
+           "Set the @code{middleCPosition} variable in @var{context}"
+           " based on the variables @code{middleCClefPosition} and"
+           " middleCOffset.")
 {
   LY_ASSERT_SMOB (Context, context, 1);