481dad8ed53f15508a1d3757211c543ddb73dfe8
[occt.git] / tests / bugs / modalg_4 / fra62369
1
2 puts "==========="
3 puts "FRA62369"
4 puts "==========="
5
6 restore [locate_data_file fra62369a.brep] a 
7 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
16     compound s_$i result result
17     incr i
18 }
19 set length 3961.04
20 set 2dviewer 0