tests/bugs/modalg/bug21255

   1 puts "============"
   2 puts "OCC21255"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Some problems with 3D chamfer construction
   7 #######################################################################
   8
   9 set BugNumber OCC21255
  10
  11 restore [locate_data_file OCC21255-1.brep] ss
  12 explode ss F
  13 explode ss_7 E
  14
  15 vinit
  16 if [catch { chamf result ss ss_7_2 ss_7 5. 5. } ] {
  17   puts "Faulty ${BugNumber} : chamf is wrong"
  18 } else {
  19 set square 45382.5
  20
  21 set nb_v_good 15
  22 set nb_e_good 22
  23 set nb_w_good 9
  24 set nb_f_good 9
  25 set nb_sh_good 1
  26 set nb_sol_good 1
  27 set nb_compsol_good 0
  28 set nb_compound_good 1
  29 set nb_shape_good 58
  30
  31   set 3dviewer 0
  32   vdisplay result
  33   vsetdispmode 1
  34   vfit
  35
  36   set scale    5.8955238204183011
  37   set center_X -43.928617104386774
  38   set center_Y 295.47887425975171
  39   set proj_X   0.62061613798141479
  40   set proj_Y   -0.6891753077507019
  41   set proj_Z   -0.37399500608444214
  42   set up_X     -0.12894462049007416
  43   set up_Y     -0.56017255783081055
  44   set up_Z     0.81827831268310547
  45   set at_X     15.248310089111328
  46   set at_Y     165.90042114257812
  47   set at_Z     225.19309997558594
  48
  49   vviewparams ${scale} ${center_X} ${center_Y} \
  50                 ${proj_X} ${proj_Y} ${proj_Z} \
  51                 ${up_X} ${up_Y} ${up_Z} \
  52                 ${at_X} ${at_Y} ${at_Z}
  53
  54 }
  55
  56 set only_screen 1