tests/bugs/modalg_5/bug22614_2

   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_2 is top planar face
  14 tscale p_2 0 0 0 0.001
  15
  16 renamevar p_2 result
  17
  18 checkprops result -s 0.000314159
  19 checkshape result
  20
  21 checknbshapes result -vertex 1 -edge 1 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png