$LOOP Polarization c1 c2 c3 c4 TIR NDVI

$SET DEMBasepath E:\ara\dem\
$SET ProcessFile 08110422_{Polarization}
!----------------------------------------------------------------------------------------------------------------------------
! Define a PLMR data file to read from (output plmr2sp)

PLMRfile: spa {ProcessFile}.spa

!----------------------------------------------------------------------------------------------------------------------------
! Read the PLMR beam angle data into the roll channel of a point cloud

AnglesFile:dat plmr_std_h.dat r
PLMRangles:* = AnglesFile
Remove AnglesFile
!----------------------------------------------------------------------------------------------------------------------------
! Read the PLMR beam tags into the classid channel of a point cloud

BeamFile:dat plmr_beams.dat c
PLMRbeams:* = BeamFile
Remove BeamFile
!----------------------------------------------------------------------------------------------------------------------------
INUfile: ..\RT3000\090810_185600.csv

set.deltaprh 0 0 0   ! angular offsets for pitch, roll, heading in degrees

Filter.Clear
Filter.Add FieldPoint PLMRangles roll             ! Merge in the angles
Filter.Add FieldPoint PLMRbeams  class            ! Merge in the beam IDs
Filter.Add GeoPLMR INUfile
!----------------------------------------------------------------------------------------------------------------------------
Set.WriteMode Overwrite

Set.Printfile {ProcessFile}.dat
!print This is my comment in {ProcessFile}.dat
!print --------------------------------------
Set.Printfile

!Set.WriteMode Append

PLMRout : dat {ProcessFile}.dat +m,x,y,z,b,A,I,L,W,O,p,r,h,X,Y

Set.WriteMode OverWrite

PLMRout=|PLMRfile


$ENDLOOP