0026833: Create command checkview containing all viewer types
[occt.git] / tests / bugs / modalg_3 / bug594
1
2 puts "========================"
3 puts " SAL594 "
4 puts "========================"
5 puts ""
6 ###################################
7 ## It is impossible to put correct fillets on the shape
8 ###################################
9
10 restore [locate_data_file SAL594.brep] a 
11 explode a e
12
13 if [catch {blend result1 a 20 a_23 20 a_25 20 a_26 20 a_28} catch_result] {
14     puts "Faulty SAL594 (case 1): function BLEND works wrongly"
15 } else {
16     puts "SAL594  OK (case 1):  function BLEND works OK"
17 }
18
19 if [catch {blend result result1 2.5 a_15 2.5 a_12 2.5 a_4} catch_result] {
20     puts "Faulty SAL594 (case 2): function BLEND works wrongly."
21 } else {
22     puts "SAL594  OK (case 2):  function BLEND works OK"
23 }
24
25 checkprops result -s 60513.1
26 checkshape result
27 checkview -display result -2d -path ${imagedir}/${test_image}.png