曲線を重ね描きにより描画します。
//**********************************************************************************
#local Cv1=< 0.80, 0.66, 0.94 >; #local Tr=< 0, -2.5, 0 >;
#local Lr=0.1;
#local Crvobj =
union {
#union { Space_line2(Lr,<-pi,pi,pi/16>,0) pigment { color rgb < 0.940, 0.800, 0.660 > } }
#union { Space_line2(Lr,<-pi,pi,pi/52>,4) pigment { color rgb < 0.662, 0.864, 0.938 > } }
#union { Space_line2(Lr,<-pi,pi,pi/16>,5) pigment { color rgb < 0.734, 0.942, 0.658 > } }
}
union {
union {
object { Crvobj }
union { Space_line2(Lr,<-pi*2,pi*2,pi/30>,6) pigment { color rgb Cv1 } }
translate Tr }
union {
object { Crvobj }
union { Space_line2(Lr,<-pi,pi,pi/76>,7) pigment { color rgb Cv1 } }
translate Tr+1.5*y }
union {
object { Crvobj }
union { Space_line2(Lr,<-pi,pi,pi/76>,8) pigment { color rgb Cv1 } }
translate Tr+3.0*y }
union {
object { Crvobj }
union { Space_line2(Lr,<-pi,pi,pi/120>,9) pigment { color rgb Cv1 } }
translate Tr+4.5*y }
scale 60 rotate -42*x }
//**********************************************************************************