summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/mfpic/forfun.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/mfpic/forfun.tex')
-rw-r--r--Master/texmf-dist/doc/generic/mfpic/forfun.tex185
1 files changed, 104 insertions, 81 deletions
diff --git a/Master/texmf-dist/doc/generic/mfpic/forfun.tex b/Master/texmf-dist/doc/generic/mfpic/forfun.tex
index 8f9279a8763..75dca0bd47f 100644
--- a/Master/texmf-dist/doc/generic/mfpic/forfun.tex
+++ b/Master/texmf-dist/doc/generic/mfpic/forfun.tex
@@ -1,94 +1,106 @@
%%% File: forfun.tex
-%%% A part of mfpic 0.7a beta 2004/04/16
+%%% A part of mfpic 0.9 2006/05/26
%%%
\nopagenumbers
\input mfpic.tex
\usemetapost
\usetruebbox
-\opengraphsfile{forfun}
+\opengraphsfile{fun}
\mfpicunit=1bp
\noindent
-\mfpic[1]{-1.25}{118.5}{-11.25}{40}
-
-% meta-ness:
-\mfsrc{h:=25; % height of "m"
- s:=10; % width of stems
+\mfpic{-1.25}{118.5}{-11.25}{40}
+%
+% "meta"-ness:
+%
+\mfsrc{h:=25; % height of "m" These are graph units
+ s:=10; % width of stems
}
-
+%
% Calculate key points:
-\mfsrc{% the "m"
-z1=(0,0);
-y1=y2=y5=y6=y9=y10;
-x2-x1=x6-x5=x10-x9=s;
-x6-x1=x10-x5=h;
-z15-z1=z3-z2=z4-z5=z7-z6=z8-z9=z11-z10=(0,h/2);
-y12=y1+h; x12=.5[x6,x9];
-y14=y12; x14=.5[x2,x5];
-z13= arcppp(z7,z14,z15) intersectionpoint arcppp(z11,z12,z4);}
-
-\mfsrc{% the "f"
-z21=z10; % start "f" where the "m" ends
-z22=z21+(s,0);
-z23=z22+(0,h-s);
-z24=z23+(3s/4,0);
-z25=z24+(0,s);
-z26=z23+(0,s);
-z27=z26+(0,s/4);
-z28=z27+(s/4,0)+ (s/4)*dir(30);
-z29=z28+s*dir(30);
-x30=x21; y30=y27;}%
-
-\mfsrc{% the "p"
-x31=x24;
-y31=y21;
-z32=z31-(0,s);
-z33=z32+(s,0);
-z35=(x33,h/2);
-z39=z31+(h,h)/2; %center of round part
-z34=(z33--z35) intersectionpoint (fullcircle scaled h shifted z39);
-z36=z39+(h/2,0);
-z37=z31+(0,h/2);}%
-
-\mfsrc{% the "i"
-z41=(x36,y31);
-z42=z41+(s,0);
-z43=z42+(0,h);
-z44=z41+(0,h);
-x45=0.5[x41,x42]; y45=y43 + s/2 +3/50;}% Center of dot
-
-\mfsrc{% the "c"
-z51=z42;
-z52=z51+(h,h)/2; %center
-z53=z52+(h/2)*dir(15);
-z54=z52-(h/2,0);
-z55=z52+(h/2)*dir(-15);
-z56=z52+(s/4)*dir(-15);
-z57=z52-(s/4,0);
-z58=z52+(s/4)*dir(15);}%
-
-\pen{2.5*\the\mfpicunit}
-
-% Calculate bounding box
-
+%
+% "m"
+%
+\mfsrc{%
+ z1=(0,0);
+ y1=y2=y5=y6=y9=y10;
+ x2-x1=x6-x5=x10-x9=s;
+ x6-x1=x10-x5=h;
+ z15-z1=z3-z2=z4-z5=z7-z6=z8-z9=z11-z10=(0,h/2);
+ y12=y1+h; x12=.5[x6,x9];
+ y14=y12; x14=.5[x2,x5];
+ z13= arcppp(z7,z14,z15) intersectionpoint arcppp(z11,z12,z4);}
+%
+% "f"
+%
+\mfsrc{%
+ z21=z10; % start "f" at "m"'s end
+ z22=z21+(s,0);
+ z23=z22+(0,h-s);
+ z24=z23+(3s/4,0);
+ z25=z24+(0,s);
+ z26=z23+(0,s);
+ z27=z26+(0,s/4);
+ z28=z27+(s/4,0)+ (s/4)*dir(30);
+ z29=z28+s*dir(30);
+ x30=x21; y30=y27;}%
+%
+% "p"
+%
+\mfsrc{%
+ x31=x24;
+ y31=y21;
+ z32=z31-(0,s);
+ z33=z32+(s,0);
+ z35=(x33,h/2);
+ z39=z31+(h,h)/2; %center of round part
+ z34=(z33--z35) intersectionpoint (fullcircle scaled h shifted z39);
+ z36=z39+(h/2,0);
+ z37=z31+(0,h/2);}%
+%
+% "i"
+%
+\mfsrc{%
+ z41=(x36,y31);
+ z42=z41+(s,0);
+ z43=z42+(0,h);
+ z44=z41+(0,h);
+ x45=0.5[x41,x42]; y45=y43 + s/2 +3/50;}% Center of dot
+%
+% "c"
+%
\mfsrc{%
+ z51=z42;
+ z52=z51+(h,h)/2; %center
+ z53=z52+(h/2)*dir(15);
+ z54=z52-(h/2,0);
+ z55=z52+(h/2)*dir(-15);
+ z56=z52+(s/4)*dir(-15);
+ z57=z52-(s/4,0);
+ z58=z52+(s/4)*dir(15);}%
+%
+\penwd{2.5*\the\mfpicunit}
+\mfsrc{%
+%
+% Calculate bounding box
+%
% Need to account for half the thickness of pen;
% penwd is in absolute units so we need to convert.
% This is a displacement, so use invvconv (not invzconv):
-begingroup
-save border,ll,ur;
-pair border,ll,ur; border:= invvconv((penwd,penwd))/2;
-ll=(0,y32)-border;
-ur=(x55,y30+(x29-x30)/2)+border;}
-
-\gfill[yellow]\rect{ll,ur}
-
+ begingroup
+ save border,ll,ur;
+ pair border,ll,ur; border:= invvconv((penwd,penwd))/2;
+ ll=(0,y32)-border;
+ ur=(x55,y27+5s/4)+border;}
+%
+\gfill[yellow]\rect{ll,ur} % background
\mfsrc{endgroup;}
-
+%
\fillcolor{blue}
\drawcolor{green}
-
+%
+% "m"
\mftitle{m}
\draw\gfill\lclosed
\connect
@@ -100,8 +112,8 @@ ur=(x55,y30+(x29-x30)/2)+border;}
\arc[t]{z11,z12,z13}
\arc[t]{z13,z14,z15}
\endconnect
-
-
+%
+% "f"
\mftitle{f}
\draw\gfill\lclosed
\connect
@@ -110,28 +122,39 @@ ur=(x55,y30+(x29-x30)/2)+border;}
\lines{z28,z29}
\arc[s]{z29,z30,150}
\endconnect
-
+%
+% "p"
\mftitle{p}
\draw\gfill\lclosed
\connect
\lines{z31,z32,z33,z34}
\arc[t]{z34,z36,z37}
\endconnect
-
\draw\gfill[yellow]\circle{z39,(h/2-s)}
-
+%
+% "i"
\mftitle{i}
-\draw\gfill\lclosed\lines{z41,z42,z43,z44}
+\draw\gfill\polygon{z41,z42,z43,z44}
\draw\gfill\circle{z45,s/2}
-
+%
+% "c"
\mftitle{c}
\draw\gfill\lclosed
\connect
\arc[t]{z53,z54,z55}
\arc[t]{z56,z57,z58}
\endconnect
-
+% uncoment to exhibit the points
+%\pointsize2bp
+%\pointfillfalse
+%\penwd{.2pt}
+%\point{z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12,z13,z14}
+%\point{z21,z22,z23,z24,z25,z26,z27,z28,z29,z30}
+%\point{z31,z32,z33,z34,z35,z36,z37}
+%\point{z41,z42,z43,z44,z45}
+%\point{z51,z52,z53,z54,z55,z56,z57,z58}
+% done
\endmfpic
-\closegraphsfile%{forfun}
+\closegraphsfile % {fun}
\bye