mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
3977d18aca
New folder "hlr" with subfolders "exact_hlr" and "poly_hlr" has been created. Draw command "vcomputehlr" has been corrected. QA command "OCC27341" has been deleted as "vcomputehlr" does its job.
22 lines
449 B
Plaintext
22 lines
449 B
Plaintext
pload TOPTEST
|
|
pload XDE
|
|
pload VISUALIZATION
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
|
|
set depsilon 1.e-7
|
|
|
|
proc COMPUTE_HLR {viewname algotype} {
|
|
uplevel #0 top
|
|
uplevel #0 clear
|
|
uplevel #0 vinit
|
|
uplevel #0 vdisplay a
|
|
uplevel #0 $viewname
|
|
uplevel #0 vcomputehlr a result -algoType $algotype
|
|
uplevel #0 fit
|
|
if { [string compare $algotype "algo"] == 0 } {
|
|
uplevel #0 build3d result
|
|
}
|
|
} |