summaryrefslogtreecommitdiff
path: root/fonts/tengwar/luvar.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/tengwar/luvar.mf')
-rw-r--r--fonts/tengwar/luvar.mf50
1 files changed, 50 insertions, 0 deletions
diff --git a/fonts/tengwar/luvar.mf b/fonts/tengwar/luvar.mf
new file mode 100644
index 0000000000..687f761f6a
--- /dev/null
+++ b/fonts/tengwar/luvar.mf
@@ -0,0 +1,50 @@
+% Copyright 1988 Michael Urban
+% Everyone is granted permission to copy, modify and redistribute
+% this file, provided that a currently-dated copy of this
+% copyright notice is included in the copy.
+% License is granted to produce fonts based on the information
+% in this file, provided that such fonts are redistributed
+% without charge to any third party.
+
+% SCCS ID @(#)luvar.mf 1.1 10/1/86
+
+def luva(expr startpt, endx, looped) =
+begingroup;
+ save x,y;
+ z5 = startpt;
+ top y6=xht; x6=.5[x5,endx];
+ rt x7=endx; y7=.47xht;
+ if looped :
+ bot y8 =0; x8=1/4[x6,endx];
+ y9 = .7thick; z9=whatever*(dir (tilt+90))+z8;
+ draw z5..z6..z7{down}..z8{left}..z9; % lu'va (bow)
+ else:
+ bot y8 =0; x8=.7[x6,endx];
+ draw z5..z6..z7{down}..z8;%{dir (tilt+180)};
+ fi;
+ bowpoint:= z7;
+ hookpoint := z8;
+ penlabels(5,6,7,8,9);
+endgroup;
+enddef;
+
+def nuluva(expr startpt, endx, looped) =
+begingroup;
+ save x,y;
+ z5 = startpt;
+ bot y6=0; x6=.5[x5,endx];
+ lft x7=endx; y7=.45xht;
+ if looped :
+ top y8 =xht; x8=1/4[x6,endx];
+ y9 = xht-.7thick; z9=whatever*(dir (tilt-90))+z8;
+ draw z5..z6..z7{up}..z8{right}..z9; % lu'va (bow)
+ else:
+ top y8 =xht; x8=.7[x6,endx];
+ draw z5..z6..z7{up}..z8;%{dir (tilt)};
+ fi;
+ bowpoint:= z7;
+ hookpoint := z8;
+ penlabels(5,6,7,8,9);
+endgroup;
+enddef;
+