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
53
54
55
56
|
/*****************************************************************************
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 Tann1 = object{
cone{<0,0,0>,1,<0,1,0>,0 open
texture{
pigment{
image_map{
gif "tree_4.gif"
interpolate 2.0
transmit 0 1.0
filter 236 0.5
filter 239 0.5
}
rotate<90,0,0>translate<0.5,0.5,0.5>scale<2,2,2>
}
}
}
hollow
}
#declare Tree = object {
union{
object{Trunk scale<1,0.9,1>}
object{Tann1 scale<6,2,6>rotate<0,0,0>translate<0,1.25,0>}
object{Tann1 scale<5.5,2.2,5.5>rotate<0,120,0>translate<0,2,0>} #
object{Tann1 scale<5,2.2,5>rotate<0,60,0>translate<0,3,0>} #
object{Tann1 scale<4,2.2,4>rotate<0,180,0>translate<0,4,0>}
object{Tann1 scale<3,2.2,3>rotate<0,300,0>translate<0,5,0>}
object{Tann1 scale<2,2.2,2>rotate<0,240,0>translate<0,6,0>}
object{Tann1 scale<2,2.2,2>rotate<0,45,0>translate<0,7,0>}
object{Tann1 scale<1.5,1,1.5> rotate<0,90,0>translate<0,8,0>}
}
}
#macro tree_4 ()
object { Tree scale <0.1, 0.1, 0.1> }
#end
|
