puts "==========="
puts "OCC22240"
puts "==========="
puts ""
############################################
# Bad triangulation of transformed shapes
############################################

restore [locate_data_file bug22240_Pump_Nut.brep] a
restore [locate_data_file bug22240_Pump_Nut.brep] b
bscale b 0 0 0 2.
vinit
vdisplay a b
vsetdispmode a 1
vsetdispmode b 1
vfit

checkcolor 320 104 0.78 0.55 0.09

set only_screen 1

