<%args>
$imgtype => 'png'
$x => 'a'
$xrange => 10
$showneos => 1
</%args>

<%init>
use File::Slurp;
use File::Temp qw/tempfile/;
my %typemap = (
    epsc => 'application/postscript',
    eps => 'application/postscript',
    png => 'image/png',
);

die "bogus image type: $imgtype" unless exists($typemap{$imgtype});
$r->content_type($typemap{$imgtype});
my $model = $m->notes('MODEL');

my $showneos_str = $showneos ? '--showneos' : '';

my $xrange_str = $xrange ? "--xrange $xrange" : '';
my $title = "MOPS SSM ($model) Derived Orbits";
my $stuff = join '', `catOrbits --instance $model --format=MITI --derived --show_ssm_type | orbplot $showneos_str --show_ssm_type --x $x $xrange_str --terminal $imgtype| gnuplot | pngtopnm | pnmscale --xysize 800 600 | pnmtopng`;
$m->clear_buffer;
$m->print($stuff);
$m->abort;
</%init>
