5 ###############################
6 ## Slow import of IGES data
7 ###############################
13 if { [regexp {Debug mode} [dversion]] } {
14 if { [regexp {Windows} [dversion]] } {
22 if { [regexp {Windows} [dversion]] } {
35 igesread [locate_data_file 100B_Nosecone_with_Triangular_FSS.igs] b 86884
38 set q [dchrono h show]
40 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
43 if { $z > ${max_time} } {
44 puts "Elapsed time is more than ${max_time} seconds - Faulty"
46 puts "Elapsed time is less than ${max_time} seconds - OK"
56 set q2 [dchrono h2 show]
58 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
61 if { $z2 > ${max_time2} } {
62 puts "Elapsed time of checkshape is more than ${max_time2} seconds - Faulty"
64 puts "Elapsed time of checkshape is less than ${max_time2} seconds - OK"