;;; You need:
;;;
;;; * Rotty's g-wrap >= 1.9.1 (or TLA)
-;;; * guile-gnome-platform >= 2.5.990 (or TLA)
-;;; * pango >= 1.5.1 (or CVS)
+;;; * guile-gnome-platform >= 2.5.992 (or TLA)
+;;; * pango >= 1.5.2 (or CVS)
;;;
;;; See also: guile-gtk-general@gnu.org
;;;
;;; * Build LilyPond with gui support: configure --enable-gui
;;;
-;;; * Supposing that LilyPond was built in ~/cvs/lilypond, tell X about
-;;; feta fonts:
+;;; * Supposing that LilyPond was built in ~/cvs/savannah/lilypond,
+;;; tell fontconfig about the feta fonts dir:
"
-ln -s ~/cvs/lilypond/mf/out ~/.fonts
-mkfontdir ~/.fonts
-xset +fp ~/.fonts
+cat > ~/.fonts.conf << EOF
+<fontconfig>
+<dir>~/cvs/savannah/lilypond/mf/out</dir>
+</fontconfig>
+EOF
+"
+;;; or copy all your .pfa/.pfb's to ~/.fonts if your fontconfig
+;;; already looks there for fonts. Check if it works by doing:
+"
+fc-list | grep -i lily
"
;;;
;;; * Setup environment
;;;
;;; * Run lily:
"
-lilypond-bin -fgnome input/simple-song.ly
+lilypond -fgnome input/simple-song.ly
"
;;; point-and-click: (mouse-1) click on a graphical object;
;;; grob-property-list: (mouse-3) click on a graphical object.
(move item
(* output-scale (+ (car system-origin) x))
(* output-scale (- (car system-origin) y)))
- ;; UGH latest guile-gnome is broken
- (if (defined? 'affine-relative)
- (affine-relative item output-scale 0 0 output-scale 0 0))
+ (affine-relative item output-scale 0 0 output-scale 0 0)
item)
#f)))
(make <gnome-canvas-text>
#:parent (canvas-root)
-
- ;; experimental text placement corrections.
- ;; UGHR? What happened to tex offsets? south-west?
- ;; is pango doing something 'smart' wrt baseline ?
- #:anchor 'south-west
- #:x 0.003 #:y 0.123
-
- ;;#:anchor 'west
- ;;#:x 0.015 #:y -3.71
+
+ #:anchor 'west
+ #:x 0.0 #:y 0.0
#:font (pango-font-name font)