# -*- tcl -*-
# $Id: article,v 1.6 2000/06/06 08:21:13 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
"
    
    global titlePartCounter
    if { [info exist titlePartCounter] } {
	append ret "
\\begin{center}
\\noindent
\{\\huge\\bf "
	for {set i 0} {$i <= $titlePartCounter} {incr i} {
	    append ret "[titlePartMacro $i]\{\}\\\\"
	}
	append ret "\}
\\end{center}
\\vfill
"
    }

    set date [exec date +%Y]
    withNode doctree descendant element DOCDATE {
	set date "\\TEItoolsDate\{\}"
    }

    global authorPrefix_Counter
    if { [info exist authorPrefix_Counter] } {
	set theAuthor [authorMacro 0]
    } else {
	set theAuthor " "
    }

    return "$ret

\\vspace*{5cm}
\\begin{center}
\\large\\bf\\sf
${theAuthor}\\\\
\\\\
$date
\\end{center}
\\thispagestyle{empty}
\\clearpage
"
}
