352ffd73 |
1 | puts "========" |
2 | puts "OCC515" |
3 | puts "========" |
4 | puts "" |
5 | ################################ |
6 | ## Wrong projection of the Line on the Cone |
7 | ################################ |
8 | |
9 | restore [locate_data_file OCC515a.draw] cx |
10 | restore [locate_data_file OCC515b.draw] s |
11 | |
12 | if { [catch {project c2d cx s -t 0.0015} ] } { |
13 | puts "OCC515 FAULTY" |
14 | } else { |
15 | # create dump of resulting curve |
16 | set dump [dump c2d] |
17 | # read dump of old curve |
18 | set olddump [read [open [locate_data_file OCC515_DUMP]]] |
19 | # if the the dumps is equal this bug is still exist |
20 | if { $dump == $olddump } { |
21 | puts "OCC515 FAULTY" |
22 | } else { |
23 | puts "OCC515 WARNING: Dumps of old and new curve are different, probably bug is still exist" |
24 | } |
25 | } |
26 | |
27 | |