球体——FLAC3d软件建模的命令流

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《球体——FLAC3d软件建模的命令流》，欢迎阅读！

new

def parm

rad=10

rad_size=5

end

parm

plo blo gro

gen zon pyramid p0 rad 0 0 p1 rad 0 rad p2 rad rad 0 p3 0 0 0 p4 rad rad rad size rad_size rad_size rad_size group 1

gen zon pyramid p0 0 rad 0 p1 rad rad 0 p2 0 rad rad p3 0 0 0 p4 rad rad rad size rad_size rad_size rad_size group 2

gen zon pyramid p0 0 0 rad p1 0 rad rad p2 rad 0 rad p3 0 0 0 p4 rad rad rad size rad_size rad_size rad_size group 3

def mark_sphere

p_gp=gp_head

loop while p_gp#null

px=gp_xpos(p_gp)

py=gp_ypos(p_gp)

pz=gp_zpos(p_gp)

dist=sqrt(px*px+py*py+pz*pz)

if dist>0 then

maxp=max(px,max(py,pz))

k=(maxp/rad)*(rad/dist)

gp_xpos(p_gp)=k*px

gp_ypos(p_gp)=k*py

gp_zpos(p_gp)=k*pz

end_if

p_gp=gp_next(p_gp)

end_loop

end

mark_sphere

gen zon ref

gen zon ref dip 90

gen zon ref dip 90 dd 90

plo surf

plo set back wh

pl bl gr

本文来源：https://www.wddqxz.cn/4484e4a1cfc789eb162dc815.html