add Galois' Ray Tracer
[nofib.git] / parallel / gray / Main.hs
1 -- Copyright (c) 2000 Galois Connections, Inc.
2 -- All rights reserved. This software is distributed as
3 -- free software under the license in the file "LICENSE",
4 -- which is included in the distribution.
5
6 -- Modified to read sample input directly from a file.
7
8 module Main where
9
10 import System
11 import System.IO
12
13 import Parse
14 import Eval
15
16 main = do { str <- readFile "galois.gml"
17 ; hSetBinaryMode stdout True
18 ; mainEval (rayParse str)
19 }