英文字rの描画

 英文字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 }
 //**********************************************************************************