Skip to content

Commit

Permalink
missing word
Browse files Browse the repository at this point in the history
  • Loading branch information
jginternational committed May 29, 2024
1 parent d83929b commit fc042bc
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion kratos.gid/apps/Structural/write/write.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -296,7 +296,7 @@ proc ::Structural::write::writeHinges { } {
# set first [::tcl::mathfunc::min {*}$linear_elements]
# set end [::tcl::mathfunc::max {*}$linear_elements]

lassign [lrange [GiD_Geometry line $geom_line] 2 3] first_point end_point
lassign [lrange [GiD_Geometry get line $geom_line] 2 3] first_point end_point
set first [GiD_Geometry get point $first_point node]
set end [GiD_Geometry get point $end_point node]
if {$first eq "" || $end eq ""} {
Expand Down

0 comments on commit fc042bc

Please sign in to comment.