Maintainer | ch.howard@zoho.com |
---|---|

Safe Haskell | None |

Run an example function to view an image, or study the function source code for to see how the library can be used.

Please be aware that breaking API changes to the Example functions will not be tracked in library version numbering. It is recommended that you do not link to these functions from any production code.

- example2D :: IO ()
- examplePly :: IO ()
- examplePly2 :: IO ()

# Documentation

Generates an example random walk array and displays it as a 2-dimensional intensity graph

example2D :: IO() example2D = do putStrLn "Generating the graph. This may take a minute or two." a <- graph height width radius walkfactor seed iterations scalefactor startingpoint displayWindow (width, height) black "Mars" (toImage a (lightnessInt hue (minMax (elems a)))) where (width, height) = (300, 300) radius = 30 walkfactor = 30 seed = 54844 hue = 272 iterations = 300 scalefactor = 1 startingpoint = (0, -80)

examplePly :: IO ()Source

Generates a random walk array, converts it PLY ascii format, and output the PLY to a file called "out.ply".

examplePly :: IO () examplePly = do putStrLn "Generating the graph. This may take a minute or two." a <- graph height width radius walkfactor seed iterations scalefactor startingpoint writeFile "out.ply" $ (toPly . surface) a putStrLn "The file 'out.ply' has been created in the current \ \working directory." where (width, height) = (300, 300) radius = 30 walkfactor = 30 seed = 54844 iterations = 300 scalefactor = 1 startingpoint = (0, -80)

examplePly2 :: IO ()Source

Similar to examplePly2, but generates two graphs and merges them together.

examplePly2 :: IO () examplePly2 = do putStrLn "Generating two graphs and merging them. This may \ \take a few minutes." a1 <- graph height width radius walkfactor seed1 iterations scalefactor startingpoint1 a2 <- graph height width radius walkfactor seed2 iterations scalefactor startingpoint2 let a3 = meldGraphs a1 a2 let a4 = zRandomize 0.5 seed3 a3 writeFile "out2.ply" $ (toPly . surface) a4 putStrLn "The file 'out2.ply' has been created in the current \ \working directory." where (width, height) = (300, 300) radius = 30 walkfactor = 30 iterations = 200 scalefactor = 1 seed1 = 3939423948 startingpoint1 = (0, 0) seed2 = 34209809 startingpoint2 = (100, 100) seed3 = 87484853049