- pat := z21l
- .. z10l{down}
- .. z10'l;
-
- fill z2l{right}
- .. z3l
- .. z4l{left}
- ..tension 1.07.. z5l{up} % inside curve
- .. z7l{up}
- ..tension 1.2.. z20r{curl 1}
- .. {direction 0 of pat}z20l
- -- z8
- -- z9r % {dir (downstroke_angle + 0)}
- ..tension 0.8.. z7r{down}
- .. z5r{down}
- .. z4r{right}
- .. z3r
- .. z2r{left}
- ..tension .95.. z1r
- -- simple_serif (z1r, z1l, 80)
- -- z1l
+ % after computing all points, we want to rotate the clef
+ % rotating the whole picture won't work due to the complexity
+ % of the path and metafont's memory limitations, so we transform
+ % each point and draw the clef thereafter
+ corr_angle = 1.5;
+ corr = identity rotatedabout (center, -corr_angle);
+
+ % transform points; we transform every point and save it
+ % to a shifted index range: z1 -> z101, z2 ->z102 etc.
+ for n=1 upto 21:
+ forsuffixes e=l,,r:
+ z[n+100]e = z[n]e transformed corr;
+ endfor
+ endfor
+ % transform helper points
+ for n=10,11:
+ forsuffixes e=l,,r:
+ z[n+100]'e = z[n]'e transformed corr;
+ endfor
+ endfor
+
+ pat := z121l
+ .. z110l{dir -90} % was {down}
+ .. z110'l;
+
+ fill z102l{dir 0} % {right}
+ .. z103l
+ .. z104l{dir (180 + corr_angle)} % {left}
+ ..tension 1.07.. z105l{dir (90 + corr_angle)} % inside curve % was {up}
+ .. z107l{dir (90 + corr_angle)} % {up}
+ ..tension 1.2.. z120r{curl 1}
+ .. {direction 0 of pat}z120l
+ -- z108
+ -- z109r % {dir (downstroke_angle + 0)}
+ ..tension 0.8.. z107r{dir (-90 + corr_angle)} %{down}
+ .. z105r{dir (-90 + corr_angle)} %{down}
+ .. z104r{dir corr_angle} %{right}
+ .. z103r
+ .. z102r{dir (180 + corr_angle)} % {left}
+ ..tension .95.. z101r
+ -- simple_serif (z101r, z101l, 80)
+ -- z101l