tweak line display

DiffractionGratings/grating2D.geo

@@ -226,7 +226,11 @@ If(Flag_glue_rod_subs==1)
 EndIf
 
 eps=3*nm;
-phys_plot_bnd() = Curve In BoundingBox{-d/2-eps,-h_sub-eps,-eps, d/2+eps, h_layer_dep+h_pc+h_layer_cov+h_sup+eps , eps};
+phys_plot_bnd()  = Curve In BoundingBox{-d/2+eps,-h_sub-eps,-eps, d/2-eps, h_layer_dep+h_pc+h_layer_cov+h_sup+eps , eps};
+phys_plot_bnd() += Curve In BoundingBox{-d/2-eps,-eps,-eps, d/2+eps, eps , eps};
+phys_plot_bnd() += Curve In BoundingBox{-d/2-eps,h_layer_dep-eps,-eps, d/2+eps, h_layer_dep+eps , eps};
+phys_plot_bnd() += Curve In BoundingBox{-d/2-eps,h_layer_dep+h_pc-eps,-eps, d/2+eps, h_layer_dep+h_pc+eps , eps};
+phys_plot_bnd() += Curve In BoundingBox{-d/2-eps,h_layer_dep+h_pc+h_layer_cov-eps,-eps, d/2+eps, h_layer_dep+h_pc+h_layer_cov+eps , eps};
 
 
 Periodic Line {8,12,16,20,24,28,32} = {1,2,3,4,5,6,7} Translate {d,0,0} ;

DiffractionGratings/grating2D_scalar.pro

@@ -462,10 +462,6 @@ PostOperation {
           Print[ boundary, OnElementsOf Plot_bnd, File StrCat[myDir,Sprintf("boundary_%g.pos",i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z} ] ;
         EndFor
         Echo[ Str["Combine ElementsByViewName;",
-                  "Hide {",
-                  "Point{1,2,7,8,9,10,20,22};",
-                  "Line{1,7,8,9,10,30,32,34,2,3,4,5,6,12,16,20,24,28};",
-                  "Surface{36,48};}",
                   "Geometry.Color.Lines = {0,0,0};",
                   "l=PostProcessing.NbViews-1; View[l].ColorTable={Black}; ",
                   "View[l-1].Visible=1; View[l].Visible=1; View[l-1].ShowScale=0;",