mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0c63f2f8b9
- new STEP entities for Saved Views - import of STEP Saved Views - new XCAF tool for clipping planes - new draw commands - update test
26 lines
630 B
Plaintext
26 lines
630 B
Plaintext
set mist 0
|
|
# Read original file
|
|
if { [string length $filename] > 1} {
|
|
set path_file [locate_data_file $filename]
|
|
if { [catch { ReadStep D_First $path_file } catch_result] } {
|
|
set err_msg "Error: First - file was not read - exception "
|
|
puts $err_msg
|
|
append todo_msg $todo_mask $err_msg $end_line
|
|
set mist 1
|
|
}
|
|
} else {
|
|
set mist 1
|
|
}
|
|
|
|
# Get information about translation
|
|
if { $mist < 1} {
|
|
set ref_list [split $ref_data \n]
|
|
puts [llength $ref_list]
|
|
for { set i 1 } { $i < [llength $ref_list] - 1 } { incr i } {
|
|
set ref [lindex $ref_list $i]
|
|
set res [OCC28389 {*}$ref]
|
|
}
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|