diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
commit | 30fdf02aff2ac1c4da2bb9292fc08cc8330580d0 (patch) | |
tree | 82b062214626c20922959c82581decb3df2ba5ec /lib/Graphics | |
parent | 48139eb50c9052406839ee8375e378374e973207 (diff) |
removed many -Wall warnings
Diffstat (limited to 'lib/Graphics')
-rw-r--r-- | lib/Graphics/Plot.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/Graphics/Plot.hs b/lib/Graphics/Plot.hs index c763294..d2c96a6 100644 --- a/lib/Graphics/Plot.hs +++ b/lib/Graphics/Plot.hs | |||
@@ -32,8 +32,6 @@ import Numeric.LinearAlgebra.Linear(outer) | |||
32 | import Numeric.GSL.Vector(FunCodeS(Max,Min),toScalarR) | 32 | import Numeric.GSL.Vector(FunCodeS(Max,Min),toScalarR) |
33 | import Data.List(intersperse) | 33 | import Data.List(intersperse) |
34 | import System | 34 | import System |
35 | import Data.IORef | ||
36 | import System.Exit | ||
37 | import Foreign hiding (rotate) | 35 | import Foreign hiding (rotate) |
38 | 36 | ||
39 | 37 | ||
@@ -107,10 +105,7 @@ mplot m = gnuplotX (commands++dats) where | |||
107 | dats = concat (replicate (length m-1) dat) | 105 | dats = concat (replicate (length m-1) dat) |
108 | 106 | ||
109 | 107 | ||
110 | 108 | {- | |
111 | |||
112 | |||
113 | |||
114 | mplot' m = do | 109 | mplot' m = do |
115 | writeFile "plot-gnu-command" (commands++endcmd) | 110 | writeFile "plot-gnu-command" (commands++endcmd) |
116 | toFile "plot-tmp.txt" (fromColumns m) | 111 | toFile "plot-tmp.txt" (fromColumns m) |
@@ -125,6 +120,7 @@ mplot' m = do | |||
125 | plots = concat $ intersperse ", " (map cmd [2 .. length m]) | 120 | plots = concat $ intersperse ", " (map cmd [2 .. length m]) |
126 | cmd k = "\"plot-tmp.txt\" using 1:"++show k++" with lines" | 121 | cmd k = "\"plot-tmp.txt\" using 1:"++show k++" with lines" |
127 | endcmd = "pause -1" | 122 | endcmd = "pause -1" |
123 | -} | ||
128 | 124 | ||
129 | -- apply several functions to one object | 125 | -- apply several functions to one object |
130 | mapf fs x = map ($ x) fs | 126 | mapf fs x = map ($ x) fs |