1 # Copyright (C) 2005 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
2 # CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License.
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 # Lesser General Public License for more details.
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18 # See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 # CEA/LGLS 2004-2005, Francis KLOSS (OCC)
21 # =======================================
30 # Construire avec des hexahedres une piece faite de 2 cylindres de diametre different
31 # et dont les axes se coupent orthogonalement, puis mailler.
53 g_base = MakeVertex(cx, cy, cz)
54 g_dir = MakeVectorDXDYDZ(0, 0, 1)
55 t_hauteur = p_rayon+10.0
57 g_cyl = MakeCylinder(g_base, g_dir, g_rayon, g_hauteur)
59 g_coupe = MakeVectorDXDYDZ(1, 0, 0)
62 g_tools.append(MakePlane(MakeVertex(cx+t_hauteur, cy, cz), g_coupe, g_trim))
63 g_tools.append(MakePlane(MakeVertex(cx-t_hauteur, cy, cz), g_coupe, g_trim))
65 g_partie = MakePartition([g_cyl], g_tools, [], [], ShapeType["SOLID"])
66 g_bas, g_centre, g_haut = SubShapeAllSorted(g_partie, ShapeType["SOLID"])
68 # Partie basse du gros cylindre
69 # -----------------------------
74 b_boite = MakeBox(cx-t_hauteur, cy-b_base, cz, cx-t_hauteur-b_hauteur, cy+b_base, cz+g_hauteur)
77 b_cyl = MakeCut(g_bas, b_boite)
80 b_tools.append(MakePlane(MakeVertex(cx-t_hauteur-b_hauteur, cy+b_base, cz), MakeVectorDXDYDZ( 1, 1, 0), g_trim))
81 b_tools.append(MakePlane(MakeVertex(cx-t_hauteur-b_hauteur, cy-b_base, cz), MakeVectorDXDYDZ(-1, 1, 0), g_trim))
83 b_partie = MakePartition([b_cyl], b_tools, [], [], ShapeType["SOLID"])
84 b_element = SubShapeAll(b_partie, ShapeType["SOLID"])
87 # Partie haute du gros cylindre
88 # -----------------------------
90 h_plan = MakePlane(g_base, g_coupe, g_trim)
92 cpd.append(MakeMirrorByPlane(b_boite, h_plan))
95 h_symetrie = MakeMirrorByPlane(h, h_plan)
96 cpd.append(h_symetrie)
102 x_arete = z_arete*t_hauteur*2/g_hauteur
108 p_base = MakeVertex(cx, py, pz)
109 p_dir = MakeVectorDXDYDZ(0, 1, 0)
110 p_cyl = MakeCylinder(p_base, p_dir, p_rayon, p_hauteur)
112 p_boite = MakeBox(px, py, pz-z_arete, cx+x_arete, py+p_hauteur, pz+z_arete)
114 # Partie interieure du petit cylindre
115 # -----------------------------------
117 i_cyl = MakeCommon(p_cyl, g_cyl)
118 i_tuyau = MakeCut(i_cyl, p_boite)
119 i_boite = MakeCommon(p_boite, g_cyl)
121 # Partie exterieure du petit cylindre
122 # -----------------------------------
124 e_cyl0 = MakeCut(p_cyl, g_cyl)
125 e_cyl = SubShapeAllSorted(e_cyl0, ShapeType["SOLID"])
127 e_tuyau = MakeCut(e_cyl[1], p_boite)
129 e_boite0 = MakeCut(p_boite, g_cyl)
130 e_boite = SubShapeAllSorted(e_boite0, ShapeType["SOLID"])
132 cpd.append(e_boite[1])
134 # Partie centrale du gros cylindre
135 # --------------------------------
137 c_cyl = MakeCut(g_centre, p_cyl)
143 p_tools.append(MakePlane(MakeVertex(px, py, pz-z_arete), MakeVectorDXDYDZ(-z_arete, 0, x_arete), g_trim))
144 p_tools.append(MakePlane(MakeVertex(px, py, pz+z_arete), MakeVectorDXDYDZ( z_arete, 0, x_arete), g_trim))
146 p_partie = MakePartition([e_tuyau], p_tools, [], [], ShapeType["SOLID"])
147 p_element = SubShapeAll(p_partie, ShapeType["SOLID"])
148 cpd = cpd + p_element
150 q_partie = MakePartition([i_tuyau, c_cyl], p_tools, [], [], ShapeType["SOLID"])
151 q_element = SubShapeAll(q_partie, ShapeType["SOLID"])
153 q_element = q_element + [i_boite]
156 q_tools.append(MakePlane(MakeVertex(cx, cy-b_base, cz), MakeVectorDXDYDZ(0, 1, 0), g_trim))
157 q_tools.append(MakePlane(MakeVertex(cx, cy+b_base, cz), MakeVectorDXDYDZ(0, 1, 0), g_trim))
161 r_partie = MakePartition([e], q_tools, [], [], ShapeType["SOLID"])
162 r_element = r_element + SubShapeAll(r_partie, ShapeType["SOLID"])
164 cpd = cpd + r_element
169 piece = RemoveExtraEdges(MakeCompound(cpd))
171 # Ajouter la piece dans l'etude
172 # -----------------------------
174 piece_id = addToStudy(piece, "ex15_cyl2geometry")
179 # Create a hexahedral mesh
180 # ------------------------
182 hexa = smesh.Mesh(piece, "ex15_cyl2geometry:hexa")
184 algo = hexa.Segment()
185 algo.NumberOfSegments(12)