Ticket #4131: Main.hs

{-# LANGUAGE PatternGuards #-}

import System.Environment
import Data.Function
import qualified Data.Vector.Unboxed    as V
import Data.Vector.Unboxed              (Vector)
import Control.Monad
import System.IO

import QuickHull
import TestData


main :: IO ()
main
 = do   [strPoints]     <- getArgs
        let numPoints   = read strPoints

        putStr "Generating test data.\n"
        let vPoints     = genPointsDisc numPoints (400, 400) 350 

        -- Force points to create the input vector.
        V.force vPoints `seq` return ()

        -- Compute the convex hull.
        putStr "Computing hull.\n"
        hFlush stdout
        vHull           <- quickHull vPoints
        V.force vHull `seq` return ()
        putStr "Done\n"