comparison CADDSuite/data/OpenBabel/babel_povray3.inc @ 7:5b29b679ee6d

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