puts "================"
puts "OCC27"
puts "================"
puts ""

restore [locate_data_file shading_128.brep] a 
checkshape a

explode a e
explode a f
chamf result a a_5 a_1 A 1 45 a_6 a_1 A 1 45 a_7 a_1 A 1 45 a_8 a_1 A 1 45
checkshape result

set square 154.145
set 2dviewer 0