59ee34ef |
1 | puts "========" |
2 | puts "0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listing standard Colors and Materials" |
3 | puts "Generate a table of predefined Materials (Graphic3d_NameOfMaterial enumeration)" |
4 | puts "========" |
5 | |
6 | pload XDE OCAF MODELING VISUALIZATION |
7 | |
8 | catch { Close D } |
9 | vclear |
10 | vinit View1 |
11 | vaxo |
12 | |
13 | puts "<a href=${::casename}_table.html>Material Comparison Table</a>" |
14 | vlistmaterials $::imagedir/${::casename}.obj |
15 | ReadObj D $::imagedir/${::casename}.obj |
16 | |
17 | XDisplay -dispMode 1 D -explore |
18 | vfit |
19 | vdump ${imagedir}/${casename}.png |
20 | |
21 | vlistmaterials $::imagedir/${::casename}_table.html |