設定した値から群生する草を定義します。
//**********************************************************************************
#local Area_grass =
union {
#declare Ext_cnt = 0; #while ( Ext_cnt < Ext_end )
#declare Grs_count = 0; #while ( Grs_count < Grs_end )
#declare Trans_x = Grs_r*cos(radians(Grs_direc))+ Off_x;
#declare Trans_y = Ground_level+Off_y;
#declare Trans_z = Grs_r*sin(radians(Grs_direc)) + Off_z;
object { Grass_seg rotate < 0, 40, 0 > translate < Trans_x, Trans_y, Trans_z > }
#declare Grs_count = Grs_count + 1;
#declare Grs_direc = Grs_direc + 360/Grs_end;
#end
#declare Ext_cnt = Ext_cnt + 1;
#declare Grs_r = Grs_r + Grs_r*sqrt(Ext_cnt);
#declare Grs_direc = Grs_direc + 360/Grs_end/Ext_end;
#end
}
//**********************************************************************************
