common scripts

Author: jginternational

kratos.gid/scripts/Controllers/CommonProcs.tcl

@@ -544,16 +544,22 @@ proc spdAux::ProcDirectorVectorNonZero { domNode args } {
     }
 }
 proc spdAux::ProcShowInWriteMode { domNode args } {
+    set response "hidden"
     set kw [lindex $args 0]
-    if {$kw ni [list "Geometries" "Entitites"]} {return "hidden"}
+    if {$kw ni [list "Geometries" "Entitites" "geometries" "entitites"]} {return "hidden"}
     set write_geometries_enabled 0
-    if {[info exists Kratos::kratos_private(experimental_write_geometries)] && $Kratos::kratos_private(experimental_write_geometries)>0} {set write_geometries_enabled 1}
-    
+
+    set write_mode [::write::GetWriteMode]
+    if {$write_mode eq "geometries"} {
+        set write_geometries_enabled 1
+    }
     if {$write_geometries_enabled} {
-        if {$kw eq "Geometries"} {return "normal"} {return "hidden"}
+        if {$kw eq "Geometries" || $kw eq "geometries"} {set response "normal"} {set response "hidden"}
     } else {
-        if {$kw eq "Entitites"} {return "normal"} {return "hidden"}
+        if {$kw eq "Entitites" || $kw eq "entitites"} {set response "normal"} {set response "hidden"}
     }
+    # W "$kw -> $write_mode -> $response"
+    return $response
 }
 
 

kratos.gid/scripts/Writing/Writing.tcl

@@ -396,6 +396,10 @@ proc write::isquadratic {} {
     return [GiD_Set Model(QuadraticType)]
 }
 
+proc write::GetWriteMode {} {
+    return [::write::GetAttribute write_mdpa_mode]
+}
+
 proc write::GetNodesFromElementFace {elem_id face_id} {
     set inf [GiD_Mesh get element $elem_id]
     set elem_type [lindex $inf 1]