mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-09 23:46:52 +08:00
28 lines
307 B
Plaintext
28 lines
307 B
Plaintext
puts "========"
|
|
puts "OCC627"
|
|
puts "========"
|
|
|
|
v2dinit
|
|
v2dcircle circle 0 0 5
|
|
v2dfit
|
|
|
|
set i 10
|
|
for {set j 1} {${j} <= ${i}} {incr j} {
|
|
v2derase circle
|
|
v2ddisplay circle
|
|
}
|
|
|
|
set k [lindex [OCC627] 2]
|
|
|
|
if {${k} != 1} {
|
|
puts "Sequence length = ${k}"
|
|
puts "OCC627: Error"
|
|
}
|
|
|
|
set only_screen2d 1
|
|
|
|
|
|
|
|
|
|
|