%%%
%%%  File: objects.tex
%%%
%%%  mfpic 0.2.9.8 alpha  Tue 28 May 1996
%%%

\input mfpic
\magnification=\magstep1

\opengraphsfile{objs}

{\sl \tmtitle {Basic Figures.}}

\nobreak
\noindent
\tmtitle {Point:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\point{(0.5,0.5)}
\endmfpic

\noindent
\tmtitle {Line segments (Polygonal curve):}
\nobreak
\noindent
\mfpic[15]{0}{2}{0}{1}
\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Line segments with thicker pen:}
\nobreak
\noindent
\mfpic[15]{0}{2}{0}{1}
\pen{1pt}
\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Rectangle:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\rect{(0,0),(0.8,1)}
\endmfpic

\noindent
\tmtitle {Circle:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\circle{(0.5,0.5),0.5}
\endmfpic

\noindent
\tmtitle {Ellipse:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\ellipse{(1,0.5),1,0.5}
\endmfpic

\noindent
\tmtitle {Rotated Ellipse:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\ellipse[15 deg]{(1,0.5),1,0.4}
\endmfpic

\noindent
\tmtitle {Curve:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\curve{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Cyclic curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\cyclic{(0.5,0), (0,0.3), (0.5,0.8), (1.5,0.8), (2.0,0.3), (1.5,0),
  (1.0,0.3)}
\endmfpic

\vskip20pt
{\sl \tmtitle {Dotted Figures.}}

\nobreak
\noindent
\tmtitle {Dotted Line segments:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\dotted\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Dotted Rectangle:}
\nobreak
\mfpic[20]{0}{1}{0}{1}
\dotted\rect{(0,0),(0.8,1)}
\endmfpic

\noindent
\tmtitle {Dotted Ellipse:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\dotted\ellipse{(1,0.5),1,0.5}
\endmfpic

\noindent
\tmtitle {Dotted Cyclic curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\dotted\cyclic {
   (0.5,0), (0,0.3),
   (0.5,0.8), (1.5,0.8),
   (2.0,0.3), (1.5,0),
   (1.0,0.3)}
\endmfpic

\noindent
\tmtitle {Dotted curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\dotted\curve{(0,0), (0.25,0.75), (0.5,0.5), (2,1)}
\endmfpic

\vfill\break

\vskip5pt
{\sl \tmtitle {Axes and Axis Marks.}}

\nobreak
\noindent
\tmtitle {Axes:}
\nobreak
\noindent
\mfpic[15][20]{-2}{2}{-2}{2}
\axes
\endmfpic

\noindent
\tmtitle {Axis marks:}
\nobreak
\noindent
\mfpic[15][20]{-2}{2}{-2}{2}
\axes
\xmarks{-1,1}
\ymarks{-1,1}
\endmfpic

\vskip5pt
{\sl \tmtitle {Circular Arcs.}}

\nobreak
\noindent
\tmtitle {Circular arc, point-sweep form:}
\nobreak
\noindent
\mfpic[15]{0}{2}{0}{1}
\point{(0,0.8),(2,0.8)}
\arc  {(0,0.8),(2,0.8),90}
\endmfpic

\nobreak
\noindent
\tmtitle {Circular arc, three-point form:}
\nobreak
\noindent
\mfpic[15]{0}{2}{0}{1}
\point {(0,0.8),(1,0.1),(2,0.8)}
\arc[t]{(0,0.8),(1,0.1),(2,0.8)}
\endmfpic

\noindent
\tmtitle {Circular arc, polar form:}
\nobreak
\noindent
\mfpic[15]{0}{1}{0}{1}
\point {(0,0)}
\arc[p]{(0,0),0,75,1}
\endmfpic

\noindent
\tmtitle {Circular arc, center-point form:}
\nobreak
\noindent
\mfpic[15]{0}{1}{0}{1}
\point {(0,0),(1,0)}
\arc[c]{(0,0),(1,0),75}
\endmfpic

\vskip5pt
{\sl \tmtitle {Polar Coordinates.}}

\nobreak
\noindent
\tmtitle{Polar point:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\point{\plr{(1,45)}}
\endmfpic

\noindent
\tmtitle {Polar lines:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\lines{\plr{(0.25,0), (1,30), (0.75,45), (1,60), (0.25,90)}}
\endmfpic

\noindent
\tmtitle {Polar curve:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\curve{\plr{(0.25,0), (1,30), (0.75,45), (1,60), (0.25,90)}}
\endmfpic

\noindent
\tmtitle {Polar Cyclic curve:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\cyclic{\plr{(0.25,0), (1,30), (0.75,45), (1,60), (0.25,90), (0.1,45)}}
\endmfpic

\vskip5pt
{\sl \tmtitle {Other Figures.}}

\nobreak
\noindent
\tmtitle {Line segments (polar ``turtle''):}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\turtle{\plr{(0,0), (0.8,0), (0.4,135), (0.4,-90), (0.4,-90), (0.4,45)}}
\endmfpic

\nobreak
\noindent
\tmtitle {Sector:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\sector{(0,0),0,75,1}
\endmfpic

\vskip5pt
{\sl \tmtitle {Closed figures.}}

\nobreak
\noindent
\tmtitle {Polygon:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\lclosed\lines{(0,0), (0,0.5), (1,1), (1.5,0.5), (1,0.5)}
\endmfpic

\noindent
\tmtitle {Line closure of curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\lclosed\curve{(0.5,0), (0,0.3), (0.5,0.8), (1.5,0.8), (2.0,0.3),
   (1.5,0)}
\endmfpic

\noindent
\tmtitle {Line closure of circular arc:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\lclosed\arc{(0,0.8),(2,0.8),90}
\endmfpic

% change point disk diameter.
\pointsize=3pt

\noindent
\tmtitle {rhatch draw lclosed connect (curve lines).}
\tmtitle {Points have been added to both ends of the two paths:}
\nobreak
\noindent
\mfpic[10]{-1}{1}{-1}{1}
\rhatch\draw\lclosed\connect
\curve{(1,0), (0.5,0.25), (0.5,0.5), (0,0.75)}
\lines{(-0.5,0.5), (-0.5,-0.5), (0.5,-0.75)}
\point{(1,0),(0,0.75), (-0.5,0.5), (0.5,-0.75)}
\endconnect
\endmfpic

\noindent
\tmtitle {Similar but Reversing the Polyline's endpoints:}
\nobreak
\noindent
\mfpic[10]{-1}{1}{-1}{1}
\rhatch\draw\lclosed\connect
\curve{(1,0), (0.5,0.25), (0.5,0.5), (0,0.75)}
\reverse\lines{(-0.5,0.5), (-0.5,-0.5), (0.5,-0.75)}
\point{(1,0),(0,0.75), (-0.5,0.5), (0.5,-0.75)}
\endconnect
\endmfpic

\noindent
\tmtitle {Closed connected figure (cross-hatched and outlined)
consisting of
1 curve,
1 vertical line (with its ends shown by filled disks),
and
3 polar points (shown by open disks);
this figure is followed by another vertical line
which is off the right edge of the picture boundary:}
\nobreak
\noindent
\mfpic[10]{-1}{1}{-1}{1}
\hatch\draw\lclosed\connect
\curve{(1,0), (0.5,0.25), (0.5,0.5), (0,0.75)}
\lines{(-0.8,-0.8), (-0.8,0.8)}
\point{\plr{(0,0), (2,-90), (sqrt2,-45)}}
\endconnect
\point{(-0.8,-0.8), (-0.8,0.8)}
{\pointfillfalse
 \point{\plr{(0,0), (2,-90), (sqrt2,-45)}}}
\lines{(2,-1), (2,1)}
\endmfpic

\vskip10pt
\noindent
\tmtitle {Constrained reverse video of the previous picture:}
\nobreak
\noindent
\mfsrc{picture lastpic; lastpic := currentpicture;}
\mfpic[10]{-1}{1}{-1}{1}
\mfsrc{currentpicture :=
  picneg (lastpic)
    (rect ((xneg,yneg),(xpos,ypos)) transformed ztr);}
\endmfpic

\noindent
\tmtitle {Unconstrained reverse video of that picture:}
\nobreak
\noindent
\mfpic[10]{-1}{1}{-1}{1}
\mfsrc{currentpicture :=
  lastpic picxor
    (interior rect ((xneg,yneg),(xpos,ypos)) transformed ztr);}
\endmfpic

% restore point disk diameter.
\pointsize=2pt

\vskip5pt
{\sl \tmtitle {Arrows.}}

\nobreak
\noindent
\tmtitle {Basic arrow:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Dotted arrow:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\dotted\lines{(0,0.25), (1,1), (1,0), (2,0.75)}
\endmfpic

\noindent
\tmtitle {Circular arc arrow:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\arc{(0,0.8),(2,0.8),90}
\endmfpic

\noindent
\tmtitle {Curved arrow:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\curve{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\nobreak
\noindent
\tmtitle {Bi-directional arrow:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\reverse\arrow\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\nobreak
\noindent
\tmtitle {Double arrowhead:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\arrow\arrow[b2pt]\lines{(0,0.25), (1,0.75), (1,0.25), (2,0.75)}
\endmfpic

\vskip5pt
{\sl \tmtitle {Shading and Filling.}}

\nobreak
\noindent
\tmtitle {Filled Rectangle:}
\nobreak
\mfpic[15]{0}{1}{0}{1}
\gfill\rect{(0,0), (0.8,1)}
\endmfpic

\noindent
\tmtitle {Shaded Ellipse:}
\nobreak
\mfpic[15]{0}{2}{0}{1}
\shade\ellipse{(1,0.5),1,0.5}
\endmfpic

\noindent
\tmtitle {Filled Cyclic curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\gfill\cyclic{(0.5,0), (0,0.3), (0.5,0.8), (1.5,0.8), (2.0,0.3),
  (1.5,0), (1.0,0.3)}
\endmfpic

\noindent
\tmtitle {Left-hatched Cyclic curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\lhatch\cyclic{(0.5,0), (0,0.3), (0.5,0.8), (1.5,0.8), (2.0,0.3),
  (1.5,0), (1.0,0.3)}
\endmfpic

\noindent
\tmtitle {Shaded Polygon, with Outline:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\shade\draw\lclosed\lines{(0,0), (0,0.5), (1,1), (1.5,0.5), (1,0.5)}
\endmfpic

\noindent
\tmtitle {shade lclosed curve:}
\nobreak
\mfpic[20]{0}{2}{0}{1}
\shade\lclosed\curve{(0.5,0), (0,0.3), (0.5,0.8), (1.5,0.8), (2.0,0.3),
  (1.5,0)}
\endmfpic

\noindent
\tmtitle {Prefix context example 1.}
\tmtitle {(i) shade draw lclosed lines; (ii) shade lclosed draw lines.}
\tmtitle {Local coordinate change to shift second Polyline rightwards:}
\nobreak
\noindent
\mfpic[15]{0}{5}{0}{1}
\shade\draw\lclosed
  \lines{(0,0), (0.5,1), (1.5,1), (2,0)}
\coords
  \shift{(3,0)}
  \shade\lclosed\draw
    \lines{(3,0), (3.5,1), (4.5,1), (5,0)}
\endcoords
\endmfpic

\noindent
\tmtitle {Prefix context example 2.}
\tmtitle {Similar but with shadespace of 2pt, penwidth of 2pt,}
\tmtitle {and an `lclosed lines' added:}
\nobreak
\noindent
\mfpic[15]{0}{5}{0}{1}
\shadespace 2pt
\pen{2pt}
\shade\draw\lclosed
  \lines{(0,0),(0.5,1),(1.5,1),(2,0)}
\shade\lclosed\draw
  \lines{(3,0),(3.5,1),(4.5,1),(5,0)}
\lclosed
  \lines{(0,0.25),(5,0.25),(5,0.75),(0,0.75)}
\endmfpic

\noindent
\tmtitle {Overlay example.}
\tmtitle {Third Polyline now has `gclear' before it:}
\nobreak
\noindent
\mfpic[15]{0}{5}{0}{1}
\shadespace 2pt
\pen{2pt}
\shade\draw\lclosed
  \lines{(0,0),(0.5,1),(1.5,1),(2,0)}
\shade\lclosed\draw
  \lines{(3,0),(3.5,1),(4.5,1),(5,0)}
\gclear\lclosed
  \lines{(0,0.25),(5,0.25),(5,0.75),(0,0.75)}
\endmfpic

\vskip5pt
{\sl \tmtitle {Functions.}}

\nobreak
\noindent
\tmtitle {Function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\function{0,1,0.125}{sind(180x)}
\endmfpic

\noindent
\tmtitle {Polygonal function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\function[p]{0,1,0.125}{sind(180x)}
\endmfpic

\noindent
\tmtitle {Parametric function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\parafcn{0,1,0.125}{sind(180t) * dir(90t)}
\endmfpic

\noindent
\tmtitle {Polygonal parametric function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\parafcn[p]{0,1,0.125}{sind(180t) * dir(90t)}
\endmfpic

\noindent
\tmtitle {Polar function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\plrfcn{0,90,10}{sind(2t)}
\endmfpic

\noindent
\tmtitle {Polygonal polar function plot:}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\plrfcn[p]{0,90,10}{sind(2t)}
\endmfpic

\noindent
\tmtitle {Between functions (shaded):}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\function{0,0.7,0.1}{x**2}
\function{0,0.7,0.1}{sind(180x)}
\shade\btwnfcn{0,0.7,0.1}{x**2}{sind(180x)}
\endmfpic

\noindent
\tmtitle {Polar region (shaded):}
\nobreak
\noindent
\mfpic[20]{0}{1}{0}{1}
\shade\draw\plrregion{0,90,10}{sind(2t)}
\endmfpic

\vskip5pt
{\sl \tmtitle {Labels and Captions.}}

\nobreak
\noindent
\tmtitle {Label:}
\nobreak
\noindent
\mfpic[20]{-1}{1}{-1}{1}
% head
\circle{(0,0),1}
% nose
\point{(0,0)}
% eyes
{\pointfillfalse
 \point{(0.333,0.333), (-0.333,0.333)}}
% smile
\arc{(-0.333,-0.333),(0.333,-0.333),60}
% arrow from label to nose
\arrow\lines{(1,0.5), (0.1,0)}
\tlabel(1,0.5){nose}
\endmfpic

\noindent
\tmtitle {Caption:}
\nobreak
\noindent
\mfpic[20]{-1}{1}{-1}{1}
\circle{(0,0),1}
\point{(0,0)}
{\pointfillfalse
 \point{(0.333,0.333), (-0.333,0.333)}}
\arc{(-0.333,-0.333),(0.333,-0.333),60}
\tcaption{Smile!}
\endmfpic

\vskip5pt
{\sl \tmtitle {EXTRAS.}}

\nobreak
\vskip5pt
{\sl \tmtitle {Tiling.}}

\nobreak
\mfpicunit=1pt
\mfpic[20]{-5}{5}{-5}{5}
%%%% TO BE COMPLETED %%%%
% \tile{fred, 1pt, 10, 10, false}
% \lines{(0,0), (5,5)}
% \lines{(5,5), (10,0)}
% \point{(2.5,7.5)}
% \endtile
% \tess{fred}\rect{(-5,5),(5,5)}
\tcaption{Tesselation.}
\endmfpic

\vfill\break

\vskip15pt
\noindent
\tmtitle {Open Quadratic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\qspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Quadratic B-spline closed by line segment:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\lclosed\qspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Closed Quadratic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\closedqspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vfill\break

\vskip15pt
\noindent
\tmtitle {Open Quadratic B-spline closed by B\'ezier:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\bclosed\qspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Cubic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\cspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Cubic B-spline closed by line segment:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\lclosed\cspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Closed Cubic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\closedcspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Cubic B-spline closed by B\'ezier:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\bclosed\cspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Cubic B-spline closed by Smooth path:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\sclosed\cspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Cubic B-spline closed by Cubic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\cbclosed\cspline{(0,0),(0,1),(1,1),(1,0)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Open Curve:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\curve{(0,0),(0,1),(1,1)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Curve closed by Smooth path:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\sclosed\curve{(0,0),(0,1),(1,1)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Curve closed by Cubic B-spline:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\cbclosed\curve{(0,0),(0,1),(1,1)}
\endmfpic

\vfill\break

\vskip15pt
\noindent
\tmtitle {Curve closed by B\'ezier:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\point{(0,0),(0,1),(1,1),(1,0)}
\tlabel[tr](-0.05,0){P1}
\tlabel[br](-0.05,1){P2}
\tlabel[bl](1.05,1){P3}
\tlabel[tl](1.05,0){P4}
\bclosed\curve{(0,0),(0,1),(1,1)}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Use of store and mfobj for a Dotted and Hatched Circle:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[50]{0}{1}{0}{1}
\store{f}{\circle{(0.5,0.5),0.5}}
\dotted\mfobj{f}
\hatch\mfobj{f}
\endmfpic

\vskip15pt
\noindent
\tmtitle {Example of store and mfobj for two dotted curves,}
\tmtitle {--- one a coordinate shifted copy of the other ---}
\tmtitle {and a shaded closed curve containing them both:}
\nobreak
\vskip10pt
\nobreak
\noindent
\mfpic[10]{0}{10}{0}{10}
\store{f}{\curve{(0,0),(0,3),(3,3)}}
\coords
  \shift{(0,4)}
  \store{g}{\mfobj{f}}
\endcoords
\store{h}{\mfobj{f..g..cycle}}
\dotted\mfobj{f}
\dotted\mfobj{g}
\shade\mfobj{h}
\endmfpic

\closegraphsfile

\end

%%%
%%%  end objects.tex
%%%