!
!  TELESCOPE POINTING ANALYSIS SYSTEM:  STANDARD PROCEDURES
!
!  P T Wallace   Starlink   6 August 1994
!

!-----------------------------------------------
!
!  INITIALISATION PROCEDURE - MANDATORY
!
!  Called when TPOINT is first set up.
!
PROC INIT
!              insert
!              initialisation
!              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 CANON  (Setup for Canon LBP-A2 laserprinter)
PLTON "canon_l"
PENS 1 2 2 2 2 4
TXF 102 102
RETURN

PROC PS (Setup for PostScript printer)
PLTON "ps_l"
TXF 102 102
RETURN

PROC PSCOL (Setup for Colour PostScript printer)
PLTON "pscol_l"
PENS 2 1 4 3 2 2
TXF 102 102
RETURN

PROC EPSCOL (Setup for Colour Encapsulated PostScript)
PLTON "epsfcol_p"
PENS 2 1 4 3 2 2
TXF 102 102
RETURN

PROC EPSW (Setup for Encapsulated PostScript - all white)
PLTON "epsf_p"
PENS 0 0 0 0 0 0
TXF 102 102
RETURN

PROC MG100  (Setup for Pericom MG100 terminal)
PLTON "pericom_mg"
RETURN

PROC T4010  (Setup for Tektronix 4010 terminal)
PLTON "tek_4010"
ECHO OFF
RETURN

PROC T4014  (Setup for Tektronix 4014 terminal)
PLTON "tek_4014"
ECHO OFF
RETURN

PROC XW (Setup for graphics via X-windows)
PLTON "xwindows"
PENS 2 1 4 3 5 2
RETURN

PROC AAT  (AAT Cass/PF, operational model)
LOSE
USE IH ZH ID HFX HFD HF X2HC NP CH ZE ME MA TF TFP
ZH 3.51
ZE 0.70
HFX 1
HFD 1
FIX ZH ZE HFX HFD
PARAL HFX HFD HF X2HC NP CH ME MA TFP
FIT
RETURN

PROC AATCO  (AAT coude, operational model)
LOSE
USE IH ZH ID HFDP HF X2HC NP CH CD4A CD4B CD5A CD5B ZE ME MA TF TFTZ2
ZH 3.51
ZE 0.70
HFDP 1
FIX ZH ZE
PARAL HFDP HF X2HC NP CH CD4A CD4B CD5A CD5B ME MA TFTZ2
FIT
RETURN

PROC AATC  (AAT coude, new model)
LOSE
USE IH ZH ID HFX HFD HF X2HC NP CH CD4A CD4B CD5A CD5B ZE ME MA TF TFP
ZH 3.51
ZE 0.70
HFX 1.0
HFD 1.0
FIX ZH ZE HFX HFD
PARAL HFX HFD HF X2HC NP CH CD4A CD4B CD5A CD5B ME MA TFP
FIT
RETURN

PROC UKIRT  (UKIRT, unofficial model)
LOSE
USE IH ID HHCH2 HHSH2 D2DC D2DS IE TF TX NP CH FO ME MA
FIT      !  Large zero point errors:
FIT      !  multiple FITs to
FIT      !  converge fully
RETURN

PROC CFHT  (CFHT, unofficial model)
LOSE
USE IH ID NP CH TF TX
USE HXCH2CD1 HXSH4 HXSH2CD2 HXSH3SD1
USE HDSH1 HDCH1 HDSH2 HDSD2 HDCD2 HDCH1CD2 HDCH3
HXCH2CD1  -9.5
HXSH4     -4.3
HXSH2CD2  +3.8
HXSH3SD1  -5.8
HDSH1    +37.2
HDCH1   +170.4
HDSH2    -14.7
HDSD2    +27.6
HDCD2    +10.3
HDCH1CD2 +25.4
HDCH3     -5.9
FIX HXCH2CD1 HXSH4 HXSH2CD2 HXSH3SD1
FIX HDSH1 HDCH1 HDSH2 HDSD2 HDCD2 HDCH1CD2 HDCH3
USE ME MA
FIT
FIT
RETURN

PROC JKT  (JKT, unofficial model)
LOSE
USE IH ID NP CH ME MA PHH DAF HXSH2 HXCD4 HPSH2 HPCH4 TF
FIT
FIT
RETURN

PROC HALE  (200 inch IR, unofficial model)
LOSE
USE IH ID TX HXCH HXSH2 HDSH2 NP CH ME MA
FIT
RETURN

PROC OHP  (Haute Provence 1.93 metre, unofficial model)
LOSE
USE IH ID HDCD02 HDCD04 NP CH DAF TF ME MA
PARAL HDCD04 CH DAF TF ME MA
FIT
RETURN

PROC MMT  (MMT, unofficial model)
LOSE
USE IE IA HZCZ TF NPAE CA HZSA HZSA2 HWCA AW AN
FIT
RETURN

PROC INT  (INT, unofficial model)
LOSE
USE IH ID NP CH ME MA FO TF
USE HCES HXCH1 HXSH4 DCES DCEC HDSH4 HDSH6 HDCH6 HDCH8 HDSD2
FIT
FIT
RETURN

PROC WHT  (WHT, unofficial model)
LOSE
USE IA IE TF TX NPAE CA AN AW
USE HSSA1 HSCA3 HZSA3 HNSA1 HNSA2 HWSA2
FIT
FIT
RETURN

PROC JCMT  (JCMT, unofficial model)
LOSE
USE IA HACA HASA IE CA NPAE AW AN TF TX
FIT
RETURN

PROC UKST  (UK Schmidt, official model)
LOSE
USE IH ID NP CH FO ME MA
FIT
RETURN

PROC KECK  (Keck, unofficial model)
LOSE
USE IA HACA2 HASA2 IE HZCA2 HZSA2 TF NPAE CA AN AW
FIT
FIT
RETURN

PROC MS74  (Mt Stromlo 74", unofficial model)
LOSE
USE IH ID NP CH ME MA TX DAF
FIT
RETURN

PROC ESO3.6    (ESO 3.6 metre, unofficial model)
LOSE
USE IH ID CH NP PXH1 PXH3 PXH5 PDH1 PDH2 PDH3 ME MA TF
FIT
RETURN

PROC CTIO4M    (CTIO 4 metre, unofficial model)
LOSE
USE IH ID CH NP PXH1D1 PXH1 PXH2 PXH5 D4HC D2DS ME MA CZ TF
FIT
RETURN

PROC E6   (6 favourite plots for an equatorial)
CAPT OFF
GCLR
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
CLRNG ON
CAPT ON
PLTZ
RETURN

PROC A9   (9 favourite plots for an altaz)
CAPT OFF
GCLR
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 W9   (9 favourite plots for an wavefronts)
CAPT OFF
GCLR
CLRNG OFF
PLTZ TL
G X H
PLTZ TC
G X D
PLTZ TR
G X Z
PLTZ CL
G D H
PLTZ CC
G D D
PLTZ CR
G D Z
PLTZ BL
G X Q
PLTZ BR
G D Q
CAPT ON
PLTZ BC
GMAP
CLRNG ON
PLTZ
RETURN

END