// Persistence of Vision Ray Tracer Scene Description File
// File: systematiclabels.pov
// Vers: 3.1
// Desc: systematically labeling things, one way to do it anyhow
// Date: 2000.67
// Auth: Bob Hughes
// Mail: per### [at] aolcom?subject=pov-scene
// free code! don't buy this :-) it ain't a macro


camera {location -9*z look_at <2,1.5,0>}
light_source {-10*z,1}

#declare RedundantObject= // whatever
 union {sphere {0,2} box {-1.5,1.5} pigment {rgb .5}}

#declare Var1=1; // the starting number
#declare Var2=0; // for positioning
#declare Letter=65; //start at "A"

#while (Var1<26) // count of instances (limited by Alphabet in this case)

#declare Var0=chr(Letter) // get letter from number

// this could prove difficult for any but the simplest CSG
intersection {
 text {ttf "arialbd.ttf", concat(Var0,str(Var1,0,0)), .5, 0
  pigment {rgb 1.5}
    scale 1 rotate 0 // position to interact with surface of RedundantObject
     translate <-.67,-.3,-2.25>
   inverse
 }
 object {RedundantObject}

  translate <3,2,3>*Var2 // position each in some manner
}

#declare Letter=Letter+1;
#declare Var1=Var1+1;
#declare Var2=Var2+1;

#end

Post a reply to this message