mirror of
https://github.com/NGSolve/netgen.git
synced 2024-12-25 05:20:34 +05:00
99 lines
1.1 KiB
GLSL
99 lines
1.1 KiB
GLSL
algebraic3d
|
|
|
|
curve2d procurve1=(8;
|
|
-1,0;
|
|
-0.7,0.7;
|
|
0,1;
|
|
0.7,0.7;
|
|
1,0;
|
|
0.7,-0.7;
|
|
0,-1;
|
|
-0.7,-0.7;
|
|
4;
|
|
3,1,2,3;
|
|
3,3,4,5;
|
|
3,5,6,7;
|
|
3,7,8,1);
|
|
|
|
curve2d procurve2=(4;
|
|
1,1;
|
|
1,-1;
|
|
-1,-1;
|
|
-1,1;
|
|
4;
|
|
2,1,2;
|
|
2,2,3;
|
|
2,3,4;
|
|
2,4,1);
|
|
|
|
|
|
|
|
curve3d pathcurve1=(9;
|
|
0,0,0;
|
|
10,0,5;
|
|
10,10,10;
|
|
10,20,15;
|
|
0,20,20;
|
|
-10,20,25;
|
|
-10,10,30;
|
|
-10,0,35;
|
|
0,0,40;
|
|
4;
|
|
3,1,2,3;
|
|
3,3,4,5;
|
|
3,5,6,7;
|
|
3,7,8,9);
|
|
|
|
curve3d pathcurve2=(2;
|
|
0,0,0;
|
|
0,10,0;
|
|
1;
|
|
2,1,2);
|
|
|
|
|
|
curve3d pathcurve3=(3;
|
|
0,0,0;
|
|
10,0,5;
|
|
10,10,10;
|
|
1;
|
|
3,1,2,3);
|
|
|
|
curve3d pathcurve4=(9;
|
|
0,0,0;
|
|
10,0,0;
|
|
10,10,0;
|
|
10,20,0;
|
|
0,20,0;
|
|
-10,20,0;
|
|
-10,10,0;
|
|
-10,0,0;
|
|
0,0,0;
|
|
4;
|
|
3,1,2,3;
|
|
3,3,4,5;
|
|
3,5,6,7;
|
|
3,7,8,9);
|
|
|
|
|
|
solid p1 = plane(1,0,0;-1,0,0);
|
|
solid p2 = plane(10,9,10;0,1,0);
|
|
solid p3 = plane(0,1,0;0,-1,0);
|
|
solid p4 = plane(0,9,0;0,1,0);
|
|
|
|
solid ob1 = orthobrick(-1,-5,-5;1,5,45);
|
|
|
|
solid ext = extrusion(pathcurve1;procurve2;0,0,1) and not ob1;
|
|
|
|
#solid ext = extrusion(pathcurve4;procurve2;0,0,1);
|
|
|
|
#solid ext = extrusion(pathcurve3;procurve1;0,0,1) and p1 and p2;
|
|
|
|
#solid ext = extrusion(pathcurve2;procurve2;0,0,1) and p3 and p4;
|
|
|
|
solid sp = sphere(0,0,0;4);
|
|
|
|
solid comb = sp or ext;
|
|
|
|
#tlo ext;
|
|
|
|
tlo comb; |