date:20170629

Re: old f-clef

2017-06-29 Thread Jacques Menu Muzhic

Great, Pierre!

JM

> Le 30 juin 2017 à 07:12, Pierre Perol-Schneider 
>  a écrit :
> 
> Hi Andy,
> That reminds me a former discussion:
> http://lilypond.1069038.n5.nabble.com/Ladder-style-C-clef-for-TTBB-men-s-chorus-td194673.html
>  
> 
> 
> So it'll go:
> 
> \version "2.19"
> 
> %% Path drawings:
> my-clef-C =
> #(make-path-stencil
>  '(M  0.000  -1.500
>L  0.000  -1.850
>C  0.000  -1.890  0.032  -1.920  0.075  -1.920
>C  0.122  -1.920  0.150  -1.890  0.150  -1.850
>L  0.150   1.850
>C  0.150   1.890  0.122   1.920  0.075   1.920
>C  0.032   1.920  0.000   1.890  0.000   1.850
>Z
>M  0.350  -1.500
>L  0.350  -1.850
>C  0.350  -1.890  0.382  -1.920  0.425  -1.920
>C  0.472  -1.920  0.500  -1.890  0.500  -1.850
>L  0.500   1.850
>C  0.500   1.890  0.472   1.920  0.425   1.920
>C  0.382   1.920  0.350   1.890  0.350   1.850
>Z
>M  1.800  -1.500
>L  1.800  -1.850
>C  1.800  -1.890  1.832  -1.920  1.875  -1.920
>C  1.922  -1.920  1.950  -1.890  1.950  -1.850
>L  1.950   1.850
>C  1.950   1.890  1.922   1.920  1.875   1.920
>C  1.832   1.920  1.800   1.890  1.800   1.850
>Z
>M  2.150  -1.500
>L  2.150  -1.850
>C  2.150  -1.890  2.182  -1.920  2.225  -1.920
>C  2.272  -1.920  2.300  -1.890  2.300  -1.850
>L  2.300   1.850
>C  2.300   1.890  2.272   1.920  2.225   1.920
>C  2.182   1.920  2.150   1.890  2.150   1.850
>Z
>M  0.500  -1.100
>C  0.500  -1.030  0.520  -0.970  0.620  -0.950
>L  1.600  -0.670
>C  1.690  -0.650  1.800  -0.620  1.800  -0.700
>L  1.800   0.070
>C  1.800  -0.020  1.700  -0.020  1.630  -0.050
>L  0.750  -0.300
>C  0.550  -0.370  0.500  -0.330  0.500  -0.200
>Z
>M  0.500  -0.100
>C  0.500  -0.030  0.520  0.030   0.620   0.050
>L  1.600   0.330
>C  1.690   0.350  1.800  0.380   1.800   0.300
>L  1.800   1.170
>C  1.800   0.980  1.700  0.980   1.630   0.950
>L  0.750   0.700
>C  0.550   0.630  0.500  0.670   0.500   0.800
>Z)
>  0 1 -1 #t)
> 
> my-clef-F =
> #(make-path-stencil
>  '(M  -0.10  -0.35
>C  -0.10  -1.11   0.48  -1.80   1.25  -1.80
>C   1.75  -1.80   2.20  -1.60   2.50  -1.05
>C   2.55  -0.95   2.50  -0.90   2.43  -0.95
>C   2.20  -1.17   1.90  -1.48   1.45  -1.48
>C   0.70  -1.48   0.15  -0.85   0.15  -0.15
>C   0.15   0.45   0.62   0.83   1.05   0.83
>C   1.55   0.83   1.90   0.50   1.90   0.05
>C   1.90  -0.35   1.55  -0.71   1.20  -0.71
>C   0.80  -0.71   0.60  -0.40   0.63  -0.17
>C   0.75  -0.30   0.90  -0.31   1.00  -0.31
>C   1.20  -0.31   1.38  -0.10   1.38   0.15
>C   1.38   0.35   1.20   0.55   0.95   0.55
>C   0.60   0.52   0.39   0.25   0.39  -0.05
>C   0.39  -0.52   0.62  -0.89   1.20  -0.89
>C   1.65  -0.89   2.07  -0.50   2.07   0.10
>C   2.07   0.66   1.56   1.01   1.05   1.01
>C   0.28   1.01  -0.10   0.35  -0.10  -0.35
>M2.42   0.20
>C   2.54   0.20   2.64   0.30   2.64   0.42
>C   2.64   0.54   2.54   0.64   2.42   0.64
>C   2.30   0.64   2.20   0.54   2.20   0.42
>C   2.20   0.30   2.30   0.20   2.42   0.20
>M2.42  -0.20
>C   2.54  -0.20   2.64  -0.30   2.64  -0.42
>C   2.64  -0.54   2.54  -0.64   2.42  -0.64
>C   2.30  -0.64   2.20  -0.54   2.20  -0.42
>C   2.20  -0.30   2.30  -0.20   2.42  -0.20
>Z)
>  0 1 1 #t)
> 
> \layout {
>   \context {
> \Score
> \override Clef.stencil = 
>   #(lambda (grob) 
>  (let* ((sz (ly:grob-property grob 'font-size 0)) 
> (mlt (magstep sz))
> (glyph (ly:grob-property grob 'glyph-name))) 
>  (cond
>   ((equal? glyph "clefs.C") 
>  (ly:stencil-scale my-clef-C (* 1 mlt) (* 1 mlt)))
>   ((equal? glyph "clefs.C_change") 
> (ly:stencil-scale my-clef-C (* .8 mlt) (* .8 mlt)))
>   ((equal? glyph "clefs.F") 
>  (ly:stencil-scale my-clef-F (* 1 mlt) (* 1 mlt)))
>   ((equal? glyph "clefs.F_change") 
> (ly:stencil-scale my-clef-F (* .8 mlt) (* .8 mlt)))
>   (else (ly:clef::print grob)
>   }
> }
> 
> %% Test:
> #(set-global-staff-size 30)
> 
> {
>   \clef C
>   \set Staff.clefPosition = #1
>   \set Staff.middleCPosition = #1 
>   \key aes \major
>   \time 3/4
>   c'2.
>   \clef F c 
> }
> 
> HTH,
> Pierre
> 
> 2017-06-30 4:54 GMT+02:00 Andy Bradford 
>  >:
> Thus said Stanton Sanderson on Thu, 29 Jun 2017 16:59:54 -0500:
> 
> > Still, it would have been better  to have asked about the older f-clef
> > before  starting the  project, which  is in

Re: OT!?

2017-06-29 Thread Jacques Menu Muzhic

Hello Mario,

Sorry I can’t see your example, I dont have any Google account.

JM

> Le 30 juin 2017 à 02:55, Mario Moles  a écrit :
> 
> Arranged with Lilypond/Frescobaldi!
> 
> https://www.youtube.com/edit?o=U_id=hiC1znjrRVk
> 
> 
> ___
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Pierre Perol-Schneider

Hi Andy,
That reminds me a former discussion:
http://lilypond.1069038.n5.nabble.com/Ladder-style-C-clef-for-TTBB-men-s-chorus-td194673.html

So it'll go:

\version "2.19"

%% Path drawings:
my-clef-C =
#(make-path-stencil
 '(M  0.000  -1.500
   L  0.000  -1.850
   C  0.000  -1.890  0.032  -1.920  0.075  -1.920
   C  0.122  -1.920  0.150  -1.890  0.150  -1.850
   L  0.150   1.850
   C  0.150   1.890  0.122   1.920  0.075   1.920
   C  0.032   1.920  0.000   1.890  0.000   1.850
   Z
   M  0.350  -1.500
   L  0.350  -1.850
   C  0.350  -1.890  0.382  -1.920  0.425  -1.920
   C  0.472  -1.920  0.500  -1.890  0.500  -1.850
   L  0.500   1.850
   C  0.500   1.890  0.472   1.920  0.425   1.920
   C  0.382   1.920  0.350   1.890  0.350   1.850
   Z
   M  1.800  -1.500
   L  1.800  -1.850
   C  1.800  -1.890  1.832  -1.920  1.875  -1.920
   C  1.922  -1.920  1.950  -1.890  1.950  -1.850
   L  1.950   1.850
   C  1.950   1.890  1.922   1.920  1.875   1.920
   C  1.832   1.920  1.800   1.890  1.800   1.850
   Z
   M  2.150  -1.500
   L  2.150  -1.850
   C  2.150  -1.890  2.182  -1.920  2.225  -1.920
   C  2.272  -1.920  2.300  -1.890  2.300  -1.850
   L  2.300   1.850
   C  2.300   1.890  2.272   1.920  2.225   1.920
   C  2.182   1.920  2.150   1.890  2.150   1.850
   Z
   M  0.500  -1.100
   C  0.500  -1.030  0.520  -0.970  0.620  -0.950
   L  1.600  -0.670
   C  1.690  -0.650  1.800  -0.620  1.800  -0.700
   L  1.800   0.070
   C  1.800  -0.020  1.700  -0.020  1.630  -0.050
   L  0.750  -0.300
   C  0.550  -0.370  0.500  -0.330  0.500  -0.200
   Z
   M  0.500  -0.100
   C  0.500  -0.030  0.520  0.030   0.620   0.050
   L  1.600   0.330
   C  1.690   0.350  1.800  0.380   1.800   0.300
   L  1.800   1.170
   C  1.800   0.980  1.700  0.980   1.630   0.950
   L  0.750   0.700
   C  0.550   0.630  0.500  0.670   0.500   0.800
   Z)
 0 1 -1 #t)

my-clef-F =
#(make-path-stencil
 '(M  -0.10  -0.35
   C  -0.10  -1.11   0.48  -1.80   1.25  -1.80
   C   1.75  -1.80   2.20  -1.60   2.50  -1.05
   C   2.55  -0.95   2.50  -0.90   2.43  -0.95
   C   2.20  -1.17   1.90  -1.48   1.45  -1.48
   C   0.70  -1.48   0.15  -0.85   0.15  -0.15
   C   0.15   0.45   0.62   0.83   1.05   0.83
   C   1.55   0.83   1.90   0.50   1.90   0.05
   C   1.90  -0.35   1.55  -0.71   1.20  -0.71
   C   0.80  -0.71   0.60  -0.40   0.63  -0.17
   C   0.75  -0.30   0.90  -0.31   1.00  -0.31
   C   1.20  -0.31   1.38  -0.10   1.38   0.15
   C   1.38   0.35   1.20   0.55   0.95   0.55
   C   0.60   0.52   0.39   0.25   0.39  -0.05
   C   0.39  -0.52   0.62  -0.89   1.20  -0.89
   C   1.65  -0.89   2.07  -0.50   2.07   0.10
   C   2.07   0.66   1.56   1.01   1.05   1.01
   C   0.28   1.01  -0.10   0.35  -0.10  -0.35
   M2.42   0.20
   C   2.54   0.20   2.64   0.30   2.64   0.42
   C   2.64   0.54   2.54   0.64   2.42   0.64
   C   2.30   0.64   2.20   0.54   2.20   0.42
   C   2.20   0.30   2.30   0.20   2.42   0.20
   M2.42  -0.20
   C   2.54  -0.20   2.64  -0.30   2.64  -0.42
   C   2.64  -0.54   2.54  -0.64   2.42  -0.64
   C   2.30  -0.64   2.20  -0.54   2.20  -0.42
   C   2.20  -0.30   2.30  -0.20   2.42  -0.20
   Z)
 0 1 1 #t)

\layout {
  \context {
\Score
\override Clef.stencil =
  #(lambda (grob)
 (let* ((sz (ly:grob-property grob 'font-size 0))
(mlt (magstep sz))
(glyph (ly:grob-property grob 'glyph-name)))
 (cond
  ((equal? glyph "clefs.C")
 (ly:stencil-scale my-clef-C (* 1 mlt) (* 1 mlt)))
  ((equal? glyph "clefs.C_change")
(ly:stencil-scale my-clef-C (* .8 mlt) (* .8 mlt)))
  ((equal? glyph "clefs.F")
 (ly:stencil-scale my-clef-F (* 1 mlt) (* 1 mlt)))
  ((equal? glyph "clefs.F_change")
(ly:stencil-scale my-clef-F (* .8 mlt) (* .8 mlt)))
  (else (ly:clef::print grob)
  }
}

%% Test:
#(set-global-staff-size 30)

{
  \clef C
  \set Staff.clefPosition = #1
  \set Staff.middleCPosition = #1
  \key aes \major
  \time 3/4
  c'2.
  \clef F c
}

HTH,
Pierre

2017-06-30 4:54 GMT+02:00 Andy Bradford <
amb-sendok-1501383262.alkolmkhodbmgfgpa...@bradfords.org>:

> Thus said Stanton Sanderson on Thu, 29 Jun 2017 16:59:54 -0500:
>
> > Still, it would have been better  to have asked about the older f-clef
> > before  starting the  project, which  is in  recognition of  the 500th
> > anniversary of the Reformation.
>
> Sounds like an interesting project.
>
> I'm  familiar with  this particular  bass clef,  and in  fact, had  been
> wondering  myself how  to construct  it with  Lilypond. Now  that you've
> brought it up, I  have a potential solution. I'm also  looking for a way
> to engrave this particular C clef:
>
> https://upload.wikimedia.org/wikipedia/commons/e/e4/Far_
> Above_Cayuga%27s_Waters_1906.png
>
> I assume a similar method could be used to as in the old-style F clef.
>
> Andy
> --
> TAI64 timestamp:

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

2017-06-29 Thread Vaughan McAlley

On 29 Jun 2017 10:53 p.m., "David Kastrup"  wrote:

Johan Vromans  writes:

> On Tue, 27 Jun 2017 21:42:07 +0200 (CEST), Martin Tarenskeen
>  wrote:
>
>> OK. I found my keyboard there. Maybe /dev/input/by-id only lists USB
>> keyboards - just guessing?
>
> So it seems... My laptop only reports the camera in /dev/input/by-id .

dak@lola:~$ ls -lR /dev/input/
/dev/input/:
total 0
drwxr-xr-x 2 root root  60 Jun 28 19:06 by-path
crw-rw 1 root input 13, 64 Jun 28 19:06 event0
crw-rw 1 root input 13, 65 Jun 28 19:06 event1
crw-rw 1 root input 13, 74 Jun 28 19:06 event10
crw-rw 1 root input 13, 66 Jun 28 19:06 event2
crw-rw 1 root input 13, 67 Jun 28 19:06 event3
crw-rw 1 root input 13, 68 Jun 28 19:06 event4
crw-rw 1 root input 13, 69 Jun 28 19:06 event5
crw-rw 1 root input 13, 70 Jun 29 12:23 event6
crw-rw 1 root input 13, 71 Jun 28 19:06 event7
crw-rw 1 root input 13, 72 Jun 28 19:06 event8
crw-rw 1 root input 13, 73 Jun 28 19:06 event9
crw-rw 1 root input 13, 63 Jun 28 19:06 mice
crw-rw 1 root input 13, 32 Jun 28 19:06 mouse0
crw-rw 1 root input 13, 33 Jun 29 12:23 mouse1

/dev/input/by-path:
total 0
lrwxrwxrwx 1 root root 9 Jun 28 19:06 platform-thinkpad_acpi-event ->
../event7
dak@lola:~$

That's all I got here.

--
David Kastrup

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user


Interesting. It looks like a driver for all the fancy non-text-input things
theThinkPad keyboard can do. So it's no use for this purpose. Maybe

> cat /proc/bus/input/devices

is a more reliable method of locating keyboards. What do you get from this?

Vaughan
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Stanton Sanderson


> On Jun 29, 2017, at 9:54 PM, Andy Bradford 
>  wrote:
> 
> Thus said Stanton Sanderson on Thu, 29 Jun 2017 16:59:54 -0500:
> 
>> Still, it would have been better  to have asked about the older f-clef
>> before  starting the  project, which  is in  recognition of  the 500th
>> anniversary of the Reformation.
> 
> Sounds like an interesting project.
> 
> I'm  familiar with  this particular  bass clef,  and in  fact, had  been
> wondering  myself how  to construct  it with  Lilypond. Now  that you've
> brought it up, I  have a potential solution. I'm also  looking for a way
> to engrave this particular C clef:
> 
> https://upload.wikimedia.org/wikipedia/commons/e/e4/Far_Above_Cayuga%27s_Waters_1906.png
> 
> I assume a similar method could be used to as in the old-style F clef.
> 
> Andy
> -- 
> TAI64 timestamp: 40005955bd82
> 
> 
Andy,

Perhaps the LSR would again provide the answer…
http://lsr.di.unimi.it/LSR/Search?q=clef

Stan
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Andy Bradford

Thus said Stanton Sanderson on Thu, 29 Jun 2017 16:59:54 -0500:

> Still, it would have been better  to have asked about the older f-clef
> before  starting the  project, which  is in  recognition of  the 500th
> anniversary of the Reformation.

Sounds like an interesting project.

I'm  familiar with  this particular  bass clef,  and in  fact, had  been
wondering  myself how  to construct  it with  Lilypond. Now  that you've
brought it up, I  have a potential solution. I'm also  looking for a way
to engrave this particular C clef:

https://upload.wikimedia.org/wikipedia/commons/e/e4/Far_Above_Cayuga%27s_Waters_1906.png

I assume a similar method could be used to as in the old-style F clef.

Andy
-- 
TAI64 timestamp: 40005955bd82



___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

OT!?

2017-06-29 Thread Mario Moles


Arranged with Lilypond/Frescobaldi!

https://www.youtube.com/edit?o=U_id=hiC1znjrRVk


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Stanton Sanderson

Wols,

Agreed!

I have prepared a series of 37 single-sheet bulletin inserts with the hymn on 
one side and commentary, etc. on the other. Most in the congregation would see 
the symbol in the bass clef location, but it would require explanation.

Still, it would have been better to have asked about the older f-clef before 
starting the project, which is in recognition of the 500th anniversary of the 
Reformation.

As with most projects of this sort, it has been a learning experience.

Thanks,

Stan

> On Jun 29, 2017, at 12:23 PM, Wols Lists  wrote:
> 
> On 29/06/17 02:34, Stan Sanderson wrote:
>> I did not attempt to duplicate it since it most of the intended audience 
>> wouldn’t recognize it _and_ it isn’t a standard Lilypond clef.
> 
> Not knowing your intended audience, I can't speak for them, but for
> anybody who is interested in music notation it is obviously a bass clef :-)
> 
> Cheers,
> Wol
> 
> ___
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread David Kastrup

"Mark Stephen Mrotek"  writes:

> Stan,
>
> Complies under 2.18.2.

That's a bit of a red herring.  It compiles under executables compiled
with -DNDEBUG (which omitted even the most basic sanity checks).  That
was the default for our distributed executables until 2.19.something but
was changed afterwards.

Depending on the compilation options, it may still bomb out in 2.18.2 or
run fine in 2.19.60.

This may be a case of misuse of "assert" instead of "programming_error"
but I haven't checked.  Basically "assert" is for cases where the
program cannot safely continue but this was not always done
consistently.

-- 
David Kastrup

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

RE: old f-clef

2017-06-29 Thread Mark Stephen Mrotek

Stan,

Complies under 2.18.2.

Mark

-Original Message-
From: lilypond-user [mailto:lilypond-user-bounces+carsonmark=ca.rr@gnu.org] 
On Behalf Of Stan Sanderson
Sent: Thursday, June 29, 2017 7:14 AM
To: Andrew Bernard 
Cc: LilyPond Users 
Subject: Re: old f-clef

> On Jun 28, 2017, at 8:53 PM, Stanton Sanderson  wrote:
> 
> 
>> On Jun 28, 2017, at 8:48 PM, Andrew Bernard  wrote:
>> 
>> Hi Stan,
>> 
>> See LSR:
>> 
>> http://lsr.di.unimi.it/LSR/Item?id=900
>> 
>> Andrew
>> 
> 
> Andrew,
> 
> I should have known to check the LSR but failed to do so.

Now that I’ve had time to try it, the snippet doesn’t compile (with 2.19.63) as 
is, and I’m still wondering what I’m doing.

Error message:

Parsing...
Interpreting music...
Preprocessing graphical 
objects.../home/gub/NewGub/gub/target/darwin-x86/src/lilypond-git.sv.gnu.org--lilypond.git-release-unstable/lily/grob-property.cc:242:
 failed assertion `scm_is_null (value) || scm_is_eq (value, marker)'
Exited with exit status 1.

Stan
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Wols Lists

On 29/06/17 02:34, Stan Sanderson wrote:
> I did not attempt to duplicate it since it most of the intended audience 
> wouldn’t recognize it _and_ it isn’t a standard Lilypond clef.

Not knowing your intended audience, I can't speak for them, but for
anybody who is interested in music notation it is obviously a bass clef :-)

Cheers,
Wol

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: : Re: transpose range

2017-06-29 Thread David Kastrup

"Peter Gentry"  writes:

> Gianmaria 
>
>  
>
> I have modified the procedure to use pitch-tones to define the
> instrument range.  It makes little difference to the result.
>
>  
>
> I haven’t looked at the possibility of rebuilding the pitch just using
> pitch-tones (yet)

You would not want to do that since you only want to change the octave
without losing enharmonic information.  The calculation could likely be
simplified quite a bit.

-- 
David Kastrup

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

RE: : Re: transpose range

2017-06-29 Thread Peter Gentry

Gianmaria 

 

I have modified the procedure to use pitch-tones to define the instrument 
range.  It makes little difference to the result.

 

I haven’t looked at the possibility of rebuilding the pitch just using 
pitch-tones (yet)

 

Have you had any luck yet?

 

\version "2.19.15"
% -
% include function file instrument_ranges.ly
% usuage include --> \include "./ranges/instrument_ranges.ly"
% usuage call -->   \naturalizeInstrumentRange "instrument" music
% this function will confine all pitches to the individual instruments range
% Note the ranges refer to music transposed for each instrument not the true pitches.
% use % for comment outside scheme function -  use ; inside scheme functions
% -

#(define (naturalize-instrument-range p instrument )
  (let ((o (ly:pitch-octave p))
  (a (* 4 (ly:pitch-alteration p)))
;; alteration, a, in quarter tone steps, for historical reasons
  (n (ly:pitch-notename p))
  (pt (ly:pitch-tones p)))
(define np 0)
(define op (+ (* 14 o) (* n 2) (/ a 2)))


(cond

;; clarinet range e to f#'   (-4 to 29/2)

((equal? instrument "clarinet" )
   (if  (< pt -16)(begin (set! o (+ o 1))) )
   (if  (< pt -10)(begin (set! o (+ o 1))) )
   (if  (< pt -4) (begin (set! o (+ o 1))) )

   (if  ( > pt 52/2)  (begin (set! o (- o 1))) )
   (if  ( > pt 41/2)  (begin (set! o (- o 1))) )
   (if  ( > pt 29/2)  (begin (set! o (- o 1))) )
)
; bass clarinet range eb to f'  (-9/2 to 29/2)

   ((equal? instrument "bass clarinet eb" )
   (if  (< pt -33/2)  (begin (set! o (+ o 1))) )
   (if  (< pt -21/2)  (begin (set! o (+ o 1))) )
   (if  (< pt -9/2)  (begin (set! o (+ o 1))) )

   (if  ( > pt 52/2)  (begin (set! o (- o 1))) )
   (if  ( > pt 41/2)  (begin (set! o (- o 1))) )
   (if  ( > pt 29/2)  (begin (set! o (- o 1))) )
 )
; bass clarinet range c to f'   (-6 to 29/2)

((equal? instrument "bass clarinet c" )
(if  (< pt -18)  (begin (set! o (+ o 1))) )
(if  (< pt -12)  (begin (set! o (+ o 1))) )
(if  (< pt -6)  (begin (set! o (+ o 1))) )

(if  ( > pt 52/2)  (begin (set! o (- o 1))) )
(if  ( > pt 41/2)  (begin (set! o (- o 1))) )
(if  ( > pt 29/2)  (begin (set! o (- o 1))) )
)
;; flute range c to c''  (0 to 18)

((equal? instrument "flute")
(if   (< pt -12)  (begin (set! o (+ o 1))) )
(if   (< pt -6)   (begin (set! o (+ o 1))) )
(if   (< pt 0)(begin (set! o (+ o 1))) )

(if  ( > pt 30)   (begin (set! o (- o 1))) )
(if  ( > pt 24)   (begin (set! o (- o 1))) )
(if  ( > pt 18)   (begin (set! o (- o 1))) )
)
;; alto range d to c''  (1 to 31/2)

 ((equal? instrument "alto")
(if  (< pt -11) (begin (set! o (+ o 1))) )
(if  (< pt -5)  (begin  (set! o (+ o 1))) )
(if  (< pt  1)  (begin  (set! o (+ o 1))) )

(if  ( > pt 55/2)  (begin (set! o (- o 1))) )
(if  ( > pt 43/2)  (begin (set! o (- o 1))) )
(if  ( > pt 31/2)  (begin (set! o (- o 1))) )
) )

(ly:make-pitch o n (/ a 4))

))

% -
% a variable for the notehaed color on pitch change
% -

my-color = #(x11-color 'red)

% -
% this function rebuilds the music object optionally changing pitch and notehead color
% -
#(define (instrumentrange music instrument )

; extract the various portions of the music object
(let ((es (ly:music-property music 'elements))
   (e   (ly:music-property music 'element))
   (p   (ly:music-property music 'pitch)))

; rebuild any 'elements unchanged
(if (pair? es)
   (ly:music-set-property! music 'elements
   (map (lambda (x) (instrumentrange x instrument)) es)))

; rebuild any 'element unchanged
 (if (ly:music? e) (ly:music-set-property! music 'element
(instrumentrange e instrument )))

;rebuild the pitch and if a changed pitch add the color tweak
(if (ly:pitch? p)
  (let ((new-pitch (naturalize-instrument-range p instrument)))
  (ly:music-set-property! music 'pitch new-pitch)
  (if (and (not (equal? p new-pitch)) (color? my-color))
  (ly:music-set-property! music 'tweaks
  (acons  'color my-color
   (acons 'style 'harmonic-mixed
 (ly:music-property music 'tweaks)))

 music))

naturalizeInstrumentRange =
#(define-music-function (parser location  instrument m )
  ( string? ly:music? )
  (instrumentrange m instrument ))

% -
% the Lily test file calling

Re: old f-clef

2017-06-29 Thread Stan Sanderson


> On Jun 29, 2017, at 9:33 AM, David Kastrup  wrote:
> 
> Stan Sanderson > writes:
> 
>>> On Jun 28, 2017, at 8:53 PM, Stanton Sanderson  wrote:
>>> 
>>> 
 On Jun 28, 2017, at 8:48 PM, Andrew Bernard  
 wrote:
 
 Hi Stan,
 
 See LSR:
 
 http://lsr.di.unimi.it/LSR/Item?id=900
 
 Andrew
 
>>> 
>>> Andrew,
>>> 
>>> I should have known to check the LSR but failed to do so.
>> 
>> Now that I’ve had time to try it, the snippet doesn’t compile (with
>> 2.19.63) as is, and I’m still wondering
>> what I’m doing.
>> 
>> Error message:
>> 
>> Parsing...
>> Interpreting music...
>> Preprocessing graphical
>> objects.../home/gub/NewGub/gub/target/darwin-x86/src/lilypond-git.sv.gnu.org--lilypond.git-release-unstable/lily/grob-property.cc:242:
>> failed assertion `scm_is_null (value) || scm_is_eq (value, marker)'
>> Exited with exit status 1.
> 
> The LSR sample is broken since instead of _returning_ a proper stencil
> from the grob callback, it _overrides_ the grob callback with the
> stencil.  This confuses LilyPond's internals enough that it will abort.
> 
> Basically you need to replace
> 
>  (set! (ly:grob-property grob 'stencil)
>  [whatever] )
> 
> with just
>  [whatever]
> 
> whenever it occurs in the callback.  Be sure to remove one closing paren
> after [whatever] in order to maintain matched parens.
> 
> -- 
> David Kastrup

Thank you David (for the solution), Pierre (for the LSR update) and Andrew (for 
the suggestion).
Stan

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Pierre Perol-Schneider

Thank you David, snippet has been updated.
Cheers,
Pierre

2017-06-29 16:33 GMT+02:00 David Kastrup :

> Stan Sanderson  writes:
>
> >> On Jun 28, 2017, at 8:53 PM, Stanton Sanderson 
> wrote:
> >>
> >>
> >>> On Jun 28, 2017, at 8:48 PM, Andrew Bernard 
> wrote:
> >>>
> >>> Hi Stan,
> >>>
> >>> See LSR:
> >>>
> >>> http://lsr.di.unimi.it/LSR/Item?id=900
> >>>
> >>> Andrew
> >>>
> >>
> >> Andrew,
> >>
> >> I should have known to check the LSR but failed to do so.
> >
> > Now that I’ve had time to try it, the snippet doesn’t compile (with
> > 2.19.63) as is, and I’m still wondering
> > what I’m doing.
> >
> > Error message:
> >
> > Parsing...
> > Interpreting music...
> > Preprocessing graphical
> > objects.../home/gub/NewGub/gub/target/darwin-x86/src/
> lilypond-git.sv.gnu.org--lilypond.git-release-unstable/
> lily/grob-property.cc:242:
> > failed assertion `scm_is_null (value) || scm_is_eq (value, marker)'
> > Exited with exit status 1.
>
> The LSR sample is broken since instead of _returning_ a proper stencil
> from the grob callback, it _overrides_ the grob callback with the
> stencil.  This confuses LilyPond's internals enough that it will abort.
>
> Basically you need to replace
>
>   (set! (ly:grob-property grob 'stencil)
>   [whatever] )
>
> with just
>   [whatever]
>
> whenever it occurs in the callback.  Be sure to remove one closing paren
> after [whatever] in order to maintain matched parens.
>
> --
> David Kastrup
>
> ___
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread David Kastrup

Stan Sanderson  writes:

>> On Jun 28, 2017, at 8:53 PM, Stanton Sanderson  wrote:
>> 
>> 
>>> On Jun 28, 2017, at 8:48 PM, Andrew Bernard  
>>> wrote:
>>> 
>>> Hi Stan,
>>> 
>>> See LSR:
>>> 
>>> http://lsr.di.unimi.it/LSR/Item?id=900
>>> 
>>> Andrew
>>> 
>> 
>> Andrew,
>> 
>> I should have known to check the LSR but failed to do so.
>
> Now that I’ve had time to try it, the snippet doesn’t compile (with
> 2.19.63) as is, and I’m still wondering
> what I’m doing.
>
> Error message:
>
> Parsing...
> Interpreting music...
> Preprocessing graphical
> objects.../home/gub/NewGub/gub/target/darwin-x86/src/lilypond-git.sv.gnu.org--lilypond.git-release-unstable/lily/grob-property.cc:242:
> failed assertion `scm_is_null (value) || scm_is_eq (value, marker)'
> Exited with exit status 1.

The LSR sample is broken since instead of _returning_ a proper stencil
from the grob callback, it _overrides_ the grob callback with the
stencil.  This confuses LilyPond's internals enough that it will abort.

Basically you need to replace

  (set! (ly:grob-property grob 'stencil)
  [whatever] )

with just
  [whatever]

whenever it occurs in the callback.  Be sure to remove one closing paren
after [whatever] in order to maintain matched parens.

-- 
David Kastrup

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

2017-06-29 Thread Stan Sanderson

> On Jun 28, 2017, at 8:53 PM, Stanton Sanderson  wrote:
> 
> 
>> On Jun 28, 2017, at 8:48 PM, Andrew Bernard  wrote:
>> 
>> Hi Stan,
>> 
>> See LSR:
>> 
>> http://lsr.di.unimi.it/LSR/Item?id=900
>> 
>> Andrew
>> 
> 
> Andrew,
> 
> I should have known to check the LSR but failed to do so.

Now that I’ve had time to try it, the snippet doesn’t compile (with 2.19.63) as 
is, and I’m still wondering
what I’m doing.

Error message:

Parsing...
Interpreting music...
Preprocessing graphical 
objects.../home/gub/NewGub/gub/target/darwin-x86/src/lilypond-git.sv.gnu.org--lilypond.git-release-unstable/lily/grob-property.cc:242:
 failed assertion `scm_is_null (value) || scm_is_eq (value, marker)'
Exited with exit status 1.

Stan
___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

2017-06-29 Thread David Kastrup

Johan Vromans  writes:

> On Tue, 27 Jun 2017 21:42:07 +0200 (CEST), Martin Tarenskeen
>  wrote:
>
>> OK. I found my keyboard there. Maybe /dev/input/by-id only lists USB 
>> keyboards - just guessing?
>
> So it seems... My laptop only reports the camera in /dev/input/by-id .

dak@lola:~$ ls -lR /dev/input/
/dev/input/:
total 0
drwxr-xr-x 2 root root  60 Jun 28 19:06 by-path
crw-rw 1 root input 13, 64 Jun 28 19:06 event0
crw-rw 1 root input 13, 65 Jun 28 19:06 event1
crw-rw 1 root input 13, 74 Jun 28 19:06 event10
crw-rw 1 root input 13, 66 Jun 28 19:06 event2
crw-rw 1 root input 13, 67 Jun 28 19:06 event3
crw-rw 1 root input 13, 68 Jun 28 19:06 event4
crw-rw 1 root input 13, 69 Jun 28 19:06 event5
crw-rw 1 root input 13, 70 Jun 29 12:23 event6
crw-rw 1 root input 13, 71 Jun 28 19:06 event7
crw-rw 1 root input 13, 72 Jun 28 19:06 event8
crw-rw 1 root input 13, 73 Jun 28 19:06 event9
crw-rw 1 root input 13, 63 Jun 28 19:06 mice
crw-rw 1 root input 13, 32 Jun 28 19:06 mouse0
crw-rw 1 root input 13, 33 Jun 29 12:23 mouse1

/dev/input/by-path:
total 0
lrwxrwxrwx 1 root root 9 Jun 28 19:06 platform-thinkpad_acpi-event -> ../event7
dak@lola:~$ 

That's all I got here.

-- 
David Kastrup

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

2017-06-29 Thread Johan Vromans

On Tue, 27 Jun 2017 21:42:07 +0200 (CEST), Martin Tarenskeen
 wrote:

> OK. I found my keyboard there. Maybe /dev/input/by-id only lists USB 
> keyboards - just guessing?

So it seems... My laptop only reports the camera in /dev/input/by-id .

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

2017-06-29 Thread Johan Vromans

On Tue, 27 Jun 2017 16:27:24 +1000, Vaughan McAlley
 wrote:

> I’m pleased to announce LilyQuick 0.94beta. The main new feature is that
> it counts rhythms as you go and automatically enters bar checks. Also,
> some settings have been made reachable from within LilyQuick rather than
> just the settings file.

Great job. No problems getting it to run on Fedora 25.

Since I usually do note input with Denemo, I tried to change the key
definitions to match Denemo ( 0 = whole, 1 = half, 2 = quart, ...  ).
I changed the definitions in LQkeyboardEvents.lua but this doesn't seem to
work. Reading the code in LilyQuick.lua (lines 664 ...) doesn't make clear
how this is supposed to work.

Can you explain?

Also, it may be a good idea to make the keystrokes match Denemo by default.

Thanks for your contribution!

-- Johan

___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

extending extender in lyric music

2017-06-29 Thread Michael Dykes


\version "2.18.0"
\include "english.ly"
\include "gregorian.ly"

\layout {
  \context{
\Score \override SpacingSpanner.packed-spacing = ##f \version "2.18.0"
  }
  \context{
\Lyrics \override LyricHyphen.minimum-distance = #2.5
\override LyricSpace.minimum-distance = #1.5
  }
}

\header {
  title = \markup\bold\fontsize #2.0
{"Resurrectional Prokeimenon"}
  subtitle = \markup\bold\fontsize #1.5
{""}
  subsubtitle = ""
  poet = \markup\bold\fontsize #1.25
{"Tone 7"}
  composer =  \markup\bold\fontsize #1.25
{"Common Court Chant"}
   tagline = "Translation - OCA Traditional English"
}

% #(set-global-staff-size 22)
global = {
  \key f \major
  \override Staff.NoteHead.style = #'altdefault
  \override Staff.TimeSignature.stencil = ##f
  %\override Staff.BarLine.stencil = ##f
  \set Score.defaultBarType = "-"
  \bar "|."
}
move = { \bar "" \break }

soprano =
\transpose f g{
\relative c'' {
  \global
  % Music follows here.
   a4 g2 g4 a \[bf bf bf\] a2 g2 \bar "!"
   bf4 bf a \bar ""  bf(c) bf(a) g1 a2 g f\breve \bar "|."
  }
}


bass =  \transpose f g{
\relative c {
  \global
  % Music follows here.
  f4 c2 c4 f \[e e e\] f2 c \bar "!"
  c4 c c \bar "" c2 e4(f) c1 f2 a, d\breve \bar "|."
}
}

verse = \lyricmode {
  % Lyrics follow here.
  The Lord shall give strength to His
peo -- ple!
  The Lord shall bless __ His __ peo -- ple
with peace.
}

psalmVerse = \markup \column {\large{Stichos:}
\large\bold{" Offer to the Lord, you sons of God!
Offer young rams to the Lord!"}
}

\score {
  \new ChoirStaff <<
\new Staff \with {
  midiInstrument = "string ensemble 1"
  instrumentName = \markup \center-column { "Soprano" "Tenor"}
} <<
  \new Voice = "soprano" { \voiceOne \soprano }
>>
\new Lyrics \lyricsto "soprano" \verse
\new Staff \with {
  midiInstrument = "string ensemble 1"
  instrumentName = \markup \center-column { "Alto" "Bass" }
} <<
  \clef bass
  \new Voice = "bass" { \voiceTwo \bass }
>>
  >>
 \layout {
ragged-last=##t
#(layout-set-staff-size 22)
\context {
  \Lyrics
  \override VerticalAxisGroup.staff-affinity = ##f
  \override VerticalAxisGroup.staff-staff-spacing =
#'((basic-distance . 0)
   (minimum-distance . 2)
   (padding . 2))
}
indent = 1.25\cm
\context {
  \Staff
  \override VerticalAxisGroup.staff-staff-spacing =
#'((basic-distance . 0)
   (minimum-distance . 2)
   (padding . 2))
}
  }
  \midi {
\context {
  \Score
  tempoWholesPerMinute = #(ly:make-moment 150/4)
  }
}
  }

\psalmVerse

I am trying to extend the extenders in "bless" and "His" above and am 
not sure how to do this. Any help is appreciated.



-Michael Dykes


___
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Re: old f-clef

Re: OT!?

Re: old f-clef

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

Re: old f-clef

Re: old f-clef

OT!?

Re: old f-clef

Re: old f-clef

RE: old f-clef

Re: old f-clef

Re: : Re: transpose range

RE: : Re: transpose range

Re: old f-clef

Re: old f-clef

Re: old f-clef

Re: old f-clef

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

Re: [ANN] LilyQuick 0.94beta - Quick note Lilypond entry using MIDI for Linux

extending extender in lyric music

21 matches

Site Navigation

Mail list logo

Footer information