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