puts "TODO OCC21564 ALL: Error : The square of result shape is" puts "==========" puts "BUC60532" puts "==========" restore [locate_data_file buc60532a.brep] p checkshape p restore [locate_data_file buc60532b.brep] t1 checkshape t1 restore [locate_data_file buc60532c.brep] t2 checkshape t2 # create halfspace #vertex v 20 20 0 halfspace h1 t1 20 20 0 halfspace h2 t2 20 20 0 # first cut bcut res1 p h1 explode res1 e mkcurve cu11 res1_1 mkcurve cu12 res1_2 mkcurve cu13 res1_3 mkcurve cu14 res1_4 mkcurve cu15 res1_5 checkshape res1 puts [computetolerance res1] # second cut bcut res2 res1 h2 tcopy res2 res checkshape res2 explode res2 e mkcurve cu21 res2_1 mkcurve cu22 res2_2 mkcurve cu23 res2_3 mkcurve cu24 res2_4 mkcurve cu25 res2_5 explode res2 face puts [computetolerance res2] renamevar res2 result set square 78.8705 set 2dviewer 0