Re: Where is \portato ?

[Heikki Johannes Junes]

On Sat, 13 Oct 2001, Han-Wen Nienhuys wrote:

> address@hidden writes:
> > 
> > There is missing an articulation that is widely used in piano music.
> > That is "\portato". As "\staccato\tenuto" (sounds weird) does not good
> > result, there should be new type of articulation built in.
> > 
> > If you play staccato you hit the finger to the keyboard and take
> > immediately after that up. If you play portato you have to keep the note
> > down for a while.
> 
> Can you try to implement portato? It involves adding some MF code, and
> an entry in scm/script.scm
> 
> -- 
> 
> Han-Wen Nienhuys   |   address@hidden    | http://www.cs.uu.nl/~hanwen/
> 

Here is the MF code:

--- VERSION~    Tue Oct 23 21:13:26 2001
+++ VERSION     Fri Oct 26 23:46:58 2001
@@ -2,7 +2,7 @@
 MAJOR_VERSION=1
 MINOR_VERSION=5
 PATCH_LEVEL=19
-MY_PATCH_LEVEL=
+MY_PATCH_LEVEL=1
 
 # use the above to send patches: MY_PATCH_LEVEL is always empty for a
 # released version.
--- CHANGES~    Tue Oct 23 19:37:23 2001
+++ CHANGES     Sat Oct 27 00:11:38 2001
@@ -1,3 +1,8 @@
+1.5.19.hjj1
+===========
+
+* Added \portato.
+
 1.5.18.jcn1
 ===========
 
--- mf/feta-schrift.mf~ Sat Oct 13 02:23:40 2001
+++ mf/feta-schrift.mf  Sat Oct 27 00:09:56 2001
@@ -177,6 +177,42 @@
 fet_endchar;
 
 
+%
+% Portato by Heikki Junes <address@hidden>
+%
+
+def draw_portato = 
+       save thick, radius;
+       thick# = 1.4 stafflinethickness#;
+       define_pixels(thick);
+       radius# = 1.4 stafflinethickness#;
+       define_pixels(radius);
+       
+       set_char_box(.6 staff_space#, .6 staff_space#, thick#/2,.5 
staff_space#+ radius#);
+       pickup pencircle scaled thick;
+       lft x1 = -b;
+       rt x2 = w;
+       y1 = y2 = 0;
+       draw z1 .. z2;
+
+       pickup pencircle scaled 2 radius;
+       draw (0,h);
+enddef;
+
+
+fet_beginchar("portato/tenuto with staccato", "uportato", 
+               "uportato")
+       draw_portato;
+fet_endchar;
+
+
+fet_beginchar("portato/tenuto with staccato", "dportato", 
+               "dportato")
+       draw_portato;
+       y_mirror_char
+fet_endchar;
+
+
 def draw_marcato = 
        save fat_factor, thinness;
        set_char_box(staff_space#/2, staff_space#/2, 0, 1.1 staff_space#);
--- ly/script-init.ly~  Fri Jun 29 02:03:00 2001
+++ ly/script-init.ly   Sat Oct 27 00:13:08 2001
@@ -13,15 +13,10 @@
 accent = \script "accent"
 marcato = \script "marcato"
 staccatissimo = \script "staccatissimo"
-
-% portato is indicated
-% either by
-%   *  slurred & dotted notes. 
-%or by
-%  * slur and dash notes.
-% Neither are  really supported, but c4-.-- should work.
-% portato = \script "portato"
-
+% Changed 27th October 2001 Heikki Junes <address@hidden>
+%  * portato = tenuto & staccato
+%  * if you use portato = slur & staccato, then apply "c( d )e-."
+portato = \script "portato"
 fermata = \script "fermata"
 stopped = \script "stopped"
 staccato = \script "staccato"


--
      Heikki Junes