(cons (cons (car coords) (cadr coords))
(ly:list->offsets accum (cddr coords)))))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; numbers
-
-(if (not (defined? 'nan?)) ;; guile 1.6 compat
- (define-public (nan? x) (not (or (< 0.0 x)
- (> 0.0 x)
- (= 0.0 x)))))
-
-(if (not (defined? 'inf?))
- (define-public (inf? x) (= (/ 1.0 x) 0.0)))
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; intervals
;;; FONT may be font smob, or pango font string...
(define-public (font-name-style font)
- ;; FIXME: ughr, barf: feta-alphabet is actually emmentaler
- (if (and (string? font)
- (string-prefix? "feta-alphabet" font))
- (string-append "emmentaler"
- "-"
- (substring font
- (string-length "feta-alphabet")
- (string-length font)))
+ (if (string? font)
+ (string-downcase font)
(let* ((font-name (ly:font-name font))
(full-name (if font-name font-name (ly:font-file-name font))))
(string-downcase full-name))))