Appendix D

TXT2TIN.AML

This is the file that creates the first TIN, triangulated surface from the point data, which will be used in the rest of the Virtual deforestation process. Run this aml through Arc in the directory that has the last return txt and txt_l files. The script automatically selects all of the files and converts them into tins with the [name]_l and no extension. When viewed in the windows browser they will show up as folders.

/* Following segment was added by Matthew Walsh
/* 13 March 2003
/* Allowed the automation of many tin files in one directory
/* Update of origonal files from Ralph Haugerud of USGS

&sv file [filelist *.txt last.list -file]

/* opens file list
& sv fileunit [open last.list openstat -read]
& if %openstat% ne 0 &then
&return Problem opening file

/* reads file list
& sv tilefull [read %fileunit% readstat]
& if %readstat% ne 0 &then
&return Problem reading file

&do &while %readstat% = 0
&sv tile [entryname %tilefull% -noext]
&if [exists %tile%_l -tin] &then kill %tile%_l all
createtin %tile%_l 0.01 0.01
generate %tile%.txt_l
end
&sv tilefull [read %fileunit% readstat]
& end

/* closes file
& if [close %fileunit%] ne 0 &then
&return Cannot close file

/* deletes file
& sv delstat [delete last.list -file]
& return