ParasolidDemo/intersectCases/myCase1/surfaces.txt

W:=Matrix([[1.1,0.9,1.1,0.9,1,1],[1,1,1,1.1,1,0.9],[0.9,1,1.1,1,0.9,1],[0.9,0.9,1,0.9,1,1],[1.1,1,1.1,1,1,0.9],[1.1,1,1,1,1.2,1.1]]);
P1 := Matrix(6, 6, {(1, 1)=[0, 0, 0.2], (1, 2)=[0, 0.2, 0.3], (1, 3)=[0, 0.4, 0.25], (1, 4)=[0, 0.6, 0.12], (1, 5)=[0, 0.8, 0.22], (1, 6)=[0, 1, 0.12], (2, 1)=[0.2, 0, 0.22], (2, 2)=[0.2, 0.2, -0.3], (2, 3)=[0.2, 0.4, 0.4], (2, 4)=[0.2, 0.6, -0.1], (2, 5)=[0.2, 0.8, -0.1], (2, 6)=[0.2, 1, 0.2], (3, 1)=[0.4, 0, 0.18], (3, 2)=[0.4, 0.2, -0.3], (3, 3)=[0.4, 0.4, 0.4], (3, 4)=[0.4, 0.6, -0.1], (3, 5)=[0.4, 0.8, -0.1], (3, 6)=[0.4, 1, 0.23], (4, 1)=[0.6, 0, 0.2], (4, 2)=[0.6, 0.2, 0.4], (4, 3)=[0.6, 0.4, 0.4], (4, 4)=[0.6, 0.6, 0.4], (4, 5)=[0.6, 0.8, 0.4], (4, 6)=[0.6, 1, 0.2], (5, 1)=[0.8, 0, 0.19], (5, 2)=[0.8, 0.2, -0.4], (5, 3)=[0.8, 0.4, 0.4], (5, 4)=[0.8, 0.6, -0.27], (5, 5)=[0.8, 0.8, -0.27], (5, 6)=[0.8, 1, 0.2], (6, 1)=[1, 0, 0.00988068], (6, 2)=[1, 0.2, 0.12], (6, 3)=[1, 0.4, 0.22], (6, 4)=[1, 0.6, 0.32], (6, 5)=[1, 0.8, 0.22], (6, 6)=[1, 1, 0.12]});
P2 := Matrix(6, 6, {(1, 1)=[0, 0, 0.1], (1, 2)=[0, 0.2, -0.1], (1, 3)=[0.00386275, 0.388684, -0.0216098], (1, 4)=[0, 0.6, 0.1], (1, 5)=[0, 0.8, 0], (1, 6)=[0, 0.9, 0], (2, 1)=[0.2, 0, 0], (2, 2)=[0.2, 0.2, 0.42], (2, 3)=[0.2, 0.4, 0.42], (2, 4)=[0.2, 0.6, -0.2], (2, 5)=[0.2, 0.8, 0.6], (2, 6)=[0.2, 1, 0], (3, 1)=[0.4, 0, 0], (3, 2)=[0.4, 0.2, -0.2], (3, 3)=[0.4, 0.4, -0.2], (3, 4)=[0.4, 0.6, 0.4], (3, 5)=[0.4, 0.8, -0.2], (3, 6)=[0.4, 1, 0], (4, 1)=[0.6, 0, 0], (4, 2)=[0.6, 0.2, 0.4], (4, 3)=[0.6, 0.4, 0.4], (4, 4)=[0.6, 0.6, -0.2], (4, 5)=[0.461703, 1.17048, 0.981797], (4, 6)=[0.6, 1, 0], (5, 1)=[0.8, 0, 0], (5, 2)=[0.8, 0.2, 0.4], (5, 3)=[0.8, 0.4, 0.4], (5, 4)=[0.8, 0.6, -0.2], (5, 5)=[0.8, 0.8, 0.41], (5, 6)=[0.8, 1, 0], (6, 1)=[1.1, 0, -0.181393], (6, 2)=[1, 0.2, 0], (6, 3)=[1, 0.4, 0], (6, 4)=[1, 0.6, 0], (6, 5)=[1, 0.8, 0], (6, 6)=[1, 1, 0.075]});