#!/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);