#!/usr/local/bin/perl
#
# [complex-hull.pl]
# Time-stamp: <31.01.1999, 22:01:35, mrz@isun24>

($NAME=$0)=~s|.*/||; # get basename from $0

unshift(@INC, ".");
require "complex-hull.pm";

@PM=&read_data();
$CN=&wrap($#PM, @PM);
&write_konvexhull_data($CN, @PM);