tests/bugs/modalg_6/bug27383_6

   1 puts "========"
   2 puts "0027383: Modeling - improve handling of regularity on edges"
   3 puts "========"
   4 puts ""
   5 #################################################################
   6 # Check regularity setting on edges between cylinder and a plane
   7 #################################################################
   8
   9 pload MODELING
  10 plane p 0 2 0 0 1 0
  11 mkface pln p 0 10 -2 0
  12 pcylinder cyl 2 10 90
  13 explode cyl F
  14 sewing r cyl_1 pln
  15 encoderegularity r
  16
  17 set cont "G1"
  18
  19 explode r F
  20 explode r_1 E
  21 if { ! [regexp "${cont}" [getedgeregularity r_1_2 r_1 r_2]] } {
  22   puts "Error: Invalid regularity of the edge, expected ${cont}"
  23 }
  24
  25 nurbsconvert ncyl cyl_1
  26 sewing r ncyl pln
  27 encoderegularity r
  28
  29 explode r F
  30 explode r_1 E
  31 if { ! [regexp "${cont}" [getedgeregularity r_1_2 r_1 r_2]] } {
  32   puts "Error: Invalid regularity of the edge, expected ${cont}"
  33 }
  34
  35 # make image in HLR mode as illustration
  36 pload VISUALIZATION
  37 vdisplay r
  38 vfit
  39 vhlr on
  40 vdump ${imagedir}/${test_image}.png