+2006-10-15 Han-Wen Nienhuys <hanwen@lilypond.org>
+
+ * mf/GNUmakefile (ALL_GEN_FILES): remove fonts.cache-1
+
2006-10-15 Erik Sandberg <mandolaerik@gmail.com>
* lily/*.cc, lily/include/*.hh: eliminate dummy arguments from
* Doxyfile: remove file.
- * scm/define-grob-interfaces.scm (string-finger-interface): add string-finger-interface
+ * scm/define-grob-interfaces.scm (string-finger-interface): add
+ string-finger-interface
* lily/general-scheme.cc (LY_DEFINE): move
ly_camel_case_to_lisp_identifier to here. Use vector<char> iso. char[]
# Make tfm files first, log files last,
# so that normally log files aren't made twice
-ALL_GEN_FILES= $(TFM_FILES) $(TEXTABLES) $(TFM_FILES) $(LOG_FILES) $(ENC_FILES) $(LISP_FILES) $(FETA_LIST_FILES) $(OTF_TABLES) $(NCSB_OTFS) $(PFA_FILES) $(OTF_FILES) $(SVG_FILES) $(outdir)/fonts.cache-1
+ALL_GEN_FILES= $(TFM_FILES) $(TEXTABLES) $(TFM_FILES) $(LOG_FILES) $(ENC_FILES) $(LISP_FILES) $(FETA_LIST_FILES) $(OTF_TABLES) $(NCSB_OTFS) $(PFA_FILES) $(OTF_FILES) $(SVG_FILES)
#PRE_INSTALL=$(MAKE) "$(ALL_GEN_FILES)"
(ly:grob-relative-coordinate me y-ref Y))))
))
-
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
(padding (ly:grob-property spanner 'padding 0.5))
(common (ly:grob-common-refpoint right-span
(ly:grob-common-refpoint spanner
- left-span X)
+ left-span X)
X))
- (left-x (+ padding (interval-end (ly:grob-robust-relative-extent left-span common X))))
- (right-x (- (interval-start (ly:grob-robust-relative-extent right-span common X)) padding))
+ (left-x (+ padding
+ (interval-end (ly:grob-robust-relative-extent
+ left-span common X))))
+ (right-x (- (interval-start
+ (ly:grob-robust-relative-extent right-span common X))
+ padding))
(self-x (ly:grob-relative-coordinate spanner common X))
(dx (- right-x left-x))
(exp (list 'path thickness
((cols (ly:grob-object grob 'columns))
(get-difference
(lambda (idx)
- (ly:moment-sub (ly:grob-property (ly:grob-array-ref cols (1+ idx)) 'when)
- (ly:grob-property (ly:grob-array-ref cols idx) 'when))))
+ (ly:moment-sub (ly:grob-property
+ (ly:grob-array-ref cols (1+ idx)) 'when)
+ (ly:grob-property
+ (ly:grob-array-ref cols idx) 'when))))
(moment-min (lambda (x y)
(cond
(define-public (string-finger::calc-text grob)
(let*
((digit (ly:event-property (event-cause grob) 'digit))
- (texts (ly:grob-property grob 'digit-names))
- )
+ (texts (ly:grob-property grob 'digit-names)))
(vector-ref texts (1- (max (min 5 digit) 1)))
))