OLD | NEW |
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) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
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 258 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
269 (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2) | 269 (let ((cap-numeric (case cap ((butt) 0) ((round) 1) ((square) 2) |
270 (else (begin | 270 (else (begin |
271 (ly:warning (_ "unknown line-cap-style: ~S") | 271 (ly:warning (_ "unknown line-cap-style: ~S") |
272 (symbol->string cap)) | 272 (symbol->string cap)) |
273 1)))) | 273 1)))) |
274 (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2) | 274 (join-numeric (case join ((miter) 0) ((round) 1) ((bevel) 2) |
275 (else (begin | 275 (else (begin |
276 (ly:warning (_ "unknown line-join-style: ~S"
) | 276 (ly:warning (_ "unknown line-join-style: ~S"
) |
277 (symbol->string join)) | 277 (symbol->string join)) |
278 1))))) | 278 1))))) |
279 (ly:format | 279 (ly:format |
280 "gsave currentpoint translate | 280 "gsave currentpoint translate |
281 ~a setlinecap ~a setlinejoin ~a setlinewidth | 281 ~a setlinecap ~a setlinejoin ~a setlinewidth |
282 ~l ~a grestore" | 282 ~l ~a grestore" |
283 cap-numeric | 283 cap-numeric |
284 join-numeric | 284 join-numeric |
285 thickness | 285 thickness |
286 (convert-path-exps exps) | 286 (convert-path-exps exps) |
287 ;; print outline contour only if there is no fill or if | 287 ;; print outline contour only if there is no fill or if |
288 ;; contour is explicitly requested with a thickness > 0 | 288 ;; contour is explicitly requested with a thickness > 0 |
289 (cond ((not fill?) "stroke") | 289 (cond ((not fill?) "stroke") |
290 ((positive? thickness) "gsave stroke grestore fill") | 290 ((positive? thickness) "gsave stroke grestore fill") |
291 (else "fill"))))) | 291 (else "fill"))))) |
292 | 292 |
293 | 293 |
294 (define (setscale x y) | 294 (define (setscale x y) |
295 (ly:format "gsave ~4l scale\n" | 295 (ly:format "gsave ~4l scale\n" |
296 (list x y))) | 296 (list x y))) |
297 | 297 |
298 (define (resetscale) | 298 (define (resetscale) |
299 "grestore\n") | 299 "grestore\n") |
OLD | NEW |