
puts "========="
puts " OCC788 "
puts "========="
puts ""
#################################################
## ThruSection cannot determine correctly correspondence between wires
#################################################
restore [locate_data_file OCC788_s1w.brep] w1 
explode w1
wire ww1 w1_1

restore [locate_data_file OCC788_s2w.brep] w2 
explode w2
wire ww2 w2_1

thrusections result 0 0 ww1 ww2

set 2dviewer 0
set square 148608.
