puts "========" puts "OCC28786" puts "========" puts "" ######################################## # Refactoring of the Warning/Error reporting system of Boolean Operations Algorithm ######################################## vertex v 0 0 0 vertex v1 10 0 0 vertex v2 0 0 -3 vertex v3 5 0 0 edge e1 v v1 edge e2 v2 v3 compound e1 e2 a vertex v4 5 0 5 vertex v5 5 0 -5 edge b v4 v5 bclearobjects bcleartools baddobjects a baddtools b if {![regexp "Warning" [bfillds]]} { puts "Error: WarningStatus has not been set" } bbuild result checkshape result checknbshapes result -edge 5