Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug442
1
2 puts "========"                                                                 
3 puts "OCC442"
4 puts "========"                                                                 
5 puts ""                                                                         
6 ########################################################
7 ## The Revolution Algo produces result, but during check using IsValid method from
8 ##  BRepAlgoAPI the exception is raised
9 ########################################################
10
11 restore [locate_data_file OCC442.brep] a 
12 puts [checkshape a]
13
14 explode a v
15
16 mkpoint p_1 a_1
17 mkpoint p_2 a_3
18 coord p_1 x1 y1 z1
19 coord p_2 x2 y2 z2
20 set ax [dval x1]
21 set ay [dval y1]
22 set az [dval z1]
23 set bx [dval x2]
24 set by [dval y2]
25 set bz [dval z2]
26 set dx [expr $ax - $bx]
27 set dy [expr $ay - $by]
28 set dz [expr $az - $bz]
29
30 revol result a $ax $ay $az $dx $dy $dz 360
31
32 set square 692942
33 set 2dviewer 0