puts "============"
puts "0030354: BOP Cut doesn't modify the attached face"
puts "============"
puts ""

restore [locate_data_file bug30354_Face_14.brep] b1
point pp 0.0046465389982220402 0.045000000000000005

if { [ regexp "ON" [b2dclassifx b1 pp] ] != 1 } {
  puts "Error: Wrong result of classification"
} else {
  puts "OK: good result of classification"
}

if { [ regexp "ON" [b2dclassify b1 pp] ] != 1 } {
  puts "Error: Wrong result of classification"
} else {
  puts "OK: good result of classification"
}

smallview -2D-
pcurve b1
2dfit
disp pp