(draw-line): new routine.
(dashed-line): stub; call draw-line
+2004-11-16 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * scm/output-gnome.scm (beam): add function.
+ (draw-line): new routine.
+ (dashed-line): stub; call draw-line
+
2004-11-15 Werner Lemberg <wl@gnu.org>
* Documentation/user/lilypond-book.itely: Revise section on
SCM sl = scm_make_real (s);
SCM thick = scm_make_real (t);
SCM slashnodot = scm_list_n (ly_symbol2scm ("repeat-slash"),
- wid, sl, thick, SCM_UNDEFINED);
+ wid, sl, thick, SCM_UNDEFINED);
Box b (Interval (0, w + sqrt (sqr (t/s) + sqr (t))),
Interval (0, w * s));
repeat-slash
round-filled-box
text
- tuplet
white-dot
white-text
zigzag-line
props))
+(define (dashed-line thick on off dx dy)
+ (draw-line thick 0 0 dx dy))
+
+(define (draw-line thick fx fy tx ty)
+ (let*
+ ((def (make <gnome-canvas-path-def>))
+ (props (make <gnome-canvas-bpath>
+ #:parent (canvas-root)
+ #:fill-color "black"
+ #:outline-color "black"
+ #:width-units thick)))
+
+ (reset def)
+ (moveto def fx (- fy))
+ (lineto def tx (- ty))
+ (set-path-def props def)
+ props))
+
+
(define (round-filled-box breapth width depth height blot-diameter)
;; FIXME: no rounded corners on rectangle...
;; FIXME: blot?
round-filled-box
text
white-text
- tuplet
polygon
draw-line
no-origin
round-filled-box
text
white-text
- tuplet
polygon
draw-line
no-origin
(define (white-text scale s)
(embedded-ps (list 'white-text scale s)))
-(define (tuplet ht gapx dx dy thick dir)
- (embedded-ps (list 'tuplet ht gapx dx dy thick dir)))
-
(define (polygon points blotdiameter)
(embedded-ps (list 'polygon `(quote ,points) blotdiameter)))