puts "TODO OCC30286 ALL: Error : The length of result shape is 0.798972, expected 0.81982"

puts "============================================"
puts "OCC27720: HLRBrep_Algo BSpline missing edges"
puts "============================================"
puts ""

set viewname "vleft"
set length 0.81982

restore [locate_data_file bug27720_BSpline.brep] a
COMPUTE_HLR $viewname $algotype
