mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
14 lines
219 B
Plaintext
Executable File
14 lines
219 B
Plaintext
Executable File
puts "========"
|
|
puts "OCC39"
|
|
puts "========"
|
|
|
|
pload QAcommands
|
|
|
|
if ![string compare $tcl_platform(platform) "windows"] {
|
|
OCC39 W:\pak.per 0 res
|
|
puts [checkshape res]
|
|
} else {
|
|
puts "Thes case for WNT only!"
|
|
}
|
|
|