0e94a94e |
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 |
352ffd73 |
12 | checkshape a |
0e94a94e |
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 |