puts "========================" puts " BUC60706 " puts " OCC110 " puts "(case 4-6)" puts "========================" restore [locate_data_file buc60706j.brep] f checkshape f restore [locate_data_file buc60706b.brep] w checkshape w pipe t w f restore [locate_data_file buc60706l.brep] s checkshape s bcut res_1 s t checkshape res_1 restore [locate_data_file buc60706m.brep] f checkshape f restore [locate_data_file buc60706e.brep] w checkshape w pipe t w f bcut res_2 res_1 t checkshape res_2 restore [locate_data_file buc60706p.brep] f checkshape f restore [locate_data_file buc60706h.brep] w checkshape w pipe t w f bcut result res_2 t set square 860752 set 2dviewer 0