tests/bugs/modalg_5/bug22614_1

   1 puts "========================"
   2 puts "OCC22614"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Scaling fails with linear (p-)curves
   7 #######################################################################
   8
   9 pcylinder p 10 50
  10
  11 explode p f
  12
  13 # p_1 is a cylindrical face
  14 tscale p_1 0 0 0 0.001
  15
  16 renamevar p_1 result
  17
  18 set square 0.00314159
  19
  20 set nb_v_good 2
  21 set nb_e_good 3
  22 set nb_w_good 1
  23 set nb_f_good 1
  24 set nb_sh_good 0
  25 set nb_sol_good 0
  26 set nb_compsol_good 0
  27 set nb_compound_good  0
  28 set nb_shape_good 7
  29
  30 set 2dviewer 1