qm.rar_linux_分形 曲面_曲面 生成_曲面分形

Void subdiv-3d(,w1,w2,w3,n,dir) { if (n==0) { moveto_3d(x3,y3,z3); if (dir>0) { lineto_3d(x1,y1,z1); lineto_3d(x2,y2,z2); lineto_3d(x3,y3,z3); } else { lineto_3d(x2,y2,z2); lineto_3d(x1,y1,z1); lineto_3d(x3,y3,z3); } return; } x12=(x1+x2)/2+w1*rand(); y12=(y1+y2)/2+w1*rand(); z12=(z1+z2)/2+w1*rand(); x23=(x2+x3)/2+w2*rand(); y23=(y2+y3)/2+w2*rand(); z23=(z2+z3)/2+w2*rand(); x31=(x3+x1)/2+w3*rand(); y31=(y3+y1)/2+w3*rand(); z31=(z3+z1)/2+w3*rand(); subdiv_3d(x1,y1,z1,x12,y12,z12,x31,y31,z31,w1/2,w2/2,w3/2,n-1,dir); subdiv_3d(x2,y2,z2,x23,y23,z23,x12,y12,z12,w2/2,w3/2,w1/2,n-1,dir); subdiv_3d(x3,y3,z3,x31,y31,z31,x23,y23,z23,w3/2,w1/2,w2/2,n-1,dir); subdiv_3d(x12,y12,z12,x31,y31,z31,x23,y23,z23,w2/2,w1/2,w3/2,n-1,-dir); }