|
Teale Albers projection parameters:
projection albers
units meters
parameters
1st Standard Parallel: 34 00 00
2nd Standard Parallel: 40 30 00
Central Meridian: -120 00 00
Latitude of origin: 00 00 00
False easting (meters): 0
False northing (meters): -4000000
Datum: NAD27
Spheroid: Clarke 1866
Projecting in Arcview:
An extension to reproject shapefiles is available from www.esri.com ; navigate to free
scripts. You may also find this extension in the Arcview
Samples/ext directory.
This extension has a problem in the form menu. The default
spheroid is listed as Clarke 1866, which is correct for the
Teale Albers projection, however unless you pull this menu down and
redundantly select Clarke 1866, the menu passes Sphere
to the projection engine, and the resulting projection is
incorrect.
The following script will either append the Teale Albers projection
to the system-wide default.prj ($AVHOME/etc/default.prj) or create
or append to a user default.prj ($HOME/default.prj) file. This
makes Teale Albers one of the selectable standard
projections.
' script to create Teale Albers projection for default.prj
' default.prj resides either in $AVHOME/etc or $HOME.
' Just compile and run, follow prompts to save file.
' Andy Richardson 8/98
'
AlbCooSys = CoordSys.Make
AlbCooSys.SetName("Teale Albers")
PrjLst = AlbCooSys.GetProjections
AlbPrj = Albers.Make(rect.Make("-124.5".AsNumber@32.5,"-114".AsNumber@42.25))
AlbPrj.SetDescription("Teale Albers")
AlbPrj.SetCentralMeridian(-120)
AlbPrj.SetReferenceLatitude(0)
AlbPrj.SetFalseEasting(0)
AlbPrj.SetFalseNorthing(-4000000)
AlbPrj.SetUpperStandardParallel(40.5)
AlbPrj.SetLowerStandardParallel(34)
AlbPrj.SetSpheroid(#SPHEROID_CLARKE1866)
AlbPrj.Recalculate
PrjLst.Add(AlbPrj)
msg =
"The Teale Albers projection should be written to either" ++
"$AVHOME/etc/default.prj (for system-wide access but you must" ++
"have write access) or $HOME/default.prj (for user-only access)."
MsgBox.Report(msg,"Save Locations")
defFN = FileDialog.Put("$AVHOME/etc/default.prj".AsFileName,"default.prj","Pick default.prj")
if (defFN = nil) then
return nil
end
if (File.Exists(defFN)) then
defprj = ODB.Open(defFN)
else
defprj = ODB.Make(defFN)
end
defprj.Add(AlbCooSys)
defprj.Commit
|
California
Home
