FUNCTION encofit,  step, stepboarder, p1, p2, p3, p4

;
   
;#############################################################################
;#
;# Function name    : ENCOFIT 
;#
;# Author           : Dietmar Germerott
;# Language         : IDL
;# Purpose          : Determines the fitted encoder value for a given step
;# Creation date    : 28-MAR-1996
;# Update date      : 28-MAR-1996
;# External modules : 
;#
;# Call Sequence    : VAR = encofit( step, stepboarder, p1, p2, p3, p4)
;#
;# Arguments        : step - step
;#            stepboarder - step border for polynoms switching
;#            p1 - Coeff
;#            p2 - Coeff
;#            p3 - Coeff
;#            p4 - Coeff
;#
;# Description      : 
;#
;#
;#############################################################################


if (step lt stepboarder) then enc = poly(step, p1) else $
   enc = poly(step, p2)

si1 = poly(step, p3)
si2 = double(poly(step, p4))

result = enc + si1 * sin(si2)

return, result

end



;---------------------------------------------------------------------------
; End of 'ENCOFIT.PRO'.
;---------------------------------------------------------------------------