0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listi...
[occt.git] / tests / v3d / materials / materials
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