This is probably ugly code (adapted and untested):

#include "shapes.inc"

#macro Inscription(T,F,R,D,S,N)
  //T -> Text as a vector of "characters"
  //F -> Font, without extension
  //R -> Circle radius. R > 0 -> outside. R < 0 -> inside
  //D -> Thickness of the letters
  //S -> Scale factor for the letters
  //N -> Scale factor for the spaces
  #local Sign=select(R,-1,1);
  #local R=abs(R);
  #local I=0;
  #local Angle=0;
  #while (I < dimension_size(T,1))
    text {
      ttf concat(F,".ttf")
      T[I], D, 0
      #local Width=Text_Width(concat(F,".ttf"),T[I],S,0)/2;
      #local Space=Text_Space(concat(F,".ttf"),T[I],S,0)-2*Width;
      scale <S, S, 1>
      translate <-Width, 0, -Sign*R>
      bounded_by { box { -<Width,0.5*S,Sign*R>, <Width,0.5*S,D-Sign*R> } }
      rotate -Sign*(Angle+degrees(asin(Width/R)))*y
      #local Angle=Angle+2*degrees(asin(Width/R))+180*N*Space/R;
    }
    #local I=I+1;
  #end
#end

#declare Text = array[43]
  {"S","a","m","p","l","e"," ","t","e","x","t"}

#declare Object = union {
  difference {
    sphere { 4.5 }
    union {
      Inscription(Text,"Arial",+4.6,0.5,0.70,0.30)
    }
    bounded_by { cylinder { -1.05*y, 1.05*y, 4.55 } }
  }
  sphere { 4.45 }
  pigment { color <1, 1, 0> }
}

-- 
light_source{9+9*x,1}camera{orthographic look_at(1-y)/4angle 30location
9/4-z*4}light_source{-9*z,1}union{box{.9-z.1+x clipped_by{plane{2+y-4*x
0}}}box{z-y-.1.1+z}box{-.1.1+x}box{.1z-.1}pigment{rgb<.8.2,1>}}//Jellby

Post a reply to this message