package evgen;
require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(output_header output_footer output_event
             output_event_header output_event_footer);

my $evno = 1;

sub output_event {
    my($px, $py, $pz, $x0, $y0, $z0, $type) = @_;
    print <<EOM;
        <product decayVertex="0" id="1" mech="0" parentid="0" pdgtype="0" type="$type">
          <momentum E="0" px="$px" py="$py" pz="$pz" />
        </product>
        <origin t="0" vx="$x0" vy="$y0" vz="$z0" />
EOM
}

sub output_event_header {
    print <<EOM;
  <physicsEvent eventNo="$evno" runNo="1">
    <reaction type="0" weight="0">
      <vertex>
EOM
$evno++;
}

sub output_event_footer {
    print <<EOM;
      </vertex>
    </reaction>
  </physicsEvent>
EOM
}

sub output_header {
    print <<EOM;
<?xml version="1.0" encoding="UTF-8"?>
<HDDM class="s" version="1.0" xmlns="http://www.gluex.org/hddm">
EOM
}

sub output_footer {
    print <<EOM;
</HDDM>
EOM
}