diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/croatian/stechak.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/croatian/stechak.mf | 909 |
1 files changed, 0 insertions, 909 deletions
diff --git a/Master/texmf-dist/fonts/source/public/croatian/stechak.mf b/Master/texmf-dist/fonts/source/public/croatian/stechak.mf deleted file mode 100644 index 02ccaddd648..00000000000 --- a/Master/texmf-dist/fonts/source/public/croatian/stechak.mf +++ /dev/null @@ -1,909 +0,0 @@ - -% ORNAMENTI NA STECHCIMA, 1995 - -% "a", "b", "c" 8+krug, 7, 6 -kraka zvijezda -% "j", "e", "f" 6+krug, 5, 4 -kraka zvijezda -% "g", "h" kotacc s precckama (h ima petokraku zvijezdu) -% "i", "5" 7 -kraka zvijezda, petokraka -% "k", "l", "d" kolo -% "p", "q" ptica -% "s" svastika -% "A", "B", "C" krizz (kvadratni), standardni, ljiljan -% "D", "T" dupli krizz, obli -% "E", "F", "G", bordure -% "H", "I", "J", -% "M", "N" -% "K" krug -% "L" lutka -% "S", "O" 6 i 8 latica cvijeta -% "P", "R" polumjesec, repatica -% "Z" zvijezda - -Pt#:=3pt#; - -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; - - -% Besslagich, zvijezda 8 krakova -beginchar("a",cap#,cap#,.2cap#); "a(zvijezda)8"; -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/8; -xx:=.5; %cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4--z4--z1--cycle; -%{dir (270-.5*kut)}..{right}z1..{dir -%(90+.5*kut)}z2; -for n=1,2,3,4,5,6,7,8: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -endchar; - - -% Besslagich, 7 krakova -beginchar("b",cap#,cap#,.2cap#); "b(zvijezda)7"; -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/7; -xx:=.5; %cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4--z4--z1--cycle; -%{dir (270-.5*kut)}..{right}z1..{dir -%(90+.5*kut)}z2; -list:=list rotatedaround (z3, 180); -for n=1,2,3,4,5,6,7: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -endchar; - - - -% Besslagich, 6 latica -beginchar("c",cap#,cap#,.2cap#); "c(zvijezda)6"; -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/6; -xx:=.5; %cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4--z4--z1--cycle; -%{dir (270-.5*kut)}..{right}z1..{dir -%(90+.5*kut)}z2; -for n=1,2,3,4,5,6: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -endchar; - - - -% Besslagich, zvijezda s 6 latica i krugom -beginchar("j",cap#,cap#,.2cap#); "j - ssest latica"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/6; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -draw list; -for n=1,2,3,4,5,6: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -rr:=.2w; -path krug; krug= fullcircle scaled rr shifted z3; -erase fill krug; -draw krug; -endchar; - - -% Besslagich, zvijezda sa 5 latica -beginchar("e",cap#,cap#,.2cap#); "e - 5 latica"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/5; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -list:=list rotatedaround (z3, 180); -transform b; b= identity rotatedaround (z3, kut); -transform b[]; b[0]=b; -for n=1,2,3,4,5: - b[n]=b[n-1] transformed b; -draw (list transformed b[n]); endfor -endchar; - - - -% Besslagich, zvijezda sa 4 latice -beginchar("f",cap#,cap#,.2cap#); "f - 4 latice"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/4; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -%draw list; -for n=1,2,3,4: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -endchar; - - -% Besslagich, kotacc s 20 preccki -beginchar("g",cap#,cap#,.2cap#); "g - kotacc(20)"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -draw fullcircle scaled w shifted z3; -draw fullcircle scaled .7w shifted z3; -kutt:=-15; -z1=(.5w,.15h); z2=(.5w,0) rotatedaround (z3,kutt); -path list; list=z1{dir(270+kutt)}..{dir(180-kutt)}z2; -kut:=360/20; -transform b; b= identity rotatedaround (z3, kut); -transform b[]; b[0]=b; -for n=1 thru 20: - b[n]=b[n-1] transformed b; -draw (list transformed b[n]); endfor -endchar; - - - -% Besslagich, kotacc sa peterokrakom zvijezodm -beginchar("h",cap#,cap#,.2cap#); "h - kotacc(20+5)"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -draw fullcircle scaled w shifted z3; -draw fullcircle scaled .7w shifted z3; -draw fullcircle scaled .3w shifted z3; -z0=(.5w,.5h+.15w); -path krak; krak=z3--z0; -transform c; c=identity rotatedaround (z3, 72); -transform c[]; c[0]=c; -for n=1 thru 5: - c[n]=c[n-1] transformed c; - draw (krak transformed c[n]); endfor -kutt:=-15; -z1=(.5w,.15h); z2=(.5w,0) rotatedaround (z3,kutt); -path list; list=z1{dir(270+kutt)}..{dir(180-kutt)}z2; -kut:=360/20; -transform b; b= identity rotatedaround (z3, kut); -transform b[]; b[0]=b; -for n=1 thru 20: - b[n]=b[n-1] transformed b; -draw (list transformed b[n]); endfor -endchar; - - -% Besslagich, zvijezda sa 7 latica -beginchar("i",cap#,cap#,.2cap#); "i - 7 latica"; -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/7; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -list:=list rotatedaround (z3, 180); -transform b; b= identity rotatedaround (z3, kut); -transform b[]; b[0]=b; -for n=1,2,3,4,5,6,7: - b[n]=b[n-1] transformed b; -draw (list transformed b[n]); endfor -endchar; - - -% Besslagich, svastika -beginchar("s",1.4cap#,1.2cap#,.2cap#); "s(vastika)"; -pickup pencircle scaled .3thin; -x2=0; x3=x4=.5w; x13=w; -ss=.05w; %ssirina -x1=ss; -x30=ss; -x35=x36=x1+ss; -x26=2*ss; x25=3*ss; x28=3*ss; x29=x28-ss; x27=x28+ss; -x33=x32=x23=x22=x3-ss; -x34=x31=x24=x3-2*ss; -x5=x7=x16=x17=x3+ss; -x37=x15=x18=x3+2ss; -x20=x13-ss; -x14=x13-ss; -x9=x13-2ss; -x11=x13-3ss; -x10=x11-ss; x12=x11+ss; -x8=x9-ss; -x21=x19=x20-ss; -y36=y3=0; -y1=y5=ss; y35=y34=2ss; y33=3ss; -y2=y13=.5h; -y4=y21=h; -y28=.9h; y29=y27=y28-ss; -y11=h-y28; -y10=y12=y11+ss; -y9=y2-2ss; -y32=y7=y2-2ss; y30=y31=y37=y8=y2-ss; -y25=y24=y15=y14=y2+ss; -y26=y2+2ss; -y23=y16=y2+2ss; -y22=y20=y4-ss; -y18=y19=y4-2ss; -y17=y4-3ss; -y2:=1.2y2; -y13:=.8y13; -draw z1{down}..{right}z36--z3{right}..{up}z5--z7{up}..{right}z37 ---z8{right}..{down}z9--z10{dir angle(z10-z9)}..{dir10}z11..{dir angle -(z13-z12)}z12--z13{dir angle(z13-z12)}..{left}z14--z15{left}..{up}z16--z17 -{up}..{right}z18--z19{right}..{up}z20..{left}z21--z4{left}..{down}z22-- -z23{down}..{left}z24--z25{left}..{dir angle(z27-z26)}z26--z27{dir -angle(z27-z26)}..{left}z28..{dir angle(z2-z29)}z29--z2{dir angle(z2-z29)} -..{right}z30--z31{right}..{down}z32--z33{down}..{left}z34--z35{left}..cycle; -endchar; - - - -% Zijemlje polje kod Mostara, slika 34, nalik na gl `ch' -beginchar("L",.7em#,cap#,0); " L(utka)"; -pickup pencircle scaled .3thin; -x1=x2=w-x4=w-x3=curve_sidebar; -x5=x6=.5w; -x7=w-x8=.15w; -y1=y6=y4=h; -y2=y5=y3=.7h; -y7=y8=0; -draw z1--z2--z3--z4; -draw z6--z5--z7--z8--z5; -dd:=.25w; -z66=(.5w,h+.5*dd); -%pickup pencircle scaled .6thin; -draw fullcircle scaled dd shifted z66; -endchar; - - -% Ubosko, Ljubinje, BiH, sl. 16 -%beginchar("Z",cap#,cap#,0); "Z(vijezda)"; -%pickup pencircle scaled .3thin; -%x1=x2=w-x5=w-x6=.35w; x3=x4=.5w; -%y1=y6=0; y3=.5h; -%y4=.5(x6-x1); y4=y3-y5=y3-y2; -%draw z4--z1--z2--z3--z4--z6--z5--z3; -%transform t; t= identity rotatedaround (z3, -90); -%addto currentpicture also currentpicture transformed t; -%addto currentpicture also currentpicture transformed (t transformed t); -%endchar; - - -% Ubosko, Ljubinje, BiH, sl. 16 -beginchar("Z",cap#,cap#,.2cap#); "Z(zvijezda)8"; -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/8; -xx:=.5; %cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4--z4--z1--cycle; -%{dir (270-.5*kut)}..{right}z1..{dir -%(90+.5*kut)}z2; -for n=1,2,3,4,5,6,7,8: -transform b[]; b[n]= identity rotatedaround (z3, n*kut+22.5); -draw (list transformed b[n]); endfor -endchar; - - -% Ljubusski sl. 46 ili Krvavica, Makarska -beginchar("k",em#,1.4cap#,0); "k(olo)"; -pickup pencircle scaled .4thin; -x1=x6=.5w; x9=x10=w; -x5=.7w; -y1=h; y6=y5=0; -rr:=.14h; -z0=(x1,h-.5*rr); -path cetvrt; cetvrt= quartercircle scaled rr shifted z0; -z2=(cetvrt rotatedaround (z0,-90)) - intersectionpoint (z5--z1); -z3-z2=.4(z2-z1); -y9=y3; -z4-z3=z3-z2; -draw z1{right}..{dir(90+angle(z0-z2))}z2--z3; -x8=x11=.5[x12,x10]; -y8=y4-(y2-y3); -y8-y11=.8(y3-y4); -y9-y10=.8(y8-y11); -z7=(x3+.05w,y3); -z12=(.7[x3,x7],y4); -draw z4--z5--z6; -draw z3--z7{right}..tension 1.3..{right}z8..tension 1.3..{right}z9; -draw z4--z12{right}..tension 1.3..{right}z11..tension1.3..{right}z10; -transform t; t= identity reflectedabout (z6,z1); -z91=(x9-.05w,y9+.06w); z93=(w,1.1y9); -z92=(.7[x91,x9],.4[y9,y93]); -pickup pencircle scaled .2thin; -draw z9{left}..{dir 75}z91..{dir-20}z92{dir(180-20)}..{right}z93; -addto currentpicture also currentpicture transformed t; -endchar; - - -% Ljubusski sl. 46 ili Krvavica, Makarska -beginchar("l",em#,1.4cap#,0); "l(kolo)"; -pickup pencircle scaled .4thin; -x1=x6=.5w; x9=x10=w; -x5=.7w; -y1=h; y6=y5=0; -rr:=.14h; -z0=(x1,h-.5*rr); -path cetvrt; cetvrt= quartercircle scaled rr shifted z0; -z2=(cetvrt rotatedaround (z0,-90)) - intersectionpoint (z5--z1); -z3-z2=.4(z2-z1); -y9=y3; -z4-z3=z3-z2; -x8=x11=.5[x12,x10]; -y8=y4-(y2-y3); -y8-y11=.8(y3-y4); -y9-y10=.8(y8-y11); -z7=(x3+.05w,y3); -z12=(.7[x3,x7],y4); -path dio; dio=z1{right}..{dir(90+angle(z0-z2))}z2--z3--z7; -path dioo; dioo =z12--z4--z5--z6; -draw dio; -draw dioo; -transform t; t= identity reflectedabout (z6,z1); -draw dio transformed t; -draw z3--z7{right}..tension 1.3..{right}z8..tension 1.3..{right}z9; -draw z4--z12{right}..tension 1.3..{right}z11..tension 1.3..{right}z10; -transform t; t= identity reflectedabout (z6,z1); -z91=(x9-.05w,y9+.06w); z93=(w,1.1y9); -z92=(.7[x91,x9],.4[y9,y93]); -2(y3-y8)=y8-y13; -y13-y14=y9-y10; -z13-z1=whatever*(z5-z1); -z14-z1=whatever*(z5-z1); -z13'=z13 transformed t; -z14'=z14 transformed t; -path diooo; diooo= z12--z4--z13; -draw diooo transformed t; -path diio; diio= z14--z5--z6; -draw diio transformed t; -z7'=z7 reflectedabout (z1,z6); -z12'=z12 reflectedabout (z1,z6); -z8'=z8 reflectedabout (z1,z6); -x8':=x8'-.04w; -y8':=y8'-.07h; -z11'-z8'=1.41(y9-y10,0); -draw z7'{left}..tension 1.6..{down}z8'..tension 1.6..{dir angle(z14'-z8')}z14'; -draw z12'{left}..tension 1.6..{down}z11'..tension 1.6.. -{dir angle(z13'-z11')}z13'; -pickup pencircle scaled .2thin; -draw z9{left}..{dir 75}z91..{dir-20}z92{dir(180-20)}..{right}z93; -%addto currentpicture also currentpicture transformed t; -picture slovo_l; slovo_l=currentpicture; -endchar; - - -% Ljubusski sl. 46 ili Krvavica, Makarska -beginchar("d",em#,1.4cap#,0); "d(kolo)"; -transform t; t=identity reflectedabout ((.5w,0),(0.5w,h)); -addto currentpicture also slovo_l transformed t; -endchar; - - -beginchar("p",1.41em#,.9cap#,0); "p(tica)"; % 1.55em# -pickup pencircle scaled .3thin; -x8=0; x1=w; x7=.06w; -x6=.4w; -x4=.7w; -x3=.3[x4,x1]; x2=.4[x3,x1]; -x5=.47[x6,x4]; -x11=.5w; x12=x11+.03w; -x9=.43w; x13=.1[x12,x1]; -x10=.5[x9,x11]; -x15=.1[x4,x1]; -x14=.66[x13,x15]; -y11=y12=0; -y3=h; -y2=.5[y1,y3]; -y4=.9h; -y1=.35[y4,y3]; -y6=.5h; -y5=.5[y6,y4]; -y7=y6+.1h; -y8=.1h; -y9=.7y6; y10=.8y9; -y15=.85y4; -y13=1.1y9; -y14=.36[y13,y15]; -draw -z12{up}..z13{dir (angle(z14-z13)-5)}..{dir angle(z15-z13)}z14..{dir45}z15.. -tension 1.6.. -{dir 3}z1{dir 175}..z2..{left}z3..{dir (180+75)}z4.. -{dir(180+35)}z5.. -{dir(180+15)}z6..tension 1.6..z7--z8..tension 1.6..{right}z9..z10.. -{down}z11; -picture ptica; ptica=currentpicture; -endchar; - - -beginchar("q",1.41em#,.9cap#,0); "q(ptica)"; -transform t; t=identity reflectedabout ((.5w,0),(0.5w,h)); -addto currentpicture also ptica transformed t; -endchar; - - -% Besslagich, Krizz -beginchar("A",1.4cap#,1.4cap#,.2cap#); "A - krizz"; -pickup pencircle scaled .3thin; -z0=(.5w,.5w); -z13=(.5w,.9x0); -z1=z13 rotatedaround (z0,-45); -z3=z13 rotatedaround (z0,45); -z2=(x1,.15y1); -z4=(x3,y2); -z76=(.5w,0); -kut:=25; -z6=z76 rotatedaround (z0,kut); -z7=z76 rotatedaround (z0,-kut); -z24=.5[z2,z4]; -z9=(.5w, h); -hh:=2h-2y24; -path krug; krug= fullcircle scaled hh shifted z9; -z5= krug intersectionpoint (z6--z0); -z8= krug intersectionpoint (z7--z0); -kutt:=.5*kut; -path list; list= z3--z4{right}..z5{dir kutt}..{dir (180+kut)}z6..{left}z76.. -{dir(180-kut)}z7..{dir -kutt}z8..{right}z2--z1; -for n=1,2,3,4: -transform b[]; b[n]= identity rotatedaround (z0, n*90); -draw (list transformed b[n]); endfor -endchar; - - -% Besslagich, Krizz -beginchar("B",1.1cap#,1.4cap#,.2cap#); "B - krizz"; -pickup pencircle scaled .3thin; -x1=x2=x5=x6=.56w; x7=.5w; -hh:=3(x6-x7); -x3=x4=w-hh; x8=w; -y7=h; y6=y7-hh; -y5=y4=.65h; -y2=y3=y5-2*(x6-x7); -y1=0; -y8=.5[y3,y4]; -z0=(.5w,0); -kut:=60; -path kriz; kriz = z0--z1--z2--z3{dir -kut}..{up}z8..{dir(180+kut)}z4--z5--z6{dir (90-kut)} -..{left}z7; -path krizz; krizz= kriz reflectedabout (z0,z7); -draw kriz; draw krizz; -endchar; - - -% Besslagich, Krizz -- ljiljan -beginchar("C",1.2cap#,1.4cap#,.2cap#); "C - krizz"; -pickup pencircle scaled .3thin; -z0=(.5w,0); -x1=x2=.61w; x8=.5w; -x7-x8=.8(x2-x8); -x5=w; x4=x3=x6=.5[x2,x5]; -y1=0; y8=h; y7=.7h; y2=y7-2(x1-x0); -y3=.5[y2,y7]; -y6-y3=.7(y7-y2); -y5=y3; -y4=y2-.6(y7-y2); -kut:=60; -path kriz; kriz= z0--z1--z2{up}..{right}z3..{dir(180+kut-10)}z4{dir (kut-15)} -..{up}z5..{left}z6..{dir(180+kut-30)}z7{dir(kut-25)}..{left}z8; -path krizz; krizz= kriz reflectedabout (z0,z8); -draw kriz; draw krizz; -endchar; - - - -% Besslagich, D krizz dupli -beginchar("D",.7cap#,1.2cap#,.2cap#); "Dupli krizz"; -pickup pencircle scaled .3thin; -x1=x4=w-x3=w-x2=(.5-.12)*w; -x5=x8=x9=x12=0; -x6=x7=x10=x11=w-x5; -y1=y2=0; y3=y4=h; -y5=y6=.2h; -y8=y7=y5+(x2-x1); -y12=y11=h-y5; -y9=y10=h-y8; -x13=x14=x15=x16=x1; -y13=y12; y14=y9; y15=y8; y16=y5; -x17=x18=x19=x20=x2; -y17=y11; y18=y10; y19=y7; y20=y6; -draw z1--z2--z20--z6--z7--z19--z18--z10--z11-- -z17--z3--z4--z13--z12--z9--z14--z15--z8--z5--z16--cycle; -endchar; - - -% Besslagich, Bordura -beginchar("T",.75em#,cap#,.2cap#); "T - krizz"; -pickup pencircle scaled .2thin; -z0=(.5w,0); x7=w; x1=.7w; -x2=.57w; x6=x8=.7[x2,x7]; -x4=.8[x0,x1]; x5=.5w; -y1=0; y5=h; -y2=.4h; -y3=.5h; -y4=.67[y3,y5]; -z3-z2=whatever*dir(angle(z2-z1)-10); -y6=y2; -y7=.5[y6,y8]; % y8 -y7=y3+.04h; -y33-y7=y7-y3; -z30=(x0,y33); z70=(x7,y33); -x33= xpart ((z30--z70) intersectionpoint (z3{up}..{up}z4)); -path luk; luk=z0--z1--z2{dir(angle(z2-z1))}.. -{up}z3{right}..{right}z6..{up}z7..{left}z8 -..{left}z33{up}..z4{up}..{left}z5; -draw luk; -transform a; a=identity reflectedabout (z0,z5); -path lukk; lukk=luk transformed a; -draw lukk; -endchar; - - - -% Dugo Polje; slika 60, Besslagich -beginchar("K",cap#,cap#,0); "K(rug)"; % -pickup pencircle scaled .3thin; -x1=x3=x5=x7=.5w; -x4=0; x2=w; x8=w-x6=.15w; -y1=0; y3=h; y4=y8=y6=y2=.5h; -y5=h-y7=x8; -draw z1{right}..z2{up}..{left}z3..{down}z4..cycle; -draw z5{right}..z6{up}..{left}z7..{down}z8..cycle; -draw z5--z7; draw z6--z8; -z0=(.5w,.5h); -path hh; hh= (z5--z7) rotatedaround (z0,45); draw hh; -path vv; vv= (z6--z8) rotatedaround (z0,45); draw vv; -endchar; - - -% Besslagich -beginchar("P",.6em#,cap#,.2cap#); "P(olumjesec)"; % 1.55em# -pickup pencircle scaled .3thin; -x2=0; x1=x3=w; x4=.4w; -y3=-d; y2=y4=.5h; y1=h+d; -kut:=180-10; -kkut:=180-20; -draw z3{dir kut}..{up}z2..{dir (180-kut)}z1; -draw z3{dir kkut}..{up}z4..{dir (180-kkut)}z1; -endchar; - - -% Besslagich, Bordura -beginchar("R",2cap#,cap#,.2cap#); "R - repatica"; -pickup pencircle scaled .2thin; -x1=x5=0; x6=.1w; -x2=.9w; x4=w; x3=.5[x2,x4]; -y4=y5=.5h; -y4-y3=x4-x3; -y5-y6=.9(y6-y1)=y4-y3; -y2=.7[y3,y4]; -path luk; luk= z5--z6--z1--z2{dir -85}..{right}z3..{up}z4; -draw luk; -transform a; a=identity reflectedabout (z4,z5); -path lukk; lukk=luk transformed a; -draw lukk; -endchar; - - - -% Besslagich, zvijezda s 8 latica -beginchar("O",cap#,cap#,.2cap#); "O(sam) latica"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/8; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -draw list; -for n=1,2,3,4,5,6,7,8: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -rr:=.2w; -path krug; krug= fullcircle scaled rr shifted z3; -erase fill krug; -draw krug; -endchar; - - -% Besslagich, zvijezda sa 6 latica -beginchar("S",cap#,cap#,.2cap#); "S(est) latica"; % 1.55em# -pickup pencircle scaled .3thin; -z3=(.5w,.5w); -z1=(.5w,0); -kut:=360/6; -xx:=1-.5*cosd (.5*kut); -y2=y4=xx*x3; -x4=w-x2; -z2=z4 rotatedaround (z3, kut); -path list; list= z2--z3--z4{dir (270-.5*kut)}..{right}z1..{dir -(90+.5*kut)}z2; -%draw list; -for n=1,2,3,4,5,6: -transform b[]; b[n]= identity rotatedaround (z3, n*kut); -draw (list transformed b[n]); endfor -endchar; - - -% krugu s krizzem -beginchar("4",cap#,cap#,.2cap#); "4"; -pickup pencircle scaled .3thin; -z0=(.5w,0); -numeric kk; kk:=10; -z1=z0 rotatedabout ((.5w,.5w),kk); -z2=z0 rotatedabout ((.5w,.5w),90-kk); -z3=(x1,y2); -path p; p= z2--z3--z1{dir kk}..{dir(90-kk)}z2; -numeric kutt; kut:=90; -transform b; b= identity rotatedaround ((.5w,.5w), kut); -path p[]; p[0]=p; -for n=1,2,3,4: -p[n]=p[n-1] transformed b; -draw p[n]; -endfor -endchar; - - -% zvijezda petokraka -beginchar("5",cap#,cap#,.2cap#); "5"; -pickup pencircle scaled .3thin; -z0=(.5w,h); -kut:=360/5; -transform b; b= identity rotatedaround ((.5w,.5w), kut); -for n=1,2,3,4,5: - z[n]=z[n-1] transformed b; -endfor -draw z1--z3--z5--z2--z4--cycle; -endchar; - - -% biljka, npr. u Lovreccu (Imostski) -beginchar("6",em#,cap#,0); "6"; -pickup pencircle scaled .3thick; -z0=(.5w,0); z1=(x0,.6h); -x0'=x0+.1w; y0'=0; -x3=w; x4=.96x8=x10=x6=x2=.5[x0',x3]; -x7=.6[x10,x3]; x11=.3[x10,x7]; -x5=.1[x0',x3]; x9=.6[x5,x10]; -%x56=.1[x5,x6]; -y2=h; %y1=.65h; -y5=.9y1; -y7=y3=y1; -y6=.6[y1,y2]; -y9=.9y11=.5[y5,y7]; -y8=.8y5; -y10=.5[y5,y6]; -y6-y10=y8-y4; % y4 -path p; p= z1{dir70}..z2{right}..{down}z3..{left}z4..{up}z5..{right}z6..{down}z7 -..{left}z8..{up}z9..{right}z10..{down}z11; -z56= point .4 of (z5{up}..{right}z6); -path q; q= z0'{up}..{direction .4 of(z5{up}..{right}z6)}z56; -draw p; draw q; -transform a; a= identity reflectedabout (z0,z1); -addto currentpicture also currentpicture transformed a; -endchar; - - - -Pt#:=pt#; - -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; - - - -% Besslagich, Bordura -beginchar("E",em#,cap#,.2cap#); "E - bordura(6)"; -pickup pencircle scaled .3thin; -x1=x3=0; x5=.5w; x2=x4=w; -x6=.55x5; -x8-x5=.3(x5-x6); -x7=.5[x6,x8]; -x10=.8[x6,x7]; -x9=.5[x10,x8]; -y1=y2=h; y3=y4=y5=.8h; -y7=0; y6=.4y5; y9=.45y5; -y8=.5[y7,y9]; y10=.75[y8,y9]; -draw z1--z2; draw z3--z4; -draw z5{dir (180+40)}..tension 1.2 ..{down}z6..{right}z7..{up}z8..{left}z9.. -{dir(180+30)}z10; -endchar; - - -% Besslagich, Bordura -beginchar("F",.8em#,cap#,.2cap#); "F - bordura"; -pickup pencircle scaled .3thin; -x1=x3=0; x2=x4=w; -x5=.1w; x6=.8w; -x8=.35w; -x10=.9w; - x12=.4[x8,x10]; x11=x9=.6[x8,x10]; - y1=y2=0; y3=y4=y5=y6=.2h; - y9=h; - y8=.95y10=.65[y3,y9]; - y11=.4[y3,y9]; - y12=.6[y11,y10]; -z7= point .7 of (z6{left}..z8{up}); - draw z1--z2; draw z3--z4; - draw z6{left}..z8{up}..{right}z9..{down}z10..{left}z11.. - {up}z12; -draw z5{right}..{dir 80}z7; - endchar; - - -% Besslagich, Bordura -beginchar("G",1.1*.5em#,1.1*cap#,.2cap#); "G - bordura"; -pickup pencircle scaled .3thin; -x7=w-x8=0; x1=.1w; x2=.8w; -x4=.25w; x5=.3[x4,x2]; x6=.5[x5,x2]; x3=.4[x5,x2]; -y1=y7=y8=.5h; y3=h; y5=.45[y1,y3]; -y4=.45[y5,y3]; y2=.4[y5,y3]; -y6=.3[y5,y3]; -draw z7--z8; -path luk; luk= z1{right}..{up}z2..{left}z3..{down}z4..{right}z5..{up}z6; -transform b; b= identity reflectedabout (z7,z8); -draw luk; -path lukk; lukk= luk transformed b; -draw lukk; - endchar; - - -% Besslagich, Bordura -beginchar("H",2.5cap#,cap#,.2cap#); "H - bordura"; -pickup pencircle scaled .3thin; -x10=x12=0; x11=x13=w; y10=y11=0; y12=y13=h; -draw z10--z11; draw z12--z13; -x1=.5w; x3=.9w; x5=.4[x1,x3]; -x7=.6[x5,x3]; x4=.5[x5,x3]; -x8=.6[x5,x7]; x2=x6=.5[x5,x7]; -y1=y5=y7=y3=.5h; -y4=h-y2=.2h; -y6=.5[y1,y2]; -y8=.4[y7,y4]; -path luk; luk= z1{dir (angle(z2-z1)+6)}..{right}z2..{down}z3..{left}z4 -..{up}z5..{right}z6..{down}z7..{left}z8; -draw luk; -transform a; a= identity rotatedaround(z1,180); -path lukk; lukk=luk transformed a; -draw lukk; - endchar; - - -% Besslagich, Bordura -beginchar("I",1.1*1.41cap#,1.1*cap#,.2cap#); "I - bordura"; -pickup pencircle scaled .3thin; -x1=x3=x5=0; x2=x4=x6=w; -y5=y6=0; y1=y2=h; y3=y4=.8h; -draw z1--z2; draw z3--z4; draw z5--z6; -x7=w-x9=.2w; -x8=x12=x14=x10=.5w; -x11=w-x13=.4[x7,x12]; -y8=y3-y10=.2y3; -y7=y11=y13=y9=.5y3; -y12=y3-y14=.5[y8,y7]; -draw superellipse (z9,z10,z7,z8,.75); -draw superellipse (z13,z14,z11,z12,.75); - endchar; - - -% Besslagich, Bordura -beginchar("J",2cap#,cap#,.2cap#); "J - bordura"; -pickup pencircle scaled .3thin; -x1=x3=0; x2=x4=w; x5=.5w; -y1=y2=0; -y3=y4=y5=h; -draw z1--z2; draw z3--z4; draw z1--z5--z2; -endchar; - - - -% Besslagich, Bordura -beginchar("M",.5em#,cap#,.2cap#); "M - bordura"; -pickup pencircle scaled .3thin; -x1=x3=0; x2=x4=w; -y1=y2=0; y3=y4=h; -draw z1--z2; draw z3--z4; draw z1--z4; -endchar; - - - -% Besslagich, Bordura, cvijet -beginchar("N",1.1*2.3cap#,1.1*cap#,.2cap#); "N - bordura"; -pickup pencircle scaled .2thin; -kut:=43; -x1=x11=0; x12=x3=x10=w; -x2=.5w; x4=.4[x2,x3]; x13=.5[x2,x4]; -x0=.5[x2,x3]; -y1=y10=h; y11=y12=0; -y2=y3=.5h; -y0=.2h; y13=h-y0; -y4=.7[y2,y13]; -kutt:=kut+5; -kuttt:=270-kutt; -x5=.1[x13,x4]; -z5-z4=whatever*dir(kuttt); -%x9-x4=x4-x5; -%z9-z4=z4-z5; -z7=z5 rotatedaround(z4,90); -z9=z7 rotatedaround(z4,90); -z55=z5 rotatedaround (z4,10); -z99=z9 rotatedaround (z4,-10); -z77=.4[z4,z7]; -z77'=1.3[z4,z7]; -z6=z77 rotatedaround (z4,-30); -z8=z77 rotatedaround (z4,30); -draw z1--z10; draw z11--z12; -path luk; luk= - z4{dir (angle(z5-z4)-60)}..%tension1.1.. - z55{dir angle(z7-z4)}..%tension1.2.. -{dir (angle(z4-z6))}z6{dir (angle(z6-z4))}..{dir angle(z9-z5)}z77'.. -{dir (angle(z4-z8))}z8{dir (angle(z8-z4))}..%tension1.2.. -{dir angle(z4-z7)}z99..%tension1.1.. -{dir (angle(z4-z9)+60)} -z4{dir (180-kutt)}..{left}z13.. - z2{dir-kut}..{right}z0..{dir kut}z3; -draw luk; -path lukk; lukk = luk shifted(-.5w,0); -transform a; a=identity reflectedabout (z2,z3); -lukk:=lukk transformed a; -draw lukk; -endchar; - - - - - -end. - |