From 8bbfb2b60c9f7d5b0c92e3cb92d6679c54a68278 Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@ulg.ac.be>
Date: Sun, 22 Jan 2006 19:23:07 +0000
Subject: [PATCH] new syntax
---
benchmarks/2d/tresse.geo | 34 +++++++++++++++-------------------
1 file changed, 15 insertions(+), 19 deletions(-)
diff --git a/benchmarks/2d/tresse.geo b/benchmarks/2d/tresse.geo
index 184ed86162..7bb44cd177 100644
--- a/benchmarks/2d/tresse.geo
+++ b/benchmarks/2d/tresse.geo
@@ -10,26 +10,22 @@ deph = Pi ;
lc1 = ll/nbrp ;
-// Point(1) = { 0. , 0. , 0. , lc1 } ;
-
For ii In {0:nn-1}
- For tt In {0:nbrp_tot}
-
- Point(2*ii*1000+tt) = { tt*ll/nbrp , ii*dd-larg/2 , ampl*Sin(2*Pi*tt/nbrp+ii*deph) , lc1 } ;
- tab1[tt] = 2*ii*1000+tt ;
- Point((2*ii+1)*1000+tt)={dd/2+ii*dd-larg/2,-ll/4+tt*ll/nbrp,ampl*Sin(2*Pi*tt/nbrp-Pi+ii*deph),lc1};
- tab2[tt] = (2*ii+1)*1000+tt ;
- EndFor
+ For tt In {0:nbrp_tot}
+ Point(2*ii*1000+tt) = { tt*ll/nbrp , ii*dd-larg/2 , ampl*Sin(2*Pi*tt/nbrp+ii*deph) , lc1 } ;
+ tab1[tt] = 2*ii*1000+tt ;
+ Point((2*ii+1)*1000+tt)={dd/2+ii*dd-larg/2,-ll/4+tt*ll/nbrp,ampl*Sin(2*Pi*tt/nbrp-Pi+ii*deph),lc1};
+ tab2[tt] = (2*ii+1)*1000+tt ;
+ EndFor
- Spline(2*ii*1000+tt) = tab1[];
- Extrude Line {2*ii*1000+tt , { 0. , larg , 0. } } ;
- Spline((2*ii+1)*1000+tt) = tab2[];
- Extrude Line {(2*ii+1)*1000+tt , { larg , 0. , 0. } } ;
- EndFor
+ Spline(2*ii*1000+tt) = tab1[];
+ Extrude { 0, larg, 0 } {
+ Line {2*ii*1000+tt} ;
+ }
+ Spline((2*ii+1)*1000+tt) = tab2[];
+ Extrude { larg, 0, 0 } {
+ Line {(2*ii+1)*1000+tt};
+ }
-/*
-//Translate {0,0.15,0} { Duplicata { Surface{1004} ; } }
-Plane Surface (1002) = {1001} ;
-Physical Surface (9999) = tab2[] ;
-*/
+EndFor
--
GitLab