summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/croatian/pleter.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/croatian/pleter.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/croatian/pleter.mf297
1 files changed, 297 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/croatian/pleter.mf b/Master/texmf-dist/fonts/source/public/croatian/pleter.mf
new file mode 100644
index 00000000000..7342aac5f7c
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/croatian/pleter.mf
@@ -0,0 +1,297 @@
+
+% Croatian Wattle Pattern,
+% 1994, darko.zubrinic@etf.hr
+
+mode_setup;
+ font_size 10pt#;
+ u#:=.8pt#; font_quad= 24u#;
+ font_normal_space= 9u#;
+ font_normal_stretch= 3u#;
+ font_normal_shrink= 2u#;
+ em#:=10pt#; cap#:=7pt#;
+ thin#:=2/3pt#; thick#:=.9*5/6pt#;
+ o#:=1/5pt#;
+define_pixels(em,cap);
+define_blacker_pixels(thin,thick);
+curve_sidebar:=round 1.1*1/10em;
+
+
+beginchar("a",5*1.41cap#,5*cap#,0); "veliki ssiroki pleter";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("b",5*1.2cap#,5*cap#,0); "veliki pleter, srednje ssirine";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("c",5*cap#,5*cap#,0); "veliki, gusti pleter";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled thick yscaled thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+picture slovoc; slovoc=currentpicture;
+endchar;
+
+beginchar("v",5*cap#,5*cap#,0); "Okomiti pleter";
+transform rot;rot= identity rotatedabout ((.5w,.5h),90);
+addto currentpicture also slovoc transformed rot;
+endchar;
+
+
+
+beginchar("e",1.41cap#,cap#,0); "tanki ssiroki pleter";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+beginchar("f",cap#,cap#,0); "tanki gusti pleter";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+
+beginchar("l",5*4/7*cap#,5*cap#,0); "veliki lijevi kraj";
+pickup pencircle xscaled thick yscaled thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .5thick yscaled .5thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled thick yscaled thick;
+draw z13--z14--z15--z16;
+picture slovol; slovol=currentpicture;
+transform rot; rot= identity rotatedabout ((.5w,.5h),-90)
+shifted (1.5*1/7h,-1.5*1/7h);
+picture slovoll; slovoll=currentpicture transformed rot;
+endchar;
+
+beginchar("d",5*4/7*cap#,5*cap#,0); "veliki desni kraj";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also slovol transformed s;
+endchar;
+
+beginchar("3",5*cap#,5*4/7*cap#,0); "Okomiti pleter, gore";
+addto currentpicture also slovoll;
+endchar;
+
+beginchar("4",5*cap#,5*4/7*cap#,0); "Okomiti pleter, dolje";
+transform rot;rot= identity rotatedabout ((.5w,.5h),180);
+addto currentpicture also slovoll transformed rot;
+endchar;
+
+
+
+beginchar("1",4/7*cap#,cap#,0); "Lijevi kraj, tanki";
+pickup pencircle xscaled .2thick yscaled .2thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .1thick yscaled .1thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled .2thick yscaled .2thick;
+draw z13--z14--z15--z16;
+picture slovol; slovol=currentpicture;
+endchar;
+
+beginchar("2",4/7*cap#,cap#,0); "Desni kraj, tanki";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also slovol transformed s;
+endchar;
+
+
+beginchar("g",3*1.2cap#,3*cap#,0); "srednji pleter g (ssiri)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+endchar;
+
+
+beginchar("h",3*cap#,3*cap#,0); "srednji pleter h (uzzi)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=x3=x4=0; x5=x6=x7=x8=.5w; x9=x10=x11=x12=w;
+y1=h; y9=0;
+y1-y2=y2-y3=y3-y4=y12-y11=y11-y10=y10-y9=1/7h;
+y8-y7=y7-y6=y6-y5=1.41*1/7h;
+.5[y7,y6]=.5h;
+kut:=angle(z9-z1);%-10;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+transform zrc; zrc=identity reflectedabout ((0,.5h),(w,.5h));
+addto currentpicture also currentpicture transformed zrc;
+unfill z1--z4{right}..{dir(kut)}z5..{right}z9--z12{left}..{dir(180+kut)}z8
+..{left}z1..cycle;
+draw z1{right}..{dir(kut)}z8..{right}z12;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z2{right}..{dir(kut)}z7..{right}z11;
+draw z3{right}..{dir(kut)}z6..{right}z10;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z4{right}..{dir(kut)}z5..{right}z9;
+%picture slovoh; slovoh=currentpicture;
+endchar;
+
+
+beginchar("5",3*4/7*cap#,3*cap#,0); "lijevi kraj (srednja vel)";
+pickup pencircle xscaled .6thick yscaled .6thick;
+x1=x2=w; x3=x4=w-1/4w; y1=y4=h-y2=h-y3=.5h-.5*1/7h;
+z14=(0,0); z15=(0,h); z16=(w,h); z13=(w,0);
+z2-z1=z8-z2=z12-z8=z16-z12=z1-z5=z5-z9=z9-z13;
+z11-z12=z10-z9=3(z3-z2); z8-z7=z5-z6=2(z1-z4);
+draw z1--z4--z3--z2;
+pickup pencircle xscaled .3thick yscaled .3thick;
+draw z5--z6--z7--z8;
+draw z9--z10--z11--z12;
+pickup pencircle xscaled .6thick yscaled .6thick;
+draw z13--z14--z15--z16;
+picture tri; tri=currentpicture;
+%transform rot; rot= identity rotatedabout ((.5w,.5h),-90)
+%shifted (1.5*1/7h,-1.5*1/7h);
+%picture trri; trri=currentpicture transformed rot; % za vertikalni
+endchar;
+
+beginchar("6",3*4/7*cap#,3*cap#,0); "desni kraj (srednja vel)";
+transform s;s= identity reflectedabout ((.5w,0),(.5w,h));
+addto currentpicture also tri transformed s;
+endchar;
+
+
+
+
+end.