1 # Copyright (C) 2007-2008 CEA/DEN, EDF R&D, OPEN CASCADE
3 # Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 # CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 # This library is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU Lesser General Public
8 # License as published by the Free Software Foundation; either
9 # version 2.1 of the License.
11 # This library is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 # Lesser General Public License for more details.
16 # You should have received a copy of the GNU Lesser General Public
17 # License along with this library; if not, write to the Free Software
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 # See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
22 # =======================================
31 # grid compound of 17 x 17 elements
32 # an element is compound of 3 concentric cylinders
33 # an element is centered in a square of the grid
35 # prism the grid, and mesh it in hexahedral way
55 # Solids and rotation to prevent repair
56 # -------------------------------------
58 s_boite = MakeBox(g_x-g_arete, g_y-g_hauteur, g_z-g_arete, g_x+g_arete, g_y+g_hauteur, g_z+g_arete)
61 s_hauteur = 2*g_hauteur
62 s_centre = MakeVertex(g_x, g_y-g_hauteur, g_z)
63 s_dir = MakeVectorDXDYDZ(0, 1, 0)
65 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon3, s_hauteur)
66 s_cyl1 = MakeRotation(s_cyl0, s_dir, s_pi4)
68 s_blo1 = MakeCut(s_boite, s_cyl1)
70 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon2, s_hauteur)
71 s_cyl2 = MakeRotation(s_cyl0, s_dir, s_pi4)
73 s_blo2 = MakeCut(s_cyl1, s_cyl2)
75 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon1, s_hauteur)
76 s_cyl3 = MakeRotation(s_cyl0, s_dir, s_pi4)
78 s_blo3 = MakeCut(s_cyl2, s_cyl3)
82 s_blo4 = MakeBox(g_x-s_arete, g_y-g_hauteur, g_z-s_arete, g_x+s_arete, g_y+g_hauteur, g_z+s_arete)
84 s_blo5 = MakeCut(s_cyl3, s_blo4)
90 p_tools.append(MakePlane(s_centre, MakeVectorDXDYDZ( 1, 0, 1), g_trim))
91 p_tools.append(MakePlane(s_centre, MakeVectorDXDYDZ(-1, 0, 1), g_trim))
93 p_partie = MakePartition([s_blo1, s_blo2, s_blo3, s_blo5], p_tools, [], [], ShapeType["SOLID"])
98 c_blocs = SubShapeAll(p_partie, ShapeType["SOLID"])
99 c_blocs.append(s_blo4)
101 c_cpd = MakeCompound(c_blocs)
103 c_element = MakeGlueFaces(c_cpd, 1e-4)
108 piece = MakeMultiTranslation2D(c_element, MakeVectorDXDYDZ(1, 0, 0), 2*g_arete, g_grid, MakeVectorDXDYDZ(0, 0, 1), 2*g_arete, g_grid)
113 piece_id = addToStudy(piece, "ex12_grid17partition")
118 # Create a hexahedral mesh
119 # ------------------------
121 hexa = smesh.Mesh(piece, "ex12_grid17partition:hexa")
123 algo = hexa.Segment()
124 algo.NumberOfSegments(2)