blob: d02da100cfbdba4c22b7b17a35b8e4fbfb489d0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module TestSundqvist where
import Data.Maybe
import Graphics.WaveFront
import Graphics.WaveFront.Load as Load
import System.Directory
import System.Environment
import System.IO
getDataDir :: IO FilePath
getDataDir = do
let tryDir d fallback = do
found <- doesDirectoryExist d
if found then return d else fallback
tryDir "./test-data" $ tryDir "../test-data" (return ".")
main = do
ddir <- getDataDir
fn <- fromMaybe (ddir ++ "/01.obj") . listToMaybe <$> getArgs
r1 <- Load.obj fn
either print (mapM_ print) r1
|