X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstencil.cc;h=a488c598137106339e3dc12951ce5ae6ff520a01;hb=418adb3cf974523a481a7b92975bea16e8b43472;hp=ae06add090c07b8052d6ea5a2a1fbb635ddf63fd;hpb=9e338fb9a890089a44a3c36ae3c95653027718d5;p=lilypond.git

diff --git a/lily/stencil.cc b/lily/stencil.cc
index ae06add090..a488c59813 100644
--- a/lily/stencil.cc
+++ b/lily/stencil.cc
@@ -1,9 +1,20 @@
 /*
-  stencil.cc -- implement Stencil
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-  (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  LilyPond is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  LilyPond is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "stencil.hh"
@@ -57,8 +68,8 @@ bool
 Stencil::is_empty () const
 {
   return (expr_ == SCM_EOL
-	  || dim_[X_AXIS].is_empty ()
-	  || dim_[Y_AXIS].is_empty ());
+          || dim_[X_AXIS].is_empty ()
+          || dim_[Y_AXIS].is_empty ());
 }
 
 SCM
@@ -76,7 +87,7 @@ Stencil::extent_box () const
 void
 Stencil::rotate (Real a, Offset off)
 {
-  rotate_degrees (a * 180/M_PI, off); 
+  rotate_degrees (a * 180 / M_PI, off);
 }
 
 /*
@@ -101,9 +112,9 @@ Stencil::rotate_degrees_absolute (Real a, Offset absolute_off)
    */
 
   expr_ = scm_list_n (ly_symbol2scm ("rotate-stencil"),
-		      scm_list_2 (scm_from_double (a),
-		      scm_cons (scm_from_double (x), scm_from_double (y))),
-		      expr_, SCM_UNDEFINED);
+                      scm_list_2 (scm_from_double (a),
+                                  scm_cons (scm_from_double (x), scm_from_double (y))),
+                      expr_, SCM_UNDEFINED);
 
   /*
    * Calculate the new bounding box
@@ -112,10 +123,10 @@ Stencil::rotate_degrees_absolute (Real a, Offset absolute_off)
   shifted_box.translate (-absolute_off);
 
   vector<Offset> pts;
-  pts.push_back (Offset (shifted_box.x ().at(LEFT), shifted_box.y ().at(DOWN)));
-  pts.push_back (Offset (shifted_box.x ().at(RIGHT), shifted_box.y ().at(DOWN)));
-  pts.push_back (Offset (shifted_box.x ().at(RIGHT), shifted_box.y ().at(UP)));
-  pts.push_back (Offset (shifted_box.x ().at(LEFT), shifted_box.y ().at(UP)));
+  pts.push_back (Offset (shifted_box.x ().at (LEFT), shifted_box.y ().at (DOWN)));
+  pts.push_back (Offset (shifted_box.x ().at (RIGHT), shifted_box.y ().at (DOWN)));
+  pts.push_back (Offset (shifted_box.x ().at (RIGHT), shifted_box.y ().at (UP)));
+  pts.push_back (Offset (shifted_box.x ().at (LEFT), shifted_box.y ().at (UP)));
 
   const Offset rot = complex_exp (Offset (0, a * M_PI / 180.0));
   dim_.set_empty ();
@@ -147,24 +158,24 @@ Stencil::translate (Offset o)
   while (a < NO_AXES)
     {
       if (isinf (o[a])
-	  || isnan (o[a])
-
-	  // ugh, hardcoded. 
-	  || fabs (o[a]) > 1e6)
-	{
-	  programming_error (String_convert::form_string ("Improbable offset for stencil: %f staff space", o[a])
-			     + "\n"
-			     + "Setting to zero.");
-	  o[a] = 0.0;
-	  if (strict_infinity_checking)
-	    scm_misc_error (__FUNCTION__, "Improbable offset.", SCM_EOL);
-	}
+          || isnan (o[a])
+
+          // ugh, hardcoded.
+          || fabs (o[a]) > 1e6)
+        {
+          programming_error (String_convert::form_string ("Improbable offset for stencil: %f staff space", o[a])
+                             + "\n"
+                             + "Setting to zero.");
+          o[a] = 0.0;
+          if (strict_infinity_checking)
+            scm_misc_error (__FUNCTION__, "Improbable offset.", SCM_EOL);
+        }
       incr (a);
     }
 
   expr_ = scm_list_n (ly_symbol2scm ("translate-stencil"),
-		      ly_offset2scm (o),
-		      expr_, SCM_UNDEFINED);
+                      ly_offset2scm (o),
+                      expr_, SCM_UNDEFINED);
   if (!is_empty ())
     dim_.translate (o);
 }
@@ -177,6 +188,17 @@ Stencil::translate_axis (Real x, Axis a)
   translate (o);
 }
 
+void
+Stencil::scale (Real x, Real y)
+{
+  expr_ = scm_list_3 (ly_symbol2scm ("scale-stencil"),
+                      scm_list_2 (scm_from_double (x),
+                                  scm_from_double (y)),
+                      expr_);
+  dim_[X_AXIS] *= x;
+  dim_[Y_AXIS] *= y;
+}
+
 void
 Stencil::add_stencil (Stencil const &s)
 {
@@ -225,7 +247,7 @@ Stencil::add_at_edge (Axis a, Direction d, Stencil const &s, Real padding)
     his_extent = i[-d];
 
   Real offset = (my_extent.is_empty () ? 0.0 : my_extent[d] - his_extent)
-    + d * padding;
+                + d * padding;
 
   Stencil toadd (s);
   toadd.translate_axis (offset, a);
@@ -236,11 +258,11 @@ Stencil
 Stencil::in_color (Real r, Real g, Real b) const
 {
   Stencil new_stencil (extent_box (),
-		       scm_list_3 (ly_symbol2scm ("color"),
-				   scm_list_3 (scm_from_double (r),
-					       scm_from_double (g),
-					       scm_from_double (b)),
-				   expr ()));
+                       scm_list_3 (ly_symbol2scm ("color"),
+                                   scm_list_3 (scm_from_double (r),
+                                               scm_from_double (g),
+                                               scm_from_double (b)),
+                                   expr ()));
   return new_stencil;
 }