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 halfspace h1 t1 20 20 0 halfspace h2 t2 20 20 0 # first cut bcut result p h1 set square 81.8172 set 2dviewer 0