f1aa2b62 |
1 | puts "============" |
2 | puts "OCC895" |
3 | puts "============" |
4 | puts "" |
5 | ######################################################### |
6 | ## In one case, twisted surface is created. |
7 | ## The problem is in incorrect computation of mutual orientations of wire segments. |
8 | ######################################################### |
9 | |
10 | pload QAcommands |
11 | |
12 | set scale 73.609 |
f1aa2b62 |
13 | set proj_X 0.523995 |
14 | set proj_Y 0.359655 |
15 | set proj_Z 0.77206 |
16 | set up_X -0.739036 |
17 | set up_Y -0.258607 |
18 | set up_Z 0.622051 |
197ac94e |
19 | set at_X 5.51184366274157 |
20 | set at_Y 5.10968389884332 |
21 | set at_Z 0.581665443993578 |
f1aa2b62 |
22 | |
23 | set x_coord 210 |
24 | set y_coord 210 |
25 | |
26 | set status 0 |
27 | |
28 | set angle 5 |
29 | set reverse 0 |
30 | set order 0 |
31 | |
32 | if { [ catch { OCC895 result ${angle} ${reverse} ${order} } ] } { |
33 | puts "Faulty : an exception was caught" |
34 | } |
35 | |
36 | if { ${status} == 0} { |
37 | vinit |
38 | vsetdispmode 1 |
39 | vdisplay result |
40 | |
197ac94e |
41 | vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z} |
f1aa2b62 |
42 | |
f1aa2b62 |
43 | checkcolor $x_coord $y_coord 0.98 0.72 0.13 |
44 | |
45 | if { ${stat} != 1 } { |
46 | puts "Faulty OCC895 (case 2)" |
47 | } |
48 | } |
49 | |
58cf74e0 |
50 | checkprops result -s 18.1614 |
51 | checkshape result |
5747059b |
52 | checkview -display result -3d -path ${imagedir}/${test_image}.png |