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