mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-03 10:36:44 +08:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
22 lines
605 B
Plaintext
22 lines
605 B
Plaintext
puts "========"
|
|
puts "0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listing standard Colors and Materials"
|
|
puts "Generate a table of predefined Materials (Graphic3d_NameOfMaterial enumeration)"
|
|
puts "========"
|
|
|
|
pload XDE OCAF MODELING VISUALIZATION
|
|
|
|
Close D -silent
|
|
vclear
|
|
vinit View1
|
|
vaxo
|
|
|
|
puts "<a href=${::casename}_table.html>Material Comparison Table</a>"
|
|
vlistmaterials $::imagedir/${::casename}.obj
|
|
ReadObj D $::imagedir/${::casename}.obj
|
|
|
|
XDisplay -dispMode 1 D -explore
|
|
vfit
|
|
vdump ${imagedir}/${casename}.png
|
|
|
|
vlistmaterials $::imagedir/${::casename}_table.html
|