mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e837410dac
All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF". Formats changed: .std to .cbf, .dxc to .dbf. Test groups renamed accordingly: xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
puts "=========="
|
|
puts "OCC24869"
|
|
puts "=========="
|
|
puts ""
|
|
###################################################
|
|
# OCAF testing framework extending
|
|
###################################################
|
|
|
|
NewDocument D BinOcaf
|
|
|
|
#1 - create box1
|
|
NewCommand D
|
|
set B1 [AddObject D]
|
|
set F1 [AddFunction D $B1 Box]
|
|
BoxDX D $B1 100
|
|
BoxDY D $B1 200
|
|
BoxDZ D $B1 300
|
|
InitLogBook D
|
|
AddDriver D Box Section PTxyz
|
|
ComputeFun D $F1
|
|
GetShape D $F1:2 Box1
|
|
|
|
#1 - create box2
|
|
NewCommand D
|
|
set B2 [AddObject D]
|
|
set F2 [AddFunction D $B2 Box]
|
|
BoxDX D $B2 150
|
|
BoxDY D $B2 200
|
|
BoxDZ D $B2 300
|
|
ComputeFun D $F2
|
|
|
|
NewCommand D
|
|
set FTr2 [PTranslateDXYZ D $B2 30 40 50]
|
|
ComputeFun D $FTr2
|
|
# get modified result
|
|
GetShape D $FTr2:2 Box2
|
|
|
|
#3 Make Section Box1 Box2
|
|
NewCommand D
|
|
set CS [AddSection D $B1 $B2]
|
|
ComputeFun D $CS
|
|
erase
|
|
GetShape D $CS:2 S
|
|
|
|
# Check result
|
|
NewCommand D
|
|
erase
|
|
ExploreShape D $CS:2:1 R
|
|
|
|
# should be 12 edges
|
|
set l1 [llength [directory R_*] ]
|
|
|
|
# should be 12 faces
|
|
set l2 [llength [directory oldR_*] ]
|
|
|
|
if { ${l1} == 12 } {
|
|
puts "OK: Good edge number"
|
|
} else {
|
|
puts "Error: Bad edge number"
|
|
}
|
|
|
|
if { ${l2} == 12 } {
|
|
puts "OK: Good face number"
|
|
} else {
|
|
puts "Error: Bad face number"
|
|
}
|