|
|
#version 3.7;
// Bill Walker "Bald Eagle" March 2018
global_settings {assumed_gamma 1.0}
#include "colors.inc"
camera {
location <0, 10, -0.01>
right x*image_width/image_height
look_at <0, 0, 0>}
light_source { <0, 150, 0> color rgb <1, 1, 1>}
plane {y, 0 pigment {Gray10}}
#declare a = 1;
#declare b = 4;
#declare r = 0;
#declare o = <0, 0, 0>;
#for (theta, 0, tau, 0.1)
#declare r = (a*b / sqrt(b*pow(cos(theta),2) + a*pow(sin(theta),2)));
#debug concat ( " r = ", str (r, 3, 1), "\n")
sphere {o, 0.1 pigment {Green} translate <r, 0, 0> rotate -y*degrees(theta)}
#end // end for theta
Post a reply to this message
|
|