puts "========" puts "BUC60753" puts "========" puts "" restore [locate_data_file buc60753.brep] a checkshape a tclean a vinit vdisplay a vsetdispmode a 1 vfit set TypeOfDegenerateModel 2 set Ratio 0.5 BUC60753 ${TypeOfDegenerateModel} ${Ratio} set only_screen 1