Week - 7 - Checking and correcting the edges
Aim:
To create a code that performs checking and correcting the edges
Objective:
To create a code that displayed free and T edges for displayed elements
To create a code that assigns red color to free edges and cyan color to T edges
To create a code that makes all other component must be transparent expect for edges
To create a code that creates temp nodes automatically for free edges
To create a code to turn off free edges display and restore the window to the way it was
To create a tk widget that performs all these operations
Code:
set a .window
catch {destroy $a}
toplevel $a -class TopLevel
wm title $a "Free Edges"
wm geometry $a 300x200+100+50; update
wm resizable $a 0 0
wm deiconify $a
button $a.01 -text "Free Edges" -command {free_edges} -bg red -font {times 10 bold}; place $a.01 -x 20 -y 20 -width 100 -height 30
button $a.02 -text "T edges" -command {T_edges} -bg cyan -font {times 10 bold}; place $a.02 -x 140 -y 20 -width 100 -height 30
button $a.03 -text "both" -command {both} -bg white -font {times 10 bold}; place $a.03 -x 70 -y 70 -width 100 -height 30
button $a.04 -text "off" -command {off} -bg grey -font {times 10 bold}; place $a.04 -x 70 -y 120 -width 100 -height 30
proc free_edges {} {
*setdisplayattributes 4 1
*createmark components 1 "free_edges"
set a [hm_getmark components 1]
if {$a !=0} {
*createmark elements 1 "displayed"
*findedges1 elements 1 0 0 0 30
*setvalue components name={^edges} name={free_edges}
*createmark components 1 "free_edges"
*setvalue components mark=1 color=3
*createmark elements 1 "displayed"
*equivalence elements 1 0.01 0 0 30
*createmark elements 1 "displayed"
*equivalence elements 1 0.01 3 0 30
*createmark nodes 1 "retrieve"
*nodemarkaddtempmark 1
*setcomponentdisplayattributes "free_edges" 2 1
}
}
proc T_edges {} {
*setdisplayattributes 4 1
*createmark components 1 "T_edges"
set b [hm_getmark components 1]
if {$b !=0} {
*createmark elements 1 "displayed"
*findedges1 elements 1 1 0 0 30
*setvalue components name={^edges} name={T_edges}
*createmark components 1 "T_edges"
*setvalue components mark=1 color=30
*createmark elements 1 "displayed"
*equivalence elements 1 0.01 0 0 30
*createmark elements 1 "displayed"
*equivalence elements 1 0.01 3 0 30
*createmark nodes 1 "retrieve"
*nodemarkaddtempmark 1
*setcomponentdisplayattributes "T_edges" 2 1
}
}
proc both {} {
free_edges
T_edges
*setcomponentdisplayattributes "free_edges" 2 1
*setcomponentdisplayattributes "T_edges" 2 1
}
proc off {} {
*createmark components 1 "free_edges"
*hideentitybymark 1 1 2
*createmark components 1 "T_edges"
*hideentitybymark 1 1 2
*createstringarray 2 "elements_on" "geometry_off"
*setdisplayattributes 2 1
}Procedure and code explanation:
Create a procedure called 'free_edges'
*setdisplayattributes is a command that transparent all the components.
We need to give a null case condition if there is no exixt component.
*createmark elements 1 "displayed" is a command that used to store all the displayed elements into a mark id 1.
*findedges1 elements 1 0 0 0 30 is the command that is used to find the edges. 1 represent the mark id and 0 indicated free edges and 30 is the break andle of the free edges.
*setvalue components name={^edges} name={free_edges} is used to change the name of the component.
*setvalue components mark=1 color=3 is used to change the color to red.
*equivalence elements 1 0.01 0 0 30 is checking where nodes to be equivalence for the tolerance value of 0.01 for the free edges
*equivalence elements 1 0.01 3 0 30 is saves the nodes which needs to be equivalence.
*createmark nodes 1 "retrieve" is used to retrive the saved nodes.
*nodemarkaddtempmark 1 is adding the nodes.
*setcomponentdisplayattributes "free_edges" 2 1 is the command that used to display thr free edges and T edges into the solid mesh representation.
Use the same procedure to check the T edges. Replae the procedure name into T_edges and use edge type as 1.
Also create a procedure that performs both operations and create a procedure to turn off free edge display and restore the window to the way it was. *createmark components 1 "free_edges"; *hideentitybymark 1 1 2 is the command that is used to turn off the free edges. Using this same method to turn off the T_edges.
*setdisplayattributes 2 1 is the command that used to resore the shaded element and mesh line.
set a .window is the command. .window is the window name or path by which it will be referred saved in.
catch {destroy $a} is the command where catch is used to hide errors and destroy is used to close any previously existing window by same name.
toplevel $a -class TopLevel is the command that builds the window.
wm title $a "Free Edges" is the command that is used to create title of the window.
wm geometry $a 300x200+100+50 is the command that is used to create dimension of the window. 300x200 is width and height of the window. +100+50 is the origin of the hypermesh window where the windoe shoud be placed.
wm resizable $a 0 0 is the command that is used to fix the window means we can not resize the window by dragging. If you put 1 0, you can drag or resize the window on x axix, if you put 0 1, you can drag or resize it on y axix and if you put 1 1, you can drag and resize on both axis.
wm deiconify $a is the command that is used to make the window as active window.
We have to create buttons for all the operations. The syntax for create button is button $windowpath -text "text" -command {something}; place $windowpath -x value -y value -width value - height value. Using this syntax 'Free edges', 'T edges', 'both' and 'off' buttons are created.
Output:
Free edges operation:
T edges operation:
'both' button operation:
Nodes need to be eqivalence:
'off' button operation:
Conclusion:
Sucessfully created code that checking and correcting the edges. Also created tk widgets for the operations.