% FILE proposal.include

% INCLUDE FILE FOR THE COMPILATION OF TIRGO OBSERVING PROPOSALS

% VERSION May 2003

% Copyright 1992 by Osservatorio Astrofisico di Arcetri

%

\magnification=\magstephalf

\hsize16truecm\vsize25truecm

\parindent=0pt\parskip=0pt

\nopagenumbers

\headline{\hbox{\vbox{\offinterlineskip\hrule

  \hbox to 14pt{\vrule height 10.0pt depth4.0pt\hss\folio\hss\vrule}

  \hrule}}\hss}



\font\bigrm=cmr17

\def\eol{\hfil\break}



% DEFINITIONS FOR REFERENCES

\def\iniref{\leftskip=\stdind\parindent=-\stdind}

\def\begref{\par\medskip\hskip\stdind{\bf References}\par\iniref}

\def\ref#1#2#3{#1, {\sl #2}, #3.\par}

\def\endref{\leftskip=0pt\parindent=0pt}



% DEFINITIONS FOR FRAMES

% Definition of standard dimensions:

% iedge: inner edge; oedge: outer edge;

% lthin: thin lines; lthick: thick lines;

% stdind: standard indentation

  \newdimen\iedge \iedge=9pt \newdimen\oedge \oedge=0pt

  \newdimen\lthin \lthin=.25pt \newdimen\lthick \lthick=1.75pt

  \newdimen\stdind \stdind=20pt

% Definition of other dimensions:

  \newdimen\wide \newdimen\high \newdimen\thick



% MACRO ORIGFRAME:

% #1(dimen):width; #2(dimen):height; #3(dimen):hoffset;

% #4(dimen):ithick; #5(dimen):othick; #6:contents.

\long\def\origframe#1#2#3#4#5#6{

\thick=#4 \advance\thick by #5

\advance\iedge by -#4 \advance\oedge by -#5

\wide=#1\advance\wide by-2\oedge

\hbox{\vbox to #2{\kern\oedge\hbox{\kern #3\kern\oedge\vbox{

\hrule width\wide height\thick

\advance\wide by -2\thick\advance\wide by -2\iedge

\hbox{\high=#2\advance\high by-2\oedge\advance\high by-2\thick

\vrule height\high width\thick\kern\iedge\vbox to \high{\hsize\wide

\kern\iedge\par #6\par\vss}\kern\iedge\vrule height\high width\thick}

\advance\wide by 2\thick\advance\wide by 2\iedge

\hrule width\wide height\thick}\kern\oedge}\vss}}\nointerlineskip

\advance\iedge by #4 \advance\oedge by #5

\wide=#1\high=#2 }

% MACRO THINFRAME

% #1(truecm):width; #2(truecm):height; #3(truecm):hoffset; #4:contents.

\long\def\thinframe#1#2#3#4{\origframe{#1truecm}{#2truecm}{#3truecm}

  {\lthin}{\lthin}{#4}}

% MACRO THICKFRAME

% #1(truecm):width; #2(truecm):height; #3(truecm):hoffset; #4:contents.

\long\def\thickframe#1#2#3#4{\origframe{#1truecm}{#2truecm}{#3truecm}

  {\lthick}{\lthin}{#4}}

% MACRO THINFRAMEB:

% #1(truecm):width; #2(truecm):height; #3(truecm):hoffset; #4:contents.

\long\def\thinframeb#1#2#3#4{\thinframe{#1}{#2}{#3}{#4}\vglue-#2truecm}

% MACRO THICKFRAMEB:

% #1(truecm):width; #2(truecm):height; #3(truecm):hoffset; #4:contents.

\long\def\thickframeb#1#2#3#4{\thickframe{#1}{#2}{#3}{#4}

  \vglue-#2truecm}

% MACRO THINFRAMEW:

% #1(truecm): height; #2: contents.

\long\def\thinframew#1#2{\origframe{\hsize}{#1truecm}{0pt} 

  {\lthin}{\lthin}{#2}}

% MACRO THICKFRAMEW:

% #1(truecm): height; #2: contents.

\long\def\thickframew#1#2{\origframe{\hsize}{#1truecm}{0pt} 

  {\lthick}{\lthin}{#2}}



% DEFINITIONS FOR FIELD NUMBERING

\newcount\fldnum \fldnum=1

\def\fld{\leavevmode\hbox to \stdind{\number\fldnum.

  \global\advance\fldnum by 1\hfil}}

\def\phantomfld{\leavevmode\hbox to \stdind{\strut\hfil}}

\long\def\head#1{{ \bf\fld \vtop{\advance\wide by -\stdind\hsize\wide

  #1}}\vskip4pt}

% DATE

\def\today{\ifcase\month\or

January\or February\or March\or April\or May\or June\or

July\or August\or September\or October\or November\or December\fi

\space\number\day, \number\year}



% NEW TOKENS

{\catcode`@=11    % use @ as a normal character

\def\newtoks{\alloc@5\toks\toksdef\@cclvi}

\outer\gdef\makenewtoks#1{\newtoks#1#1={ ????? }}}

\makenewtoks\EMPTY

\makenewtoks\YEAR

\makenewtoks\PERIOD

\makenewtoks\GUEST

\makenewtoks\SERVICE

\makenewtoks\PILOT

\makenewtoks\TARGET

\makenewtoks\APPLICANTS

\makenewtoks\TITLE

\makenewtoks\ABSTRACT

\makenewtoks\ARNICA

\makenewtoks\TIRCAM

\makenewtoks\OTHER

\makenewtoks\OTHERNAME

\makenewtoks\CHOICE

\makenewtoks\DARK

\makenewtoks\PREVNIGHTS

\makenewtoks\ADDRESSPI

\makenewtoks\TELEPHPI

\makenewtoks\EMAILPI

\makenewtoks\ADDRESS

\makenewtoks\TELEPH

\makenewtoks\EMAIL

% \makenewtoks\OBSERVER

% \makenewtoks\OBSEXPER

\makenewtoks\PREVRESULTS

\makenewtoks\PAPERS

\makenewtoks\RATIONALE

\makenewtoks\JUSTIFICATION

\makenewtoks\LIST

% \makenewtoks\REQUESTS

% \makenewtoks\REMARKS

% \makenewtoks\SODETAILS



\def\one{1}\def\two{2}\def\blank{}\def\XXX{X}

\def\period{{{\the\YEAR}}}

\def\deadline{{{Jun 15}}}

\def\theb#1{\ifx\tempty\blank\the #1\else\fi}

\def\ansbox#1{\kern2pt\lower2.0pt\hbox{\vbox{

  \offinterlineskip\hrule\hbox to 10pt{\vrule height 8.0pt depth2.0pt

  \hss{\edef\test{\theb{#1}}\ifx\test\blank\else{X}\fi}\hss\vrule}

  \hrule}}}

\def\condit#1#2#3{{\ifx\tempty\blank\edef\test{\the #1}\ifx\test\blank

  {#3}\else{#2}\fi\else\fi}}

\def\conditb#1#2#3{{\ifx\tempty\blank\edef\test{#1}\ifx\test\blank

  {#3}\else{#2}\fi\else{#2}\fi}}

\def\conditc#1#2#3{{\ifx\tempty\blank\edef\test{#1}\ifx\test\blank

  {#3}\else{#2}\fi\else\fi}}

\def\other{{\edef\test{\theb{\OTHER}}\ifx\test\blank

  \else(\the\OTHERNAME)\fi}}



% TEST IF EMPTY

\def\testempty{\xdef\tempty{\the\EMPTY}\ifx\tempty\XXX\else

  \xdef\tempty{\blank}\fi}

% TEST IF GUEST OR PILOT PROGRAMME

% \def\testwhen{{\edef\test{\the\GUEST}\edef\testb{\the\PILOT}

  % \ifx\test\XXX\xdef\when{\XXX}\else

  % \ifx\testb\XXX\xdef\when{\XXX}\else\xdef\when{\blank}\fi\fi}}

% FIRST PAGE

\def\firstpage{

\centerline{\bigrm T.I.R.GO. --- Telescopio InfraRosso del GOrnergrat}

\smallskip

\centerline{\vrule width 8truecm height 0.4pt}

\medskip

\centerline{\bigrm Centro per l'Astronomia Infrarossa}

\centerline{\bigrm e lo Studio del Mezzo Interstellare}

\vskip0.7truecm

APPLICATION FOR OBSERVING TIME, PERIOD \period \hfill DEADLINE: \deadline\par

\smallskip

% \vfill

\thinframeb{9.3}{0.9}{0}{{\bf GUEST OBSERVER PROGRAMME.}

  \hfill\ansbox{\GUEST}}

\thinframe{6.7}{0.9}{9.3}{{\bf SERVICE OBSERVING.}

  \hfill\ansbox{\SERVICE}}

\thinframeb{6.7}{0.9}{0}{{\bf PILOT PROGRAMME.}

  \hfill\ansbox{\PILOT}}

\thinframe{9.3}{0.9}{6.7}{{\bf TARGET OF OPPORTUNITY.}

  \hfill\ansbox{\TARGET}}

\thinframew{1.6}{\head{Name(s) of applicant(s):}

  \theb{\APPLICANTS}}

\thickframew{1.6}{\head{Title:}

  \theb{\TITLE}}

\thinframew{6.2}{\head{Abstract:}

  \theb{\ABSTRACT}}

\thickframeb{9.3}{4.0}{0}{\head{Instruments and requested nights:}

{

  \vbox{ \halign{##\hfil&\quad##\hfil&

  \quad\hfil\hbox to 2truecm{\hss ##}\cr

  \ansbox{\ARNICA}&Near-IR Camera ARNICA:&

  \condit{\ARNICA}{\the\ARNICA\ nights}{}\cr

  \ansbox{\TIRCAM}  &Mid-IR camera TIRCAM2:&

  \condit{\TIRCAM}  {\the\TIRCAM\ nights}{}\cr

  \ansbox{\OTHER} &Other:\quad\other&

  \condit{\OTHER} {\the\OTHER\ nights}{}\cr}}

  }\par}

\thinframe{6.7}{1.6}{9.3}{\head{Choices observing period:}

     {\the \CHOICE}}

\thinframe{6.7}{0.9}{9.3}{\head{Is dark time needed?{\rm\quad

  \condit{\DARK}{YES}{NO}}}}

\thinframe{6.7}{1.5}{9.3}{\head{Nights already awarded:}

  \hbox to \hsize{\hss\theb{\PREVNIGHTS}\hss}}

\thickframeb{8}{6.0}{0}{\head{Principal Investigator's name and

  complete address:}\vskip3pt\hbox to \hsize{\vbox to

  2.3truecm{\parskip=0pt\hsize\wide\theb{\ADDRESSPI}\par\ \vfil}}

  {\bf\phantomfld Telephone number:}\par\phantomfld\theb{\TELEPHPI}\par

  {\bf\phantomfld E-Mail address:}\par\phantomfld

  {\tt \catcode`@=12\def\@{\char'100}\theb{\EMAILPI}}}

\thinframe{8}{6.0}{8}{\head{Person to contact\par(if different from the

  P.I.):}\vskip3pt\hbox to \hsize{\vbox to

  2.3truecm{\parskip=0pt\hsize\wide\theb{\ADDRESS}\par\ \vfil}}

  {\bf\phantomfld Telephone number:}\par\phantomfld\theb{\TELEPH}\par

  {\bf\phantomfld E-Mail address:}\par\phantomfld

  {\tt \catcode`@=12\def\@{\char'100}\theb{\EMAIL}}}

\eject}

\def\secondpage{

\thinframew{25}{\head{Scientific rationale and immediate objective of

  the proposal (max one page). \par

  }\theb{\RATIONALE}}

\vfill\eject}

% FOURTH PAGE

\def\thirdpage{

\thinframew{7}{\head{Papers of the applicant(s) relevant to the

  subject.\par }

  \iniref\theb{\PAPERS}\endref}

\thinframew{10}{\head{Detailed justification of the requested number of

  observing nights\condit{\DARK}{ and of the requirement of dark

  time:}{:}}\theb{\JUSTIFICATION}}

\thinframew{7}{\head{Report of recent observations at TIRGO

  (status of data reduction and publications):

 }\theb{\PREVRESULTS}}

\vfill\eject}

% FIFTH PAGE

\def\fourthpage{

\thinframew{25}{\head{List of objects, their positions, and relevant

  parameters. For Service Observing programmes the list MUST follow the

  priority order.}\vskip3pt

  \vbox{\halign{##\hfil\quad&\hfil$##^h$&\hfil$##^m$& 

  \hfil$##^s$\quad&\hfil$##^\circ$&\hfil$##'$&\hfil$##''$\quad&

  \hfil(##)\quad&\hfil##\quad&\hfil##\quad&##\hfill\cr

  IDENT.&\multispan3\hfil Right Asc.\hfil\quad&\multispan3\hfil Decl.

  \hfil\quad&\omit\hfil Epoch\quad&Mag.&\omit\hfil Filter&\quad

  Comments\cr \noalign{\vskip3pt}\theb{\LIST}}}\hss}

\vfill\eject}

% SIXTH PAGE

% \def\sixthpage{

% \thinframew{15}{\head{Special requirements of assistance and/or

%   material.

% \par 

% As a standard rule, the presence of a staff member will

% be always assured, while a night assistant will be provided only to

% unexperienced observers. Liquid nitrogen will be available, while

% liquid helium can be provided only upon request. Investigators using

% private equipment should indicate the instrument weight and volume,

% and which interface is needed.\par

% Observers are STRONGLY RECOMMENDED to bring from their home

% institutions floppy disks ALREADY FORMATTED.

%   }\theb{\REQUESTS}}

% \thinframew{10}{\head{Special remarks:}\theb{\REMARKS}}

% \vfill\eject}

% SIXTH PAGE

% \def\seventhpage{

% \ifx\tempty\blank\else\xdef\tempty{}\SERVICE={X}\SODETAILS={}\fi

% \condit{\SERVICE}{

% \thinframew{25}{\head{Detailed descriptions of the required

%   observations for the Service Observing astronomer. Finding charts

%   must be sent separately.}\theb{\SODETAILS}}

% \hfill\eject}{}}

%

%