From 048ac463123a7949e3f5c1a5b2b7f7b0b636339f Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@ulg.ac.be>
Date: Sat, 13 May 2006 22:04:04 +0000
Subject: [PATCH] make "common" extrusions create surfaces with correct
 orientations for netgen

---
 Geo/CAD.cpp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/Geo/CAD.cpp b/Geo/CAD.cpp
index 0cb5c0988b..05cedde23f 100644
--- a/Geo/CAD.cpp
+++ b/Geo/CAD.cpp
@@ -1,4 +1,4 @@
-// $Id: CAD.cpp,v 1.97 2006-04-09 20:14:28 geuzaine Exp $
+// $Id: CAD.cpp,v 1.98 2006-05-13 22:04:04 geuzaine Exp $
 //
 // Copyright (C) 1997-2006 C. Geuzaine, J.-F. Remacle
 //
@@ -1570,10 +1570,10 @@ int Extrude_ProtudeSurface(int type, int is,
   v->Extrude->geo.Source = is;
   if(e)
     v->Extrude->mesh = e->mesh;
-  int ori = 1;;
+  int ori = -1;
   List_Add(v->Surfaces, &ps);
   List_Add(v->SurfacesOrientations, &ori);
-  ori = -1;
+  ori = 1;
   List_Add(v->Surfaces, &chapeau);
   List_Add(v->SurfacesOrientations, &ori);
 
@@ -1582,7 +1582,10 @@ int Extrude_ProtudeSurface(int type, int is,
     Extrude_ProtudeCurve(type, c->Num, T0, T1, T2, A0, A1, A2, X0, X1, X2,
 			 alpha, &s, 0, e);
     if(s){
-      ori = -1;
+      if(c < 0)
+	ori = -1;
+      else
+	ori = 1;
       List_Add(v->Surfaces, &s);
       List_Add(v->SurfacesOrientations, &ori);
     }
-- 
GitLab