Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include "colors.inc"
- #declare s = 0.001;
- #declare s2 = 0.05;
- #declare a = 0;
- #declare b = 1;
- #declare c = 4;
- #declare d = 5.5;
- #declare e = 12;
- #declare renderGraf = true;
- #declare R1 = function(x) { x+1 }
- #declare R2 = function(x) { 0.2 * pow(sin(6*x-6))+2 }
- #declare R3 = function(x) { pow(1.31726, x) * 0.615126 }
- #declare R4 = function(x) {-0.078322* pow(x, 2) + 0.93986*x }
- background { color Blue }
- light_source { <3.5, 15, -5> color White}
- camera { location <5,5, -12> look_at <5, 0, 0> }
- #if (renderGraf)
- #for (xx, a, b, s)
- cylinder{<xx, 0, 0>, <xx + s, 0, 0>, R1(xx) pigment{color Gray}}
- #end
- #for (xx, b, c, s)
- cylinder{<xx, 0, 0>, <xx + s, 0, 0>, R2(xx) pigment{color Gray}}
- #end
- #for (xx, c, d, s)
- cylinder{<xx, 0, 0>, <xx + s, 0, 0>, R3(xx) pigment{color Gray}}
- #end
- #for (xx, d, e, s)
- cylinder{<xx, 0, 0>, <xx + s, 0, 0>, R4(xx) pigment{color Gray}}
- #end
- #end //if debug
- #for (xx, a, b, s2)
- sphere { <xx, R1(xx), 0>, 0.1 texture { pigment { color Yellow } } }
- #end
- #for (xx, b, c, s2)
- sphere { <xx, R2(xx), 0>, 0.1 texture { pigment { color Cyan } } }
- #end
- #for (xx, c, d, s2)
- sphere { <xx, R3(xx), 0>, 0.1 texture { pigment { color Magenta } } }
- #end
- #for (xx, d, e, s2)
- sphere { <xx, R4(xx), 0>, 0.1 texture { pigment { color Magenta } } }
- #end
- //plane { <0,1,0>, 0 pigment { checker pigment{Red}, pigment{Blue} } }
- //plane { <0,0,1>, 0 pigment { checker pigment{Red transmit 0.1 }, pigment{Green transmit 0.1 } } }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement