LEFT | RIGHT |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2002--2012 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 2002--2012 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Patrick McCarty <pnorcks@gmail.com> | 4 ;;;; Patrick McCarty <pnorcks@gmail.com> |
5 ;;;; | 5 ;;;; |
6 ;;;; LilyPond is free software: you can redistribute it and/or modify | 6 ;;;; LilyPond is free software: you can redistribute it and/or modify |
7 ;;;; it under the terms of the GNU General Public License as published by | 7 ;;;; it under the terms of the GNU General Public License as published by |
8 ;;;; the Free Software Foundation, either version 3 of the License, or | 8 ;;;; the Free Software Foundation, either version 3 of the License, or |
9 ;;;; (at your option) any later version. | 9 ;;;; (at your option) any later version. |
10 ;;;; | 10 ;;;; |
(...skipping 410 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
421 (- (* end-radius (sin new-end-angle)))) | 421 (- (* end-radius (sin new-end-angle)))) |
422 (if connect | 422 (if connect |
423 (ly:format "L~4f,~4f" | 423 (ly:format "L~4f,~4f" |
424 (* start-radius (cos new-start-angle)) | 424 (* start-radius (cos new-start-angle)) |
425 (- (* start-radius (sin new-start-angle)))) | 425 (- (* start-radius (sin new-start-angle)))) |
426 ""))))))) | 426 ""))))))) |
427 | 427 |
428 (define (embedded-svg string) | 428 (define (embedded-svg string) |
429 string) | 429 string) |
430 | 430 |
431 (define (embedded-glyph-string font size cid glyphs) | 431 (define (embedded-glyph-string pango-font font size cid glyphs) |
432 (define path "") | 432 (define path "") |
433 (if (= 1 (length glyphs)) | 433 (if (= 1 (length glyphs)) |
434 (set! path (music-string-to-path font size (car glyphs))) | 434 (set! path (music-string-to-path font size (car glyphs))) |
435 (begin | 435 (begin |
436 (set! path | 436 (set! path |
437 (string-append (eo 'g) | 437 (string-append (eo 'g) |
438 (string-join | 438 (string-join |
439 (map (lambda (x) | 439 (map (lambda (x) |
440 (music-string-to-path font size x)) | 440 (music-string-to-path font size x)) |
441 glyphs) | 441 glyphs) |
442 "\n") | 442 "\n") |
443 (ec 'g))))) | 443 (ec 'g))))) |
444 (set! next-horiz-adv 0.0) | 444 (set! next-horiz-adv 0.0) |
445 path) | 445 path) |
446 | 446 |
447 (define (woff-glyph-string font-name size cid? w-h-x-y-named-glyphs) | 447 (define (woff-glyph-string pango-font font-name size cid? w-h-x-y-named-glyphs) |
448 (let* ((name-style (font-name-style font-name)) | 448 (let* ((name-style (font-name-style font-name)) |
449 (family-designsize (regexp-exec (make-regexp "(.*)-([0-9]*)") | 449 (family-designsize (regexp-exec (make-regexp "(.*)-([0-9]*)") |
450 font-name)) | 450 font-name)) |
451 (family (if (regexp-match? family-designsize) | 451 (family (if (regexp-match? family-designsize) |
452 (match:substring family-designsize 1) | 452 (match:substring family-designsize 1) |
453 font-name)) | 453 font-name)) |
454 (design-size (if (regexp-match? family-designsize) | 454 (design-size (if (regexp-match? family-designsize) |
455 (match:substring family-designsize 2) | 455 (match:substring family-designsize 2) |
456 #f)) | 456 #f)) |
457 (scaled-size (/ size lily-unit-length)) | 457 (scaled-size (/ size lily-unit-length)) |
(...skipping 169 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
627 '(stroke . "none") | 627 '(stroke . "none") |
628 '(stroke-width . "0.0")) | 628 '(stroke-width . "0.0")) |
629 (ec 'a))) | 629 (ec 'a))) |
630 | 630 |
631 (define (utf-8-string pango-font-description string) | 631 (define (utf-8-string pango-font-description string) |
632 (let ((escaped-string (string-regexp-substitute | 632 (let ((escaped-string (string-regexp-substitute |
633 "<" "<" | 633 "<" "<" |
634 (string-regexp-substitute "&" "&" string)))) | 634 (string-regexp-substitute "&" "&" string)))) |
635 (dispatch `(fontify ,pango-font-description | 635 (dispatch `(fontify ,pango-font-description |
636 ,(entity 'tspan escaped-string))))) | 636 ,(entity 'tspan escaped-string))))) |
LEFT | RIGHT |