!
!  TELESCOPE POINTING ANALYSIS SYSTEM:  LDT-Specific PROCEDURES
!
!  Latest revision:   20 August 2021
!
!  Copyright P.T.Wallace.  All rights reserved.
!

!-----------------------------------------------
!
!  INITIALIZATION PROCEDURE - MANDATORY
!
!  Called when TPOINT is first set up.
!
PROC INIT
!              insert
!              initialization
!              commands
!              here
RETURN
!-----------------------------------------------

PROC EQUAT   ! Basic model for an equatorial
LOSE
USE IH ID NP CH ME MA
RETURN

PROC ALTAZ   ! Basic model for an altazimuth
LOSE
USE IA IE NPAE CA AN AW
RETURN

PROC LDT   ! Lowell Discovery Telescope, official model
LOSE
USE IA IE NPAE CA AN AW PZZ1 PZZ2 TX POX POY
PARAL PZZ1 PZZ2 TX
USE HSSA2 HSSA4 HSCA4
HSSA2 0.4
HSSA4 -0.4
HSCA4 -0.4
FIX HSSA2 HSSA4 HSCA4
FIT
FIT
RETURN

PROC LDT_NIGHTLY   ! Lowell Discovery Telescope, get AN/AW from nightly
LOSE
FIX IA IE NPAE CA PZZ1 PZZ2 TX POX POY
USE AN AW
FIT
FIT
RETURN

PROC E9   ! 9 favorite plots for an equatorial
CAPT OFF
GC
CLRNG OFF
PLTZ TL
G X H
PLTZ TC
G D D
PLTZ TR
G Z Z
PLTZ CL
G X D
PLTZ CC
G D H
PLTZ CR
G P H
PLTZ BL
GSCAT E
PLTZ BR
GMAP
CAPT ON
PLTZ BC
GDIST
CLRNG ON
PLTZ
RETURN

PROC A9   ! 9 favorite plots for an altaz
CAPT OFF
GC
CLRNG OFF
PLTZ TL
G S A
PLTZ TC
G Z A
PLTZ TR
G V A
PLTZ CL
G S Z
PLTZ CC
G Z Z
PLTZ CR
GAM Z
PLTZ BL
GSCAT A
PLTZ BR
GSMAP
CAPT ON
PLTZ BC
GDIST
CLRNG ON
PLTZ
RETURN

PROC A9P   ! 9 favorite PostScript plots for an altaz
CAPT OFF
GC P
CLRNG OFF
PLTZ TL
G S A
PLTZ TC
G Z A
PLTZ TR
G V A
PLTZ CL
G S Z
PLTZ CC
G Z Z
PLTZ CR
GAM Z
PLTZ BL
GSCAT A
PLTZ BR
GSMAP
CAPT ON
PLTZ BC
GDIST
CLRNG ON
PLTZ
RETURN

PROC G9   ! 9 favorite plots for a gimbal
CAPT OFF
GC
CLRNG OFF
PLTZ TL
G S A
PLTZ TC
G E A
PLTZ TR
G V A
PLTZ CL
G S E
PLTZ CC
G Z Z
PLTZ CR
G E E
PLTZ BL
GSCAT A
PLTZ BR
GSMAP
CAPT ON
PLTZ BC
GDIST
CLRNG ON
PLTZ
RETURN

END