wrong transposition of horn

[Werner LEMBERG]

% important
% address@hidden

\version "2.3.18"

\header { texidoc = "
The \transpose syntax is not adequate for horn (shame on you, Hanwen :-)
While horn in F written with a treble clef has to be notated a fifth
higher, it must be written a fourth lower if a bass clef is used.

I also suggest to add another property which gives the `split point'
between selecting treble or bass clef in the transposed voice -- the
bass clef is only used for really low notes.
" }


foo = \relative c' {
  \clef treble c4 b a g |
  \clef bass f4 e d c |
}

\score {
  <<
    \context Staff = i \foo
    \context Staff = ii {
      \set Staff.instrument = "wrong"
      \transpose f c'
      \foo
    }
    \context Staff = iii \relative c' {
      \set Staff.instrument = "correct"
      \clef treble g'4 fis e d |
      \clef bass c,4 b a g |
    }
  >>
  \paper {
    raggedright = ##t
  }
}

% EOF


======================================================================


begin 644 transpose-horn.png
MB5!.1PT*&@address@hidden,```%#"`(```"VLYU1````!&=!34$``+&/
M"_QA!0```#AT15AT4V]F='=A<address@hidden<VEO;address@hidden
M,B\R.2\Y-"`H4$Y'('!A=&-H(#$N,BG=%2Y)```0=4E$051XVNW=V[+B*A0%
M4.W:___+G@>K4CFY8"X$%C#&4_>^J1&8+)address@hidden/YO`"@6?\<address@hidden&0!(,@"0
M9`!(,@"address@hidden@address@hidden@&`)`,`20:`)`,address@hidden)address@hidden)!D`
M2#(`)!D`2#(`D&0`(,D`D&0`(,D`0)(!@"address@hidden)&LUQA;_`$"2
address@hidden@address@hidden:A:D"G+`"09`)*,address@hidden@%(LE9]8PP`2=9D03;%F+(,
M0)address@hidden&6(,0))QDP5&X,X`TNL8(LD49`"2#``D&0!(address@hidden(,H)Q
MR2*`)address@hidden&^7&#QR6*T'`MT)FQ=J,C$&T+8_AR#._.7]7I;(BU!40-/Z
M#$\;;O0M^/[N>HQ2DZ&>`U"3C91J)K,address@hidden&=$B+%Y:"T:
MISPC#JN+S82<@T#)&/M\/HM6ESZ):_J%FHS4<"#&J-C\]I8-7K/S__-RK4!S
MM?"address@hidden&VD5GY5:$$G6'O--:J779D+\7&,LF6'"#$DFQB!/938UU(=:K*#B
M1PLQ5NIU`$U/K]5D`+3-M8LA)B]'3DB4*2+7#^KFH7$<;(?7+AV\UI".KW#D
M:J)[C]A!%[B_6U58:address@hidden>51]]LXHO+K!EJ[M7*\)WE>;JH1$U&\R&Z.19L
MWCR$A82\\_T@,>;=;Y>:+%Q!MMY;H58MJ&]SL%54W&5-C*$FBQAC:B!&J.$Z
M>/2\W5]GEV0&A0H56X%'U[<IT%G*-_6]NE:#EV0]%&2+COIH![.<0L8RXMM<
MGQN((PSQ!98QA=EESI.%GF-6S!L]"@VF9(PAR?J9VT;NO;)-HQVS/8BQ!AJG
MX>address@hidden@U]5D`+#+%1\5)B^)^Y'/;CV>L7`,>.5DX:=4X$'+/$3>OY]K4?'.
M;E5M';$CW>W1<N?GU63/O01)QHFVXAHGRK=)3:[*Q+>GO'F.U<6X<16PR3H%
M*,808Y*,W>9[8=NJ.PW7P$2Z:4VMJ]CV:<:!`C'6ZUMI=;&-ECU]I>*TRY+F
M:*68MSMOIPY^<EJ2D7,^M;Z+:_%=^],CPX:MO>X49!VSNABK61]IZ[GZPZF_
M(S('B3%KB:)4DE&B:'O].L%VK67[C$'#G`P38Y*,YMMWXJ.GC'address@hidden
M3]=/`$)1308`NUR[6&'RLKE>E[YL[,*O=%#7VJWJVD/$;`^#[U;5>B<-OM2D
M)HO2,BSS`DBRYFNU[]?GVRO<^6L`DHS'address@hidden<,AE]BM:B+J`"19
MT+)L+[KN_!B`)./9,#M;8+E;&4"2Q0JSU^'5PBGVQ!C`E_O)(E9FZ1O1Q!C`
M_\9&8V+^8^I:#*#KF7<T5A<!:#C&7E87&WK7ASH]9K>J.P_14R.Q6Q5J,@`D
M&0#$9G6Q,OL(address@hidden'8<Z)!5"HYPGLS(7O.5BC%`DIF?
M"FQ`DM%"7'4V[HLQ("/GR8@;7?/?NE"//address@hidden/X^/Z958X;J,G(7Y`9DGHM
M^]2FP3M=0P^A)B-Z7S+>73ND\8^;`0[R3`KUI><FVL?7CA(_V=]VBT<"YHG7
M>S#8[+L(S;&Z&&)*OC?(CEF-58PQ0))Q*\SFH^V1#][L,JCJOEC5#+3(>;(H
M(_LWMP;9AG'S)address@hidden'address@hidden),7$%YSI.!
M&(address@hidden/:Z94:?;PI&6/L?FX]M,?'$R$-:C*(6'5]/I^Z`[T:#K)PGHRA
MP\Q3`DD&HO%$=74VNJY],(*`9#16%Z&E"LR")address@hidden&,@R8"3066Y#R09M!IF
M&2^/5)#!'E=\0*'*;)SG`&HR0(R!)`,Q!I(,:"BHQ!B2#&@US*KON075N>(#
M^JG,0$U&(._WVU77`)*LX1A;_`,`2=9>C`DS`$D&0/]<\1&Z()N^Z#P_['43
MO0,U&=!2AJUG>U;@D631"[+O?%-?1>](]`(=1)(1EV43$%1(LH;[ZA1CRC)T
M#4APQ8=J#'J(KOEOZ3Z2##$&S6?AS4[D\LBV6%WL?ZX*YH*G>IG+(]5D*,@@
M6Q<X$B&YNDSZL=S6J28#"#WS4W5),@`Q1C56%_OLF:"G!.>B$DE&Y[Z=7-^F
MP"A?OB"SO6IV5A?;F[L!C::I/;<D&4#;,>9(2C(`,<;6X;4RF_^8:K*`4%>3
M`6":?I!K%P/-7]87+PU[G6Z5:Q==,!GP\!9X4PI<-'@P`)Z^/>[F)EZ16Y<D
M"]?;C:0$GWUKHA$FOA?RIN/A19(U,Y08/BC?]C:W0%2\MAAC?7.>+&AK=MD(
M=6/L\_DLAM?TTK=&*\8D&27:.A%"(OB(DWYZ>V$VO2YA=JH+KZ<+7&-UL8&A
M1%NG2CO4\%J9CYI`J,F`[0%Q<WS\N<;(@%$JR1BW\='B"D&ZE6JN1I(JK"YJ
M?*"M>G<:GW)I?[6FL0!",0NKBP"TS>IBB,G+D5/K98K(]8..LW%4F8V17K'W
M7CIR/_ZU>_8'address@hidden;1-(Q]OWB]VXA"]&F7]$F'U`GR=:SN?5(NMXI
M9QI&]WK+YN8Z\Y\_4G8LGL`(??)GC,U_0)BQ-_&:WR*MD=!_DJVC8HJ9^86\
M\_ZPZ"2+^F#QN_/_[O6N]7_73ZQ8G;1W'W2!)_#S(5RZPG,U'&3T+WYGF$;V
M*?GV8FS][^E7#BZ)%+XM)KV=AR`!B)MDZ6T"[B]0-)H!H::W<I2?K6(Q\[.+
M($/79'>&SIL]IV+'.[55JZ#"/`PB)MFT>7:<J5S%\]5'+G<V,!&P((/JJEV%
MOW=5194LV;OTL63=L_?#%:\]J9ZL58(\PK4V31RW:X]2\K>&>M-?8R^T5+Z?
M[,C>VX]642X:!I!D&8JS>95V*E?V"KOC?^3"@UYX:>G\3MS?=N>EG9V^!;S>
MY,)3NG,OH#T^KC771U^[/3Y"-5U)=B*'address@hidden;-Z(M?G+S+K0JP_K9
M3WNRDP*U5DVT.B39H7%\;[>D:Z7/^NN;U<_F%^N>KHLPBVQHG'4HQ!B#LQ?^
MB6@,5:3W>C4$03)L?AF4&$.2<address@hidden<XTR/(G5PQ-O&S7<DP6C'Z7OCK71\C
address@hidden/+FFJ]J)E6,#9'DBR'UVE;A].G)!8;^3?V?[T3V28\V<.&I)L
MW#RK_HA'GD:NK?I/_9TG(C-[ABGL5#^,R7FR)@N77%OF'_P[SY5-&?^:&(-Q
address@hidden>!C-(#:74T&0,^<)ZLP>=D\M9X^W[YW!W?D6=+]FO7G1Z1>FS96_#R=
M/O9>"OO:([=YNU6IR<9J\8VVI&+S@,3/address@hidden(address@hidden:address@hidden>&
address@hidden/MU)C;7P0>?$6G7OC!0VH^`9*,<address@hidden@N(=%H\$6-`WUSQ
MT4;(K>]B;CKJ-F_*[F\K+`O(>.LE6?^-._'Q,=V7)@$_VS#C4]K,3B?JX"%6
M%T.47V?'.%OD92_",GX8M\0"239BF!T??*>!4HQEC)",,>:address@hidden
M:&ORK28#@&Q<\=',Y,6BXO'"M_Q1RK(%5ZY'address@hidden,4X?&GJ&address@hidden
M.\:\W:`F0XR),5"3D8]M(.X$0YR1?7/7$F\KJ,F&BS&3[OY*PX/[]"O(0$W6
address@hidden;A)!QB#-1DQBF'R&L'-1FAQB.%&ED^UPW49*`*J?QZ2WZN
M&address@hidden,@_-!BPT`Y!DK0Y/EA8!$IPGBSZYMG$P@"1K(,SVJB[5&(`D:RG,YKDU
M_Z^"#"#!>;(H8?;address@hidden)`,address@hidden
MC<address@hidden"0950LR91F`)`-`DE&U()address@hidden)&N,address@hidden)%G#
M!=D48\HR`$FF&@.09(@QB,J>.)*,address@hidden@R11D`)(,`"09`$BR#EE:!)!D
M],"E:`1LDPZ")$,7`I!D`"#)`.C,VR4&^8^IQ4"@1V'S0DT&0-O3]#_O39SY
MR_N]+)$7[6:<address@hidden/address@hidden>K;OG4,TO^%*3)`O77(RD!!^Y
M-%$D&1>'$L,'Y=O>O-5-7U2\$HWS9(%LCAI0)<8^G\\BJ])+WQHMDHP3(4?3
M(1%\N$\_O;TPFUZ7,-/\)!G;K4V,$2W20)(!#:379IC]7&,$2<:/@0,"5F93
M*]5<J=-0M;Q:address@hidden)PLS>5E7<address@hidden>address@hidden<.3'VNGJG
MHST^FFY^]O@@>BN9/_K>L&45>I"YE^MF49/16XQ-HYMMM"PD!"RCX<MY,B&:
M&L+F-[>YDH6]9J"1(,F,"\M)<9F)[<]!QZC$<S4<address@hidden
M^4TWL[K%#='%EA-`DL4MR$JFFJ"BXWD8HZEV[>+/BWTW/R%I^M;WBXO+I?:^
M?O!O)IY/XA<?'address@hidden&XOB`;LSK11=#&&>&^UVO__8[R\_]N?GWOCZS/2"U^
M^/+$4P``BN_.DVQ=,,V_LEE.I8/GVM<3!5PZ]B09(,E"^6OET)1<9\OU0'M_
MY_C*ZG//K?KF6&>G.T__XLMN5<>:2MU;IRN>7;9;5>1\C;C'QZ,[LP5_L0?O
address@hidden)address@hidden'4L=-)9DXU3$E_NJO:/DNAB#R;\!^V0'?Z16WS:@C--?YM?K
M-A%C)C22+%;2E!DNTX]2YCFD=_3X.8+<>9*Z/3_;E3N=:46%U<7TC4I[W[W3
MHZX]8D7K%WOD#H$"`]QSXYIJ+UJ&!9SC5GQ<B2[)#H7'O*&DO[O8=7L]Q&^>
M.[GSB*_GS\<address@hidden<,'MBJ'+^;+2#EO%IIS?[1Y*=:'F)[^Y]ZV=3
MSOZ(3QR!(address@hidden>>B,SLHX/A)address@hidden/K,M9]VV7>QR<(EUY;Y!__.<V53
MQK]F&!+`8FS<$=(*3/`Q&D#MKB8#H&=_#D'YR<O>/I#I7SFUM7\?-6OB==W9
MM:CNCD>OQC=5BOS:*S;(7(]HMRHU60\*GZQJ<1Z0^/F?O^)T&L4:I!8HR48,
M+2<address@hidden&D&H'F..I"3KOU=,GS)SJL7W%X$'7]$3'[5C/H$8DV2<ZQN)
MCU;IN-U?OK%/Y!"V05*7*S[:"+GU7<Q-1]WF3=G];85E`5F#K-@"AVI^DJQR
MY]F[TJS[TN3I9W[A$CX['IE!]O$<!FQ^DBQ$F+TNG?4QQ\\X!;95!!W$V+#-
MSWFR*,WW8!.\EGR#I-?E;BS&$&-M=W\#8H2"`&"<T%63`8":K%19EO?86E0\
M7OB6/TKC['A$<]UAA+;ABH^!"O`1#GOPI5VG0S`N23)HN(N*,?21ASA/ABXJ
MQM!'U&3D&YLL2Y[JF7%&]O3"IK<5S4]--DJ,address@hidden@S4]-AH%I
MZ-%DP.>`MUY-)N$D',8R4),9IQPBKQW49(0:address@hidden).A"NGA]9;\7#>0
M9&0>address@hidden:address@hidden<FWC8`!)UD"8[55=JC&`WS-^D_WZ[\$L
MKC:SS7L$(,D:RS,9!B#)`!B%\V0`2#(`D&0`(,D`D&0`(,D`0)(!@"0#0)(!
M@"0#`$D&`)(,`$D&`)(,`"address@hidden"address@hidden)address@hidden)!D`"#)`$"2`2#)
M`$"2`8`D`P!)!L`(_@,:PJ%T42F^>`````=T24U%!]0)address@hidden
(245.1*Y"8((`
`
end