From 09b7241f770fda1782c9240a48cec3feee296758 Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@uliege.be>
Date: Mon, 1 Mar 2021 10:07:50 +0100
Subject: [PATCH] error if invalid radius
---
Waveguides/waveguide2D_Hbend.geo | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/Waveguides/waveguide2D_Hbend.geo b/Waveguides/waveguide2D_Hbend.geo
index 8cce118..0903b84 100644
--- a/Waveguides/waveguide2D_Hbend.geo
+++ b/Waveguides/waveguide2D_Hbend.geo
@@ -8,6 +8,11 @@
Include "waveguide2D_Hbend.dat" ;
+If(R < W/2 + 1e-3)
+ Error("Invalid radius");
+ R = W/2 + 1e-3;
+EndIf
+
p[] += newp ; Point(newp) = {0, R, 0, res} ;
p[] += newp ; Point(newp) = {-L,-W/2, 0, res} ;
p[] += newp ; Point(newp) = { 0,-W/2, 0, res} ;
--
GitLab