'*******************************************************************************
'*This script will set up a new view with the lambert equal-area azimuthal
'*projection needed for displaying an NDVI bil image or grid.
'*
'*********************************************************************************

'******* Make a new view ******
myView = View.Make

'****** Open the View ******
theWindow = myView.GetWin
theWindow.Open

theBox=Rect.makexy(-200,-100,200,100)
themeList={}

'****** Set Projection Information
theView = av.GetActiveDoc
'*** Set the parameters of the Lambert Equal-Area Azimuthal Projection

aProjection = EqualAreaAzimuthal.Make(theView.ReturnExtent)
aProjection.SetCentralMeridian(-100)
aProjection.SetReferenceLatitude(45)
'*** Apply the projection to the view
theView.SetProjection(aProjection)
'*** Set map units to meters, distance units to miles
theView.SetUnits(#UNITS_LINEAR_METERS)   
theView.GetDisplay.SetDistanceUnits(#UNITS_LINEAR_MILES)

'********** Open view window **************
myView=av.GetProject.FindDoc("View1")
myView.GetWin.Activate

'*********** Name View window **********
myView.SetName( "New Lambert View")