mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
53 lines
1.2 KiB
Plaintext
Executable File
53 lines
1.2 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC895"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################
|
|
## In one case, twisted surface is created.
|
|
## The problem is in incorrect computation of mutual orientations of wire segments.
|
|
#########################################################
|
|
|
|
pload QAcommands
|
|
|
|
set scale 73.609
|
|
set proj_X 0.523995
|
|
set proj_Y 0.359655
|
|
set proj_Z 0.77206
|
|
set up_X -0.739036
|
|
set up_Y -0.258607
|
|
set up_Z 0.622051
|
|
set at_X 5.51184366274157
|
|
set at_Y 5.10968389884332
|
|
set at_Z 0.581665443993578
|
|
|
|
set x_coord 210
|
|
set y_coord 210
|
|
|
|
set status 0
|
|
|
|
set angle 5
|
|
set reverse 0
|
|
set order 0
|
|
|
|
if { [ catch { OCC895 result ${angle} ${reverse} ${order} } ] } {
|
|
puts "Faulty : an exception was caught"
|
|
}
|
|
|
|
if { ${status} == 0} {
|
|
vinit
|
|
vsetdispmode 1
|
|
vdisplay result
|
|
|
|
vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
|
|
|
|
checkcolor $x_coord $y_coord 0.98 0.72 0.13
|
|
|
|
if { ${stat} != 1 } {
|
|
puts "Faulty OCC895 (case 2)"
|
|
}
|
|
}
|
|
|
|
checkprops result -s 18.1614
|
|
checkshape result
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|