puts "========================"
puts "BUC61058"
puts " OCC378 "
puts "========================"
puts ""
########################################################################
##Regression on KAS:dev:ros. Draw hangs after try to load 6381.brep  shape to 3D Viewer. Case : cgg/004/S2
########################################################################

restore [locate_data_file OCC378.brep] result

tclean result
vinit

if [catch {vdisplay result } res] {
   puts "Error : function VDISPLAY works wrongly"
}

vfit

set only_screen 1