44c7c33e |
1 | puts "========" |
2 | puts "OCC24855: Revision of parameters of standard materials" |
3 | puts "========" |
4 | |
5 | # custom shapes |
6 | set aShape [locate_data_file occ/Top.brep] |
7 | |
8 | # setup 3D viewer content |
9 | vinit View1 w=768 h=768 |
10 | vglinfo |
11 | |
12 | vsetgradientbg 180 200 255 180 180 180 2 |
13 | |
14 | # display shape |
15 | vlight change 0 pos -1 1 1 |
16 | restore $aShape s |
17 | vsetdispmode 1 |
18 | vdisplay s |
19 | vfit |
20 | |
21 | proc testmat {dirname filename} { |
22 | foreach {aMatIter} {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium charcoal} { |
23 | vsetmaterial -noredraw s $aMatIter |
24 | vdump $dirname/${filename}_${aMatIter}.png |
25 | } |
26 | } |
27 | |
28 | # make material screenshots |
29 | testmat $imagedir $casename |
30 | |
31 | vshaderprog s phong |
32 | testmat $imagedir ${casename}_phong |
33 | |
bc8c79bb |
34 | vrenderparams -raytrace -reflections -fsaa |
44c7c33e |
35 | vtextureenv on 5 |
44c7c33e |
36 | |
37 | testmat $imagedir ${casename}_rt |
38 | |
39 | vclear |
bc8c79bb |
40 | vrenderparams -rasterization |
44c7c33e |
41 | vtextureenv off |
42 | source $env(CASROOT)/samples/tcl/materials.tcl |