123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 |
-
-
-
-
- D0 = 10;
- D1 = 11;
- radius = 3.25;
-
- lc = radius;
-
-
- Box = 3*radius;
- X0 = -Box;
- X1 = Box;
- Y0 = -Box;
- Y1 = Box;
- Z0 = -Box;
- Z1 = Box;
-
- cellSize=lc;
- dd = 0 ;
- pio2=Pi/2;
-
-
-
-
- pp = newp;
- Point(pp) = {X0, Y0, Z0, lc};
- Point(pp+1) = {X1, Y0, Z0, lc};
- Point(pp+2) = {X1, Y1, Z0, lc};
- Point(pp+3) = {X0, Y1, Z0, lc};
-
-
- lv = newl;
- Line(lv) = {pp,pp+1};
- Line(lv+1) = {pp+1,pp+2};
- Line(lv+2) = {pp+2,pp+3};
- Line(lv+3) = {pp+3,pp};
- Line Loop(lv+4) = {lv, lv+1, lv+2, lv+3};
-
-
- Plane Surface(125) = {lv+4};
-
-
- v[] = Extrude {0, 0, Z1-Z0} { Surface{125}; };
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|