a87752f3 |
1 | |
2 | puts "========" |
3 | puts "OCC452" |
4 | puts "(case 1)" |
5 | puts "========" |
6 | puts "" |
7 | |
8 | pcone pc 10 0 20 |
9 | explode pc f |
10 | |
11 | prism pcy pc_2 0 0 10 |
12 | |
13 | dchrono h2 reset |
14 | dchrono h2 start |
15 | |
16 | bcut result pc pcy |
17 | |
18 | dchrono h2 stop |
19 | set q2 [ dchrono h2 show ] |
20 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
21 | puts "$z2" |
22 | if { $z2 > 3 } { |
23 | puts "Elapsed time is more then 3 seconds - Faulty" |
24 | } else { |
25 | puts "Elapsed time is less then 3 seconds - OK" |
26 | } |
27 | |
28 | set square 254.16 |
29 | set 2dviewer 0 |
30 | |