Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug62369
1
2 puts "==========="
3 puts "FRA62369"
4 puts "==========="
5
6 restore [locate_data_file fra62369a.brep] a 
7 puts [checkshape a]
8
9 compound result
10
11 set i 1
12 repeat 100 { 
13     plane p_$i 0 0 200+$i
14     mkface f_$i p_$i
15     bsection s_$i a f_$i -2d -a
16     compound s_$i result result
17     incr i
18 }
19 set length 3961.04
20 set 2dviewer 0