蜗牛的身影消失在长亭外，去寻它的山和海了。我还在城里的宫廷间徘徊。

许多天后，我的小手指不再那么木然隐痛了，于是最近又想搞一些事情，长期的，但是每次只需要用一些很小的力气，例如继续学习 MetaFun 啊。

新画布

之前用的画布，是为涂鸦和蜗牛准备的。现在可以不用了，更随意且有用的绘画环境可以像下面这样搭建：

\startuseMPgraphic{drawing name}
... ... metapost code ... ...
\stopuseMPgraphic

\starttext
This is my drawing: \useMPgraphic{drawing name}
\stoptext

没错，事实上 MetaFun 绘图环境搭建之简单，连

\envrionment card-env

都是多余的……也许只有我还记得 card-env.tex 是什么。

画一个圆试试。下面是一份完整的 ConTeXt 源文档 foo.tex，

\startuseMPgraphic{foo}
draw fullcircle scaled 2cm
  withpen pencircle scaled 4pt withcolor darkred;
\stopuseMPgraphic

\starttext
This is my drawing: \useMPgraphic{foo}
\stoptext

将其编译为 foo.pdf，结果为

事实上，还有更简单的画布。现在，假设完整的 ConTeXt 源文件 foo.tex 的内容为

\startMPpage
draw fullcircle scaled 2cm
  withpen pencircle scaled 4pt withcolor darkred;
\stopMPpage

编译 foo.tex，得到的 foo.pdf 如下图所示

MPpage 展现的是，吾性自足，不假外求。

从现在开始，我主要用 MPpage 画布了，这样可将精力更专注于图形本身。只有需要将图形作为文档插图使用时，再考虑使用 uniqueMPgraphic 或 useMPgraphic。

圆上的点

如果知道一条路径是基于哪些点构造的，可使用 MetaPost 的 point ... of 语法获得路径上相应的点。例如，之前我曾像下面这样获得任意路径 p 的终点：

point (length p) of p

任意路径 p 的起点，可用以下代码获得：

point 0 of p

以下代码，借助颜色透明效果，展现了圆的起点和终点：

\startMPpage
path p;
p := fullcircle scaled 2cm;
draw p withpen pencircle scaled 4pt 
  withcolor darkred withtransparency (1, .25);
draw (point 0 of p) withpen pencircle scaled 6pt
  withcolor darkgreen withtransparency (1, .5);
draw (point (length p) of p) withpen pencircle scaled 12pt
  withcolor darkblue withtransparency (1, .25);
\stopMPpage

圆的起点和终点重合。这是肯定的，任何封闭路径皆有此性质。

如果我想在圆上画一个点，这个点距离起点有一段距离，而这段距离是圆的周长的 1/10，该如何画呢？

MetaFun 手册说，可以用 point ... along。

试试看，

\startMPpage
path p;
p := fullcircle scaled 2cm;
draw p withpen pencircle scaled 4pt 
  withcolor darkred withtransparency (1, .25);

% 起点
draw (point 0 of p) withpen pencircle scaled 6pt
  withcolor darkgreen withtransparency (1, .5);

% 距起点距离为 1/10 圆周的点
draw (point .1 along p) withpen pencircle scaled 6pt
  withcolor darkblue withtransparency (1, .5);
\stopMPpage

的确可以，

圆上的路径

如何在圆上画从起点到距离起点 1/10 圆周的点的弧线？

MetaFun 手册说，可以从一条路径上「切」出来，用 cutbefore 或 cutafter。

身为用户的幸福就是，不明就里，但是总能试试看：

\startMPpage
path p;
p := fullcircle scaled 2cm;
pickup pencircle scaled 4pt;
draw p withcolor darkred withtransparency (1, .25);

pickup pencircle scaled 6pt;
% 起点
draw (point 0 of p)
  withcolor darkgreen withtransparency (1, .5);
% 距起点距离为 1/10 圆周的点
draw (point .1 along p)
  withcolor darkblue withtransparency (1, .5);

% 圆上的路径
pickup pencircle scaled 4pt;
draw (p cutafter (point .1 along p))
  withcolor darkgreen withtransparency (1, .5);
\stopMPpage

同理，可以令 cutbefore 和 cutafter 配合，截取路径上的任何一段：

\startMPpage
pickup pencircle scaled 4pt;

path p;
p := fullcircle scaled 2cm;
draw p withcolor darkred withtransparency (1, .25);

% 圆上的路径
draw ((p cutbefore (point .1 along p)) cutafter (point .3 along p))
  withcolor darkgreen withtransparency (1, .5);
\stopMPpage

扇形

现在，可以画一个扇形了……

\startMPpage
path p;
p := fullcircle scaled 2cm;
draw p withpen pencircle scaled 4pt 
  withcolor darkred withtransparency (1, .25);

path q;
q := p cutafter (point .3 along p);
pickup pencircle scaled 2pt;
draw (0, 0) -- (point 0 of q) -- q -- (0, 0) withcolor darkblue;
\stopMPpage

但是，现在还仅仅是看上去像扇形，因为 MetaPost 编译器并不确定最后绘制的这条扇形路径是封闭的。因此，以下代码里的 fill 语句会无法通过编译：

\startMPpage
path p;
p := fullcircle scaled 2cm;
draw p withpen pencircle scaled 4pt 
  withcolor darkred withtransparency (1, .25);

path q;
q := p cutafter (point .3 along p);
pickup pencircle scaled 2pt;

path s;
s := (0, 0) -- (point 0 of q) -- q -- (0, 0) -- cycle;
fill s withcolor darkgray withtransparency (1, .5);
draw s withcolor darkblue withtransparency (1, .5);
\stopMPpage

倘若用 cycle 命令将 s 变为真正的封闭路径，

s := (0, 0) -- (point 0 of q) -- q -- (0, 0) -- cycle;

那么 fill s 便可工作了，结果可得真正的扇形：

结语

能够画出正确的扇形，就意味着，诸如 15%，30%……这些百分比，可以表现为直观的图形，也意味着，我可以将上述绘图命令定义为一个 ConTeXt 宏，用它表示某件事情的工作进度。