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