[b]Setup script[br][/b][br]O = (0,0,0)[br]m = (sqrt(3)-1)/2[br]d = Slider(0.4,1,0.01, 1,100,false)[br]scl = 2/(1+d)[br][br]A1 = scl*Dilate(( 0,-2,0),d,(0,-1,m))[br]A2 = scl*Dilate(( 0,-1,1),d,(0,-1,m))[br]A3 = scl*Dilate((-1,-1,0),d,(0,-1,m))[br][br]B1 = scl*Dilate(( 2, 0,0),d,(1, 0,m))[br]B2 = scl*Dilate(( 1, 0,1),d,(1, 0,m))[br]B3 = scl*Dilate(( 0, 0,0),d,(1, 0,m))[br][br]C1 = scl*Dilate(( 0, 2,0),d,(0, 1,m))[br]C2 = scl*Dilate(( 0, 1,1),d,(0, 1,m))[br]C3 = scl*Dilate((-1, 1,0),d,(0, 1,m))[br][br]LF1P = {A3, B3, C3, C1, B1, A1}[br]LF2P = {A1, B1, B2, A2}[br]LF3P = {B1, C1, C2, B2}[br]LF4P = {C1, C3, C2}[br]LF5P = {C3, B3, B2, C2}[br]LF6P = {B3, A3, A2, B2}[br]LF7P = {A3, A1, A2}[br]LFP = {LF1P, LF2P, LF3P, LF4P, LF5P, LF6P, LF7P}[br][br]Lface1 = Zip(Polygon(LP), LP, LFP)[br]Lface2 = Rotate(Lface1, pi, xAxis)[br]Lface3 = Rotate(Rotate(Lface1, pi, zAxis), pi/2, xAxis)[br]Lface4 = Rotate(Lface3, pi, xAxis)[br][br]LE1P = { A1, B1, C1, C3, B3, A3, A1, A2, B2, C2, C1}[br]LE2P = {(?,?,?), B1, B2}[br]LE3P = {(?,?,?), C3, C2}[br]LE4P = {(?,?,?), B3, B2} [br]LE5P = {(?,?,?), A3, A2}[br]LEP = Join(LE1P, LE2P, LE3P, LE4P, LE5P)[br][br]Ledge1 = Polyline(LEP)[br]Ledge2 = Rotate(Ledge1, pi, xAxis)[br]Ledge3 = Rotate(Rotate(Ledge1, pi, zAxis), pi/2, xAxis)[br]Ledge4 = Rotate(Ledge3, pi, xAxis)[br][br]#==========================================================[br]# Settings[br]#==========================================================[br][br]SetActiveView(1)[br]SetBackgroundColor("White")[br]ShowAxes(1,false)[br]ShowGrid(1,false)[br][br]SetActiveView(-1)[br]SetBackgroundColor(1/8,1/8,1/8)[br]ShowAxes(-1,false)[br]ShowGrid(-1,false)[br]# Distance form screen: 800[br]# Perspective projection[br]CenterView(O)[br][br]#==========================================================[br]# Properties[br]#==========================================================[br][br]List ={"O","A1","A2","A3","B1","B2","B3","C1","C2","C3","LEP"}[br]Execute(Zip("SetConditionToShowObject("+obj+",false)", obj,List))[br][br]List ={"Lface1","Lface2","Lface3","Lface4"}[br]Execute(Zip("ShowLabel("+obj+",false)", obj,List))[br]Execute(Zip("SetFilling("+obj+",1)", obj,List))[br]Execute(Zip("SetLineThickness("+obj+",1)", obj,List))[br][br]SetColor(Lface1,"Red")[br]SetColor(Lface2,"Yellow")[br]SetColor(Lface3,"Cyan")[br]SetColor(Lface4,"Green")[br][br]List ={"Ledge1","Ledge2","Ledge3","Ledge4"}[br]Execute(Zip("ShowLabel("+obj+",false)", obj,List))[br]Execute(Zip("SetLineThickness("+obj+",2)", obj,List))[br][br]Delete(List)