diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/croatian/pleter.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/croatian/pleter.mf | 297 |
1 files changed, 0 insertions, 297 deletions
diff --git a/Master/texmf-dist/fonts/source/public/croatian/pleter.mf b/Master/texmf-dist/fonts/source/public/croatian/pleter.mf deleted file mode 100644 index 7342aac5f7c..00000000000 --- a/Master/texmf-dist/fonts/source/public/croatian/pleter.mf +++ /dev/null @@ -1,297 +0,0 @@ - -% 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. |