initial example shallow water

Author: miguelmaso

kratos.gid/apps/ShallowWater/examples/DamBreak.tcl

@@ -0,0 +1,69 @@
+namespace eval ::ShallowWater::examples::DamBreak {
+    namespace path ::ShallowWater::examples
+    Kratos::AddNamespace [namespace current]
+}
+
+proc ::ShallowWater::examples::DamBreak::Init {args} {
+    if {![Kratos::IsModelEmpty]} {
+        set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
+        set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
+		if { $retval == "cancel" } { return }
+    }
+    DrawGeometry
+    AssignGroups
+    TreeAssignation
+
+    GiD_Process 'Redraw
+    GidUtils::UpdateWindow GROUPS
+    GidUtils::UpdateWindow LAYER
+    GiD_Process 'Zoom Frame
+}
+
+proc ::ShallowWater::examples::DamBreak::DrawGeometry {args} {
+    Kratos::ResetModel
+    GiD_Layers create main_layer
+    GiD_Layers edit to_use main_layer
+
+    # Geometry creation
+    ## Points ##
+    set coordinates [list 0 0 0 10 0 0 10 1 0 0 1 0]
+    set geom_points [list ]
+    foreach {x y z} $coordinates {
+        lappend geom_points [GiD_Geometry create point append main_layer $x $y $z]
+    }
+
+    ## Lines ##
+    set geom_lines [list ]
+    set initial [lindex $geom_points 0]
+    foreach point [lrange $geom_points 1 end] {
+        lappend geom_lines [GiD_Geometry create line append stline main_layer $initial $point]
+        set initial $point
+    }
+    lappend geom_lines [GiD_Geometry create line append stline main_layer $initial [lindex $geom_points 0]]
+
+    ## Surface ##
+    GiD_Process Mescape Geometry Create NurbsSurface {*}$geom_lines escape escape
+}
+
+proc ::ShallowWater::examples::DamBreak::AssignGroups {args} {
+    # Create and assign the groups
+    GiD_Groups create Body
+    GiD_Groups edit color Body "#26d1a8ff"
+    GiD_EntitiesGroups assign Body surfaces 1
+
+    GiD_Groups create Walls
+    GiD_Groups edit color Left_Wall "#3b3b3bff"
+    GiD_EntitiesGroups assign Left_Wall lines 1 3
+
+    GiD_Groups create Left
+    GiD_Groups edit color Top_Wall "#3b3b3bff"
+    GiD_EntitiesGroups assign Top_Wall lines 4
+
+    GiD_Groups create Right
+    GiD_Groups edit color Right_Wall "#3b3b3bff"
+    GiD_EntitiesGroups assign Right_Wall lines 2
+}
+
+proc ::ShallowWater::examples::DamBreak::TreeAssignation {args} {
+
+}

kratos.gid/apps/ShallowWater/examples/examples.tcl

@@ -0,0 +1,4 @@
+namespace eval ::ShallowWater::examples {
+    namespace path ::ShallowWater
+    Kratos::AddNamespace [namespace current]
+}

kratos.gid/apps/ShallowWater/examples/examples.xml

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Group id="ShallowWater" name="Shallow water examples">
+    <Example id="DamBreak" app="ShallowWater" logo="more.png" name="Dam break" dim="2D" cmd="::ShallowWater::examples::DamBreak::Init">
+        <Description></Description>
+    </Example>
+</Group>