1 # -*- coding: iso-8859-1 -*-
2 # Copyright (C) 2007-2013 CEA/DEN, EDF R&D, OPEN CASCADE
4 # Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
5 # CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
7 # This library is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Lesser General Public
9 # License as published by the Free Software Foundation; either
10 # version 2.1 of the License.
12 # This library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # Lesser General Public License for more details.
17 # You should have received a copy of the GNU Lesser General Public
18 # License along with this library; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 # See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
24 # =======================================
33 # Creer un cylindre surplombe d'une demi-sphere le tout troue par un petit cylindre.
34 # Decouper en hexahedre et mailler.
40 cylindre_hauteur = 400
43 trou_z = cylindre_rayon/2
50 cylindre_base = MakeVertex(0, 0, 0)
51 cylindre_dir = MakeVectorDXDYDZ(1, 0, 0)
52 cylindre = MakeCylinder(cylindre_base, cylindre_dir, cylindre_rayon, cylindre_hauteur)
57 dome_sphere = MakeSpherePntR(cylindre_base, cylindre_rayon)
58 dome = MakeFuse(dome_sphere, cylindre)
63 cheminee_base = MakeVertex(-cylindre_hauteur/2, 0, trou_z)
64 cheminee_trou = MakeCylinder(cheminee_base, cylindre_dir, trou_rayon, 2*cylindre_hauteur)
65 cheminee = MakeCut(dome, cheminee_trou)
67 # Decoupage et reparation
68 # -----------------------
70 blocs_plan1 = MakePlane(cheminee_base, MakeVectorDXDYDZ(0, 1, 0), plan_trim)
71 blocs_plan2 = MakePlane(cheminee_base, MakeVectorDXDYDZ(0, 0, 1), plan_trim)
73 blocs_part = MakePartition([cheminee], [blocs_plan1, blocs_plan2], [], [], ShapeType["SOLID"])
75 piece = RemoveExtraEdges(blocs_part)
80 piece_id = addToStudy(piece, "ex17_dome1")
85 smesh.SetCurrentStudy(salome.myStudy)
87 # Maillage hexahedrique
88 # ---------------------
90 hexa = smesh.Mesh(piece, "ex17_dome1:hexa")
93 algo.NumberOfSegments(20)