puts "TODO OCC30286 ALL: Error : The length of result shape is 0.836937, expected 0.841234"

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

set viewname "vright"
set length 0.841234

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