'The Projector! 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

'******************************************************************************

'NOTE: 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