英文字rを二次近似曲線により描画します。
//**********************************************************************************
#local Pmax=1+2*4;
#declare Vp[0]=< 22, -8 >; #declare Vp[1]=< 25, -9 >;
#declare Vp[2]=< 23, -14 >; #declare Vp[3]=< 22, -19 >;
#declare Vp[4]=< 20, -20 >; #declare Vp[5]=< 19, -21 >;
#declare Vp[6]=< 19, -18 >; #declare Vp[7]=< 21, -9 >;
#declare Vp[8]=< 29, -11 >;
union { Contact_line(Lr/Sc, 4, 4) pigment { Cv3 } rotate -90*x scale Sc translate x }
//**********************************************************************************