diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/croatian/plet.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/croatian/plet.mf | 580 |
1 files changed, 0 insertions, 580 deletions
diff --git a/Master/texmf-dist/fonts/source/public/croatian/plet.mf b/Master/texmf-dist/fonts/source/public/croatian/plet.mf deleted file mode 100644 index 80b9c226322..00000000000 --- a/Master/texmf-dist/fonts/source/public/croatian/plet.mf +++ /dev/null @@ -1,580 +0,0 @@ - -% Croatian Wattle Pattern, 1994, -% darko.zubrinic@etf.hr - -% o mmmm p (slozzeni pleter, jednostruki) - -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("m",5em#,5cap#,0); "drugi pleter"; -pickup pencircle scaled .6thick; -db:=.08w; %.09w -r:=.2db; -rr:=r+db; -kut:=-35; -kutt:=10; -x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w; -x5=w-curve_sidebar; -x6=x5-1.8db; %1.9 -x4=x6; % -.15w; -x3=x4-db*cosd kut; -y2-.5h=.5h-y1=1.2*.5db/cosd kut; -y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -transform t; t=identity reflectedabout ((.5w,0),(.5w,h)); -addto currentpicture also currentpicture transformed t; - -%brisanje na krugu -path p; p= z6{dir(90+1.3kutt)}.. -tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle; -%path q; q=p transformed t; - -erase fill p; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -%brisanje na lijevom kraku -path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6; -path p; p= subpath (.2,1) of pp; -%draw p; -path ss; ss=z5{dir(90+kutt)}..{left}z10; -path q; q=subpath (0,.55) of ss; -%draw q; -path ar; ar=z6--z5; %draw r; -path ok; ok= point 0 of p{left} & p & ar & q.. cycle; -path okk; okk= ok reflectedabout ((.5w,0),(.5w,h)); -erase fill okk; -draw q reflectedabout ((.5w,0),(.5w,h)); -draw p reflectedabout ((.5w,0),(.5w,h)); - -%brisanje dolje -path p; p= z1{dir(kut)}..{right}z3; -path pp; pp= subpath (.45,1) of p; %.5 -path q; q= z4{left}..{dir(180+kut)}z2; -path qq; qq= subpath (0,.4) of q; -path qr; qr= pp & z3--z4 & qq--cycle; -%pickup pencircle scaled .3thick; -erase fill qr; -draw pp; draw qq; - -%brisanje desno -%pickup pencircle scaled .3thick; -path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h)); -path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h)); -z.1=z1 reflectedabout ((.5w,0),(.5w,h)); -z.2=z2 reflectedabout ((.5w,0),(.5w,h)); -path zqr; zqr = zqq & z.2--z.1 & zpp --cycle; -erase fill zqr; -draw zpp; draw zqq; - -%brisanje na lijevom rubu -path qu; qu= q reflectedabout ((0,.5h),(w,.5h)); -numeric t,u; (t,u)= qu intersectiontimes q; -%pickup pencircle scaled .3thick; -path quu; quu= subpath (t,1) of qu; -undraw quu; -undraw quu; -%pickup pencircle scaled .1thick; -draw point t of qu; draw z1; - -transform s; s=identity rotatedaround ((.5w,.5h),180); -addto currentpicture also currentpicture transformed s; -endchar; - - -beginchar("o",5em#,5cap#,0); "drugi pleter, lijevi"; -pickup pencircle scaled .6thick; -db:=.08w; %.09w -r:=.2db; -rr:=r+db; -kut:=-35; -kutt:=10; -x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w; -x5=w-curve_sidebar; -x6=x5-1.8db; %1.9 -x4=x6; % -.15w; -x3=x4-db*cosd kut; -y2-.5h=.5h-y1=1.2*.5db/cosd kut; -y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -transform t; t=identity reflectedabout ((.5w,0),(.5w,h)); -addto currentpicture also currentpicture transformed t; - -%brisanje na krugu -path p; p= z6{dir(90+1.3kutt)}.. -tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{down}z5--cycle; -%path q; q=p transformed t; - -erase fill p; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -%brisanje na lijevom kraku -path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6; -path p; p= subpath (.2,1) of pp; -%draw p; -path ss; ss=z5{dir(90+kutt)}..{left}z10; -path q; q=subpath (0,.55) of ss; -%draw q; -path ar; ar=z6--z5; %draw r; -path ok; ok= point 0 of p{left} & p & ar & q.. cycle; -path okk; okk= ok reflectedabout ((.5w,0),(.5w,h)); -erase fill okk; -draw q reflectedabout ((.5w,0),(.5w,h)); -draw p reflectedabout ((.5w,0),(.5w,h)); - -%brisanje dolje -path p; p= z1{dir(kut)}..{right}z3; -path pp; pp= subpath (.45,1) of p; %.5 -path q; q= z4{left}..{dir(180+kut)}z2; -path qq; qq= subpath (0,.4) of q; -path qr; qr= pp & z3--z4 & qq--cycle; -%pickup pencircle scaled .3thick; -erase fill qr; -draw pp; draw qq; - -%brisanje desno -%pickup pencircle scaled .3thick; -path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h)); -path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h)); -z.1=z1 reflectedabout ((.5w,0),(.5w,h)); -z.2=z2 reflectedabout ((.5w,0),(.5w,h)); -path zqr; zqr = zqq & z.2--z.1 & zpp --cycle; -erase fill zqr; -draw zpp; draw zqq; - -%brisanje na lijevom rubu -path qu; qu= q reflectedabout ((0,.5h),(w,.5h)); -numeric t,u; (t,u)= qu intersectiontimes q; -%pickup pencircle scaled .3thick; -path quu; quu= subpath (t,1) of qu; -undraw quu; -undraw quu; -%pickup pencircle scaled .1thick; -draw point t of qu; %draw z1; - -transform s; s=identity rotatedaround ((.5w,.5h),180); -addto currentpicture also currentpicture transformed s; - -kr:=.2h; -z11=(x1,y1-kr); -z22=(x2,y2+kr); -z11-z33=(z22-z33) rotated (-2kut); -erase fill z11--z22--z33--cycle; -undrawdot z1; undrawdot z2; - -%z.11=(w,y11); %ZA DESNI KRAJ -%z.22=(w,y22); -%z.33=(w-x33,y33); -%erase fill z.11--z.22--z.33--cycle; -%undrawdot (w,y1); undrawdot (w,y2); - -path pa; pa = z11 -- z33; -numeric s, v; (s,v)= p intersectiontimes pa; -numeric t, v; (t,v)= q intersectiontimes pa; -z$1= point s of p; z$2= point t of q; -z$11=(x$1,h-y$1); -z$22=(x$2,h-y$2); -%draw z$1--z$2; -%draw z$11--z$22; -kut1:= angle direction s of p; -kut2:= angle direction t of q; -draw z$11{dir(180-kut1)}..tension1.1..{dir kut1}z$1; -draw z$2{dir kut2}..{dir(180-kut2)}z$22; -picture lijevi_pleter; lijevi_pleter= currentpicture; - -endchar; - -beginchar("p",5em#,5cap#,0); "drugi pleter, desni"; -pickup pencircle scaled .6thick; -transform zrcal; zrcal = identity rotatedabout ((.5w,.5h),180); -addto currentpicture also lijevi_pleter transformed zrcal; -endchar; - - -%%%%%%%%%%%%% (slozzeni troplet) srrrrrt - - -beginchar("r",5em#,5cap#,0); "drugi troplet"; -pickup pencircle scaled .6thick; -db:=.08w; %.09w -r:=.2db; -rr:=r+db; -kut:=-35; -kutt:=10; -x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w; -x5=w-curve_sidebar; -x6=x5-1.8db; %1.9 -x4=x6; % -.15w; -x3=x4-db*cosd kut; -y2-.5h=.5h-y1=1.2*.5db/cosd kut; -y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -z1$=1/3[z1,z2]; % troplet -z2$=2/3[z1,z2]; -z3$=1/3[z3,z4]; -z4$=2/3[z3,z4]; -z5$=1/3[z5,z6]; -z6$=2/3[z5,z6]; -z10$=1/3[z10,z7]; -z7$=2/3[z10,z7]; -z9$=1/3[z9,z8]; -z8$=2/3[z9,z8]; -pickup pencircle scaled .3thick; -draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension 1.1.. -{left}z10$..{up}z9$; %1.166 -draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2.. -{left}z7$..{up}z8$; %1.333 - -transform t; t=identity reflectedabout ((.5w,0),(.5w,h)); -addto currentpicture also currentpicture transformed t; - -%brisanje na krugu -path p; p= z6{dir(90+1.3kutt)}.. -tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle; -erase fill p; - -pickup pencircle scaled .6thick; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; -pickup pencircle scaled .3thick; -draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension1.1.. -{left}z10$..{up}z9$; -draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2.. -{left}z7$..{up}z8$; -pickup pencircle scaled .6thick; - -%brisanje na lijevom kraku -path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6; -path p; p= subpath (.2,1) of pp; -path ss; ss=z5{dir(90+kutt)}..{left}z10; -path q; q=subpath (0,.55) of ss; -path ar; ar=z6--z5; %draw r; -path ok; ok= point 0 of p{left} & p & ar & q.. cycle; -path okk; okk= ok reflectedabout ((.5w,0),(.5w,h)); -erase fill okk; -draw q reflectedabout ((.5w,0),(.5w,h)); -draw p reflectedabout ((.5w,0),(.5w,h)); - -pickup pencircle scaled .3thick; -%brisanje na lijevom kraku -path pp$; pp$= z7${right}..tension1.2.. -{dir(-90+1.1kutt)}z6$; -path p$; p$= subpath (.2,1) of pp$; -path ss$; ss$=z5${dir(90+kutt)}..tension1.1..{left}z10$; -path q$; q$=subpath (0,.7) of ss$; %.55 -draw q$ reflectedabout ((.5w,0),(.5w,h)); -draw p$ reflectedabout ((.5w,0),(.5w,h)); - -pickup pencircle scaled .6thick; -%brisanje dolje -path p; p= z1{dir(kut)}..{right}z3; -path pp; pp= subpath (.45,1) of p; %.5 -path q; q= z4{left}..{dir(180+kut)}z2; -path qq; qq= subpath (0,.4) of q; -path qr; qr= pp & z3--z4 & qq--cycle; -erase fill qr; -draw pp; draw qq; - -pickup pencircle scaled .3thick; -path p$; p$= z1${dir(kut)}..{right}z3$; -path pp$; pp$= subpath (.45,1) of p$; %.5 -path q$; q$= z4${left}..{dir(180+kut)}z2$; -path qq$; qq$= subpath (0,.45) of q$; -draw pp$; draw qq$; - -%brisanje desno -pickup pencircle scaled .6thick; -path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h)); -path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h)); -z.1=z1 reflectedabout ((.5w,0),(.5w,h)); -z.2=z2 reflectedabout ((.5w,0),(.5w,h)); -path zqr; zqr = zqq & z.2--z.1 & zpp --cycle; -erase fill zqr; -draw zpp; draw zqq; - -pickup pencircle scaled .3thick; -path zpp$; zpp$ = subpath (0,.5) of p$ reflectedabout ((.5w,0),(.5w,h)); -path zqq$; zqq$ = subpath (.45,1) of q$ reflectedabout ((.5w,0),(.5w,h)); -draw zpp$; draw zqq$; -pickup pencircle scaled .6thick; - -%brisanje na lijevom rubu -path qu; qu= q reflectedabout ((0,.5h),(w,.5h)); -numeric t,u; (t,u)= qu intersectiontimes q; -%pickup pencircle scaled .6thick; -path quu; quu= subpath (t,1) of qu; -undraw quu; -undraw quu; -%pickup pencircle scaled .6thick; -draw point t of qu; draw z1; - -pickup pencircle scaled .3thick; -path qu$; qu$= q$ reflectedabout ((0,.5h),(w,.5h)); -numeric t$,u$; (t$,u$)= qu$ intersectiontimes q; -path quu$; quu$= subpath (t$,1) of qu$; -undraw quu$; -undraw quu$; -draw point t$ of qu$; draw point 1 of quu$; - -path pu$; pu$= p$ reflectedabout ((0,.5h),(w,.5h)); -numeric t$,u$; (t$,u$)= pu$ intersectiontimes q; -path puu$; puu$= subpath (0,t$) of pu$; -undraw puu$; -undraw puu$; -draw point t$ of pu$; draw point 0 of puu$; - -numeric u,v; (u,v) = p$ intersectiontimes qu; -path p$$; p$$ = subpath (0,u) of p$; draw p$$; draw p$$; -numeric uu,vv; (uu,vv) = q$ intersectiontimes qu; -path q$$; q$$ = subpath (uu,1) of q$; draw q$$; draw q$$; - -transform s; s=identity rotatedaround ((.5w,.5h),180); -addto currentpicture also currentpicture transformed s; -endchar; - - - -beginchar("s",5em#,5cap#,0); "drugi troplet, lijevi"; -pickup pencircle scaled .6thick; -db:=.08w; %.09w -r:=.2db; -rr:=r+db; -kut:=-35; -kutt:=10; -x1=x2=0; x9=.5w-r; x8=x9-1.5db; x10=x7=.5w; -x5=w-curve_sidebar; -x6=x5-1.8db; %1.9 -x4=x6; % -.15w; -x3=x4-db*cosd kut; -y2-.5h=.5h-y1=1.2*.5db/cosd kut; -y3=y5=-.1db; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -z1$=1/3[z1,z2]; % troplet -z2$=2/3[z1,z2]; -z3$=1/3[z3,z4]; -z4$=2/3[z3,z4]; -z5$=1/3[z5,z6]; -z6$=2/3[z5,z6]; -z10$=1/3[z10,z7]; -z7$=2/3[z10,z7]; -z9$=1/3[z9,z8]; -z8$=2/3[z9,z8]; - -pickup pencircle scaled .3thick; -draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension 1.1.. -{left}z10$..{up}z9$; %1.166 -draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2.. -{left}z7$..{up}z8$; %1.333 - -transform t; t=identity reflectedabout ((.5w,0),(.5w,h)); -addto currentpicture also currentpicture transformed t; - -%brisanje na krugu -path p; p= z6{dir(90+1.3kutt)}.. -tension1.5..{left}z7..{up}z8--z9{down}..{right}z10..{dir(-90+kutt)}z5--cycle; -erase fill p; - -pickup pencircle scaled .6thick; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; - -pickup pencircle scaled .3thick; -draw z1${dir(kut)}..{right}z3$--z5${dir(90+kutt)}..tension1.1.. -{left}z10$..{up}z9$; -draw z2${dir(kut)}..{right}z4$--z6${dir(90+1.1kutt)}..tension1.2.. -{left}z7$..{up}z8$; -pickup pencircle scaled .6thick; - -%brisanje na lijevom kraku -path pp; pp= z7{right}..tension1.5..{dir(-90+1.3kutt)}z6; -path p; p= subpath (.2,1) of pp; -path ss; ss=z5{dir(90+kutt)}..{left}z10; -path q; q=subpath (0,.55) of ss; -path ar; ar=z6--z5; %draw r; -path ok; ok= point 0 of p{left} & p & ar & q.. cycle; -path okk; okk= ok reflectedabout ((.5w,0),(.5w,h)); -erase fill okk; -draw q reflectedabout ((.5w,0),(.5w,h)); -draw p reflectedabout ((.5w,0),(.5w,h)); - -pickup pencircle scaled .3thick; -%brisanje na lijevom kraku -path pp$; pp$= z7${right}..tension1.2.. -{dir(-90+1.1kutt)}z6$; -path p$; p$= subpath (.2,1) of pp$; -path ss$; ss$=z5${dir(90+kutt)}..tension1.1..{left}z10$; -path q$; q$=subpath (0,.7) of ss$; %.55 -draw q$ reflectedabout ((.5w,0),(.5w,h)); -draw p$ reflectedabout ((.5w,0),(.5w,h)); - -pickup pencircle scaled .6thick; -%brisanje dolje -path p; p= z1{dir(kut)}..{right}z3; -path pp; pp= subpath (.45,1) of p; %.5 -path q; q= z4{left}..{dir(180+kut)}z2; -path qq; qq= subpath (0,.4) of q; -path qr; qr= pp & z3--z4 & qq--cycle; -erase fill qr; -draw pp; draw qq; - -pickup pencircle scaled .3thick; -path p$; p$= z1${dir(kut)}..{right}z3$; -path pp$; pp$= subpath (.45,1) of p$; %.5 -path q$; q$= z4${left}..{dir(180+kut)}z2$; -path qq$; qq$= subpath (0,.45) of q$; -draw pp$; draw qq$; - -%brisanje desno -pickup pencircle scaled .6thick; -path zpp; zpp = subpath (0,.45) of p reflectedabout ((.5w,0),(.5w,h)); -path zqq; zqq = subpath (.4,1) of q reflectedabout ((.5w,0),(.5w,h)); -z.1=z1 reflectedabout ((.5w,0),(.5w,h)); -z.2=z2 reflectedabout ((.5w,0),(.5w,h)); -path zqr; zqr = zqq & z.2--z.1 & zpp --cycle; -erase fill zqr; -draw zpp; draw zqq; - -pickup pencircle scaled .3thick; -path zpp$; zpp$ = subpath (0,.5) of p$ reflectedabout ((.5w,0),(.5w,h)); -path zqq$; zqq$ = subpath (.45,1) of q$ reflectedabout ((.5w,0),(.5w,h)); -draw zpp$; draw zqq$; -pickup pencircle scaled .6thick; - -%brisanje na lijevom rubu -path qu; qu= q reflectedabout ((0,.5h),(w,.5h)); -numeric t,u; (t,u)= qu intersectiontimes q; -path quu; quu= subpath (t,1) of qu; -undraw quu; -undraw quu; -draw point t of qu; draw z1; - - -path qu$; qu$= q$ reflectedabout ((0,.5h),(w,.5h)); -numeric t$,u$; (t$,u$)= qu$ intersectiontimes q; -path quu$; quu$= subpath (t$,1) of qu$; -undraw quu$; -undraw quu$; -draw point t$ of qu$; draw point 1 of quu$; - -pickup pencircle scaled .3thick; -path pu$; pu$= p$ reflectedabout ((0,.5h),(w,.5h)); -numeric t$,u$; (t$,u$)= pu$ intersectiontimes q; -path puu$; puu$= subpath (0,t$) of pu$; -undraw puu$; -undraw puu$; -draw point t$ of pu$; draw point 0 of puu$; - -numeric u,v; (u,v) = p$ intersectiontimes qu; -path p$$; p$$ = subpath (0,u) of p$; draw p$$; draw p$$; -numeric uu,vv; (uu,vv) = q$ intersectiontimes qu; -path q$$; q$$ = subpath (uu,1) of q$; draw q$$; draw q$$; - -transform s; s=identity rotatedaround ((.5w,.5h),180); -addto currentpicture also currentpicture transformed s; - - -kr:=.2h; -z11=(x1,y1-kr); -z22=(x2,y2+kr); -z11-z33=(z22-z33) rotated (-2kut); -erase fill z11--z22--z33--cycle; -undrawdot z1; undrawdot z2; - -path pa; pa = z11 -- z33; -numeric s, v; (s,v)= p intersectiontimes pa; -numeric t, v; (t,v)= q intersectiontimes pa; -z$1= point s of p; z$2= point t of q; -z$11=(x$1,h-y$1); -z$22=(x$2,h-y$2); -%draw z$1--z$2; -%draw z$11--z$22; -kut1:= angle direction s of p; -kut2:= angle direction t of q; -pickup pencircle scaled .6thick; -draw z$11{dir(180-kut1)}..tension1.1..{dir kut1}z$1; -draw z$2{dir kut2}..{dir(180-kut2)}z$22; - -pickup pencircle scaled .3thick; -numeric s, v; (s,v)= p$ intersectiontimes pa; -numeric t, v; (t,v)= q$ intersectiontimes pa; -kut$1=angle direction s of p$; -kut$2=angle direction t of q$; -z$$1=point s of p$; -z$$2=point t of q$; - -kutu$1=180-kut$1; -kutu$2=180-kut$2; -z$$u1=z$$1 reflectedabout ((0,.5h),(w,.5h)); -z$$u2=z$$2 reflectedabout ((0,.5h),(w,.5h)); - -draw z$$u1{dir(kutu$1)}..{dir(kut$1)}z$$1; -draw z$$2{dir(kut$2)}..{dir(kutu$2)}z$$u2; - -pickup pencircle scaled thick; -undraw z1; undraw z2; undraw point 0 of p$; undraw point 1 of q$; - -picture lijevi_pleter; lijevi_pleter= currentpicture; -endchar; - - - -beginchar("t",5em#,5cap#,0); "drugi troplet, desni"; -pickup pencircle scaled .6thick; -transform zrcal; zrcal = identity rotatedabout ((.5w,.5h),180); -addto currentpicture also lijevi_pleter transformed zrcal; -endchar; - - - - -end. - -beginchar("n",5*em#,5*cap#,0); "temeljni pleter"; -pickup pencircle scaled .5thick; -db:=.08w; %.09w -r:=.2db; -rr:=r+db; -kut:=-35; -kutt:=10; -x1=x2=0; x9=.5w-r; x8=x9-1.2db; x10=x7=.5w; -x5=w-curve_sidebar; -x6=x5-1.8db; %1.9 -x4=x6; % -.15w; -x3=x4-db*cosd kut; -y2-.5h=.5h-y1=1.2*.5db/cosd kut; -y3=y5=0; y4=y6=db; y8=y9=.5h; y10=.5h-r; y7=y10-rr; -draw z1{dir(kut)}..{right}z3--z5{dir(90+kutt)}..{left}z10..{up}z9; -draw z2{dir(kut)}..{right}z4--z6{dir(90+1.3kutt)}..tension1.5..{left}z7..{up}z8; -transform t; t=identity reflectedabout ((.5w,0),(.5w,h)); -addto currentpicture also currentpicture transformed t; -transform s; s=identity rotatedaround ((.5w,.5h),180); -addto currentpicture also currentpicture transformed s; -endchar; - - - - - - -end. |