algebraic3d


solid p0 = plane (0, 0, 0; 0, 0, -1);
solid p1 = plane (0, 0, 0.1; 0, 0, 1);

solid f1box0 = orthobrick (-10, -13, -1; 10, -11, 2);
solid f1box1 = orthobrick (-3, -12, -1; -1, 8, 2);
solid f1box2 = orthobrick (5, -12, -1; 7, 8, 2);

solid f2box0 = orthobrick (-10, 11, -1; 10, 13, 2);
solid f2box1 = orthobrick (1, -8, -1; 3, 12, 2);
solid f2box2 = orthobrick (-7, -8, -1; -5, 12, 2);


solid f1box = f1box0 or f1box1 or f1box2;
solid f2box = f2box0 or f2box1 or f2box2;

solid supportbox = orthobrick (-20, -15, -10; 20, 15, 10);

solid f1 = f1box and p0 and p1;
solid f2 = f2box and p0 and p1;
solid support = supportbox and not p0;

tlo f1 -col=[1,0,0];
tlo f2 -col=[1,0,0];
tlo support -transparent;

identify closesurfaces p0 p1;