5 #######################################
6 ## Open CASCADE incorrectly writes/reads IGES Tabulated Cylinders (Type 122)
7 #######################################
9 restore [locate_data_file bug23018_f-ext.brep] f
10 brepiges f ${imagedir}/bug23018_f-ext.igs
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"
17 if { [expr abs(${x1} - ${tolerance})] < 0. || ${x1} > 1. || [expr abs(${y1} - ${tolerance})] < 0.|| ${y1} > 1. } {
18 puts "Error : Bad Starting Point"
20 if { [expr abs(${x2} - ${tolerance})] < 0. || ${x2} > 1. || [expr abs(${y2} - ${tolerance})] < 0. || ${y2} > 1.} {
21 puts "Error : Bad Starting Point"