87f59163 |
1 | puts "========" |
2 | puts "CR23018" |
3 | puts "========" |
4 | puts "" |
5 | ####################################### |
6 | ## Open CASCADE incorrectly writes/reads IGES Tabulated Cylinders (Type 122) |
7 | ####################################### |
8 | |
9 | restore [locate_data_file bug23018_f-ext.brep] f |
10 | brepiges f ${imagedir}/bug23018_f-ext.igs |
11 | set info [entity 6] |
12 | regexp {Starting +Point +: +\x28([-0-9.+eE]+),([-0-9.+eE]+),([-0-9.+eE]+)\x29} ${info} full x1 y1 z1 |
13 | regexp {End +Point +: +\x28([-0-9.+eE]+),([-0-9.+eE]+),([-0-9.+eE]+)\x29} ${info} full x2 y2 z2 |
14 | puts "x1=$x1 y1=$y1 z1=$z1" |
15 | puts "x2=$x2 y2=$y2 z2=$z2" |
16 | set tolerance 1.e-7 |
17 | if { [expr abs(${x1} - ${tolerance})] < 0. || ${x1} > 1. || [expr abs(${y1} - ${tolerance})] < 0.|| ${y1} > 1. } { |
18 | puts "Error : Bad Starting Point" |
19 | } |
20 | if { [expr abs(${x2} - ${tolerance})] < 0. || ${x2} > 1. || [expr abs(${y2} - ${tolerance})] < 0. || ${y2} > 1.} { |
21 | puts "Error : Bad Starting Point" |
22 | } |