* flower

[lilypond.git] / lily / line-interface.cc

diff --git a/lily/line-interface.cc b/lily/line-interface.cc
index 82843d912c290247f2173d5645fdb38f9f76bb69..a5c17c5ce9946e4804a7957e09e66999cc9ae065 100644 (file)
--- a/lily/line-interface.cc
+++ b/lily/line-interface.cc
@@ -1,11 +1,10 @@
-/*   
-line-interface.cc -- implement Line_interface
+/*
+  line-interface.cc -- implement Line_interface
 
-source file of the GNU LilyPond music typesetter
+  source file of the GNU LilyPond music typesetter
 
-(c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
-
- */
+  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+*/
 
 #include "line-interface.hh"
 
@@ -15,26 +14,26 @@ source file of the GNU LilyPond music typesetter
 
 Stencil
 Line_interface::make_dashed_line (Real thick, Offset from, Offset to,
-                            Real dash_period, Real dash_fraction)
+                                 Real dash_period, Real dash_fraction)
 {
   dash_fraction = (dash_fraction >? 0) <? 1.0;
-  Real on = dash_fraction * dash_period + thick; 
+  Real on = dash_fraction * dash_period + thick;
   Real off = dash_period - on;
-  
+
   SCM at = scm_list_n (ly_symbol2scm ("dashed-line"),
-                       scm_make_real (thick), 
-                       scm_make_real (on),
-                       scm_make_real (off),
-                       scm_make_real (to[X_AXIS] - from[X_AXIS]),
-                       scm_make_real (to[Y_AXIS] - from[Y_AXIS]),
-                       SCM_UNDEFINED);
-  
+                      scm_make_real (thick),
+                      scm_make_real (on),
+                      scm_make_real (off),
+                      scm_make_real (to[X_AXIS] - from[X_AXIS]),
+                      scm_make_real (to[Y_AXIS] - from[Y_AXIS]),
+                      SCM_UNDEFINED);
+
   Box box;
   box.add_point (Offset (0, 0));
   box.add_point (to - from);
 
-  box[X_AXIS].widen (thick/2);
-  box[Y_AXIS].widen (thick/2);  
+  box[X_AXIS].widen (thick / 2);
+  box[Y_AXIS].widen (thick / 2);
 
   Stencil m = Stencil (box, at);
   m.translate (from);
@@ -45,19 +44,19 @@ Stencil
 Line_interface::make_line (Real th, Offset from, Offset to)
 {
   SCM at = scm_list_n (ly_symbol2scm ("draw-line"),
-                       scm_make_real (th), 
-                       scm_make_real (from[X_AXIS]),
-                       scm_make_real (from[Y_AXIS]),
-                       scm_make_real (to[X_AXIS]),
-                       scm_make_real (to[Y_AXIS]),
-                       SCM_UNDEFINED);
+                      scm_make_real (th),
+                      scm_make_real (from[X_AXIS]),
+                      scm_make_real (from[Y_AXIS]),
+                      scm_make_real (to[X_AXIS]),
+                      scm_make_real (to[Y_AXIS]),
+                      SCM_UNDEFINED);
 
   Box box;
   box.add_point (from);
   box.add_point (to);
 
-  box[X_AXIS].widen (th/2);
-  box[Y_AXIS].widen (th/2);  
+  box[X_AXIS].widen (th / 2);
+  box[Y_AXIS].widen (th / 2);
 
   return Stencil (box, at);
 }
@@ -67,25 +66,25 @@ Line_interface::line (Grob *me, Offset from, Offset to)
 {
   Real thick = Staff_symbol_referencer::line_thickness (me)
     * robust_scm2double (me->get_property ("thickness"), 1);
-  
+
   SCM type = me->get_property ("style");
 
   SCM dash_fraction = me->get_property ("dash-fraction");
   if (scm_is_number (dash_fraction) || type == ly_symbol2scm ("dotted-line"))
     {
-      
+
       Real fraction
        = type == ly_symbol2scm ("dotted-line")
        ? 0.0
        : robust_scm2double (dash_fraction, 0.4);
-      
+
       fraction = (fraction >? 0) <? 1.0;
       Real period = Staff_symbol_referencer::staff_space (me)
        * robust_scm2double (me->get_property ("dash-period"), 1.0);
 
       if (period < 0)
        return Stencil ();
-  
+
       return make_dashed_line (thick, from, to, period, fraction);
     }
   else
@@ -95,11 +94,11 @@ Line_interface::line (Grob *me, Offset from, Offset to)
 }
 
 ADD_INTERFACE (Line_interface, "line-interface",
-             "Generic line objects. Any object using lines supports this.  Normally, "
-             "you get a straight line. If @code{dash-period} is defined, a dashed line is "
-             "produced; the length of the dashes is tuned with " 
-             "@code{dash-fraction}. If the latter is set to 0, a dotted line is "
-             "produced. If @code{dash-fraction} is negative, the line is made "
-             "transparent.",
-             
-             "dash-period dash-fraction thickness style")
+              "Generic line objects. Any object using lines supports this.  Normally, "
+              "you get a straight line. If @code{dash-period} is defined, a dashed line is "
+              "produced; the length of the dashes is tuned with "
+              "@code{dash-fraction}. If the latter is set to 0, a dotted line is "
+              "produced. If @code{dash-fraction} is negative, the line is made "
+              "transparent.",
+
+              "dash-period dash-fraction thickness style")