annotate CADDSuite-1.0/data/OpenBabel/babel_povray3.inc @ 14:55c32b55c2c2

Uploaded Version 1.1
author marcel
date Thu, 12 Jan 2012 11:00:43 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1 //Include for Babel
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
2 //Copyright (c) by Steffen Reith and Oliver Weichold 1996-2002
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
3 // This program is free software; you can redistribute it and/or modify
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
4 // it under the terms of the GNU General Public License as published by
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
5 // the Free Software Foundation version 2 of the License.
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
6 //EMail: streit@streit.cc
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
7 //For chemical questions send mail to
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
8 //weichold@sas.upenn.edu
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
9
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
10 //$Id: babel_povray3.inc 3895 2010-07-22 10:36:05Z baoilleach $
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
11
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
12 #include "colors.inc"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
13 #include "metals.inc"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
14
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
15 //Do a ball and sticks model as default (nothing defined)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
16 #ifndef (BAS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
17 #ifndef (SPF)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
18 #ifndef (CST)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
19 #declare BAS = true;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
20 #declare SPF = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
21 #declare CST = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
22 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
23 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
24 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
25
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
26 //Default: No Ball and Sticks-model (if undefined)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
27 #ifndef (BAS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
28 #declare BAS = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
29 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
30
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
31 //Default: No Spacefill-model (if undefined)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
32 #ifndef (SPF)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
33 #declare SPF = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
34 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
35
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
36 //Default: No capped sticks-model (if undefined)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
37 #ifndef (CST)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
38 #declare CST = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
39 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
40
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
41 //Is a model (BAS, SPF or CST) selected ?
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
42 #if (!((BAS | SPF) | CST))
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
43
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
44 //Terminate parsing
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
45 #error "You have to select BAS (default), SPF or CST"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
46
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
47 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
48
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
49 //Select only one model
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
50 #if ((BAS & SPF) | ((BAS & CST) | (SPF & CST)))
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
51
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
52 //Terminate parsing
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
53 #error "You have to select only one model-type"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
54
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
55 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
56
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
57 //Display copyright
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
58 #render "\n\n"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
59 #render "\nbabel31.inc (C) 1996-2002 by\n"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
60 #render "Oliver Weichold (weichold@sas.upenn.edu)\n"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
61 #render "and Steffen Reith (streit@streit.cc)\n"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
62 #render "\n\n"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
63
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
64 //TRANS mode off by default (only needed for transparent textures)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
65 #ifndef (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
66 #declare TRANS = false;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
67 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
68
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
69 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
70 #include "glass.inc"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
71 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
72
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
73 //Finishs for atoms (Nonmetals, Transmetals, Halfmetals and Metals)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
74 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
75
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
76 #declare TransFinish = finish {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
77 ambient 0.1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
78 diffuse 0.1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
79 specular 0.8
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
80 reflection 0.1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
81 roughness 0.0003
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
82 phong 1 phong_size 400
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
83 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
84
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
85 //Transparent finishs
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
86 #declare MetalFinish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
87 #declare HalfMetalFinish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
88 #declare NonMetalFinish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
89 #declare TransMetalFinish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
90 #declare Bond_0_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
91 #declare Bond_1_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
92 #declare Bond_2_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
93 #declare Bond_3_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
94 #declare Bond_4_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
95 #declare Bond_5_Finish = finish {TransFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
96
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
97 //Filter values for transparent finishs
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
98 #declare MetalFilter = 1.00;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
99 #declare HalfMetalFilter = 0.95;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
100 #declare NonMetalFilter = 1.00;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
101 #declare TransMetalFilter = 0.95;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
102 #declare Bond_0_Filter = 0.00;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
103 #declare Bond_1_Filter = 0.90;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
104 #declare Bond_2_Filter = 0.90;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
105 #declare Bond_3_Filter = 0.90;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
106 #declare Bond_4_Filter = 0.90;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
107 #declare Bond_5_Filter = 0.90;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
108
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
109 #else
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
110
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
111 //Solid finishs
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
112 #declare MetalFinish = finish {F_MetalA}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
113 #declare HalfMetalFinish = finish {F_MetalD}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
114 #declare NonMetalFinish = finish {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
115
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
116 ambient 0.2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
117 diffuse 0.8
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
118 brilliance 1.0
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
119 phong 1.0
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
120 phong_size 80
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
121 reflection 0.25
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
122
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
123 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
124 #declare TransMetalFinish = finish {F_MetalD}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
125 #declare Bond_0_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
126 #declare Bond_1_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
127 #declare Bond_2_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
128 #declare Bond_3_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
129 #declare Bond_4_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
130 #declare Bond_5_Finish = finish {F_MetalC}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
131
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
132 //No additional filter (texture is not transparent)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
133 #declare MetalFilter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
134 #declare HalfMetalFilter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
135 #declare NonMetalFilter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
136 #declare TransMetalFilter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
137 #declare Bond_0_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
138 #declare Bond_1_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
139 #declare Bond_2_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
140 #declare Bond_3_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
141 #declare Bond_4_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
142 #declare Bond_5_Filter = 0.0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
143
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
144 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
145
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
146 //Thickness of Bonds (see Makro Bond_order)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
147 #if (CST)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
148
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
149 // For capped-stick models you must use _one_ Bond_Thick !
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
150 #declare Bond_Thick_0 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
151 #declare Bond_Thick_1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
152 #declare Bond_Thick_2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
153 #declare Bond_Thick_3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
154 #declare Bond_Thick_4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
155 #declare Bond_Thick_5 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
156
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
157 #else
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
158
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
159 #declare Bond_Thick_0 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
160 #declare Bond_Thick_1 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
161 #declare Bond_Thick_2 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
162 #declare Bond_Thick_3 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
163 #declare Bond_Thick_4 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
164 #declare Bond_Thick_5 = 0.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
165
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
166 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
167
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
168 //Colors for Bonds (see Makro Bond_order)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
169 #declare Bond_0_Color = rgbf <1.00,0.725,0.275,Bond_0_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
170 #declare Bond_1_Color = rgbf <1.00,0.725,0.275,Bond_1_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
171 #declare Bond_2_Color = rgbf <1.00,0.725,0.275,Bond_2_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
172 #declare Bond_3_Color = rgbf <1.00,0.725,0.275,Bond_3_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
173 #declare Bond_4_Color = rgbf <1.00,0.725,0.275,Bond_4_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
174 #declare Bond_5_Color = rgbf <1.00,0.725,0.275,Bond_5_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
175
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
176 #declare Bond_0_Color = rgbf <0.95,0.95,0.1,Bond_0_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
177 #declare Bond_1_Color = rgbf <0.95,0.95,0.1,Bond_1_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
178 #declare Bond_2_Color = rgbf <0.95,0.95,0.1,Bond_2_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
179 #declare Bond_3_Color = rgbf <0.95,0.95,0.1,Bond_3_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
180 #declare Bond_4_Color = rgbf <0.95,0.95,0.1,Bond_4_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
181 #declare Bond_5_Color = rgbf <0.95,0.95,0.1,Bond_5_Filter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
182
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
183 //The bond declarations
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
184 #declare bond_0 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
185 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
186 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
187 Bond_Thick_0
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
188 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
189
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
190 pigment {color Bond_0_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
191 finish {Bond_0_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
192
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
193 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
194 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
195 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
196 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
197 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
198 #declare bond_1 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
199 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
200 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
201 Bond_Thick_1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
202 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
203
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
204 pigment {color Bond_1_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
205 finish {Bond_1_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
206
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
207 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
208 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
209 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
210 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
211 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
212 #declare bond_2 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
213 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
214 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
215 Bond_Thick_2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
216 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
217
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
218 pigment {color Bond_2_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
219 finish {Bond_2_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
220
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
221 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
222 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
223 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
224 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
225 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
226 #declare bond_3 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
227 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
228 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
229 Bond_Thick_3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
230 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
231
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
232 pigment {color Bond_3_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
233 finish {Bond_3_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
234
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
235 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
236 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
237 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
238 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
239 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
240 #declare bond_4 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
241 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
242 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
243 Bond_Thick_4
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
244 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
245
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
246 pigment {color Bond_4_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
247 finish {Bond_4_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
248
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
249 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
250 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
251 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
252 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
253 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
254 #declare bond_5 = cylinder {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
255 <0,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
256 <1,0,0>
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
257 Bond_Thick_5
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
258 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
259
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
260 pigment {color Bond_5_Color}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
261 finish {Bond_5_Finish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
262
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
263 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
264 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
265 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
266 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
267 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
268
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
269 //Generic definition of an atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
270 #if (BAS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
271 #render "\n\nCalculate a ball and sticks model of :"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
272 #declare atom = sphere {<0,0,0>,0.6}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
273 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
274 #if (SPF)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
275 #render "\n\nCalculate a spacefill model of :"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
276 #declare atom = sphere {<0,0,0>,1.66}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
277 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
278 #if (CST)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
279 #render "\n\nCalculate a capped sticks model of :"
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
280 #declare atom = sphere {<0,0,0>,1.0}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
281 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
282
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
283 //For Povray 3.1 only
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
284 #version 3.1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
285
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
286 //For capped sticks models we use Bond_Thick_0 for all atom radii
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
287 #if (CST)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
288
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
289 #declare Radius_C1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
290 #declare Radius_C2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
291 #declare Radius_C3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
292 #declare Radius_H = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
293 #declare Radius_D = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
294 #declare Radius_O = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
295 #declare Radius_N = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
296 #declare Radius_S = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
297 #declare Radius_P = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
298 #declare Radius_F = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
299 #declare Radius_Cl = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
300 #declare Radius_Br = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
301 #declare Radius_I = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
302
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
303 #declare Radius_Si = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
304 #declare Radius_B = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
305 #declare Radius_Ge = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
306 #declare Radius_Se = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
307
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
308 #declare Radius_Ca = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
309 #declare Radius_Ca2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
310 #declare Radius_Sn = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
311 #declare Radius_Sn2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
312 #declare Radius_Sn4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
313 #declare Radius_Pb = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
314 #declare Radius_Pb2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
315 #declare Radius_Pb4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
316 #declare Radius_Te = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
317 #declare Radius_Te4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
318 #declare Radius_Te6 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
319 #declare Radius_Na = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
320 #declare Radius_Na1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
321 #declare Radius_K = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
322 #declare Radius_K1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
323 #declare Radius_Li = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
324 #declare Radius_Li1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
325 #declare Radius_Al = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
326 #declare Radius_Al3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
327
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
328 #declare Radius_Mn = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
329 #declare Radius_Mn2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
330 #declare Radius_Mn3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
331 #declare Radius_Mn4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
332 #declare Radius_W = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
333 #declare Radius_W4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
334 #declare Radius_W6 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
335 #declare Radius_Fe = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
336 #declare Radius_Fe2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
337 #declare Radius_Fe3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
338 #declare Radius_Pd = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
339 #declare Radius_Pd2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
340 #declare Radius_Pd4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
341 #declare Radius_Ni = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
342 #declare Radius_Ni2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
343 #declare Radius_Ni3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
344 #declare Radius_Cu = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
345 #declare Radius_Cu1 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
346 #declare Radius_Cu2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
347 #declare Radius_V = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
348 #declare Radius_V2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
349 #declare Radius_V3 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
350 #declare Radius_V4 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
351 #declare Radius_V5 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
352 #declare Radius_Zn = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
353 #declare Radius_Zn2 = Bond_Thick_0;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
354
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
355 #else
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
356
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
357 //Atom radii in A as published in J. Emsley, The Elements,
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
358 //Clarender Press, Oxford 1991
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
359
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
360 //All uncharged radii are kovalent. The values for Na and V are calculated
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
361 //from the atomic radius (10% less).
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
362 //We use the kovalent radii for the description of metal atoms. If you want to
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
363 //use ion radii, just replace the radius in the atom description.
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
364 //E.g., replace
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
365 //
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
366 //scale Radius_Zn
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
367 //
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
368 //by
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
369 //
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
370 //scale Radius_Zn2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
371 //
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
372 //for creating a sphere with the ion radius of Zn2+.
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
373
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
374 #declare Radius_C1 = 0.770;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
375 #declare Radius_C2 = 0.670;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
376 #declare Radius_C3 = 0.600;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
377
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
378 #declare Radius_H = 0.370;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
379 #declare Radius_D = 0.370;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
380 #declare Radius_O = 0.660;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
381 #declare Radius_N = 0.700;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
382 #declare Radius_S = 1.040;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
383 #declare Radius_P = 1.100;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
384 #declare Radius_F = 0.580;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
385 #declare Radius_Cl = 0.990;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
386 #declare Radius_Br = 1.142;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
387 #declare Radius_I = 1.330;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
388
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
389 #declare Radius_Si = 1.170;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
390 #declare Radius_B = 0.880;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
391 #declare Radius_Ge = 1.220;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
392 #declare Radius_Se = 1.170;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
393
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
394 #declare Radius_Ca = 1.740;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
395 #declare Radius_Ca2 = 1.060;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
396 #declare Radius_Sn = 1.400;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
397 #declare Radius_Sn2 = 0.930;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
398 #declare Radius_Sn4 = 0.740;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
399 #declare Radius_Pb = 1.540;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
400 #declare Radius_Pb2 = 1.320;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
401 #declare Radius_Pb4 = 0.890;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
402 #declare Radius_Te = 1.370;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
403 #declare Radius_Te4 = 0.970;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
404 #declare Radius_Te6 = 0.560;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
405 #declare Radius_Na = 1.380;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
406 #declare Radius_Na1 = 0.980;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
407 #declare Radius_K = 2.030;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
408 #declare Radius_K1 = 1.330;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
409 #declare Radius_Li = 1.230;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
410 #declare Radius_Li1 = 0.780;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
411 #declare Radius_Al = 1.250;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
412 #declare Radius_Al3 = 0.570;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
413
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
414 #declare Radius_Mn = 1.170;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
415 #declare Radius_Mn2 = 0.910;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
416 #declare Radius_Mn3 = 0.700;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
417 #declare Radius_Mn4 = 0.520;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
418 #declare Radius_W = 1.300;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
419 #declare Radius_W4 = 0.680;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
420 #declare Radius_W6 = 0.620;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
421 #declare Radius_Fe = 1.165;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
422 #declare Radius_Fe2 = 0.820;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
423 #declare Radius_Fe3 = 0.670;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
424 #declare Radius_Pd = 1.280;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
425 #declare Radius_Pd2 = 0.860;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
426 #declare Radius_Pd4 = 0.640;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
427 #declare Radius_Ni = 1.150;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
428 #declare Radius_Ni2 = 0.780;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
429 #declare Radius_Ni3 = 0.620;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
430 #declare Radius_Cu = 1.170;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
431 #declare Radius_Cu1 = 0.960;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
432 #declare Radius_Cu2 = 0.720;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
433 #declare Radius_V = 1.188;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
434 #declare Radius_V2 = 0.720;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
435 #declare Radius_V3 = 0.650;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
436 #declare Radius_V4 = 0.610;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
437 #declare Radius_V5 = 0.590;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
438 #declare Radius_Zn = 1.250;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
439 #declare Radius_Zn2 = 0.830;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
440
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
441 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
442
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
443 //Atom descriptions
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
444
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
445 //Section: Nonmetals
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
446 #declare Color_C1 = rgbf <0.00,0.00,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
447 #declare Atom_C1 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
448
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
449 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
450 scale Radius_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
451 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
452
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
453 pigment {color Color_C1}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
454 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
455
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
456 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
457 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
458 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
459 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
460
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
461 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
462 #declare Atom_C = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
463 #declare Atom_Cac = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
464 #declare Atom_Cbl = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
465 #declare Atom_Cmi = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
466 #declare Atom_Crad = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
467 #declare Atom_Cx = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
468 #declare Atom_Nr = Atom_C1
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
469
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
470 #declare Radius_Cac = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
471 #declare Radius_Cbl = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
472 #declare Radius_Cmi = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
473 #declare Radius_Crad = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
474 #declare Radius_Cx = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
475 #declare Radius_Nr = Radius_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
476
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
477 #declare Color_C = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
478 #declare Color_Cac = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
479 #declare Color_Cbl = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
480 #declare Color_Cmi = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
481 #declare Color_Crad = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
482 #declare Color_Cx = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
483 #declare Color_Nr = Color_C1;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
484
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
485 #declare Color_C2 = rgbf <0.00,0.00,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
486 #declare Atom_C2 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
487
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
488 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
489 scale Radius_C2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
490 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
491
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
492 pigment {color Color_C2}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
493 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
494
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
495 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
496 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
497 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
498 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
499 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
500
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
501 #declare Color_C3 = rgbf <0.00,0.00,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
502 #declare Atom_C3 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
503
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
504 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
505 scale Radius_C3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
506 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
507
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
508 pigment {color Color_C3}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
509 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
510
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
511 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
512 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
513 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
514 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
515 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
516 #declare Atom_Car = Atom_C3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
517 #declare Atom_Cpl = Atom_C3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
518 #declare Atom_Cx = Atom_C3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
519
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
520 #declare Radius_Car = Radius_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
521 #declare Radius_Cpl = Radius_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
522 #declare Radius_Cx = Radius_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
523
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
524 #declare Color_Car = Color_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
525 #declare Color_Cpl = Color_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
526 #declare Color_Cx = Color_C3;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
527
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
528 #declare Color_H = rgbf <1.00,1.00,1.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
529 #declare Atom_H = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
530
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
531 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
532 scale Radius_H
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
533 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
534
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
535 pigment {color Color_H}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
536 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
537
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
538 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
539 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
540 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
541 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
542 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
543 #declare Atom_HC = Atom_H
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
544 #declare Atom_HO = Atom_H
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
545 #declare Atom_HN = Atom_H
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
546 #declare Atom_Hpl = Atom_H
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
547
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
548 #declare Radius_HC = Radius_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
549 #declare Radius_HO = Radius_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
550 #declare Radius_HN = Radius_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
551 #declare Radius_Hpl = Radius_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
552
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
553 #declare Color_HC = Color_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
554 #declare Color_HO = Color_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
555 #declare Color_HN = Color_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
556 #declare Color_Hpl = Color_H;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
557
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
558 #declare Color_D = rgbf <0.85,0.85,0.95,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
559 #declare Atom_D = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
560
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
561 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
562 scale Radius_D
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
563 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
564
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
565 pigment {color Color_D}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
566 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
567
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
568 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
569 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
570 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
571 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
572 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
573 #declare Atom_DC = Atom_D
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
574
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
575 #declare Radius_DC = Radius_D;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
576
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
577 #declare Color_DC = Color_D;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
578
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
579 #declare Color_O = rgbf <1.00,0.00,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
580 #declare Atom_O = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
581
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
582 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
583 scale Radius_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
584 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
585
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
586 pigment {color Color_O}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
587 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
588
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
589 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
590 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
591 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
592 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
593 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
594 #declare Atom_O3 = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
595 #declare Atom_O2 = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
596 #declare Atom_Omi = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
597 #declare Atom_OCO2 = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
598 #declare Atom_Oany = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
599 #declare Atom_Oco2 = Atom_O
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
600
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
601 #declare Radius_O3 = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
602 #declare Radius_O2 = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
603 #declare Radius_Omi = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
604 #declare Radius_OCO2 = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
605 #declare Radius_Oany = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
606 #declare Radius_Oco2 = Radius_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
607
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
608 #declare Color_O3 = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
609 #declare Color_O2 = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
610 #declare Color_Omi = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
611 #declare Color_OCO2 = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
612 #declare Color_Oany = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
613 #declare Color_Oco2 = Color_O;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
614
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
615 #declare Color_N = rgbf <0.14,0.42,0.56,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
616 #declare Atom_N = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
617
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
618 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
619 scale Radius_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
620 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
621
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
622 pigment {color Color_N}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
623 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
624
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
625 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
626 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
627 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
628 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
629 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
630 #declare Atom_NPL3 = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
631 #declare Atom_N2 = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
632 #declare Atom_N4 = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
633 #declare Atom_N3 = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
634 #declare Atom_Npl = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
635 #declare Atom_N2pl = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
636 #declare Atom_Naz = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
637 #declare Atom_N1 = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
638 #declare Atom_Nox = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
639 #declare Atom_Ntr = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
640 #declare Atom_NC = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
641 #declare Atom_Nar = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
642 #declare Atom_Nam = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
643 #declare Atom_Ngpl = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
644 #declare Atom_N3pl = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
645 #declare Atom_Nany = Atom_N
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
646
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
647 #declare Radius_NPL3 = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
648 #declare Radius_N2 = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
649 #declare Radius_N4 = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
650 #declare Radius_N3 = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
651 #declare Radius_Npl = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
652 #declare Radius_N2pl = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
653 #declare Radius_Naz = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
654 #declare Radius_N1 = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
655 #declare Radius_Nox = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
656 #declare Radius_Ntr = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
657 #declare Radius_NC = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
658 #declare Radius_Nar = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
659 #declare Radius_Nam = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
660 #declare Radius_Ngpl = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
661 #declare Radius_N3pl = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
662 #declare Radius_Nany = Radius_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
663
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
664 #declare Color_NPL3 = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
665 #declare Color_N2 = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
666 #declare Color_N4 = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
667 #declare Color_N3 = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
668 #declare Color_Npl = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
669 #declare Color_N2pl = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
670 #declare Color_Naz = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
671 #declare Color_N1 = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
672 #declare Color_Nox = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
673 #declare Color_Ntr = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
674 #declare Color_NC = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
675 #declare Color_Nar = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
676 #declare Color_Nam = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
677 #declare Color_Ngpl = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
678 #declare Color_N3pl = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
679 #declare Color_Nany = Color_N;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
680
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
681 #declare Color_F = rgbf<1.00,1.00,0.88,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
682 #declare Atom_F = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
683
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
684 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
685 scale Radius_F
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
686 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
687
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
688 pigment {color Color_F}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
689 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
690
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
691 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
692 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
693 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
694 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
695 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
696
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
697 #declare Color_Cl = rgbf <0.20,0.80,0.20,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
698 #declare Atom_Cl = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
699
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
700 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
701 scale Radius_Cl
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
702 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
703
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
704 pigment {color Color_Cl}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
705 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
706
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
707 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
708 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
709 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
710 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
711 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
712
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
713 #declare Color_Br = rgbf <0.65,0.16,0.16,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
714 #declare Atom_Br = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
715
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
716 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
717 scale Radius_Br
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
718 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
719
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
720 pigment {color Color_Br}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
721 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
722
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
723 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
724 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
725 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
726 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
727 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
728
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
729 #declare Color_I = rgbf<0.58,0.44,0.86,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
730 #declare Atom_I = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
731
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
732 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
733 scale Radius_I
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
734 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
735
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
736 pigment {color Color_I}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
737 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
738
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
739 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
740 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
741 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
742 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
743 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
744
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
745 #declare Color_P = rgbf <1.00,0.50,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
746 #declare Atom_P = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
747
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
748 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
749 scale Radius_P
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
750 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
751
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
752 pigment {color Color_P}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
753 finish{NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
754
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
755 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
756 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
757 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
758 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
759 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
760 #declare Atom_Pac = Atom_P
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
761 #declare Atom_P3 = Atom_P
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
762 #declare Atom_Pox = Atom_P
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
763 #declare Atom_P3pl = Atom_P
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
764
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
765 #declare Radius_Pac = Radius_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
766 #declare Radius_P3 = Radius_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
767 #declare Radius_Pox = Radius_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
768 #declare Radius_P3pl = Radius_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
769
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
770 #declare Color_Pac = Color_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
771 #declare Color_P3 = Color_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
772 #declare Color_Pox = Color_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
773 #declare Color_P3pl = Color_P;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
774
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
775 #declare Color_S = rgbf <1.00,1.00,0.00,NonMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
776 #declare Atom_S = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
777
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
778 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
779 scale Radius_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
780 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
781
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
782 pigment {color Color_S}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
783 finish {NonMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
784
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
785 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
786 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
787 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
788 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
789 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
790 #declare Atom_S3pl = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
791 #declare Atom_S3 = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
792 #declare Atom_S2 = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
793 #declare Atom_Sac = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
794 #declare Atom_Sox = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
795 #declare Atom_Sany = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
796 #declare Atom_So = Atom_S
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
797
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
798 #declare Radius_S3pl = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
799 #declare Radius_S3 = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
800 #declare Radius_S2 = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
801 #declare Radius_Sac = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
802 #declare Radius_Sox = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
803 #declare Radius_Sany = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
804 #declare Radius_So = Radius_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
805
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
806 #declare Color_S3pl = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
807 #declare Color_S3 = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
808 #declare Color_S2 = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
809 #declare Color_Sac = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
810 #declare Color_Sox = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
811 #declare Color_Sany = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
812 #declare Color_So = Color_S;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
813
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
814 //A special color for halfmetals
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
815 #declare HalfMetalColor = rgbf <0.6,0.6,0.85,HalfMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
816
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
817 //Section: HalfMetals
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
818 #declare Color_B = rgbf <0,1.0,0,HalfMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
819 #declare Atom_B = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
820
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
821 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
822 scale Radius_B
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
823 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
824
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
825 pigment {color Color_B}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
826 finish {HalfMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
827
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
828 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
829 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
830 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
831 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
832 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
833 #declare Atom_Bac = Atom_B
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
834 #declare Atom_Box = Atom_B
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
835
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
836 #declare Radius_Bac = Radius_B;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
837 #declare Radius_Box = Radius_B;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
838
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
839 #declare Color_Bac = Color_B;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
840 #declare Color_Box = Color_B;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
841
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
842 #declare Color_Si = HalfMetalColor;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
843 #declare Atom_Si = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
844
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
845 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
846 scale Radius_Si
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
847 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
848
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
849 pigment {color Color_Si}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
850 finish {HalfMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
851
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
852 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
853 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
854 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
855 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
856 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
857
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
858
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
859 #declare Color_Ge = HalfMetalColor;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
860 #declare Atom_Ge = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
861
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
862 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
863 scale Radius_Ge
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
864 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
865
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
866 pigment {color Color_Ge}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
867 finish {HalfMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
868
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
869 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
870 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
871 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
872 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
873 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
874 #declare Color_Se = HalfMetalColor;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
875 #declare Atom_Se = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
876
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
877 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
878 scale Radius_Se
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
879 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
880
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
881 pigment {color Color_Se}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
882 finish {HalfMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
883
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
884 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
885 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
886 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
887 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
888 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
889
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
890 //Metals
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
891 #declare Color_Metal = rgbf <0.94,0.93,0.90,MetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
892
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
893 #declare Color_Te = rgbf <0.6,0.6,0.6,MetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
894 #declare Atom_Te = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
895
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
896 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
897 scale Radius_Te
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
898 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
899
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
900 pigment {color Color_Te}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
901 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
902
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
903 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
904 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
905 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
906 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
907 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
908
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
909 #declare Color_Li = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
910 #declare Atom_Li = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
911
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
912 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
913 scale Radius_Li
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
914 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
915
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
916 pigment {color Color_Li}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
917 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
918
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
919 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
920 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
921 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
922 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
923 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
924
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
925 #declare Color_Na = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
926 #declare Atom_Na = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
927
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
928 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
929 scale Radius_Na
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
930 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
931
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
932 pigment {color Color_Na}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
933 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
934
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
935 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
936 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
937 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
938 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
939 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
940
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
941 #declare Color_K = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
942 #declare Atom_K = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
943
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
944 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
945 scale Radius_K
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
946 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
947
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
948 pigment {color Color_K}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
949 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
950
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
951 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
952 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
953 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
954 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
955 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
956
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
957 #declare Color_Ca = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
958 #declare Atom_Ca = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
959
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
960 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
961 scale Radius_Ca
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
962 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
963
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
964 pigment {color Color_Ca}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
965 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
966
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
967 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
968 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
969 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
970 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
971 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
972
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
973 #declare Color_Al = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
974 #declare Atom_Al = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
975
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
976 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
977 scale Radius_Al
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
978 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
979
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
980 pigment {color Color_Al}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
981 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
982
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
983 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
984 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
985 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
986 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
987 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
988
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
989 #declare Color_Sn = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
990 #declare Atom_Sn = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
991
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
992 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
993 scale Radius_Sn
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
994 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
995
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
996 pigment {color Color_Sn}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
997 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
998
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
999 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1000 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1001 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1002 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1003 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1004
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1005 #declare Color_Pb = Color_Metal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1006 #declare Atom_Pb = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1007
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1008 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1009 scale Radius_Pb
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1010 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1011
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1012 pigment {color Color_Pb}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1013 finish {MetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1014
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1015 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1016 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1017 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1018 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1019 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1020
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1021 //TransMetals
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1022 #declare Color_TransMetal = rgbf <0.94,0.93,0.90,TransMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1023
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1024 #declare Color_W = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1025 #declare Atom_W = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1026
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1027 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1028 scale Radius_W
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1029 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1030
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1031 pigment {color Color_W}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1032 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1033
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1034 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1035 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1036 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1037 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1038 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1039
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1040 #declare Color_Pd = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1041 #declare Atom_Pd = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1042
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1043 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1044 scale Radius_Pd
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1045 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1046
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1047 pigment {color Color_Pd}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1048 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1049
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1050 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1051 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1052 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1053 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1054 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1055
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1056 #declare Color_Ni = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1057 #declare Atom_Ni = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1058
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1059 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1060 scale Radius_Ni
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1061 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1062
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1063 pigment {color Color_Ni}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1064 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1065
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1066 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1067 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1068 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1069 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1070 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1071
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1072 #declare Color_Cu = rgbf <0.50,0.25,0.15,TransMetalFilter>;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1073 #declare Atom_Cu = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1074
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1075 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1076 scale Radius_Cu
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1077
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1078 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1079
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1080 pigment {color Color_Cu}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1081 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1082
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1083 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1084 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1085 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1086 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1087 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1088
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1089 #declare Color_Mn = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1090 #declare Atom_Mn = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1091
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1092 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1093 scale Radius_Mn
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1094 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1095
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1096 pigment {color Color_Mn}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1097 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1098
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1099 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1100 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1101 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1102 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1103 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1104
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1105 #declare Color_Fe = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1106 #declare Atom_Fe = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1107
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1108 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1109 scale Radius_Fe
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1110
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1111 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1112
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1113 pigment {color Color_Fe}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1114 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1115
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1116 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1117 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1118 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1119 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1120 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1121
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1122
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1123 #declare Color_V = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1124 #declare Atom_V = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1125
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1126 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1127 scale Radius_V
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1128 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1129
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1130 pigment {color Color_V}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1131 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1132
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1133 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1134 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1135 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1136 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1137 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1138
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1139 #declare Atom_V2 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1140
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1141 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1142 scale Radius_V2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1143 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1144
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1145 pigment {color Color_V}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1146 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1147
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1148 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1149 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1150 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1151 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1152 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1153
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1154 #declare Atom_V3 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1155
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1156 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1157 scale Radius_V3
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1158 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1159
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1160 pigment {color Color_V}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1161 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1162
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1163 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1164 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1165 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1166 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1167 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1168
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1169 #declare Atom_V4 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1170
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1171 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1172 scale Radius_V4
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1173 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1174
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1175 pigment {color Color_V}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1176 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1177
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1178 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1179 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1180 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1181 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1182 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1183
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1184 #declare Atom_V5 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1185
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1186 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1187 scale Radius_V5
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1188 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1189
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1190 pigment {color Color_V}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1191 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1192
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1193 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1194 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1195 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1196 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1197 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1198
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1199
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1200 #declare Color_Zn = Color_TransMetal;
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1201 #declare Atom_Zn = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1202
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1203 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1204 scale Radius_Zn
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1205 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1206
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1207 pigment {color Color_Zn}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1208 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1209
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1210 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1211 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1212 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1213 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1214 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1215
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1216 #declare Atom_Zn2 = object {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1217
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1218 atom
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1219 scale Radius_Zn2
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1220 texture {
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1221
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1222 pigment {color Color_Zn}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1223 finish {TransMetalFinish}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1224
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1225 }
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1226 #if (TRANS)
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1227 interior{ I_Glass}
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1228 #end
55c32b55c2c2 Uploaded Version 1.1
marcel
parents:
diff changeset
1229 }