1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
/*****************************************************************************
The Grantrae was designed by Stig Bachmann Nielsen.
<http://www.isa.dknet.dk/~stigbn/ray/raytrace.html>
The Genesis Toolkit is freeware and copyright by Joerg Schrammel
<http://www.rhein-ruhr.de/~schrammel/index.htm>
****************************************************************************/
#local Trunk = object{
cone{<0,0,0>,0.3,<0,10,0>,0}
texture{
pigment{ color rgb<0.501, 0.313, 0.184>}
normal{
bumps
bump_size -2
scale< .1, .1, .1>
}
}
hollow
}
#local Gran = object{
cone{<0,0,0>,1,<0,1,0>,0 open
texture{
pigment{
image_map{ gif "tree_6.gif" interpolate 2.0 transmit 0 1.0 }
rotate<90,0,0>
translate<0.5,0.5,0.5>
scale<2,2,2>
}
}
}
hollow
}
#declare GranTree = object{
union{
object{Trunk }
object{Gran scale<3.1,2.9,3.1> rotate<0,180,0> translate <0,1,0>}
object{Gran scale<2,1.7,2> rotate<0,120,0> translate <0,1.9,0>}
object{Gran scale<3.1,2.9,3.1> rotate<0,90,0> translate <0,2.5,0>}
object{Gran scale<2.5,2.4,2.5> rotate<0,0,0> translate <0,4,0>}
object{Gran scale<2.1,1.9,2.1> rotate<0,120,0> translate <0,5.3,0>}
object{Gran scale<1.7,1.5,1.7> rotate<0,180,0> translate <0,6.5,0>}
object{Gran scale<1.3,1,1.3> rotate<0,90,0> translate <0,7.5,0>}
}
}
#macro tree_6 ()
object { GranTree scale <0.1, 0.1, 0.1> }
#end
|
