# -*- tcl -*-
# $Id: proposal,v 1.10 2000/08/04 12:04:48 tobotras Exp $

rename TitlePage {}

proc topOfTitlePage {} {
    return
}

proc TitlePage {} {
    global header TEItools_pdf_in_use
    if { [info exists TEItools_pdf_in_use] } {
	set suffix "pdf"
    } else {
	set suffix "eps"
    }
    
    set ret "[topOfTitlePage]
\\begin{flushright}
\\includegraphics\[height=4cm\]{jet_logo.$suffix}
\\end{flushright}

\\vfill
"
    
    set date [exec date +%Y]
    withNode doctree descendant element DOCDATE {
	set date "\\TEItoolsDate\{\}"
    }
    
    global titlePartCounter
    if { [info exist titlePartCounter] } {
	append ret "
\\begin{center}
\\noindent
\{\\huge\\textsf\{[localize cyr]\\textit{- }
\\\\\[1cm\]
    \\bf "
	
	for {set i 0} {$i <= $titlePartCounter} {incr i} {
	    append ret "[titlePartMacro $i]\{\}\\\\"
	}
	
	
	append ret "\}\}
\\end{center}
\\vfill
"
    }

    append ret "

\\vspace*{5cm}
\\begin{center}
\\large\\bf\\sf
"

    global authorPrefix_Counter
    if { [info exist authorPrefix_Counter] } {
	append ret [authorMacro 0]
    } else {
	append ret " "
    }

    append ret "\\\\
\\\\
$date
\\end{center}
\\thispagestyle{empty}
\\clearpage
"
}
