% WIYNQ.STY -- WIYN queue observing program form

% First, identifying information about this style file.

\def\revtex@ver{1.5}		% Version number of this file.
\def\revtex@date{21 Jul 95}	% Revision date.
\def\revtex@org{KPNO}		% Sponsoring organization.
\def\revtex@jnl{WIYN}		% Applicable journal, if specific.
\def\revtex@genre{queue obs prog form}	% Document "type".

\typeout{\revtex@org\space
    \ifx\revtex@jnl\@empty\else\revtex@jnl\space\fi
    \revtex@genre\space substyle, v\revtex@ver\space <\revtex@date>.}

\def\revtex@pageid{\xdef\@thefnmark{\null}
    \@footnotetext{\revtex@org\space \revtex@jnl\space
    \revtex@genre\space \LaTeX\ macros v\revtex@ver.}}

\@input{art11.sty}
%\@input{times.sty}

% Initialization.

%\textwidth 6.5in
%\textheight 8.9in
\textwidth 8.9in
\textheight 6.5in
\oddsidemargin \z@
\evensidemargin \z@
\topmargin \z@
\headheight \z@
\headsep \z@
\footheight \z@
\parindent \z@
\parskip 1ex

\ps@empty
\setcounter{secnumdepth}{0}

% Proposal ID and receipt date will be filled in at KPNO.
%
%    \proposalid{NUMBER}
%    \received{DATE}

\def\prop@head{WIYN Queue Observing Form (Revised) -- Fall 1995}

\newdimen\propidboxwidth \propidboxwidth\textwidth
\advance\propidboxwidth by-2.3\fboxsep

\def\received#1{\gdef\@rcptdate{#1}} \received{\today}
\def\proposalid#1{\gdef\@propid{#1}} \proposalid{Q00000}

% Below is the markup that the observing team needs to supply.
% Instructions for filling in the form using these commands are in
% a template proposal form file as LaTeX comments.
%
%    \title{TEXT}

\def\title#1{\begin{center}\bf\prop@head\end{center}
    \fbox{\hbox to\propidboxwidth{{\it Date received:\/} \@rcptdate\hfil
	{\it Proposal number:\/} \@propid}}
    \par\vskip.25in{\bf TITLE:} #1}

% Observer identification.  These items are buffered so that they can be
% specified in any order, subject only to the restriction that the observer
% name be given first.  The same commands are used to identify the PI as
% well as the co-investigators; the formatting is controlled separately,
% and differences arise in the use of LaTeX environments, below.
%
% Each member of the observing team is identified with several bits of
% information.
%
%    \name{OBSERVER NAME}
%    \affil{AFFILIATION}
%    \email{EMAIL ADDRESS}
%    \phone{TELEPHONE NUMBER}
%    \fax{FAX NUMBER}

\def\name#1{\gdef\obs@name{#1}\@gobblecr}
\def\affil#1{\gdef\obs@affil{#1}\@gobblecr}
\def\email#1{\gdef\obs@email{#1}\@gobblecr}
\def\phone#1{\gdef\obs@phone{#1}\@gobblecr}
\def\fax#1{\gdef\obs@fax{#1}\@gobblecr}

\def\clear@obs{\name{}}

% Formatting of PI and CO-I data are controlled by the next two macros.

\def\prt@piblock{\begin{quote}\begin{tabular}{ll}
    \bf Principal Investigator: \fld@dlm \obs@name\\
    \bf Institution: \fld@dlm \obs@affil\\
    \bf Email: \fld@dlm \obs@email\\
    \bf Telephone: \fld@dlm \obs@phone\\
    \bf Fax: \fld@dlm \obs@fax\\
    \end{tabular}\end{quote}}

\def\prt@coiblock{\obs@name\fld@dlm\obs@affil\\
    \quad\obs@email\fld@dlm\fld@dlm\obs@phone\fld@dlm Fax: \obs@fax\\[.6ex]}

% Principal investigator and co-investigator environments.
%
%    \begin{prinv}
%    \end{prinv}
%
%    \begin{coinv}
%    \end{coinv}

\newenvironment{princinv}{\clear@obs\def\fld@dlm{&}}%
    {\prt@piblock}

\newenvironment{coinv}{\clear@obs\def\fld@dlm{\>}\let\pi@name=\name%
    \def\name##1{\ifx\obs@name\@empty\relax\else\prt@coiblock\fi\pi@name{##1}}%
    \subsection{Co-investigator(s):}%
    \begin{tabbing}\makebox[.15\textwidth]{\null}\=%
    \makebox[.15\textwidth]{\null}\=\makebox[.15\textwidth]{\null}\=\kill}%
    {\ifx\obs@name\@empty\relax\else\prt@coiblock\fi\end{tabbing}}

% The the proposed observing program are
% typeset (printed) as they are specified by the author.  Specific
% observations are tabulated in "observation" environments.
%
%    \program

\newif\if@firstcoi \@firstcoitrue

\def\program{\subsection{Observing Program}}

% Observation environment.
%
%    \begin{observation}{INSTRUMENT ID}
%    \end{observation}

\def\obs@head{Observations for the \@nameuse{instrname@\@instrid}}

\newenvironment{observation}[1]{\def\@instrid{#1}\def\obs@list{}}%
    {\begin{center}\small\bf\obs@head\\[1.2ex]%
    \footnotesize\tabcolsep2\p@%
    \begin{tabular}{\@nameuse{pream@\@instrid}}%
    \@nameuse{obshead@\@instrid}\\\hline\\[-1.8ex]%
    \obs@list\end{tabular}\end{center}}

% Observing parameters.  Not all of these are needed for each instrument 
% combination.
%
%    \objid{OBJECT ID}
%    \object{OBJECT NAME}
%    \ra{RIGHT ASCENSION}
%    \dec{DECLINATION}
%    \epoch{COORDINATE EPOCH}
%    \filter{FILTER}
%    \exptime{EXPOSURE TIME}
%    \nexposures{NUMBER OF EXPOSURES}
%    \grating{GRATING}
%    \order{GRATING ORDER}
%    \camera{SPECTROGRAPH CAMERA}
%    \cable{FIBER CABLE}
%    \wstart{STARTING WAVELENGTH}
%    \wend{ENDING WAVELENGTH}
%    \lunarphase{LUNAR PHASE}
%    \skycond{SKY CONDITION}
%    \diq{DELIVERED IMAGE QUALITY}
%    \xref{CROSS-REFERENCE}
%    \obscomment{COMMENT}

\def\obsblock@add{
    \ifx\obs@list\@empty
          \@temptokena=\expandafter{\obs@list}
    \else \@temptokena=\expandafter{\obs@list\\}\fi
    \xdef\obs@list{\the\@temptokena\@nameuse{obsblock@\@instrid}}}

\def\objid#1{\gdef\obs@objid{#1}}
\def\object#1{\gdef\obs@object{#1}}
\def\ra#1{\gdef\obs@ra{#1}}
\def\dec#1{\gdef\obs@dec{#1}}
\def\epoch#1{\gdef\obs@epoch{#1}}
\def\filter#1{\gdef\obs@filter{#1}}
\def\cable#1{\gdef\obs@cable{#1}}
\def\camera#1{\gdef\obs@camera{#1}}
\def\exptime#1{\gdef\obs@exptime{#1}}
\def\nexposures#1{\gdef\obs@nexposures{#1}}
\def\grating#1{\gdef\obs@grating{#1}}
\def\order#1{\gdef\obs@order{#1}}
\def\wstart#1{\gdef\obs@wstart{#1}}
\def\wend#1{\gdef\obs@wend{#1}}
\def\lunarphase#1{\gdef\obs@lunarphase{#1}}
\def\skycond#1{\gdef\obs@skycond{#1}}
\def\diq#1{\gdef\obs@diq{#1}}
\def\xref#1{\gdef\obs@xref{#1}}
\def\obscomment#1{\gdef\obs@obscomment{#1}\obsblock@add}

\def\instrname@imager{CCD Imager}
\def\pream@imager{llcclcccclcll}

\def\obshead@imager{
{\shortstack{Obj\\ID}} & {Object} & {$\alpha$} & {$\delta$} & {Epoch} &
{Filter} & {\shortstack{Exp.\\time}} &
{\shortstack{\# of\\exp.}} &
{\shortstack{Lunar\\phase}} & {Sky} & {DIQ} & {Xref} & {Comment}
}

\def\obsblock@imager{
\obs@objid & \obs@object & \obs@ra & \obs@dec & \obs@epoch &
\obs@filter & \obs@exptime & \obs@nexposures &
\obs@lunarphase & \obs@skycond & \obs@diq & \obs@xref & \obs@obscomment
}

\def\instrname@hydra{MOS/Hydra}
\def\pream@hydra{llcclcccccccccclcll}

\def\obshead@hydra{
{\shortstack{Obj\\ID}} & {Object} & {$\alpha$} & {$\delta$} & {Epoch} &
{Filter} & {Cable} & {Camera} & {\shortstack{Exp.\\time}} &
{\shortstack{\# of\\exp.}} &
{Grating} & {Order} & {$\lambda_{\rm start}$} & {$\lambda_{\rm end}$} &
{\shortstack{Lunar\\phase}} & {Sky} & {Xref} & {Comment}
}

\def\obsblock@hydra{
\obs@objid & \obs@object & \obs@ra & \obs@dec & \obs@epoch &
\obs@filter & \obs@cable & \obs@camera &
\obs@exptime & \obs@nexposures &
\obs@grating & \obs@order & \obs@wstart & \obs@wend &
\obs@lunarphase & \obs@skycond & \obs@xref & \obs@obscomment
}

% Conveniences.

\def\deg{\hbox{$^\circ$}}
\def\sun{\hbox{$\odot$}}
\def\earth{\hbox{$\oplus$}}

\let\ltx@enddoc=\enddocument
\def\enddocument{\revtex@pageid\ltx@enddoc}