1// Insert menu illustration scene "Stones_and_Granites.pov"
2// Author: Friedrich A. Lohmueller, March-2013
3#version 3.7;
4global_settings{ assumed_gamma 1.0 }
5//--------------------------------------------------------------------------
6
7#include "shapes.inc"
8#include "colors.inc"
9#include "textures.inc"
10#include "glass.inc"
11//------------------------------------
12
13#declare In_Path1  = "E0 - Textures and Materials/30 - Stones and Granites/"
14
15 // #declare Typ =  52  ; // for tests
16
17#switch (Typ)  //----------------------------------------------------------
18// In_Path1
19#case(1)  #declare Txt_Path="05 - Pink_Granite.txt" #break
20#case(2)  #declare Txt_Path="05 - PinkAlabaster.txt" #break
21#case(3)  #declare Txt_Path="22 - Blood_Marble.txt" #break
22#case(4)  #declare Txt_Path="22 - Blue_Agate.txt" #break
23#case(5)  #declare Txt_Path="22 - Brown_Agate.txt" #break
24#case(6)  #declare Txt_Path="22 - Jade.txt" #break
25#case(7)  #declare Txt_Path="22 - Red_Marble.txt" #break
26#case(8)  #declare Txt_Path="22 - Sapphire_Agate.txt" #break
27#case(9)  #declare Txt_Path="22 - White_Marble.txt" #break
28
29
30// #case(10)  #declare Txt_Path=".txt" #break
31#case(11)  #declare Txt_Path="40 - T_Grnt1.txt" #break
32#case(12)  #declare Txt_Path="40 - T_Grnt2.txt" #break
33#case(13)  #declare Txt_Path="40 - T_Grnt3.txt" #break
34#case(14)  #declare Txt_Path="40 - T_Grnt4.txt" #break
35#case(15)  #declare Txt_Path="40 - T_Grnt5.txt" #break
36#case(16)  #declare Txt_Path="40 - T_Grnt6.txt" #break
37#case(17)  #declare Txt_Path="40 - T_Grnt7.txt" #break
38#case(18)  #declare Txt_Path="40 - T_Grnt8.txt" #break
39#case(19)  #declare Txt_Path="40 - T_Grnt9.txt" #break
40
41#case(20)  #declare Txt_Path="41 - T_Grnt10.txt" #break
42#case(21)  #declare Txt_Path="41 - T_Grnt11.txt" #break
43#case(22)  #declare Txt_Path="41 - T_Grnt12.txt" #break
44#case(23)  #declare Txt_Path="41 - T_Grnt13.txt" #break
45#case(24)  #declare Txt_Path="41 - T_Grnt14.txt" #break
46#case(25)  #declare Txt_Path="41 - T_Grnt15.txt" #break
47#case(26)  #declare Txt_Path="41 - T_Grnt16.txt" #break
48#case(27)  #declare Txt_Path="41 - T_Grnt17.txt" #break
49#case(28)  #declare Txt_Path="41 - T_Grnt18.txt" #break
50#case(29)  #declare Txt_Path="41 - T_Grnt19.txt" #break
51
52#case(30)  #declare Txt_Path="41 - T_Grnt20.txt" #break
53#case(31)  #declare Txt_Path="41 - T_Grnt21.txt" #break
54#case(32)  #declare Txt_Path="41 - T_Grnt22.txt" #break
55#case(33)  #declare Txt_Path="41 - T_Grnt23.txt" #break
56#case(34)  #declare Txt_Path="41 - T_Grnt24.txt" #break
57#case(35)  #declare Txt_Path="41 - T_Grnt25.txt" #break
58#case(36)  #declare Txt_Path="41 - T_Grnt26.txt" #break
59#case(37)  #declare Txt_Path="41 - T_Grnt27.txt" #break
60#case(38)  #declare Txt_Path="41 - T_Grnt28.txt" #break
61#case(39)  #declare Txt_Path="41 - T_Grnt29.txt" #break
62
63//#case(40)  #declare Txt_Path="50 - T_Stone1.txt" #break
64#case(41)  #declare Txt_Path="50 - T_Stone1.txt" #break
65#case(42)  #declare Txt_Path="50 - T_Stone2.txt" #break
66#case(43)  #declare Txt_Path="50 - T_Stone3.txt" #break
67#case(44)  #declare Txt_Path="50 - T_Stone4.txt" #break
68#case(45)  #declare Txt_Path="50 - T_Stone5.txt" #break
69#case(46)  #declare Txt_Path="50 - T_Stone6.txt" #break
70#case(47)  #declare Txt_Path="50 - T_Stone7.txt" #break
71#case(48)  #declare Txt_Path="50 - T_Stone8.txt" #break
72#case(49)  #declare Txt_Path="50 - T_Stone9.txt" #break
73
74#case(50)  #declare Txt_Path="51 - T_Stone10.txt" #break
75#case(51)  #declare Txt_Path="51 - T_Stone11.txt" #break
76#case(52)  #declare Txt_Path="51 - T_Stone12.txt" #break
77#case(53)  #declare Txt_Path="51 - T_Stone13.txt" #break
78#case(54)  #declare Txt_Path="51 - T_Stone14.txt" #break
79#case(55)  #declare Txt_Path="51 - T_Stone15.txt" #break
80#case(56)  #declare Txt_Path="51 - T_Stone16.txt" #break
81#case(57)  #declare Txt_Path="51 - T_Stone17.txt" #break
82#case(58)  #declare Txt_Path="51 - T_Stone18.txt" #break
83#case(59)  #declare Txt_Path="51 - T_Stone19.txt" #break
84
85#case(60)  #declare Txt_Path="51 - T_Stone20.txt" #break
86#case(61)  #declare Txt_Path="51 - T_Stone21.txt" #break
87#case(62)  #declare Txt_Path="51 - T_Stone22.txt" #break
88#case(63)  #declare Txt_Path="51 - T_Stone23.txt" #break
89#case(64)  #declare Txt_Path="51 - T_Stone24.txt" #break
90#case(65)  #declare Txt_Path="51 - T_Stone25.txt" #break
91#case(66)  #declare Txt_Path="51 - T_Stone26.txt" #break
92#case(67)  #declare Txt_Path="51 - T_Stone27.txt" #break
93#case(68)  #declare Txt_Path="51 - T_Stone28.txt" #break
94#case(69)  #declare Txt_Path="51 - T_Stone29.txt" #break
95
96#case(70)  #declare Txt_Path="51 - T_Stone30.txt" #break
97#case(71)  #declare Txt_Path="51 - T_Stone31.txt" #break
98#case(72)  #declare Txt_Path="51 - T_Stone32.txt" #break
99#case(73)  #declare Txt_Path="51 - T_Stone33.txt" #break
100#case(74)  #declare Txt_Path="51 - T_Stone34.txt" #break
101#case(75)  #declare Txt_Path="51 - T_Stone35.txt" #break
102#case(76)  #declare Txt_Path="51 - T_Stone36.txt" #break
103#case(77)  #declare Txt_Path="51 - T_Stone37.txt" #break
104#case(78)  #declare Txt_Path="51 - T_Stone38.txt" #break
105#case(79)  #declare Txt_Path="51 - T_Stone39.txt" #break
106
107#case(80)  #declare Txt_Path="51 - T_Stone40.txt" #break
108#case(81)  #declare Txt_Path="51 - T_Stone41.txt" #break
109#case(82)  #declare Txt_Path="51 - T_Stone42.txt" #break
110#case(83)  #declare Txt_Path="51 - T_Stone43.txt" #break
111#case(84)  #declare Txt_Path="51 - T_Stone44.txt" #break
112/*
113#case(25)  #declare Txt_Path=".txt" #break
114*/
115
116
117#end // of '#switch (Typ)' ------------------------------------------------
118//-------------------------------------------------------------------------
119#macro Base_Shape1( Tex ) // left box, right sphere
120union{
121  object{ Round_Box( <-0.5,-0.5,-0.5>,<0.5,0.5,0.5>, 0.1, 0) texture{Tex}
122          scale 1.1 rotate<0,15,0> translate<-0.4 ,0.9,-0.8> }
123// box{<-0.3,-1.9/2,0>,<0.3,1.9/2,7> rotate<0, 0,0> texture{Tex} translate<-0.95 ,0.1+1.9/2,-0.8> }
124 sphere{<0,0,0>,1.1 texture{Tex} translate<0.55,1.2,0> }
125 translate<0,0,-0.35>
126 }//
127#end // macro
128//-------------------------------------------------------------------------
129//-------------------------------------------------------------------------
130//-------------------------------------------------------------------------
131#if ( (Typ >=1) & (Typ <=84)) //
132
133#default{ finish{ ambient 0.1 diffuse 0.9 }}
134#include "stones.inc"
135
136camera { angle 75      // front view
137         location  <0.0 , 1.0 ,-3.0>
138         right     x*image_width/image_height
139         look_at   <0.0 , 1.0 , 0.0>}
140light_source{< 2500,2000,-2500> color White}
141// sky
142plane{<0,1,0>,1 hollow
143       texture{ pigment{ bozo turbulence 0.92
144                         color_map { [0.00 rgb <0.20, 0.20, 1.0>*0.9]
145                                     [0.50 rgb <0.20, 0.20, 1.0>*0.9]
146                                     [0.70 rgb <1,1,1>]
147                                     [0.85 rgb <0.25,0.25,0.25>]
148                                     [1.0 rgb <0.5,0.5,0.5>]}
149                        scale<1,1,1.5>*2.5  translate< 0,0,0>
150                       }
151                finish {ambient 1 diffuse 0} }
152       scale 10000}
153// fog on the ground -------------------------
154fog { fog_type   2
155      distance   50
156      color      White
157      fog_offset 0.1
158      fog_alt    1.5
159      turbulence 1.8
160    }
161// ground ------------------------------------
162plane { <0,1,0>, 0
163        texture{ pigment{ color rgb<0.35,0.65,0.0>*0.72 }
164	         normal { bumps 0.75 scale 0.015 }
165                 finish { phong 0.1 }
166               } // end of texture
167      } // end of plane
168//plane{ <0,1,0>, 0.001 texture{ pigment{  color rgb<0.55,0.45,0.43>*0.3} finish { phong 0.1} } }
169#end //--------------------------------------------------------------------
170//-------------------------------------------------------------------------
171
172#if ( (Typ>=1) & (Typ<=84) & (Typ!=10) & (Typ!=40) ) //
173object{ Base_Shape1( #include concat(In_Path1,Txt_Path) ) translate<0,0,-0.00> }
174#end //----------
175//-------------------------------------------------------------------------
176
177
178
179
180