puts "================"
puts "OCC21"
puts "================"
puts ""

#test for XSDRAWEXE application#
#==============================#

pload XDE

restore [locate_data_file OCC21.brep] sh 
checkshape sh
puts "two faces in the compound share one edge"

DT_SplitAngle result sh 90

puts "in the resulting shape sharing is not preserved"

set square 12154.8
set 2dviewer 0