diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/umrand/ua000.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/umrand/ua000.mf | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/umrand/ua000.mf b/Master/texmf-dist/fonts/source/public/umrand/ua000.mf new file mode 100644 index 00000000000..d35b82d8ac2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/umrand/ua000.mf @@ -0,0 +1,57 @@ +input umrand + +def wood(expr W) = + beginchar(incr nextchar,charsize#,charsize#,0cm#); + pickup pencircle scaled penwid; + + xscal:=1; + + u:=w/10; v:=h/20; ab:=0; + + x0=x1=0+ab; + x2=x3=x4=x5=x6=u+ab; + x7=x8=x9=x10=x11=x12=2u+ab; + x13=x14=x15=3u+ab; + x16=x17=x18=x19=4u+ab; + x20=x21=x22=5u+ab; + x23=x24=x25=6u+ab; + x26=7u+ab; x27=8u+ab; + x28=x29=10u+ab; + y2=20v; y0=19v; y3=16v; + y7=y16=15v; y13=y20=14v; + y8=13v; y21=12v; + y9=y17=y23=y27=y28=11v; + y4=y14=y26=10v; + y18=y24=y29=9v; + y5=8v; y10=y19=y25=7v; + y15=y22=6v; + y11=5v; y12=3v; y1=v; y6=0v; + + def WoodRotation(expr w,p) = + CenterRotation(w, + p if abs(abs(sind(w))-abs(cosd(w))) < eps: + shifted (2u,0) + fi) + enddef; + + draw WoodRotation(W,z2--z0--z1--z6--z5--z15); + draw WoodRotation(W,z10--z12--z22--z19--z11); + draw WoodRotation(W,z0--z16--z8--z7--z13); + draw WoodRotation(W,z7--z3--z4--z9--z8); + draw WoodRotation(W,z4--z19--z18--z9--z20--z21--z14); + draw WoodRotation(W,z17--z18); + draw WoodRotation(W,z21--z22--z25--z24--z23--z21); + draw WoodRotation(W,z23--z26--z24); + draw WoodRotation(W,z20--z27--z26); + draw WoodRotation(W,z2--z28--z25); + draw WoodRotation(W,z28--z29--z6); + testbox; endchar; +enddef; + +nextchar:=-1; % -1: we start first char width incr(-1) = 0! + +wood(0); + +end; + + |