'
' Point.AsNumber
'
' SELF: Point
' Returns: Number
'
' ArcView 3.2a
' 4 Jan 2002, WAH @QD
' (c) 2002 Quantitative Decisions
' All rights reserved.
'
' The point x@y represents x + y*2^16.  This is computed and
' reduced modulo 2^31-1.
'======================================================================'
ptN = SELF
e = 2^16
return ptN.GetY*(2^16)+ptN.GetX mod (2^31-1)
' end of script