14bbbdcb |
1 | pload DCAF |
2 | pload VISUALIZATION |
4f4b8935 |
3 | pload INSPECTOR |
14bbbdcb |
4 | |
5 | chrono qat start |
6 | # Create a new document and set UndoLimit |
7 | NewDocument D BinOcaf |
8 | tinspector -dfbrowser |
9 | |
10 | #NewDocument D |
11 | cpulimit 300 |
12 | UndoLimit D 100 |
13 | |
14 | # Open a transaction |
15 | NewCommand D |
16 | |
17 | #1 - create box using more flexible set of commands |
18 | NewCommand D |
19 | # add object |
20 | set B2 [AddObject D] |
21 | # add function |
22 | set F2 [AddFunction D $B2 Box] |
23 | # set argumets of this function |
24 | BoxDX D $B2 190 |
25 | BoxDY D $B2 290 |
26 | BoxDZ D $B2 390 |
27 | # initialize (clean) internal maps of labels |
28 | InitLogBook D |
29 | AddDriver D Box Attach Cyl |
30 | # compute the function |
31 | ComputeFun D $F2 |
32 | |
33 | # check result |
34 | set IsDone [catch {GetShape D $F2:2 Box2} aResult] |
35 | if { ${IsDone} != 0 } { |
36 | puts "Error: Get a value of TNaming_NamedShape attribute from restoring document" |
37 | } else { |
38 | puts "OK: Value of TNaming_NamedShape attribute from restoring document was got" |
39 | } |
40 | if { [regexp "SOLID FORWARD" [whatis Box2] ] != 1 } { |
41 | puts "Error: Box2 is not a solid forward" |
42 | } else { |
43 | puts "OK: Box2 is a solid forward" |
44 | } |
45 | |
46 | # referes to result NS |
47 | GetReference D $B2; |
48 | |
49 | tinspector -update |
50 | vinit |
51 | vdisplay Box2 |
52 | vfit |
53 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |