puts "========================"
puts "  OCC110 "
puts "Case is duplicate of chl 902 I1, bug BUC60706 "
puts "(cases D1,D2,..D9)"
puts "========================"

# XXXXXXXXXXXXXXXXXXXXX  
#	 D1
# 
restore buc60706a.brep f
restore buc60706b.brep w
pipe t w f

restore buc60706c.brep s

bop s t
bopcut res

tcopy res buc60706f.brep

# XXXXXXXXXXXXXXXXXXXXX  
#	 D2
#
restore buc60706d.brep f
restore buc60706e.brep w
pipe t w f

tcopy buc60706f.brep s

bop s t
bopcut res 

tcopy res buc60706i.brep

# XXXXXXXXXXXXXXXXXXXXX  
#	 D3
#
restore buc60706g.brep f
restore buc60706h.brep w

pipe t w f

tcopy buc60706i.brep s

bop s t
bopcut result

set square 865172