Skip to content
Snippets Groups Projects
Commit b4641e3d authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

This commit was manufactured by cvs2svn to create tag 'gmsh_1_22'.

parent 70cffcc8
No related branches found
No related tags found
No related merge requests found
Showing
with 2797 additions and 0 deletions
r = 2.24;
Point(1) = {0.0,0.0,0.0,.2};
Point(2) = {r,.0,0.0,.2};
Point(3) = {-r,0.0,0.0,.2};
Point(4) = {0,r,0.0,.2};
Point(5) = {0,-r,0.0,.2};
Circle(1) = {2,1,4};
Circle(2) = {4,1,3};
Circle(3) = {3,1,5};
Circle(4) = {5,1,2};
Point(6) = {10,10,0.0,1};
Point(7) = {-10,10,0.0,1};
Point(8) = {-10,-10,0.0,1};
Point(9) = {10,-10,0.0,1};
Line(5) = {8,7};
Line(6) = {7,6};
Line(7) = {6,9};
Line(8) = {9,8};
Line Loop(9) = {6,7,8,5};
Line Loop(10) = {4,1,2,3};
Plane Surface(11) = {9,10};
Extrude Surface (11, {0,0.0,2.0})
{
Layers { {2,1,2} , {100,200,100} , {.05,.95,1.} } ;
};
Coherence;
Physical Surface(54) = {53};
Physical Surface(55) = {11};
Physical Surface(56) = {40,44,48,52};
Physical Surface(57) = {53};
Surface Loop(58) = {53,24,11,28,32,36,40,44,48,52};
Complex Volume(59) = {58};
This diff is collapsed.
lcp = 10;
lci = 10;
/* Plaque */
Point(1) = {0,0,0,lcp};
Point(2) = {294,0,0,lcp};
Point(3) = {294,294,0,lcp};
Point(4) = {0,294,0,lcp};
Point(5) = {0,294,19,lcp};
Point(6) = {294,294,19,lcp};
Point(7) = {294,0,19,lcp};
Point(8) = {0,0,19,lcp};
Point(9) = {18,18,19,lcp};
Point(10) = {18,18,0,lcp};
Point(11) = {126,18,0,lcp};
Point(12) = {126,18,19,lcp};
Point(13) = {126,126,19,lcp};
Point(14) = {126,126,0,lcp};
Point(15) = {18,126,0,lcp};
Point(16) = {18,126,19,lcp};
Line(1) = {4,3};
Line(2) = {3,2};
Line(3) = {2,1};
Line(4) = {1,4};
Line(5) = {5,6};
Line(6) = {6,7};
Line(7) = {7,8};
Line(8) = {8,5};
Line(9) = {15,14};
Line(10) = {14,11};
Line(11) = {11,10};
Line(12) = {10,15};
Line(13) = {16,13};
Line(14) = {13,12};
Line(15) = {12,9};
Line(16) = {9,16};
Line(17) = {4,5};
Line(18) = {3,6};
Line(19) = {2,7};
Line(20) = {1,8};
Line(21) = {10,9};
Line(22) = {15,16};
Line(23) = {14,13};
Line(24) = {11,12};
Line Loop(25) = {5,-18,-1,17};
Plane Surface(26) = {25};
Line Loop(27) = {-17,-4,20,8};
Plane Surface(28) = {27};
Line Loop(29) = {20,-7,-19,3};
Plane Surface(30) = {29};
Line Loop(31) = {6,-19,-2,18};
Plane Surface(32) = {31};
Line Loop(33) = {1,2,3,4};
Line Loop(34) = {9,10,11,12};
Plane Surface(35) = {33,34};
Line Loop(36) = {5,6,7,8};
Line Loop(37) = {13,14,15,16};
Plane Surface(38) = {36,37};
/* Inducteur */
Point(17) = {94,50,49,lci};
Point(18) = {94,150,49,lci};
Point(19) = {119,50,49,lci};
Point(20) = {119,150,49,lci};
Point(21) = {144,0,49,lci};
Point(22) = {144,25,49,lci};
Point(23) = {144,50,49,lci};
Point(24) = {144,150,49,lci};
Point(25) = {144,175,49,lci};
Point(26) = {144,200,49,lci};
Point(27) = {244,0,49,lci};
Point(28) = {244,25,49,lci};
Point(29) = {244,50,49,lci};
Point(30) = {244,150,49,lci};
Point(31) = {244,175,49,lci};
Point(32) = {244,200,49,lci};
Point(33) = {269,50,49,lci};
Point(34) = {269,150,49,lci};
Point(35) = {294,50,49,lci};
Point(36) = {294,150,49,lci};
Circle(39) = {25,24,20};
Circle(40) = {26,24,18};
Circle(41) = {19,23,22};
Circle(42) = {17,23,21};
Circle(43) = {28,29,33};
Circle(44) = {27,29,35};
Circle(45) = {34,30,31};
Circle(46) = {36,30,32};
Line(47) = {31,32};
Line(48) = {32,26};
Line(49) = {26,25};
Line(50) = {25,31};
Line(51) = {20,18};
Line(52) = {18,17};
Line(53) = {17,19};
Line(54) = {19,20};
Line(55) = {22,21};
Line(56) = {21,27};
Line(57) = {27,28};
Line(58) = {28,22};
Line(59) = {33,35};
Line(60) = {35,36};
Line(61) = {36,34};
Line(62) = {34,33};
Line Loop(63) = {48,49,50,47};
Plane Surface(64) = {63};
Line Loop(65) = {-47,-45,-61,46};
Plane Surface(66) = {65};
Line Loop(67) = {61,62,59,60};
Plane Surface(68) = {67};
Line Loop(69) = {-59,-43,-57,44};
Plane Surface(70) = {69};
Line Loop(71) = {58,55,56,57};
Plane Surface(72) = {71};
Line Loop(73) = {-42,53,41,55};
Plane Surface(74) = {73};
Line Loop(75) = {52,53,54,51};
Plane Surface(76) = {75};
Line Loop(77) = {-51,-39,-49,40};
Plane Surface(78) = {77};
Extrude(64, {0,0,100});
Coherence;
Extrude(78, {0,0,100});
Coherence;
Extrude(76, {0,0,100});
Coherence;
Extrude(74, {0,0,100});
Coherence;
Extrude(72, {0,0,100});
Coherence;
Extrude(70, {0,0,100});
Coherence;
Extrude(68, {0,0,100});
Coherence;
Extrude(66, {0,0,100});
Coherence;
Line Loop(207) = {-13,-22,9,23};
Plane Surface(208) = {207};
Line Loop(209) = {-22,-12,21,16};
Plane Surface(210) = {209};
Line Loop(211) = {15,-21,-11,24};
Plane Surface(212) = {211};
Line Loop(213) = {24,-14,-23,10};
Plane Surface(214) = {213};
Delete {
Surface(117);
}
Delete {
Surface(143);
}
Delete {
Surface(179);
}
Delete {
Surface(205);
}
Delete {
Surface(227);
}
Delete {
Surface(249);
}
r1 = .1;
l1 = 1.;
l2 = .8;
l3 = .1;
r2 = 1.1;
lc = .1;
lc2 = .04;
rint = .2;
rext = .3;
Point(1) = {0.0,0.0,0.0,lc};
Point(2) = {l1,0.0,0.0,lc2};
Point(3) = {l1-r1,0.0,0.0,lc2};
Point(4) = {l1,r1,0.0,lc2};
Point(5) = {l1,-r1,0.0,lc2};
Point(6) = {l1+l2,r1,0.0,lc};
Point(7) = {l1+l2,-r1,0.0,lc};
Point(8) = {l1+l2,-r1-l3,0.0,lc};
Point(9) = {l1+l2,r1+l3,0.0,lc};
Line(1) = {4,6};
Line(2) = {6,9};
Line(3) = {7,8};
Line(4) = {5,7};
Circle(5) = {4,2,3};
Circle(6) = {3,2,5};
r = 2*3.14159/5;
Point(10) = { (l1 + r2) * Cos(r/2) , (l1 + r2) * Sin(r/2), 0.0, lc};
Rotate({0.0,0.0,1.0},{0.0,0.0,0.0},r) {
Duplicata {
Line(1);
Line(2);
Line(3);
Line(4);
Line(5);
Line(6);
Point(10);
}
}
Rotate({0.0,0.0,1.0},{0.0,0.0,0.0},2*r) {
Duplicata {
Line(1);
Line(2);
Line(3);
Line(4);
Line(5);
Line(6);
Point(10);
}
}
Rotate({0.0,0.0,1.0},{0.0,0.0,0.0},3*r) {
Duplicata {
Line(1);
Line(2);
Line(3);
Line(4);
Line(5);
Line(6);
Point(10);
}
}
Rotate({0.0,0.0,1.0},{0.0,0.0,0.0},4*r) {
Duplicata {
Line(1);
Line(2);
Line(3);
Line(4);
Line(5);
Line(6);
Point(10);
}
}
Coherence;
Point(newp) = {rint,0,0,lc};
Point(newp) = {rext,0,0,lc};
Point(newp) = {-rint,0,0,lc};
Point(newp) = {-rext,0,0,lc};
Point(newp) = {0,rint,0,lc};
Point(newp) = {0,rext,0,lc};
Point(newp) = {0,-rint,0,lc};
Point(newp) = {0,-rext,0,lc};
Circle(31) = {43,64,74};
Circle(32) = {16,37,47};
Circle(33) = {9,10,20};
Circle(34) = {97,118,8};
Circle(35) = {101,91,70};
Circle(36) = {119,1,123};
Circle(37) = {123,1,121};
Circle(38) = {121,1,125};
Circle(39) = {125,1,119};
Circle(40) = {120,1,124};
Circle(41) = {124,1,122};
Circle(42) = {122,1,126};
Circle(43) = {126,1,120};
Line Loop(44) = {-21,-22,-24,-23,19,20,-35,-27,-28,-30,-29,25,26,34,-3,-4,-6,-5,1,2,33,-9,-10,-12,-11,7,8,32,-15,-16,-18,-17,13,14,31};
Line Loop(45) = {43,40,41,42};
Plane Surface(46) = {44,45};
Line Loop(47) = {38,39,36,37};
Plane Surface(48) = {45,47};
Extrude Surface (46, {0.0,0.0,0.2});
Coherence;
Extrude Surface (48, {0.0,0.0,0.2});
Coherence;
Extrude Surface (287, {0.0,0.0,0.2});
Coherence;
/*
Delete {
Surface(287);
}
Delete {
Surface(266);
}
Delete {
Surface(262);
}
Delete {
Surface(270);
}
Delete {
Surface(236);
}
Delete {
Surface(258);
}
Delete {
Surface(232);
}
Delete {
Surface(244);
}
Delete {
Surface(240);
}
Delete {
Line(239);
}
Delete {
Line(230);
}
Delete {
Line(231);
}
Delete {
Line(235);
}
Coherence;
*/
Surface Loop(330) = {245,92,46,96,100,104,108,112,116,120,124,128,132,136,140,144,148,152,156,160,164,168,172,176,180,184,188,192,196,200,204,208,212,216,220,224,228,48,274,278,282,286,328,316,320,324,329,300,304,308,312};
Complex Volume(331) = {330};
%!PS-Adobe-3.0
%%LanguageLevel: 1
%%Title: Cube-01
%%Creator: Gmsh
%%Pages: (atend)
%%EndComments
%%BeginProlog
% RGB color command - r g b C
/C { setrgbcolor } bind def
% Font choose - size fontname FC
/FC { findfont exch scalefont setfont } bind def
% String primitive - (string) x y r g b size fontname S
/S { FC C moveto show } bind def
% Point primitive - x y r g b P
/P { C newpath 0.5 0.0 360.0 arc closepath fill } bind def
% Flat-shaded line - x2 y2 x1 y1 r g b L
/L { C newpath moveto lineto stroke } bind def
% Smooth-shaded line - x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 SL
/SL {
/b1 exch def /g1 exch def /r1 exch def
/y1 exch def /x1 exch def
/b2 exch def /g2 exch def /r2 exch def
/y2 exch def /x2 exch def
b2 b1 sub abs 0.01 gt
g2 g1 sub abs 0.005 gt
r2 r1 sub abs 0.008 gt
or or {
/bm b1 b2 add 0.5 mul def
/gm g1 g2 add 0.5 mul def
/rm r1 r2 add 0.5 mul def
/ym y1 y2 add 0.5 mul def
/xm x1 x2 add 0.5 mul def
x1 y1 r1 g1 b1 xm ym rm gm bm SL
xm ym rm gm bm x2 y2 r2 g2 b2 SL
} {
x1 y1 x2 y2 r1 g1 b1 L
} ifelse
} bind def
% Flat-shaded triangle - x3 y3 x2 y2 x1 y1 r g b T
/T { C newpath moveto lineto lineto closepath fill } bind def
% Smooth-shaded triangle - x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 ST
/ST {
/b1 exch def /g1 exch def /r1 exch def
/y1 exch def /x1 exch def
/b2 exch def /g2 exch def /r2 exch def
/y2 exch def /x2 exch def
/b3 exch def /g3 exch def /r3 exch def
/y3 exch def /x3 exch def
b2 b1 sub abs 0.05 gt
g2 g1 sub abs 0.017 gt
r2 r1 sub abs 0.032 gt
b3 b1 sub abs 0.05 gt
g3 g1 sub abs 0.017 gt
r3 r1 sub abs 0.032 gt
b2 b3 sub abs 0.05 gt
g2 g3 sub abs 0.017 gt
r2 r3 sub abs 0.032 gt
or or or or or or or or {
/b12 b1 b2 add 0.5 mul def
/g12 g1 g2 add 0.5 mul def
/r12 r1 r2 add 0.5 mul def
/y12 y1 y2 add 0.5 mul def
/x12 x1 x2 add 0.5 mul def
/b13 b1 b3 add 0.5 mul def
/g13 g1 g3 add 0.5 mul def
/r13 r1 r3 add 0.5 mul def
/y13 y1 y3 add 0.5 mul def
/x13 x1 x3 add 0.5 mul def
/b32 b3 b2 add 0.5 mul def
/g32 g3 g2 add 0.5 mul def
/r32 r3 r2 add 0.5 mul def
/y32 y3 y2 add 0.5 mul def
/x32 x3 x2 add 0.5 mul def
x1 y1 r1 g1 b1 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
x2 y2 r2 g2 b2 x12 y12 r12 g12 b12 x32 y32 r32 g32 b32
x3 y3 r3 g3 b3 x32 y32 r32 g32 b32 x13 y13 r13 g13 b13
x32 y32 r32 g32 b32 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
ST ST ST ST
} {
x1 y1 x2 y2 x3 y3 r1 g1 b1 T
} ifelse
} bind def
%%EndProlog
%%Page: 1
%%PageBoundingBox: 0 0 800 579
gsave
%!PS-Adobe-3.0
%%LanguageLevel: 1
%%Title: Cube-01
%%Creator: Gmsh
%%Pages: (atend)
%%EndComments
%%BeginProlog
% RGB color command - r g b C
/C { setrgbcolor } bind def
% Font choose - size fontname FC
/FC { findfont exch scalefont setfont } bind def
% String primitive - (string) x y r g b size fontname S
/S { FC C moveto show } bind def
% Point primitive - x y r g b P
/P { C newpath 0.5 0.0 360.0 arc closepath fill } bind def
% Flat-shaded line - x2 y2 x1 y1 r g b L
/L { C newpath moveto lineto stroke } bind def
% Smooth-shaded line - x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 SL
/SL {
/b1 exch def /g1 exch def /r1 exch def
/y1 exch def /x1 exch def
/b2 exch def /g2 exch def /r2 exch def
/y2 exch def /x2 exch def
b2 b1 sub abs 0.01 gt
g2 g1 sub abs 0.005 gt
r2 r1 sub abs 0.008 gt
or or {
/bm b1 b2 add 0.5 mul def
/gm g1 g2 add 0.5 mul def
/rm r1 r2 add 0.5 mul def
/ym y1 y2 add 0.5 mul def
/xm x1 x2 add 0.5 mul def
x1 y1 r1 g1 b1 xm ym rm gm bm SL
xm ym rm gm bm x2 y2 r2 g2 b2 SL
} {
x1 y1 x2 y2 r1 g1 b1 L
} ifelse
} bind def
% Flat-shaded triangle - x3 y3 x2 y2 x1 y1 r g b T
/T { C newpath moveto lineto lineto closepath fill } bind def
% Smooth-shaded triangle - x3 y3 r3 g3 b3 x2 y2 r2 g2 b2 x1 y1 r1 g1 b1 ST
/ST {
/b1 exch def /g1 exch def /r1 exch def
/y1 exch def /x1 exch def
/b2 exch def /g2 exch def /r2 exch def
/y2 exch def /x2 exch def
/b3 exch def /g3 exch def /r3 exch def
/y3 exch def /x3 exch def
b2 b1 sub abs 0.05 gt
g2 g1 sub abs 0.017 gt
r2 r1 sub abs 0.032 gt
b3 b1 sub abs 0.05 gt
g3 g1 sub abs 0.017 gt
r3 r1 sub abs 0.032 gt
b2 b3 sub abs 0.05 gt
g2 g3 sub abs 0.017 gt
r2 r3 sub abs 0.032 gt
or or or or or or or or {
/b12 b1 b2 add 0.5 mul def
/g12 g1 g2 add 0.5 mul def
/r12 r1 r2 add 0.5 mul def
/y12 y1 y2 add 0.5 mul def
/x12 x1 x2 add 0.5 mul def
/b13 b1 b3 add 0.5 mul def
/g13 g1 g3 add 0.5 mul def
/r13 r1 r3 add 0.5 mul def
/y13 y1 y3 add 0.5 mul def
/x13 x1 x3 add 0.5 mul def
/b32 b3 b2 add 0.5 mul def
/g32 g3 g2 add 0.5 mul def
/r32 r3 r2 add 0.5 mul def
/y32 y3 y2 add 0.5 mul def
/x32 x3 x2 add 0.5 mul def
x1 y1 r1 g1 b1 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
x2 y2 r2 g2 b2 x12 y12 r12 g12 b12 x32 y32 r32 g32 b32
x3 y3 r3 g3 b3 x32 y32 r32 g32 b32 x13 y13 r13 g13 b13
x32 y32 r32 g32 b32 x12 y12 r12 g12 b12 x13 y13 r13 g13 b13
ST ST ST ST
} {
x1 y1 x2 y2 x3 y3 r1 g1 b1 T
} ifelse
} bind def
%%EndProlog
%%Page: 1
%%PageBoundingBox: 0 0 800 579
gsave
epecr = 4.e-3 ;
c = 0.0 ;
lspire = 0.135 ;
pspire = 0.4 ;
lecr = 0.3 ;
pecr = 0.5 ;
hecr = 0.2 - epecr/2. ;
far = 2. ;
infty = 2.5 ;
lc1 = 0.1;
lc2 = 0.1;
lc4 = 0.8;
lc1 = 0.01;
lc2 = 0.05;
lc3 = 0.1;
lc4 = 0.5;
Point(1) = {c, c, c, lc2};
Point(2) = {c+lspire, c, c, lc2};
Point(3) = {c, c+pspire, c, lc2};
Point(4) = {c+lspire, c+pspire, c, lc2};
Point(5) = {c+lecr, c, c, lc2};
Point(6) = {c, c+pecr, c, lc2};
Point(7) = {c+lecr, c+pecr, c, lc2};
Point(8) = {c, c, c+hecr, lc2};
Point(9) = {c+lecr, c, c+hecr, lc1};
Point(10)= {c, c+pecr, c+hecr, lc1};
Point(11)= {c+lecr, c+pecr, c+hecr, lc1};
Point(12)= {c+far, c, c, lc4};
Point(13)= {c, c+far, c, lc4};
Point(14)= {c, c, c+far, lc3};
Point(15)= {c, c, c-far, lc4};
Point(16)= {c+infty, c, c, lc4};
Point(17)= {c, c+infty, c, lc4};
Point(18)= {c, c, c+infty, lc4};
Point(19)= {c, c, c-infty, lc4};
Line(1) = {2,4};
Line(2) = {4,3};
Line(3) = {1,2};
Line(4) = {1,3};
Line(5) = {2,5};
Line(6) = {5,7};
Line(7) = {7,6};
Line(8) = {6,13};
Line(9) = {5,12};
Line(10) = {6,10};
Line(11) = {10,11};
Line(12) = {11,7};
Line(13) = {10,8};
Line(14) = {8,9};
Line(15) = {9,11};
Line(16) = {9,5};
Line(17) = {1,8};
Line(18) = {8,14};
Line(19) = {14,18};
Line(20) = {13,17};
Line(21) = {12,16};
Circle(22) = {12,1,13};
Circle(23) = {16,1,17};
Circle(24) = {12,1,14};
Circle(25) = {16,1,18};
Circle(26) = {13,1,14};
Circle(27) = {17,1,18};
Circle(28) = {15,1,13};
Circle(29) = {19,1,17};
Circle(30) = {12,1,15};
Circle(31) = {16,1,19};
Line(32) = {1,15};
Line(33) = {15,19};
Line(34) = {3,6};
Line Loop(35) = {-2,-1,-3,4};
Plane Surface(36) = {35};
Line Loop(37) = {-7,-6,-5,1,2,34};
Plane Surface(38) = {37};
Line Loop(39) = {7,10,11,12};
Plane Surface(40) = {39};
Line Loop(41) = {12,-6,-16,15};
Plane Surface(42) = {41};
Line Loop(43) = {14,15,-11,13};
Plane Surface(44) = {43};
Line Loop(45) = {5,-16,-14,-17,3};
Plane Surface(46) = {45};
Line Loop(47) = {-17,4,34,10,13};
Plane Surface(48) = {47};
Line Loop(49) = {7,8,-22,-9,6};
Plane Surface(50) = {49};
Line Loop(51) = {20,-23,-21,22};
Plane Surface(52) = {51};
Line Loop(53) = {-8,-34,-4,32,28};
Plane Surface(54) = {53};
Line Loop(55) = {-20,-28,33,29};
Plane Surface(56) = {55};
Line Loop(57) = {5,9,30,-32,3};
Plane Surface(58) = {57};
Line Loop(59) = {19,-25,-21,24};
Plane Surface(60) = {59};
Line Loop(61) = {9,24,-18,14,16};
Plane Surface(62) = {61};
Line Loop(63) = {-18,-13,-10,8,26};
Plane Surface(64) = {63};
Line Loop(65) = {19,-27,-20,26};
Plane Surface(66) = {65};
Line Loop(67) = {33,-31,-21,30};
Plane Surface(68) = {67};
Line Loop(69) = {-28,-30,22};
Ruled Surface(70) = {69};
Line Loop(71) = {-29,-31,23};
Ruled Surface(72) = {71};
Line Loop(73) = {-24,22,26};
Ruled Surface(74) = {73};
Line Loop(75) = {-25,23,27};
Ruled Surface(76) = {75};
Surface Loop(77) = {48,-46,-38,-40,-44,42,-36};
Complex Volume(78) = {77};
Surface Loop(79) = {64,-62,-50,40,44,-42,-74};
Complex Volume(80) = {79};
Surface Loop(81) = {36,38,50,54,58,70};
Complex Volume(82) = {81};
Surface Loop(83) = {70,-56,-52,-72,68};
Complex Volume(84) = {83};
Surface Loop(85) = {52,66,-60,76,-74};
Complex Volume(86) = {85};
AirInterieur = 1111 ;
AirBas = 1112 ;
AirHaut = 1113 ;
AirInfini = 1114 ;
Spire = 2222 ;
Ecran = 3333 ;
dEcran = 3334 ;
CLInf = 1100 ;
Physical Line(dEcran) = {11,12,6, 14,16,13} ;
Physical Surface(Spire) = 36 ;
Physical Surface(Ecran) = {42,44} ;
Physical Surface(CLInf) = {76,72} ;
Physical Volume(AirInterieur) = 78;
Physical Volume(AirBas) = 80;
Physical Volume(AirHaut) = 82;
Physical Volume(AirInfini) = {84,86};
// this tests that we can still load as many views as we want.
// (even if only 200 are allowed in the GUI)
For i In {0:250}
Include "../tutorial/view1.pos" ;
Include "../tutorial/view2.pos" ;
EndFor
Point(1) = {0.0,0.0,0.0,.1};
Point(2) = {1,0.0,0.0,.1};
Point(3) = {1,1,0.0,.1};
Point(4) = {.5,.5,1,.1};
Point(5) = {1.2,.3,-.2,.1};
Point(6) = {.5,0,.2,.1};
Spline(1) = {1,4,3};
Spline(2) = {3,5,2};
Spline(3) = {2,6,1};
Line Loop(4) = {2,3,1};
Ruled Surface(5) = {4};
General.Trackball = 0;
General.Rotation0 = 0 ;
General.Color.Background = White ;
General.Color.ForeGround = Red ;
Post.View[0].IntervalsType = 2 ;
Post.View[0].Raise2 = 0.1 ;
For(1:300)
General.Rotation0 += 10 ;
General.Rotation1 = General.Rotation0 / 3 ;
Post.View[0].TimeStep +=
(Post.View[0].TimeStep < Post.View[0].NbTimeStep-1) ? 1 : 0 ;
Post.View[0].Raise2 -= .01 ;
Sleep 0.1;
Draw;
EndFor
la = .05;
la2 = .03;
Point(newp) = {0,0,0,la}; /* Point 1 */
Point(newp) = {-1,0,0,la}; /* Point 2 */
Point(newp) = {1,0,0,la}; /* Point 3 */
Point(newp) = {1.1,0,0,la}; /* Point 4 */
Point(newp) = {-1.1,0,0,la}; /* Point 5 */
Circle(2) = {4,1,5};
Circle(3) = {3,1,2};
Point(newp) = {-.2,.4,0,la}; /* Point 6 */
Point(newp) = {-.2,.4,0,la}; /* Point 7 */
Point(newp) = {.2,.4,0,la}; /* Point 8 */
Point(newp) = {.6,.4,0,la}; /* Point 9 */
Point(newp) = {-.6,.4,0,la2}; /* Point 10 */
Point(newp) = {-.65,.4,0,la2}; /* Point 11 */
Point(newp) = {-.55,.4,0,la2}; /* Point 12 */
Point(newp) = {-.25,.4,0,la2}; /* Point 13 */
Point(newp) = {-.15,.4,0,la2}; /* Point 14 */
Point(newp) = {.15,.4,0,la2}; /* Point 15 */
Point(newp) = {.25,.4,0,la2}; /* Point 16 */
Point(newp) = {.55,.4,0,la2}; /* Point 17 */
Point(newp) = {.65,.4,0,la2}; /* Point 18 */
Circle(4) = {18,9,17};
Circle(5) = {17,9,18};
Circle(6) = {16,8,15};
Circle(7) = {15,8,16};
Circle(8) = {14,7,13};
Circle(9) = {13,7,14};
Circle(10) = {12,10,11};
Circle(11) = {11,10,12};
Line(12) = {5,2};
Line(13) = {2,3};
Line(14) = {3,4};
Loop(15) = {-12,-2,-14,3};
Plane Surface(16) = {15};
Loop(17) = {3,13};
Loop(18) = {10,11};
Loop(19) = {8,9};
Loop(20) = {6,7};
Loop(21) = {4,5};
Plane Surface(22) = {17,18,19,20,21};
Transfinite Line{12,14} = 7 Using Progression 0.9;
Transfinite Line{2,3} = 40;
Transfinite Surface{16} = {5,2,3,4};
Recombine Surface{16};
Point(1) = {0,0,0,1.0};
Point(2) = {1,0,0,1.0};
Point(3) = {.5,1,0,1.0};
Point(4) = {.75,.5,0,1.0};
Line(1) = {2,1};
Line(2) = {1,3};
Line(3) = {3,4};
Line(4) = {4,2};
Line Loop(5) = {1,2,3,4};
Ruled Surface(6) = {5};
Point(5) = {1,1,0.0,1.0};
Point(6) = {1,.5,0.0,1.0};
Line(7) = {3,5};
Line(8) = {5,6};
Line(9) = {6,4};
Line Loop(10) = {-3,7,8,9};
Ruled Surface(11) = {10};
Transfinite Line {2,4} = 5;
Transfinite Line {3,1,8} = 10;
Transfinite Line {7,9} = 10;
Transfinite Surface {6} = {1,2,4,3};
Transfinite Surface {11} = {4,6,5,3};
Recombine Surface {6,11};
Point(newp) = {0,0,0,0.1}; /* Point 1 */
Point(newp) = {1,0,0,0.1}; /* Point 2 */
Point(newp) = {-1,0,0,0.1}; /* Point 3 */
Point(newp) = {0,.8,0,0.1}; /* Point 4 */
Point(newp) = {0,0,.8,0.1}; /* Point 5 */
Point(newp) = {0,0,-.8,0.1}; /* Point 6 */
Point(newp) = {.1,0,-.79,.1}; /* Point 7 */
Point(newp) = {.3,0,-.73,.1}; /* Point 8 */
Point(newp) = {.65,0,-.55,.1}; /* Point 9 */
Point(newp) = {.9,0,-.38,.1}; /* Point 10 */
Point(newp) = {.1,0,.79,.1}; /* Point 11 */
Point(newp) = {.3,0,.73,.1}; /* Point 12 */
Point(newp) = {.65,0,.55,.1}; /* Point 13 */
Point(newp) = {.9,0,.38,.1}; /* Point 14 */
Spline(1) = {6,7,8,9,10,2};
Circle(2) = {6,1,4};
Circle(3) = {2,1,1,4};
Line Loop(4) = {3,-2,1};
Ruled Surface(5) = {4};
Spline(6) = {5,11,12,13,14,2};
Circle(7) = {5,1,4};
Line Loop(8) = {3,-7,6};
Ruled Surface(9) = {8};
Line(10) = {6,5};
Line Loop(11) = {7,-2,10};
Plane Surface(12) = {11};
Line Loop(13) = {-1,10,6};
Plane Surface(14) = {13};
Surface Loop(15) = {12,9,-5,-14};
Complex Volume(16) = {15};
Point(1) = {0.0,0.0,0.0,.08};
Point(2) = {-.5,0.0,0.0,.08};
Point(3) = {.5,0.0,0.0,.08};
Point(4) = {.5,-.5,0.0,.08};
Point(5) = {-.5,-.5,0.0,.08};
Circle(1) = {3,1,2};
Line(2) = {3,4};
Line(3) = {4,5};
Line(4) = {5,2};
Line Loop(5) = {3,4,-1,2};
Plane Surface(6) = {5};
Extrude(6, {0,0,.5});
Coherence;
Point(newp) = { 0, 0,0,.1};
Point(newp) = {-1, 0,0,.1};
Point(newp) = { 1, 0,0,.1};
Point(newp) = { 0, .5,0,.1};
Point(newp) = { 0,-.5,0,.1};
Point(newp) = { 0, 0,.8,.1};
Point(newp) = { 0, 0,-1,.1};
Ellipsis(1) = {3,1,3,4};
Ellipsis(2) = {4,1,2,2};
Ellipsis(3) = {2,1,2,5};
Ellipsis(4) = {5,1,3,3};
Ellipsis(5) = {7,1,7,4};
Ellipsis(6) = {4,1,6,6};
Ellipsis(7) = {6,1,6,5};
Ellipsis(8) = {5,1,7,7};
Ellipsis(9) = {6,1,3,3};
Ellipsis(10) = {2,1,2,6};
Ellipsis(11) = {7,1,2,2};
Ellipsis(12) = {3,1,3,7};
Line Loop(13) = {1,6,9};
Ruled Surface(14) = {13};
Line Loop(15) = {4,-9,7};
Ruled Surface(16) = {15};
Line Loop(17) = {-7,-10,3};
Ruled Surface(18) = {17};
Line Loop(19) = {3,8,11};
Ruled Surface(20) = {19};
Line Loop(21) = {2,-11,5};
Ruled Surface(22) = {21};
Line Loop(23) = {-5,-12,1};
Ruled Surface(24) = {23};
Line Loop(25) = {-12,-4,8};
Ruled Surface(26) = {25};
Line Loop(27) = {-6,2,10};
Ruled Surface(28) = {27};
// solved by setting the tolerance lower in sys3x3_with_tol (-> again,
// this arised from a wrong mean plane computation)
//lc = 0.00001;
lc = 0.001;
Point(61) = {0.058, -0.005, 0, lc};
Point(62) = {0.058, -0.005, 0.000625, lc};
Point(64) = {0.058625, -0.005, 0, lc};
Point(85) = {0.058, -0.006, 0, lc};
Point(86) = {0.058, -0.006, 0.000625, lc};
Point(88) = {0.058625, -0.006, 0, lc};
Line(1) = {86,62};
Line(2) = {88,64};
Circle(3) = {62,61,64};
Circle(4) = {86,85,88};
Line Loop(5) = {2,-3,-1,4};
Ruled Surface(6) = {5};
la = .1;
lc = .2;
Point(1) = {-1,0,0,lc};
Point(2) = {1,0,0,lc};
Point(3) = {1,0.5,0,lc};
Point(4) = {-1,0.5,0,lc};
Point(5) = {-1.1,0.6,0,lc};
Point(6) = {1.1,0.6,0,lc};
Point(7) = {1.1,0,0,lc};
Point(8) = {-1.1,0,0,lc};
Point(9) = {-.3,0,0,lc};
Point(10) = {.3,0,0,lc};
Point(11) = {.4,0,0,la};
Point(12) = {.2,0,0,la};
Point(13) = {-.2,0,0,la};
Point(14) = {-.4,0,0,la};
Point(15) = {-.3,.1,0,la};
Point(16) = {-.3,-.1,0,la};
Point(17) = {.3,-.1,0,la};
Point(18) = {.3,.1,0,la};
Point(19) = {0,-.5,0,lc};
Point(20) = {2,-.5,0,lc};
Point(21) = {-2,-.5,0,lc};
Point(22) = {0,1.5,0,lc};
Point(23) = {0,1.7,0,lc};
Point(24) = {2.2,-.5,0,lc};
Point(25) = {-2.2,-.5,0,lc};
Line(1) = {8,1};
Line(2) = {1,4};
Line(3) = {4,3};
Line(4) = {3,2};
Line(5) = {2,7};
Line(6) = {7,6};
Line(7) = {6,5};
Line(8) = {5,8};
Circle(9) = {11,10,18};
Circle(10) = {18,10,12};
Circle(11) = {12,10,17};
Circle(12) = {17,10,11};
Circle(13) = {13,9,15};
Circle(14) = {15,9,14};
Circle(15) = {14,9,16};
Circle(16) = {16,9,13};
Circle(17) = {20,19,22};
Circle(18) = {22,19,21};
Line(19) = {21,19};
Line(20) = {20,19};
Line(21) = {20,24};
Line(22) = {21,25};
Circle(23) = {24,19,23};
Circle(24) = {23,19,25};
Line Loop(27) = {19,-20,17,18};
Plane Surface(28) = {27};
l = 2;
Point(1) = {1.0,0.0,0.0,l};
Point(2) = {1.0,1.0,0.0,l};
Point(3) = {0.0,0.0,0.0,l};
Point(4) = {0.0,1.0,0.0,l};
Line(1) = {2,1};
Line(2) = {1,3};
Line(3) = {3,4};
Line(4) = {4,2};
lc = 0.05 ;
lc = 0.1 ;
/* Point 1 */
Point(newp) = {0,0,0,lc};
/* Point 2 */
Point(newp) = {1,0,0,lc};
/* Point 3 */
Point(newp) = {0.5,0,0,lc};
/* Point 4 */
Point(newp) = {0.5,0.5,0,lc};
/* Point 5 */
Point(newp) = {1,0.5,0,lc};
/* Point 6 */
Point(newp) = {1,1,0,lc};
/* Point 7 */
Point(newp) = {0,1,0,lc};
Delete {
Point(2);
}
Line(1) = Liste[3,4];
Line(2) = Liste[4,5];
Line(3) = Liste[5,6];
Line(4) = Liste[6,7];
Line(5) = Liste[7,1];
Line(6) = Liste[1,3];
Loop(7) = {5,6,1,2,3,4};
Plane Surface(8) = {7};
Air = 1111 ;
CL0 = 2222 ;
CL1 = 3333 ;
Physical Volume (Air) = Liste[8] ;
Physical Surface (CL0) = Liste[1,2] ;
Physical Surface (CL1) = Liste[4,5] ;
lcar1 = .2;
Point(newp) = {0.5,0.5,0.5,lcar1}; /* Point 1 */
Point(newp) = {0.5,0.5,0,lcar1}; /* Point 2 */
Point(newp) = {0,0.5,0.5,lcar1}; /* Point 3 */
Point(newp) = {0,0,0.5,lcar1}; /* Point 4 */
Point(newp) = {0.5,0,0.5,lcar1}; /* Point 5 */
Point(newp) = {0.5,0,0,lcar1}; /* Point 6 */
Point(newp) = {0,0.5,0,lcar1}; /* Point 7 */
Point(newp) = {0,1,0,lcar1}; /* Point 8 */
Point(newp) = {1,1,0,lcar1}; /* Point 9 */
Point(newp) = {0,0,1,lcar1}; /* Point 10 */
Point(newp) = {0,1,1,lcar1}; /* Point 11 */
Point(newp) = {1,1,1,lcar1}; /* Point 12 */
Point(newp) = {1,0,1,lcar1}; /* Point 13 */
Point(newp) = {1,0,0,lcar1};
Line(1) = {8,9};
Line(2) = {9,12};
Line(3) = {12,11};
Line(4) = {11,8};
Line(5) = {9,14};
Line(6) = {14,13};
Line(7) = {13,12};
Line(8) = {11,10};
Line(9) = {10,13};
Line(10) = {10,4};
Line(11) = {4,5};
Line(12) = {5,6};
Line(13) = {6,2};
Line(14) = {2,1};
Line(15) = {1,3};
Line(16) = {3,7};
Line(17) = {7,2};
Line(18) = {3,4};
Line(19) = {5,1};
Line(20) = {7,8};
Line(21) = {6,14};
Line Loop(22) = {11,19,15,18};
Plane Surface(23) = {22};
Line Loop(24) = {16,17,14,15};
Plane Surface(25) = {24};
Line Loop(26) = {-17,20,1,5,-21,13};
Plane Surface(27) = {26};
Line Loop(28) = {4,1,2,3};
Plane Surface(29) = {28};
Line Loop(30) = {7,-2,5,6};
Plane Surface(31) = {30};
Line Loop(32) = {6,-9,10,11,12,21};
Plane Surface(33) = {32};
Line Loop(34) = {7,3,8,9};
Plane Surface(35) = {34};
Line Loop(36) = {10,-18,16,20,-4,8};
Plane Surface(37) = {36};
Line Loop(38) = {-14,-13,-12,19};
Plane Surface(39) = {38};
Surface Loop(40) = {35,31,29,37,33,23,39,25,27};
Complex Volume(41) = {40};
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment