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 |
13 | set center_X 7.93702 |
14 | set center_Y 0.264503 |
15 | set proj_X 0.523995 |
16 | set proj_Y 0.359655 |
17 | set proj_Z 0.77206 |
18 | set up_X -0.739036 |
19 | set up_Y -0.258607 |
20 | set up_Z 0.622051 |
21 | set at_X 9.06773 |
22 | set at_Y -1.93771 |
23 | set at_Z 1.45124 |
24 | |
25 | set x_coord 210 |
26 | set y_coord 210 |
27 | |
28 | set status 0 |
29 | |
30 | set angle 5 |
31 | set reverse 0 |
32 | set order 0 |
33 | |
34 | if { [ catch { OCC895 result ${angle} ${reverse} ${order} } ] } { |
35 | puts "Faulty : an exception was caught" |
36 | } |
37 | |
38 | if { ${status} == 0} { |
39 | vinit |
40 | vsetdispmode 1 |
41 | vdisplay result |
42 | |
4754e164 |
43 | vviewparams ${scale} ${center_X} ${center_Y} \ |
f1aa2b62 |
44 | ${proj_X} ${proj_Y} ${proj_Z} \ |
45 | ${up_X} ${up_Y} ${up_Z} \ |
46 | ${at_X} ${at_Y} ${at_Z} |
47 | |
f1aa2b62 |
48 | checkcolor $x_coord $y_coord 0.98 0.72 0.13 |
49 | |
50 | if { ${stat} != 1 } { |
51 | puts "Faulty OCC895 (case 2)" |
52 | } |
53 | } |
54 | |
55 | set square 18.1614 |
56 | set 3dviewer 1 |