puts "==========="
puts "OCC27958: Visualization - add a shading mode for AIS_Trihedron"
puts "==========="
puts ""

pload VISUALIZATION
vclear
vinit View1

vtrihedron t0

vtrihedron t1
vselprops -selColor 1.0 0.0 0.0
vselmode t1 1 1

vselmode t1 2 1
vselmode t1 3 1

vtrihedron t1 -dispMode shading
vtrihedron t1 -origin -200 -200 -300
vtrihedron t1 -attribute XAxisLength|YAxisLength|ZAxisLength 80
vtrihedron t1 -xaxis 40 60 120 -zaxis -120 0 40

vtrihedron t1 -attribute TubeRadiusPercent 0.03
vtrihedron t1 -attribute ConeRadiusPercent|OriginRadiusPercent 0.05
vtrihedron t1 -color XAxis Quantity_NOC_RED
vtrihedron t1 -color YAxis Quantity_NOC_GREEN
vtrihedron t1 -color ZAxis|Origin Quantity_NOC_BLUE1

vtrihedron t1 -textColor  1.0 1.0 1.0
vtrihedron t1 -arrowColor 0.0 0.0 1.0

vtrihedron t2 -origin 0 0 -300
vtrihedron t2 -color Whole Quantity_NOC_PEACHPUFF
vselmode t2 1 1
vselmode t2 2 1
vselmode t2 3 1

vtrihedron t3 -dispMode shading -origin 200 200 -300 -color Whole 1.0 0.0 0.0
vtrihedron t3 -drawAxes XY -hideLabels on

vtrihedron t4  -origin -200 -200 300 -hideArrows

vfit

vdump $::imagedir/${::casename}.png
