tests/v3d/trihedron/bug27958

   1 puts "==========="
   2 puts "OCC27958: Visualization - add a shading mode for AIS_Trihedron"
   3 puts "==========="
   4 puts ""
   5
   6 pload VISUALIZATION
   7 vclear
   8 vinit View1
   9
  10 vzbufftrihedron -colorLabelX RED -colorLabelY GREEN -colorLabelZ BLUE
  11
  12 vtrihedron t0
  13
  14 vtrihedron t1
  15 vselprops -selColor 1.0 0.0 0.0
  16 vselmode t1 1 1
  17
  18 vselmode t1 2 1
  19 vselmode t1 3 1
  20
  21 vtrihedron t1 -dispMode shading
  22 vtrihedron t1 -origin -200 -200 -300
  23 vtrihedron t1 -attribute XAxisLength|YAxisLength|ZAxisLength 80
  24 vtrihedron t1 -xaxis 40 60 120 -zaxis -120 0 40
  25
  26 vtrihedron t1 -attribute TubeRadiusPercent 0.03
  27 vtrihedron t1 -attribute ConeRadiusPercent|OriginRadiusPercent 0.05
  28 vtrihedron t1 -color XAxis|XArrow RED         -textColor XAxis RED
  29 vtrihedron t1 -color YAxis|YArrow GREEN       -textColor YAxis GREEN
  30 vtrihedron t1 -color ZAxis|ZArrow|Origin BLUE -textColor ZAxis BLUE
  31
  32 vtrihedron t2 -origin 0 0 -300
  33 vtrihedron t2 -color Whole PEACHPUFF
  34 vselmode t2 1 1
  35 vselmode t2 2 1
  36 vselmode t2 3 1
  37
  38 vtrihedron t3 -dispMode shading -origin 200 200 -300 -color Whole 1.0 0.0 0.0
  39 vtrihedron t3 -drawAxes XY -hideLabels on
  40
  41 vtrihedron t4 -origin -200 -200 300 -hideArrows
  42
  43 vfit
  44
  45 vdump $::imagedir/${::casename}.png