Hi All,
I'm not sure that a poscript would be ideal.
I'm thinking about a pattern markup command that would do :
\markup{
\combine
\null
\combine
\concat { \null \hspace #5 "." }
\combine
\rotate #(* 1 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 2 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 3 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 4 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 5 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 6 (/ 90 7)) \concat { \null \hspace #5 "." }
\combine
\rotate #(* 7 (/ 90 7)) \concat { \null \hspace #5 "." }
\null
}
etc.
(Here it shows a 90° circled pattern with 7 dots (".") with radius 5)
My attempt is limited by my Scheme knowledge -- so not working -- but here
it goes:
%circled-pattern
#(define-markup-command
(circled-pattern layout props radius long nbr arg)
(number? number? number? string?)
(let*
((elmt (/ 360 long))
(rep (- nbr (- nbr 1)))
(the-form
(markup
(#:combine
(#:null)
(#:combine
(#:concat (#:null #:hspace radius arg))))
(fold
(lambda (i prev)
(#:combine
(#:rotate
(* rep (/ long nbr))
(#:concat (#:null #:hspace radius arg))))
prev)
'()
(iota nbr)
(#:null)))))
(interpret-markup layout props
(markup the-form))))
%% Test (markup a 90° cricled pattern with radius 5 and 7 dots) :
\markup\circled-pattern #5 #90 #7 "."
I think it'd be fun to have such pattern to add to the LSR.
Any idea to make it work ?
TIA, Cheers,
Pierre
2018-07-07 12:53 GMT+02:00 Andrew Bernard <[email protected]>:
> Hi Sylvius,
>
> I knew everybody would discourage you and suggest modern harmonic
> notation! Anyway, I can do the postscript for you. Give me a couple of
> days. Although it can be said that some performers stumble over old
> notations, I quite like them, especially in the 17-18c works I engrave and
> play.
>
> Andrew
>
> [Also a huge admirer of S. L. Weiss.]
>
>
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
