[prev in list] [next in list] [prev in thread] [next in thread]
List: lilypond-user
Subject: Re: [LSR] Colored notes with black outlines (enhancement).
From: Pierre Perol-Schneider <pierre.schneider.paris () gmail ! com>
Date: 2015-04-30 12:05:14
Message-ID: CAPHOTuVG3M-jJMLkj1n-+sRknCQP3K+rv96D1Cqr5yT_cSk_pA () mail ! gmail ! com
[Download RAW message or body]
[Attachment #2 (multipart/alternative)]
Right.
I refined all coordinates and took original glyphs off in order to be sure
to get parallel paths.
See attached.
Cheers,
Pierre
2015-04-29 21:22 GMT+02:00 Paul Morris <paul@paulwmorris.com>:
> Hi Pierre,
>
> Looks good to me. Basically, a slightly asymmetrical "shadow" type
> effect, rather than a symmetrical outline (at least with the thinner
> outlines).
>
> Cheers,
> -Paul
>
>
> On Apr 29, 2015, at 9:09 AM, Pierre Perol-Schneider <
> pierre.schneider.paris@gmail.com> wrote:
>
> Hi Paul, Hi List,
>
> The recent discussion about a better 'whiteout' function made me think
> about some changes.
> See attached (noteHead size remains, only outline's growing).
> Hope you'll like it!
> Cheers,
> Pierre
>
>
> 2015-03-27 20:10 GMT+01:00 Pierre Perol-Schneider <
> pierre.schneider.paris@gmail.com>:
>
>> Hi Paul,
>>
>> 2015-03-26 23:43 GMT+01:00 Paul Morris <paul@paulwmorris.com>:
>>
>>
>>> Oh, well, I was thinking it could just be changed to "7 is a good
>>> default"
>>> so it would match the new input scale.
>>>
>>
>> But of course (was I asleep?)!! Sorry for the misunderstanding.
>> Cheers,
>> Pierre
>>
>>
> <colored-notes-new.ly>
>
>
>
[Attachment #5 (text/html)]
<div dir="ltr"><div><div><div><div>Right.<br></div>I refined all coordinates and took \
original glyphs off in order to be sure to get parallel paths.<br></div>See \
attached.<br></div>Cheers,<br></div>Pierre<br></div><div class="gmail_extra"><br><div \
class="gmail_quote">2015-04-29 21:22 GMT+02:00 Paul Morris <span dir="ltr"><<a \
href="mailto:paul@paulwmorris.com" \
target="_blank">paul@paulwmorris.com</a>></span>:<br><blockquote \
class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc \
solid;padding-left:1ex"><div style="word-wrap:break-word"><div>Hi \
Pierre,</div><div><br></div><div>Looks good to me. Basically, a slightly \
asymmetrical "shadow" type effect, rather than a symmetrical outline (at least with \
the thinner outlines).</div><div><br></div><div>Cheers,</div><div>-Paul</div><div><br></div><br><div><blockquote \
type="cite"><div><div class="h5"><div>On Apr 29, 2015, at 9:09 AM, Pierre \
Perol-Schneider <<a href="mailto:pierre.schneider.paris@gmail.com" \
target="_blank">pierre.schneider.paris@gmail.com</a>> \
wrote:</div><br></div></div><div><div><div class="h5"><div \
dir="ltr"><div><div><div><div><div>Hi Paul, Hi List,<br><br></div>The recent \
discussion about a better 'whiteout' function made me think about some \
changes.<br></div>See attached (noteHead size remains, only outline's \
growing).<br></div>Hope you'll like \
it!<br></div>Cheers,<br></div>Pierre<br><br></div><div class="gmail_extra"><br><div \
class="gmail_quote">2015-03-27 20:10 GMT+01:00 Pierre Perol-Schneider <span \
dir="ltr"><<a href="mailto:pierre.schneider.paris@gmail.com" \
target="_blank">pierre.schneider.paris@gmail.com</a>></span>:<br><blockquote \
class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc \
solid;padding-left:1ex"><div dir="ltr">Hi Paul,<br><div><div \
class="gmail_extra"><br><div class="gmail_quote"><span>2015-03-26 23:43 GMT+01:00 \
Paul Morris <span dir="ltr"><<a href="mailto:paul@paulwmorris.com" \
target="_blank">paul@paulwmorris.com</a>></span>:<br><div> </div><blockquote \
class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc \
solid;padding-left:1ex"><span> </span>Oh, well, I was thinking it could just be \
changed to "7 is a good default"<br> so it would match the new input \
scale.<br></blockquote><div><br></div></span><div>But of course (was I asleep?)!! \
Sorry for the misunderstanding.<br></div><div>Cheers,<br></div><div>Pierre<br></div></div><br></div></div></div>
</blockquote></div><br></div>
</div></div><span><<a href="http://colored-notes-new.ly" \
target="_blank">colored-notes-new.ly</a>></span></div></blockquote></div><br></div></blockquote></div><br></div>
--001a11433580946b270514efe8e4--
["colored-notes-new-2.ly" (text/lilypond-source)]
\version "2.18"
%\version "2.19"
%%http://lsr.di.unimi.it/LSR/Item?id=890
% Two lines commented out below to allow submission to LSR
% Credits: code by Pierre Perol-Schneider and Paul Morris
%% http://lsr.di.unimi.it/LSR/Item?id=890
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% LSR workaround:
#(set! paper-alist (cons '("snippet" . (cons (* 230 mm) (* 170 mm))) paper-alist))
\paper {
#(set-paper-size "snippet")
tagline = ##f
}
\markup\vspace #.5
#(set-global-staff-size 30)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
coloredNoteHeads =
#(lambda (color-outline line-width)
;; @var{color-outline} is a boolean for whether
;; the outline is colored (#t) or the note head (#f).
;; @var{line-width} is a number, the width of
;; the outline, 7 is a good default.
(lambda (grob)
(let* ((fsz (ly:grob-property grob 'font-size 0.0))
(mult (magstep fsz))
(stl empty-stencil)
(dur-log (ly:grob-property grob 'duration-log))
(pch (ly:event-property (event-cause grob) 'pitch))
(nnm (ly:pitch-notename pch))
(alt (ly:pitch-alteration pch))
(clr (case nnm
((0) (case alt
((-1) red) ;; Cbb
((-1/2) red) ;; Cb
((0) red) ;; C
((1/2) red) ;; C#
((1) red) ;; C##
(else black)))
((1) (case alt
((-1) (x11-color 'orange)) ;; Dbb
((-1/2) (x11-color 'orange)) ;; Db
((0) (x11-color 'orange)) ;; D
((1/2) (x11-color 'orange)) ;; D#
((1) (x11-color 'orange)) ;; D##
(else black)))
((2) (case alt
((-1) yellow) ;; Ebb
((-1/2) yellow) ;; Eb
((0) yellow) ;; E
((1/2) yellow) ;; E#
((1) yellow) ;; E##
(else black)))
((3) (case alt
((-1) green) ;; Fbb
((-1/2) green) ;; Fb
((0) green) ;; F
((1/2) green) ;; F#
((1) green) ;; F##
(else black)))
((4) (case alt
((-1) blue) ;; Gbb
((-1/2) blue) ;; Gb
((0) blue) ;; G
((1/2) blue) ;; G#
((1) blue) ;; G##
(else blue)))
((5) (case alt
((-1) (x11-color 'purple)) ;; Abb
((-1/2) (x11-color 'purple)) ;; Ab
((0) (x11-color 'purple)) ;; A
((1/2) (x11-color 'purple)) ;; A#
((1) (x11-color 'purple)) ;; A##
(else black)))
((6) (case alt
((-1) (x11-color 'brown)) ;; Bbb
((-1/2) (x11-color 'brown)) ;; Bb
((0) (x11-color 'brown)) ;; B
((1/2) (x11-color 'brown)) ;; B#
((1) (x11-color 'brown)) ;; B##
(else black)))
(else black)))
(outline-clr (if color-outline clr black))
(note-clr (if color-outline black clr)))
(set! stl
(cond
;; quarter notes and smaller
((> dur-log 1)
(grob-interpret-markup grob
#{
\markup {
\combine
\with-color #outline-clr
\path #(/ line-width 10)
#'((moveto 0.000 -0.200)
(curveto 0.000 -0.420 0.180 -0.542 0.420 -0.542)
(curveto 0.800 -0.542 1.318 -0.210 1.318 0.200)
(curveto 1.318 0.420 1.140 0.542 0.890 0.542)
(curveto 0.510 0.542 0.000 0.210 0.000 -0.200)
(closepath))
\translate #(cons (* 0.0002 line-width) 0)
\with-color #note-clr
\override #'(filled . #t)
\path #0.001
#'((moveto 0.000 -0.200)
(curveto 0.000 -0.420 0.180 -0.542 0.420 -0.542)
(curveto 0.800 -0.542 1.318 -0.210 1.318 0.200)
(curveto 1.318 0.420 1.140 0.542 0.890 0.542)
(curveto 0.510 0.542 0.000 0.210 0.000 -0.200)
(closepath))
}
#}
))
;; half notes
((= dur-log 1)
(grob-interpret-markup grob
#{
\markup {
\combine
\with-color #outline-clr
\path #(/ line-width 10)
#'((moveto 0.000 -0.250)
(moveto 0.110 -0.270)
(curveto 0.110 -0.380 0.210 -0.435 0.280 -0.435)
(curveto 0.370 -0.435 0.600 -0.300 0.850 -0.135)
(curveto 1.100 0.030 1.273 0.140 1.273 0.270)
(curveto 1.273 0.350 1.200 0.440 1.090 0.440)
(curveto 1.040 0.440 0.850 0.350 0.600 0.185)
(curveto 0.200 -0.080 0.110 -0.150 0.110 -0.270)
(closepath)
(moveto 0.000 -0.250)
(curveto 0.000 -0.200 0.060 0.210 0.350 0.365)
(curveto 0.510 0.460 0.700 0.545 1.050 0.545)
(curveto 1.200 0.545 1.380 0.500 1.380 0.270)
(curveto 1.380 0.120 1.290 -0.140 1.120 -0.300)
(curveto 0.870 -0.500 0.520 -0.542 0.320 -0.542)
(curveto 0.200 -0.542 0.000 -0.530 0.000 -0.250)
(closepath))
\translate #(cons (* 0.0002 line-width) 0)
\with-color #note-clr
\override #'(filled . #t)
\path #0.001
#'((moveto 0.000 -0.250)
(lineto 0.110 -0.270)
(curveto 0.110 -0.380 0.210 -0.435 0.280 -0.435)
(curveto 0.370 -0.435 0.600 -0.300 0.850 -0.135)
(curveto 1.100 0.030 1.273 0.140 1.273 0.270)
(curveto 1.273 0.350 1.200 0.440 1.090 0.440)
(curveto 1.040 0.440 0.850 0.350 0.600 0.185)
(curveto 0.200 -0.080 0.110 -0.150 0.110 -0.270)
(lineto 0.000 -0.250)
(curveto 0.000 -0.200 0.060 0.210 0.350 0.365)
(curveto 0.510 0.460 0.700 0.545 1.050 0.545)
(curveto 1.200 0.545 1.380 0.500 1.380 0.270)
(curveto 1.380 0.120 1.290 -0.140 1.120 -0.300)
(curveto 0.870 -0.500 0.520 -0.542 0.320 -0.542)
(curveto 0.200 -0.542 0.000 -0.530 0.000 -0.250)
(closepath))
}
#}
))
;; whole notes
((= dur-log 0)
(grob-interpret-markup grob
#{
\markup {
\combine
\with-color #outline-clr
\path #(/ line-width 10)
#'((moveto 0.660 -0.190)
(curveto 0.540 0.000 0.560 0.310 0.710 0.415)
(curveto 0.900 0.530 1.210 0.410 1.330 0.210)
(curveto 1.450 0.030 1.460 -0.300 1.290 -0.410)
(curveto 1.100 -0.530 0.790 -0.410 0.660 -0.190)
(closepath)
(moveto 0.000 0.000)
(curveto 0.000 -0.350 0.549 -0.545 1.000 -0.545)
(curveto 1.450 -0.545 2.000 -0.340 2.000 0.000)
(curveto 2.000 0.350 1.470 0.545 1.000 0.545)
(curveto 0.530 0.545 0.000 0.350 0.000 0.000)
(closepath))
\translate #(cons (* 0.0002 line-width) 0)
\with-color #note-clr
\override #'(filled . #t)
\path #0.001
#'((moveto 0.000 0.000)
(lineto 0.660 -0.190)
(curveto 0.540 0.000 0.560 0.310 0.710 0.415)
(curveto 0.900 0.530 1.210 0.410 1.330 0.210)
(curveto 1.450 0.030 1.460 -0.300 1.290 -0.410)
(curveto 1.100 -0.530 0.790 -0.410 0.660 -0.190)
(lineto 0.000 0.000)
(curveto 0.000 -0.350 0.549 -0.545 1.000 -0.545)
(curveto 1.450 -0.545 2.000 -0.340 2.000 0.000)
(curveto 2.000 0.350 1.470 0.545 1.000 0.545)
(curveto 0.530 0.545 0.000 0.350 0.000 0.000)
(closepath))
}
#}
))
;; breve notes
((< dur-log 0)
(grob-interpret-markup grob
#{
\markup {
\combine
\with-color #outline-clr
\path #(/ line-width 10)
#'((moveto 0.560 0.100)
(curveto 0.560 0.270 0.630 0.460 0.850 0.460)
(curveto 1.140 0.460 1.385 0.220 1.385 -0.100)
(curveto 1.385 -0.300 1.300 -0.455 1.110 -0.455)
(curveto 0.810 -0.455 0.560 -0.220 0.560 0.100)
(closepath)
(moveto -0.160 0.000)
(lineto -0.160 -0.610)
(curveto -0.160 -0.657 -0.122 -0.700 -0.075 -0.700)
(curveto -0.028 -0.700 0.010 -0.657 0.010 -0.610)
(lineto 0.010 -0.090)
(curveto 0.080 -0.350 0.510 -0.540 0.975 -0.540)
(curveto 1.480 -0.540 1.850 -0.350 1.940 -0.090)
(lineto 1.940 -0.610)
(curveto 1.940 -0.657 1.980 -0.700 2.025 -0.700)
(curveto 2.070 -0.700 2.110 -0.657 2.115 -0.610)
(lineto 2.115 0.610)
(curveto 2.115 0.657 2.070 0.700 2.025 0.700)
(curveto 1.980 0.700 1.940 0.657 1.940 0.610)
(lineto 1.940 0.090)
(curveto 1.850 0.370 1.430 0.545 0.975 0.545)
(curveto 0.520 0.550 0.070 0.350 0.010 0.090)
(lineto 0.010 0.610)
(curveto 0.010 0.657 -0.028 0.700 -0.075 0.700)
(curveto -0.122 0.700 -0.160 0.657 -0.160 0.610)
(lineto -0.160 0.100)
(closepath))
\translate #(cons (* 0.0002 line-width) 0)
\with-color #note-clr
\override #'(filled . #t)
\path #0.001
#'((moveto -0.160 0.000)
(lineto 0.560 0.100)
(curveto 0.560 0.270 0.630 0.460 0.850 0.460)
(curveto 1.140 0.460 1.385 0.220 1.385 -0.100)
(curveto 1.385 -0.300 1.300 -0.455 1.110 -0.455)
(curveto 0.810 -0.455 0.560 -0.220 0.560 0.100)
(lineto -0.160 0.000)
(lineto -0.160 -0.610)
(curveto -0.160 -0.657 -0.122 -0.700 -0.075 -0.700)
(curveto -0.028 -0.700 0.010 -0.657 0.010 -0.610)
(lineto 0.010 -0.090)
(curveto 0.080 -0.350 0.510 -0.540 0.975 -0.540)
(curveto 1.480 -0.540 1.850 -0.350 1.940 -0.090)
(lineto 1.940 -0.610)
(curveto 1.940 -0.657 1.980 -0.700 2.025 -0.700)
(curveto 2.070 -0.700 2.110 -0.657 2.115 -0.610)
(lineto 2.115 0.610)
(curveto 2.115 0.657 2.070 0.700 2.025 0.700)
(curveto 1.980 0.700 1.940 0.657 1.940 0.610)
(lineto 1.940 0.090)
(curveto 1.850 0.370 1.430 0.545 0.975 0.545)
(curveto 0.520 0.550 0.070 0.350 0.010 0.090)
(lineto 0.010 0.610)
(curveto 0.010 0.657 -0.028 0.700 -0.075 0.700)
(curveto -0.122 0.700 -0.160 0.657 -0.160 0.610)
(lineto -0.160 0.100)
(closepath))
}
#}
))
))
(set! (ly:grob-property grob 'stencil)
(ly:stencil-scale stl mult mult)))))
%%%% USAGE EXAMPLE %%%%
music =
\relative f' {
c4 d e f
g4 a b c
d2 e f2 g
a1 b
\set Timing.measureLength = #(ly:make-moment 2/1)
c\breve
}
\markup\italic "Thin (#1) outlines:"
\new Staff
\with {
\override NoteHead.layer = #2
\override NoteHead.before-line-breaking = #(coloredNoteHeads #f 1)
}
{ \music }
\markup\column { \vspace #.5 \italic "Heavy (#6) outlines:" }
\new Staff
\with {
\override NoteHead.layer = #2
\override NoteHead.before-line-breaking = #(coloredNoteHeads #f 6)
}
{ \music }
\markup\column { \vspace #.5 \italic "Mid (#3) colored outlines:" }
\new Staff
\with {
\override NoteHead.layer = #2
\override NoteHead.before-line-breaking = #(coloredNoteHeads #t 3)
}
{ \music }
%%% LSR workaround
\markup\vspace #.5
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic