Problem solved!!
Thanks a lot, Phil, Mike, and everbody else.
Next friday i'll put a powerpoint slideshow, using Phil's solution, in
www.ic.unicamp.br/~ra015988/lis/artigos/novo/
Everbody is invited to see it.

Thanks a lot, and if anyone have C ou C++ problems, just mail me. :-)



"Phil Cook" <phi### [at] nospamdeckingdealscouk> wrote:
> And lo on Fri, 25 Jun 2004 09:00:54 -0500, Christopher James Huff
> <cja### [at] earthlinknet> did spake, saying:
>
> > In article <$O7jtAAKDo2AFws$@econym.demon.co.uk>,
> >  Mike Williams <nos### [at] econymdemoncouk> wrote:
> >
> >> I did it by using a perl script to read your data file and write out an
> >> image in PPM format. The little-known PPM format is useful for such
> >> tasks because the data is represented by ascii strings rather than
> >> binary values.
> >
> > The PGM variant would be more useful for this purpose. Just use P2
> > instead of P3, and include each value only once. However, I don't know
> > if POV will read this...I think it should, it's not exactly a difficult
> > format.
> >
>
> Using a comma seperated dat file:
>
> //start code
> #fopen MyFile "superficie.dat" read
> #while (defined(MyFile))
> #read (MyFile,LastX, LastZ, DitchY)
> #end
>
> #declare LastX=LastX+1;
> #declare LastZ=LastZ+1;
>
> /*
> This is to write put the pgm file
>  from the comma seperated dat file
> and can be commented out once generated
> */
> #declare MyArray= array[LastX][LastZ];
>
> #fopen MyFile "superficie.dat" read
> #while (defined(MyFile))
> #read (MyFile,MyX, MyZ, MyY)
> #declare MyArray[MyX][MyZ]=MyY;
> #end
> #fclose MyFile
> #declare i=0;
> #declare j=0;
>
> #fopen MyFile "super.pgm" write
> #write(MyFile
> "P2", "n",
> LastX," ", LastZ, "n",
> "255", "n")
>
> #while(j<LastZ)
>
> #while(i<LastX)
> #if (i=(LastX-1))
> #write (MyFile, MyArray[i][j],"n")
> #else
> #write (MyFile, MyArray[i][j]," ")
> #end
> #declare i=i+1;
> #end
> #declare j=j+1;
> #declare i=0;
> #end
> #fclose MyFile
> /*
> Put the closing pgm comment here to stop generating the file
> */
>
> camera{
> location <-LastX/200,2.0,-1.5>
> look_at  <-LastX/200,0,LastZ/200>
> }
>
> light_source{<-LastX/200,5,LastZ/200> rgb 1 shadowless}
>
>
> height_field {pgm "super.pgm"
>    pigment {green 0.5} finish{ambient 0.3}
>    scale <-LastX/100, 2, LastZ/100>
>
> }
> //end code
>
> Seems quicker
>
> --
> Phil Cook
>
> --
> All thoughts and comments are my own unless otherwise stated and I am
> happy to be proven wrong.

Post a reply to this message