--- /dev/null
+# To prevent loops limit to 10 minutes
+cpulimit 900
+if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
+ pload TOPTEST
+}
+if { [array get Draw_Groups "Shape Healing"] == "" } {
+ pload XSDRAW
+}
+if { [info exists imagedir] == 0 } {
+ set imagedir .
+}
+if { [info exists test_image ] == 0 } {
+ set test_image photo
+}
+proc PATCHFACES {i} {
+ uplevel #0 binrestore [locate_data_file shape_3_$i.bin] s
+ uplevel #0 tclean s
+ uplevel #0 removeloc s s
+ uplevel #0 explode s
+ uplevel #0 tcopy s_1 InitShape
+
+ uplevel #0 patchfaces result s_1 s_2 s_3
+}
--- /dev/null
+puts "TEST COMPLETED"
--- /dev/null
+001 replace
--- /dev/null
+FAILED /\bFaulty\b/ bad shape
+OK /Relative error of mass computation/ message from vprops
\ No newline at end of file
--- /dev/null
+checkview -display result -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file
--- /dev/null
+PATCHFACES 1
\ No newline at end of file
--- /dev/null
+PATCHFACES 10
\ No newline at end of file
--- /dev/null
+PATCHFACES 11
\ No newline at end of file
--- /dev/null
+PATCHFACES 12
\ No newline at end of file
--- /dev/null
+PATCHFACES 13
\ No newline at end of file
--- /dev/null
+PATCHFACES 14
\ No newline at end of file
--- /dev/null
+PATCHFACES 15
\ No newline at end of file
--- /dev/null
+PATCHFACES 16
\ No newline at end of file
--- /dev/null
+PATCHFACES 17
\ No newline at end of file
--- /dev/null
+PATCHFACES 18
\ No newline at end of file
--- /dev/null
+PATCHFACES 19
\ No newline at end of file
--- /dev/null
+PATCHFACES 2
\ No newline at end of file
--- /dev/null
+PATCHFACES 20
\ No newline at end of file
--- /dev/null
+PATCHFACES 21
\ No newline at end of file
--- /dev/null
+PATCHFACES 22
\ No newline at end of file
--- /dev/null
+PATCHFACES 23
\ No newline at end of file
--- /dev/null
+PATCHFACES 24
\ No newline at end of file
--- /dev/null
+PATCHFACES 25
\ No newline at end of file
--- /dev/null
+PATCHFACES 26
\ No newline at end of file
--- /dev/null
+PATCHFACES 27
\ No newline at end of file
--- /dev/null
+PATCHFACES 28
\ No newline at end of file
--- /dev/null
+PATCHFACES 29
\ No newline at end of file
--- /dev/null
+PATCHFACES 3
\ No newline at end of file
--- /dev/null
+PATCHFACES 30
\ No newline at end of file
--- /dev/null
+PATCHFACES 31
\ No newline at end of file
--- /dev/null
+PATCHFACES 32
\ No newline at end of file
--- /dev/null
+PATCHFACES 33
\ No newline at end of file
--- /dev/null
+PATCHFACES 34
\ No newline at end of file
--- /dev/null
+PATCHFACES 35
\ No newline at end of file
--- /dev/null
+PATCHFACES 4
\ No newline at end of file
--- /dev/null
+PATCHFACES 5
\ No newline at end of file
--- /dev/null
+PATCHFACES 6
\ No newline at end of file
--- /dev/null
+PATCHFACES 7
\ No newline at end of file
--- /dev/null
+PATCHFACES 8
\ No newline at end of file
--- /dev/null
+PATCHFACES 9
\ No newline at end of file