diff options
| author | David Kastrup <dak@gnu.org> | 2016-08-31 15:25:16 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2016-09-19 23:25:11 +0200 |
| commit | 6bd95e9f5b759548122f5ca35ac478ce5b116623 (patch) | |
| tree | 1dcf28b05be82219284258cfaece8fd9d451e120 /scm | |
| parent | e06768e6923866dd5cf6f8c9639664f617ccfa6e (diff) | |
Issue 4968/3: Let stencil-whiteout-outline use degrees
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/stencil.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/scm/stencil.scm b/scm/stencil.scm index bda7e29a8f..17f5f9084f 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -751,21 +751,18 @@ of the white stencil we make between 0 and 2*pi." (begin (ly:warning "Both angle-increments and radial-increments must be positive numbers.") stil) - (let* ((2pi 6.283185307) - (angle-inc (/ 2pi angle-increments)) + (let* ((angle-inc (/ 360 angle-increments)) (radial-inc (/ thickness radial-increments))) (define (circle-plot ang dec radius original-stil new-stil) - ;; ang (angle) and dec (decrement) are in radians, not degrees + ;; ang (angle) and dec (decrement) are in degrees, not radians (if (<= ang 0) new-stil (circle-plot (- ang dec) dec radius original-stil (ly:stencil-add new-stil (ly:stencil-translate original-stil - (cons - (* radius (cos ang)) - (* radius (sin ang)))))))) + (ly:directed ang radius)))))) (define (radial-plot radius original-stil new-stil) (if (<= radius 0) @@ -774,7 +771,7 @@ of the white stencil we make between 0 and 2*pi." (radial-plot (- radius radial-inc) original-stil - (circle-plot 2pi angle-inc + (circle-plot 360 angle-inc radius original-stil empty-stencil))))) (let ((whiteout-expr |