tests/bugs/vis/bug641

   1 puts "TODO OCC641 ALL: An exception was caught"
   2 puts "TODO OCC641 ALL: \\*\\* Exception \\*\\*.*"
   3 puts "TODO OCC641 ALL: Error : result shape is displayed wrongly"
   4
   5 puts "================"
   6 puts "OCC641"
   7 puts "SAM1559"
   8 puts "================"
   9 puts ""
  10 #################################################
  11 ## Exception during attemption to display shape ==>SAM1559 (#2901)
  12 #################################################
  13
  14 restore [locate_data_file OCC641.brep] a
  15
  16 vinit
  17 vdisplay a
  18 vfit
  19
  20 copy a result
  21
  22 if [catch {tmirror result 0 0 0 0 1 0 } res] {
  23    puts "Error : function tmirror works wrongly"
  24 } else {
  25    if [catch { vdisplay result } res] {
  26       puts "Error : result shape is displayed wrongly"
  27    }
  28    vfit
  29 }
  30
  31 set only_screen 1
  32