可定制的随机晶体簇发生器

指定晶点数量、最小和最大尺寸以及倾斜范围后，生成随机晶体簇。如果使用OpeCAD生成新STL，请使用F6（render），而不是F5，以便可以导出STL（F7）
点数=14；
倾斜=15；
miize=10；
最大值=30；
圆柱体（d1=maxsize*2，d2=maxsize，h=maxsize，$fn=6，中心=true）；
对于（i=[1:100/点编号：100]）{
种子=i-1；
种子2=i；
single_rand=rands（最小，最大，1）[0]；
回声（单声道）；
随机向量=rands（-1,1,3，种子）；
随机向量2=rands（-tilt，tilt，3，seed2）；
回声（随机向量2）；
tralate（随机向量）
旋转（随机矢量2）
点（单兰，单兰*2.5）；
}
模块点（DI、HI）{
气缸（d1=DI，d2=DI1.5，h=HI.65，$fn=6）；
特拉特（[0,0，HI.65]）
气缸（d1=DI1.5，d2=0，h=HI*.35，$fn=6）；
}