mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
20 lines
393 B
Plaintext
Executable File
20 lines
393 B
Plaintext
Executable File
|
|
puts "=========="
|
|
puts "PRO19424"
|
|
puts "=========="
|
|
|
|
restore [locate_data_file pro19424a.brep] b
|
|
puts [checkshape b]
|
|
restore [locate_data_file pro19424b.brep] p
|
|
puts [checkshape p]
|
|
|
|
if [catch {evolved result b p o } catch_result] {
|
|
puts "Faulty PRO19424 : function EVOLVED works wrongly"
|
|
} else {
|
|
puts "PRO19424 OK: function EVOLVED works properly"
|
|
}
|
|
|
|
set square 246.506
|
|
set 2dviewer 0
|
|
|