> <Before>
> //  Object: description ...
> object
> {    sphere {<0, 0, 0>, 1.0 }
>       texture
>      {
>      pigment
>       {  color Gray
>       }
>    }
> scale < 1.65,  1.65,  1.65>
> translate < 1.404333, 0, 0>
> }
> </Before>

> <After> (a temp file)
> "//  Object: description ...
> ",
> <1.75,0.75,0.75>
> ,< 1.65,  1.65,  1.65>
> ,< 1.404333, 0, 0>
> ,
> </After>

If you're only interested in filtering out the vectors (and maybe 
comments) in this, then I guess it would be a one-liner in Perl. Could 
save you some work :)


HTH,
Florian
-- 
camera{look_at-y*10location<8,-3,-8>*10}#local a=0;#while(a<999)sphere{
#local _=.01*a-4.99;#local p=a*.01-5;#local c=.01*a-4.995;<sin(p*pi)*5p
*10pow(p,5)*.01>sin(c*c*c*.1)+1pigment{rgb 3}}#local a=a+1;#end
/******** http://www.torfbold.com ******** http://www.imp.org ********/

Post a reply to this message