色鉛筆の形状

　色鉛筆の形状を定義します。
　//**********************************************************************************
　　#local Lcp=40;
　　#local Cpen_base =
　　union {
　　 cylinder { 0*x, Lcp*x, 1.0 }
　　 cylinder { 0*x, (Lcp+1e-4)*x, 0.9 texture { T_core } }
　　 cylinder { 0.45*x, (Lcp+2e-4)*x, 1/2 } cone { -1.6*x, 1/9, 0.45*x, 1/2 }
　　}
　　#local Nmax=6;
　　#local Cpen_seg =
　　difference {
　　 object { Cpen_base }
　　 #local N=0; #while(N,<8,1,-0.406> rotate 7*y rotate N*60*x texture { T_core } }
　　 #local N=N+1; #end
　　}
　　#local Cpen_obj = object { Cpen_seg translate -Lcp*x rotate 180*y }
　//**********************************************************************************