12402146 |
1 | # Script reproducing creation of bottle model as described in OCCT Tutorial |
2 | |
3 | # make bottle by calling another script |
4 | source [file join [file dirname [info script]] bottle.tcl] |
5 | |
6 | # make table and a glass |
7 | box table -50 -50 -10 100 100 10 |
8 | pcone glass_out 7 9 25 |
9 | pcone glass_in 7 9 25 |
10 | ttranslate glass_in 0 0 0.2 |
11 | bcut glass glass_out glass_in |
12 | ttranslate glass -30 -30 0 |
13 | |
14 | # show table and glass |
15 | vsetmaterial bottle aluminium |
16 | vdisplay table |
17 | vsetmaterial table bronze |
18 | vsetmaterial table plastic |
19 | vsetcolor table coral2 |
20 | vdisplay glass |
21 | vsetmaterial glass plastic |
22 | vsetcolor glass brown |
23 | vsettransparency glass 0.6 |
24 | |
25 | # add light source for shadows |
26 | vlight new spot pos -100 -100 300 |
27 | |
28 | # set white background and fit view |
29 | vsetcolorbg 255 255 255 |
30 | vfit |
31 | |
32 | # set ray tracing |
fc73a202 |
33 | puts "Trying raytrace mode..." |
bc8c79bb |
34 | if { ! [catch {vrenderparams -raytrace -shadows -reflections -fsaa -rayDepth 5}] } { |
fc73a202 |
35 | vtextureenv on 1 |
12402146 |
36 | } |