# Curves.pov

Feb 1st, 2013
651
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. #declare e = 2.71828;
2. #include "textures.inc"
3. #include "colors.inc"
4. #include "glass.inc"
5. camera {
6. location <0, 0, -10>
7. look_at <0,0,0>
8. }
9. light_source
10. {
11. <0,0,-10>
12. color rgb <1.0, 1.0, 1.0>
14. spotlight
15. rotate y*clock*-100
16. }
17. #declare Ball =
18.   sphere{<0,0,0>,0.08
19.     texture{
20.       pigment{color rgb<1,0.8,0>}
21.       finish {diffuse 0.9 phong 1}
22.     }// end of texture
23.   }// end of sphere
24.
25. //------------------------------------
26. #declare X = -5;    // start value X
27. #declare EndX = 5;  //   end value X
28. #declare Step = 0.001;// step value
29. #declare Sine =
30. union{
31. #while ( X < EndX + Step)//loop start
32.   object{ Ball translate <X,sin(X),0>}
33.
34. #declare X = X + Step; // next X
35. #end // ------------------- loop end
36. };
37. #declare X = -5;    // start value X
38. #declare EndX = 5;  //   end value X
39. #declare Step = 0.001;// step value
40. #declare Curvedd =
41. union{
42. #while ( X < EndX + Step)//loop start
43.   object{ Ball pigment {color rgb<0,0,1>} translate <X,cos(X)+cos(pow(X,2)),0>}
44.
45. #declare X = X + Step; // next X
46. #end // ------------------- loop end
47. };
48.
49. #declare X = 0;    // start value X
50. #declare EndX = 6.28;  //   end value X
51. #declare Step = 0.001;// step value
52. #declare Cardioid =
53. union{
54. #while ( X < EndX + Step)//loop start
55.   #declare r = 1 - sin(X);
56.   object{ Ball pigment {color rgb<0,1,0>} translate <r*cos(X),r*sin(X),0>}
57.
58. #declare X = X + Step; // next X
59. #end}; // ------------------- loop end
60.
61. #declare X = 0;    // start value X
62. #declare EndX = 6.28;  //   end value X
63. #declare Step = 0.001;// step value
64. #declare Butterfly =
65. union{
66. #while ( X < EndX + Step)//loop start
67.   #declare r = pow(e,sin(X)) - 2*cos(4*X) + pow(sin((2*X-pi)/24),5);
68.   object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}
69.
70. #declare X = X + Step; // next X
71. #end}; // ------------------- loop end
72.
73. #declare X = -6.28;    // start value X
74. #declare EndX = 6.28*2
75. ;  //   end value X
76. #declare Step = 0.001;// step value
77. #declare log_spiral =
78. union{
79. #while ( X < EndX + Step)//loop start
80.   #declare b = log(1.61803397)/(3.14159/2);
81.   #declare r = 1*pow(e,b*X);
82.   object{ Ball texture{Gold_Metal} translate <r*cos(X),r*sin(X),0>}
83.
84. #declare X = X + Step; // next X
85. #end}; // ------------------- loop end
86.
87.
88. #declare X = -6.28;    // start value X
89. #declare EndX = 6.28
90. ;  //   end value X
91. #declare Step = 0.001;// step value
92. #declare Fermat_spiral =
93. union{
94. #while ( X < EndX + Step)//loop start
95.   #declare r = pow(X,0.5);
96.   object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}
97.   #declare r = -1*pow(X,0.5);
98.   object{ Ball texture{Polished_Brass} translate <r*cos(X),r*sin(X),0>}
99. #declare X = X + Step; // next X
100. #end}; // ------------------- loop end
101.
103. object {Cardioid}
104. object {Sine}
105. object {Curvedd}
106. object {Fermat_spiral} */
107. object {log_spiral}
108.
109.
110. sphere{ <0,0,0>, 1
111.         texture{T_Glass3
112.                } // end of texture
113.         interior