Commit | Line | Data |
---|---|---|
bc001a40 | 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 | ||
0aeb8984 | 10 | vzbufftrihedron -colorLabelX RED -colorLabelY GREEN -colorLabelZ BLUE |
11 | ||
bc001a40 | 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 | ||
fae1ae11 | 21 | vtrihedron t1 -dispMode shading |
bc001a40 | 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 | |
0aeb8984 | 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 | |
bc001a40 | 31 | |
32 | vtrihedron t2 -origin 0 0 -300 | |
0aeb8984 | 33 | vtrihedron t2 -color Whole PEACHPUFF |
bc001a40 | 34 | vselmode t2 1 1 |
35 | vselmode t2 2 1 | |
36 | vselmode t2 3 1 | |
37 | ||
fae1ae11 ZA |
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 | ||
0aeb8984 | 41 | vtrihedron t4 -origin -200 -200 300 -hideArrows |
bc001a40 | 42 | |
43 | vfit | |
44 | ||
45 | vdump $::imagedir/${::casename}.png |