练习: 使用Asymptote 画出字母R的轮廓曲线

代码如下:

import settings;
 settings.tex = "pdflatex";
 pdfviewer="/usr/bin/okular";
 outformat="pdf";
 texpreamble("\usepackage{CJKutf8}\AtBeginDocument{\begin{CJK}{UTF8}{gbsn}}\AtEndDocument{\clearpage\end{CJK}}");
size(5cm,0);
pair z1=(0,8.3),z2=(0,8.6),z3=(2.1,8.6),z4=(2.7,8.6),z5=(3.2,8.6),z6=(3.6,8.6),z7=(6.2,6.5),z8=(4.5,4.1),z9=(6.2,1.5),z10=(6.7,0.8),z11=(7.4,0.4),z12=(7.8,0.4),z13=(7.9,0.4),z14=(7.9,0),z15=(5.6,0),z16=(3.3,0),z17=(0,0),z18=(0,0.3),z19=(0.1,0.4),z20=(0.5,0.5),z21=(0.9,0.6),z22=(1,1),z23=(1,1.5),z24=(1,7.1),z25=(1,7.8),z26=(0.9,8.1),z27=(0.5,8.1),z28=(0.1,8.3),z29=(3.2,0.4),z30=(3.1,0.4),z31=(2.3,0.5),z32=(2.3,1),z33=(2.3,1.5),z34=(2.3,3.8),z35=(3.3,3.8),z36=(2.3,4.2),z37=(2.3,8.2),z38=(3.2,8.2),z39=(4.6,7.9),z40=(5,6.4),z41=(2.8,4.2),z42=(2.3,4.2);

guide Real1=z1---z2---z3---z4---z5---z6..z7..z8--z9---z10..z11---z12---z13---z14---z15---z35---z34---z33---z32..tension 1.5 .. z31..tension 1.5..z30---z29---z16---z17---z18---z19---z20..tension 2 ..z21..tension 2 ..z22---z23---z24---z25.. tension 2 ..z26.. tension 3 ..z28..cycle;

guide Real2=z37---z38..z39..z40{down}..tension 0.8 ..z41---z42--cycle;
filldraw (Real1^^reverse(Real2),black+1mm);

经过编译后得到的图像如下: