(draw-line): new routine.
(dashed-line): stub; call draw-line
(polygon): new routine.
\header {
-texidoc = "Excercise all output functions"
- }
+ texidoc = "Excercise all output functions"
+}
+
+\version "2.5.0"
\relative {
\new StaffGroup <<
\new Staff <<
{
- #(set-octavation 1)
- \times 2/3 { c'8[\< c]( f''\!) }
- }
+ #(set-octavation 1)
+ \times 2/3 { c'8[\< f]( f''\!) }
+ }
\skip 1 >>
- \new Staff {
+ \new Staff \relative c'' {
\makeClusters { <g a>8 <e a> }
- }
+ }
>>
}
(define (beam width slope thick blot)
(let*
((def (make <gnome-canvas-path-def>))
+ (y (* (- width) slope))
(props (make <gnome-canvas-bpath>
#:parent (canvas-root)
#:fill-color "black"
(reset def)
(moveto def 0 0)
- (lineto def width (* width slope))
- (lineto def width (- thick))
+ (lineto def width y)
+ (lineto def width (- y thick))
(lineto def 0 (- thick))
(lineto def 0 0)
(closepath def)