/*
Author: Jens Schwaiger
With its pleasant authorization.
*/
// PRC/OpenGL version
size(10cm,0);
import graph3;
currentprojection=orthographic(10,3,-2);
// currentlight=nolight;
guide achteck=polygon(8);
real lge=length(point(achteck,1)-point(achteck,0));
int n=8;
guide3[] sq;
guide3[] tr;
triple a,b,c,d;
a=(point(achteck,0).x,point(achteck,0).y,-lge/2);
b=(point(achteck,1).x,point(achteck,1).y,-lge/2);
c=(point(achteck,1).x,point(achteck,1).y,lge/2);
d=(point(achteck,0).x,point(achteck,0).y,lge/2);
sq[0]=a--b--c--d--cycle;
for(int i=1;i