# usage:  polymake --script z_script FILE

application 'polytope';

# input polytope file
my $p=load($ARGV[0]);

# zonotope defined from the vertices of $p
my $z=new Apps::polytope::RationalPolytope(ZONOTOPE_INPUT_VECTORS => $p->VERTICES);

# just to make sure how the vertices of $z look alike: print them
print @{$z->VERTICES};

# the following is not strictly necessary (it forces a special convex hull algorithm),
# but usually it will cut down computation time
Modules::client('beneath_beyond', $z, 'VERTICES');

# visualize $z with some individually chosen colors
$z->VISUAL(VertexColor=>'white', FacetColor=>'blue', VertexLabels=>'hidden');