mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
21 lines
456 B
Plaintext
21 lines
456 B
Plaintext
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC2569"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# If it is not possible to create the bezier curve,
|
|
# it should throw an exception.
|
|
######################################################
|
|
cpulimit 60
|
|
vinit
|
|
set out [OCC2569 26 result]
|
|
if {[string compare $out "\n Degree = 25\n"] == 0} {
|
|
puts "OCC2569: OK"
|
|
} else {
|
|
puts "OCC2569: Faulty"
|
|
}
|
|
|
|
set 3dviewer 0
|