Actually it can be made to work for floats as well:

#macro VectorSize(V)
  #local tmp = vstr(5, (V=V), "", 0, 0);
  (1 + (asc(substr(tmp,2,1))=49)+ (asc(substr(tmp,3,1))=49) +
   2*(asc(substr(tmp,5,1))=49))
#end

#declare V0 = 0;
#declare V1 = <1,2>;
#declare V2 = <3,4,5>;
#declare V3 = <6,7,8,9,10>;

#debug concat("Size of V0: ", str(VectorSize(V0),0,0),
            "\nSize of V1: ", str(VectorSize(V1),0,0),
            "\nSize of V2: ", str(VectorSize(V2),0,0),
            "\nSize of V3: ", str(VectorSize(V3),0,0), "\n")


-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message