mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-22 03:16:39 +08:00
21 lines
249 B
Plaintext
21 lines
249 B
Plaintext
puts "================"
|
|
puts "OCC389"
|
|
puts "================"
|
|
puts ""
|
|
|
|
v2dinit
|
|
|
|
box b 10 10 10
|
|
|
|
if [catch { OCC389 proj b } res] {
|
|
puts "OCC389: Error"
|
|
puts "${res}"
|
|
} else {
|
|
puts "OCC389: OK"
|
|
}
|
|
|
|
v2ddisplay proj
|
|
v2dfit
|
|
set only_screen2d 1
|
|
|