netgen_example

algebraic3d
solid cube = orthobrick (0, 0, 0; 1, 1, 1);

solid zwickl0 = polyhedron(0.250000, 0.266667, 0.800000;
0.266667, 0.233333, 0.783333;
0.483333, 0.500000, 0.800000;
0.527778, 0.222222, 0.500000;
0.538889, 0.233333, 0.500000;
0.533333, 0.233333, 0.516667;
0.516667, 0.566667, 0.233333;
0.533333, 0.516667, 0.233333;
0.533333, 0.766667, 0.483333;
0.183333, 0.766667, 0.233333;
0.233333, 0.783333, 0.233333;
-0.016667, 0.766667, 0.433333;
-0.033333, 0.516667, 0.766667;
-0.016667, 0.566667, 0.766667;
-0.033333, 0.766667, 0.516667;
-0.033333, 0.483333, 0.233333;
-0.033333, 0.233333, 0.483333;
-0.016667, 0.233333, 0.433333;
0.250000, 0.777778, 0.222222;
0.266667, 0.766667, 0.216667;
0.250000, 0.766667, 0.211111;
0.250000, 0.733333, 0.800000;
0.016667, 0.500000, 0.800000;
0.233333, 0.766667, 0.783333;
0.266667, 0.783333, 0.766667;
0.316667, 0.766667, 0.766667;
0.516667, 0.766667, 0.566667;
0.233333, 0.216667, 0.233333;
-0.016667, 0.216667, 0.483333;
0.250000, 0.233333, 0.211111;
0.250000, 0.222222, 0.222222;
0.266667, 0.233333, 0.216667;
-0.050000, 0.266667, 0.500000;
-0.127778, 0.500000, 0.500000;
-0.050000, 0.500000, 0.733333;
0.266667, 0.783333, 0.233333;
0.316667, 0.766667, 0.233333;
0.316667, 0.233333, 0.766667;
0.516667, 0.433333, 0.766667;
0.516667, 0.233333, 0.566667;
0.233333, 0.783333, 0.766667;
-0.016667, 0.783333, 0.516667;
0.250000, 0.800000, 0.733333;
0.550000, 0.266667, 0.500000;
0.250000, 0.777778, 0.777778;
0.266667, 0.766667, 0.783333;
-0.050000, 0.733333, 0.500000;
-0.050000, 0.500000, 0.266667;
-0.033333, 0.766667, 0.483333;
-0.016667, 0.516667, 0.216667;
0.016667, 0.500000, 0.200000;
-0.016667, 0.500000, 0.211111;
-0.027778, 0.777778, 0.500000;
-0.038889, 0.766667, 0.500000;
0.266667, 0.216667, 0.233333;
0.250000, 0.211111, 0.233333;
-0.016667, 0.216667, 0.516667;
-0.027778, 0.222222, 0.500000;
-0.033333, 0.233333, 0.516667;
0.516667, 0.516667, 0.783333;
0.516667, 0.500000, 0.788889;
0.483333, 0.200000, 0.500000;
0.250000, 0.200000, 0.733333;
0.516667, 0.216667, 0.516667;
0.266667, 0.216667, 0.766667;
0.233333, 0.216667, 0.766667;
0.316667, 0.233333, 0.233333;
0.516667, 0.433333, 0.233333;
0.516667, 0.483333, 0.216667;
-0.016667, 0.483333, 0.216667;
-0.027778, 0.500000, 0.222222;
0.538889, 0.500000, 0.233333;
0.550000, 0.500000, 0.266667;
-0.016667, 0.566667, 0.233333;
0.233333, 0.766667, 0.216667;
-0.016667, 0.783333, 0.483333;
0.516667, 0.483333, 0.783333;
0.533333, 0.483333, 0.233333;
0.516667, 0.233333, 0.433333;
0.516667, 0.216667, 0.483333;
0.527778, 0.500000, 0.222222;
-0.016667, 0.766667, 0.566667;
0.533333, 0.483333, 0.766667;
0.527778, 0.500000, 0.777778;
0.250000, 0.733333, 0.200000;
0.250000, 0.500000, 0.122222;
0.533333, 0.516667, 0.766667;
0.538889, 0.500000, 0.766667;
0.550000, 0.500000, 0.733333;
0.233333, 0.233333, 0.216667;
0.516667, 0.566667, 0.766667;
0.533333, 0.766667, 0.516667;
0.250000, 0.266667, 0.200000;
0.533333, 0.233333, 0.483333;
0.250000, 0.233333, 0.788889;
0.250000, 0.222222, 0.777778;
0.233333, 0.233333, 0.783333;
0.516667, 0.788889, 0.500000;
0.527778, 0.777778, 0.500000;
0.516667, 0.783333, 0.483333;
0.483333, 0.800000, 0.500000;
0.250000, 0.877778, 0.500000;
0.250000, 0.788889, 0.766667;
0.516667, 0.783333, 0.516667;
-0.033333, 0.483333, 0.766667;
-0.038889, 0.500000, 0.766667;
-0.027778, 0.500000, 0.777778;
0.183333, 0.766667, 0.766667;
-0.038889, 0.233333, 0.500000;
0.250000, 0.200000, 0.266667;
0.516667, 0.211111, 0.500000;
0.538889, 0.766667, 0.500000;
-0.016667, 0.433333, 0.233333;
-0.016667, 0.516667, 0.783333;
0.250000, 0.800000, 0.266667;
0.016667, 0.200000, 0.500000;
0.016667, 0.800000, 0.500000;
0.516667, 0.500000, 0.211111;
0.483333, 0.500000, 0.200000;
-0.016667, 0.433333, 0.766667;
-0.016667, 0.233333, 0.566667;
-0.033333, 0.516667, 0.233333;
-0.016667, 0.500000, 0.788889;
0.250000, 0.211111, 0.766667;
0.516667, 0.516667, 0.216667;
-0.016667, 0.483333, 0.783333;
0.550000, 0.733333, 0.500000;
0.250000, 0.788889, 0.233333;
0.250000, 0.122222, 0.500000;
0.183333, 0.233333, 0.233333;
0.516667, 0.766667, 0.433333;
-0.016667, 0.211111, 0.500000;
0.250000, 0.766667, 0.788889;
0.183333, 0.233333, 0.766667;
-0.038889, 0.500000, 0.233333;
0.627778, 0.500000, 0.500000;
0.250000, 0.500000, 0.877778;
-0.016667, 0.788889, 0.500000;
;
1,2,3;
4,5,6;
8,7,9;
11,10,12;
13,14,15;
17,16,18;
19,20,21;
23,22,24;
25,26,27;
28,29,18;
31,30,32;
34,33,35;
36,37,20;
39,38,40;
42,41,43;
5,44,6;
45,46,25;
48,47,49;
50,51,52;
34,47,48;
15,53,54;
31,55,56;
58,57,59;
60,3,61;
63,62,64;
40,38,65;
66,57,63;
68,67,69;
70,52,51;
52,70,71;
3,60,46;
72,8,73;
50,74,75;
49,76,12;
37,7,20;
73,8,9;
77,61,3;
69,78,68;
79,80,55;
72,78,81;
42,15,82;
2,38,77;
77,83,84;
51,85,86;
87,88,89;
30,31,90;
83,6,89;
27,91,92;
93,32,30;
44,5,94;
96,95,97;
56,28,31;
98,99,100;
43,101,102;
5,4,94;
25,103,45;
104,98,101;
106,105,107;
24,41,108;
58,109,17;
41,24,45;
97,1,23;
28,56,110;
4,64,111;
40,64,6;
49,53,76;
76,11,12;
47,35,15;
99,112,9;
16,113,18;
114,23,24;
92,104,27;
36,115,100;
91,27,26;
116,29,110;
117,42,43;
118,69,119;
120,105,121;
87,89,92;
26,25,46;
122,48,49;
40,6,39;
11,76,115;
23,114,123;
117,102,115;
84,60,61;
65,63,64;
107,13,106;
55,31,32;
64,40,65;
93,90,51;
71,122,50;
57,116,63;
91,26,46;
22,3,46;
124,66,63;
7,125,20;
98,100,101;
123,126,23;
127,73,9;
94,79,68;
110,55,80;
115,128,11;
16,17,48;
62,129,110;
31,28,90;
69,118,81;
130,18,113;
38,39,77;
14,108,82;
85,119,86;
83,88,84;
100,9,131;
80,79,94;
132,58,29;
78,72,73;
91,87,92;
45,24,133;
134,66,97;
18,29,17;
48,122,135;
96,65,2;
11,75,10;
73,127,136;
44,94,73;
22,133,24;
103,25,43;
105,126,107;
63,65,124;
105,120,126;
59,105,35;
45,103,41;
126,97,23;
81,125,8;
13,107,114;
80,4,111;
112,127,9;
36,128,115;
36,100,131;
35,13,15;
33,34,48;
14,82,15;
128,19,11;
93,86,119;
122,71,135;
109,58,59;
69,32,119;
20,19,36;
127,89,136;
131,7,37;
105,106,35;
89,127,92;
121,134,120;
115,101,100;
70,90,113;
13,35,106;
103,43,41;
74,50,122;
61,77,84;
74,122,49;
85,51,75;
22,23,137;
57,121,59;
60,91,46;
10,74,12;
129,63,116;
85,21,20;
125,119,20;
1,97,95;
2,77,3;
78,94,68;
67,68,79;
28,130,90;
78,69,81;
94,78,73;
53,15,42;
17,33,48;
108,41,82;
83,77,39;
90,70,51;
104,92,99;
4,80,94;
138,117,76;
114,14,13;
88,83,89;
66,96,97;
46,45,133;
66,124,96;
117,138,42;
65,38,2;
14,114,24;
95,96,2;
59,33,109;
58,132,57;
134,97,120;
90,130,113;
29,28,110;
29,58,17;
62,110,80;
7,8,125;
60,84,87;
129,62,63;
64,4,6;
53,49,54;
135,16,48;
54,47,15;
33,17,109;
67,32,69;
104,25,27;
75,19,21;
67,55,32;
99,98,104;
110,129,116;
33,59,35;
128,36,19;
32,93,119;
105,59,121;
127,112,92;
113,16,70;
71,50,52;
47,54,49;
6,83,39;
51,50,75;
133,22,46;
3,22,137;
101,115,102;
87,91,60;
57,66,121;
138,76,53;
86,93,51;
66,134,121;
7,131,9;
21,85,75;
119,125,118;
16,135,71;
119,85,20;
29,116,132;
37,36,131;
2,1,95;
47,34,35;
67,79,55;
42,138,53;
137,1,3;
12,74,49;
41,42,82;
74,10,75;
112,99,92;
70,16,71;
9,100,99;
6,44,89;
90,93,30;
136,44,73;
8,72,81;
102,117,43;
65,96,124;
43,25,104;
114,107,123;
75,11,19;
76,117,115;
108,14,24;
101,43,104;
126,123,107;
116,57,132;
97,126,120;
55,110,56;
44,136,89;
130,28,18;
125,81,118;
1,137,23;
111,62,80;
88,87,84;
62,111,64);


solid rev = cube and not zwickl0;

solid inc = cube and zwickl0;

tlo rev -col=[0,0,1] -transparent;

tlo inc -col=[1,0,0];