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 } catch_result] {
    puts "Faulty  OCC378: function VDISPLAY works wrongly"
} else {
    puts " OCC378 OK : function VDISPLAY works properly"
}

set 3dviewer 1