tests/bugs/vis/bug25540

   1 puts "============"
   2 puts "CR25540"
   3 puts "Check that the discretization of local selection,"
   4 puts "wireframe and shaded presentation of shape is identical."
   5 puts "============"
   6 puts ""
   7
   8 vinit View1 w=912 h=912
   9 vclear
  10
  11 # Create object in shaded mode
  12 vsetdispmode 1
  13 pcylinder p 1 100
  14 vdisplay p
  15 vfit
  16
  17 # Setup field of view
  18 vrotate 1 1.5 0
  19 vfit
  20 vtranslateview 24 18.5 0
  21 vzoom 32
  22 vtranslateview -0.1 -0.6 0
  23 vzoom 2
  24
  25 vdump $imagedir/${casename}_shaded_pres.png
  26
  27 vmoveto 100 100
  28 vdump $imagedir/${casename}_h_pres.png
  29
  30 # Activate the local selection by edges and hilight small circle edge.
  31 # It's discretization should coincide with discretization of whole shape hiligting.
  32 vselmode p -set EDGE 1
  33 vmoveto 130 80
  34 vdump $imagedir/${casename}_local_h_pres.png
  35
  36 # Explode object on faces
  37 explode p F
  38 # Create colored shape: set another color to one face
  39 vaspects p -subshapes p_3 -setcolor RED
  40
  41 vselmode p -set 0 1
  42 vmoveto 100 100
  43 vdump $imagedir/${casename}_h_sub_pres.png
  44
  45 vselmode p -set EDGE 1
  46 vmoveto 130 80
  47 vdump $imagedir/${casename}_local_h_sub_pres.png