[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / real / fulsom / Bah.hs
1 {-
2 - Fulsom (The Solid Modeller, written in Haskell)
3 -
4 - Copyright 1990,1991,1992,1993 Duncan Sinclair
5 -
6 - Permissiom to use, copy, modify, and distribute this software for any
7 - purpose and without fee is hereby granted, provided that the above
8 - copyright notice and this permission notice appear in all copies, and
9 - that my name not be used in advertising or publicity pertaining to this
10 - software without specific, written prior permission. I makes no
11 - representations about the suitability of this software for any purpose.
12 - It is provided ``as is'' without express or implied warranty.
13 -
14 - Duncan Sinclair 1993.
15 -
16 - Test main module.
17 -
18 -}
19
20 module Main(main,blah) where
21
22 import Shapes
23 import Raster
24 import Quad
25 import Oct
26 import Csg
27 import Interval
28 import Types
29 import Vector
30 import Kolor
31 import Matrix
32
33 -- This is a test module
34
35 main = print blah
36
37 -- blah = go 5 plane -- do a profile plot on this...
38 -- blah = go 5 (Geom g (RotY 0.1))
39 -- blah = go 7 pic
40 -- blah = go 7 rotxyz
41 blah = gone 9 pic
42 -- blah = gone 8 (Colour pink sphere)
43
44 go :: Int -> Csg -> [Char]
45 go n = (draw n) . quadoct . (octcsg n)
46
47 gone :: Int -> Csg -> [Char]
48 gone n = (cdraw n) . quadoct . (octcsg n)
49
50
51