$LOOP Polarization v h

$SET DEMBasepath C:\ara\dem\
$SET ProcessFile 07070902_{Polarization}	!put CUBE name here
!----------------------------------------------------------------------------------------------------------------------------
! 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_{Polarization}.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\100706_234127.csv		!put RT filename here

set.deltaprh 5. 0 0   ! angular offsets for pitch (+ve up?), 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