Hi,

I came across this thing on Clifford Pickover's homepage hosted by J. Sprott at

<<https://sprott.physics.wisc.edu/pickover/CAROTID.HTM>>
The website contains a whole lot of interesting stuff - great for rainy days!

The C-F function is not spectacular but the result...
Here is the POV SDL - not elegant but it does want I wanted to get (now):

/*
Carotid-Fundalini 2D found at
https://sprott.physics.wisc.edu/pickover/CAROTID.HTM;

y=cos(N * x * acos(x))

x = [-1...1]
stepsize = 0.01;
*/

#version 3.7;

global_settings { assumed_gamma 2.2 }


#include "colors.inc"
#include "textures.inc"
#include "metals.inc"
#include "math.inc"


#declare X = 0;
#declare N = 30;
#declare rad = 0.005;
#declare stepsize = 0.0005;
#declare step = 1;
#declare a = sqrt(5);
#declare b = 1.0;
#declare C_FColor = rgb <0.00, 0.00, 0.00>;

#macro C_F2D(a, b, X, N, rad, stepsize, step)
  union {
   #for(i,1,N,1)
      #local C_FColor = rgb CH2RGB(degrees(i));

      #local X = -1;
   #while(X<=+1)
           sphere {<a*X, cosd(b*i * X * acosd(X)), 0>, rad
                pigment{C_FColor} finish{phong 0.5 phong_size 1.5}
           }
      #local X = X + stepsize;
   #end // while X
#end // for N
}
#end

object { C_F2D(a, b, X, N, rad, stepsize, step)
       rotate 0*x
       }

camera {
   location <0,0,-5>
   up y
   right x*image_width/image_height
   angle 54
   sky <0,1,0>
   look_at <0,0,0>
}

light_source {
    <7, 15, -100>
    color rgb <1, 1, 1>
    //shadowless
}

Should you have some other ideas to improve the SDL let me know but have a look
at the image first and read Pickover's comment.

Droj

Post a reply to this message

Attachments:
Download 'carotid-fundalini_2d_1_sm.png' (1410 KB)

Preview of image 'carotid-fundalini_2d_1_sm.png'