[code]GF={(a sqrt(2) / sqrt(3), 0, 0), (0, 1 / sqrt(3) a, 0), (-a sqrt(2) / sqrt(3), 0, 0), (0, -1 / sqrt(3) a, 0)}[br][br]DK=Sequence(Rotate(Polygon(GF),(j>0) cos^(-1)(-((1)/(2))),Line(GF(Mod(j,5)+1),GF(Mod(j+1,5)+1))),j,0,3)[br][br]DK_{R}=Translate(Rotate(DK,90°,yAxis),Vector(Vector(-GF(1))+Vector((0,0,x(GF(1))))))[br][br]DK_{M}=Reflect(DK,Plane(GF(2),GF(4),(0,1,0)))[br][br][/code][br]DK'_{M}=Translate(Rotate(DK_{M},-90°,yAxis),Vector(Vector(GF(1))+Vector((0,0,x(GF(1))))))[br][br]c==Cube(GF(1)+(0,((a sqrt(2))/(sqrt(3))),0),GF(3)+(0,((a sqrt(2))/(sqrt(3))),0),Vector((0,0,2)))