input/manual/font-table.ly

   1
   2 #(set-global-staff-size 16)
   3
   4 \paper {
   5   %% ugh. text on toplevel is a bit broken... .
   6
   7   oddHeaderMarkup = \markup {}
   8   evenHeaderMarkup = \markup {}
   9   oddFooterMarkup = \markup {}
  10   evenFooterMarkup = \markup {}
  11   }
  12
  13 \version "2.7.39"
  14
  15 #(define (doc-char name)
  16   (make-line-markup
  17    (list
  18     (make-pad-to-box-markup
  19      '(0 . 30)
  20      '(-2 . 2)
  21      (make-typewriter-markup (make-small-markup name)))
  22     (make-pad-to-box-markup
  23      '(-2 . 2)
  24      '(-2 . 2)
  25      (make-musicglyph-markup name)))))
  26
  27 #(define (min-length lst n)
  28   "(min  (length lst) n)"
  29
  30   (if (or (null? lst) (<= n 0))
  31    0
  32    (1+ (min-length (cdr lst) (1- n)) )))
  33
  34 #(define (doc-chars names acc)
  35   (let*
  36    ((n (min-length names 2))
  37     (head (take names n))
  38     (tail (drop names n))
  39     )
  40
  41    (if (null? head)
  42     acc
  43     (doc-chars  tail
  44      (cons (make-line-markup (map doc-char head)) acc)))
  45      ))
  46
  47 #(define (group-lines lines)
  48   (let*
  49    ((n (min-length lines 25))
  50     (head (take lines n))
  51     (tail (drop lines n))
  52     )
  53
  54    (cons
  55     (make-column-markup head)
  56     (if (null? tail)
  57      '()
  58      (group-lines tail)))))
  59
  60 #(let*
  61   ((lines (doc-chars
  62            (ly:otf-glyph-list (ly:font-load "emmentaler-20"))
  63          '()))
  64    (pages (group-lines (reverse lines))))
  65
  66   (for-each
  67    (lambda (x)
  68     (collect-scores-for-book parser
  69      (make-override-markup '(word-space . 8) x)))
  70                         pages))
  71
  72