mirror of
https://github.com/codedownio/haskell-plot.git
synced 2025-04-16 03:16:23 +00:00
92 lines
3.8 KiB
Haskell
92 lines
3.8 KiB
Haskell
{-# LANGUAGE OverlappingInstances #-}
|
|
-- thanks to http://www.muitovar.com/gtk2hs/app1.html
|
|
|
|
--module Test where
|
|
|
|
import Control.Concurrent
|
|
import Control.Concurrent.MVar
|
|
|
|
import Control.Monad.Trans
|
|
|
|
import Graphics.UI.Gtk hiding(Circle,Cross)
|
|
import qualified Graphics.Rendering.Cairo as C
|
|
import qualified Graphics.Rendering.Pango as P
|
|
|
|
import Data.Colour.Names
|
|
|
|
import Data.Packed.Vector
|
|
--import Data.Packed.Random
|
|
import Data.Packed()
|
|
|
|
import qualified Data.Array.IArray as A
|
|
|
|
import Numeric.LinearAlgebra
|
|
--import Numeric.LinearAlgebra.Instances
|
|
--import Numeric.LinearAlgebra.Interface
|
|
|
|
import Numeric.GSL.Statistics
|
|
|
|
import Graphics.Rendering.Plot
|
|
|
|
import Debug.Trace
|
|
|
|
ln = 25
|
|
ts = linspace ln (0,1)
|
|
rs = ln |> take ln [0.306399512330476,-0.4243863460546792,-0.20454667402138094,-0.42873761654774106,1.3054721019673694,0.6474765138733175,1.1942346875362946,-1.7404737823144103,0.2607101951530985,-0.26782584645524893,-0.31403631431884504,3.365508546473985e-2,0.6147856889630383,-1.191723225061435,-1.9933460981205509,0.6015225906539229,0.6394073044477114,-0.6030919788928317,0.1832742199706381,0.35532918011648473,0.1982646055874545,1.7928383756822786,-9.992760294442601e-2,-1.401166614128362,-1.1088031929569364,-0.827319908453775,1.0406363628775428,-0.3070345979284644,0.6781735212645198,-0.8431706723519456,-0.4245730055085966,-0.6503687925251668,-1.4775567962221399,0.5587634921497298,-0.6481020127107823,7.313441602898768e-2,0.573580543636529,-0.9036472376122673,2.650805059813826,9.329324044673039e-2,1.9133487025468563,-1.5366337588254542,-1.0159359710920388,7.95982933517428e-2,0.5813673663649735,-6.93329631989878e-2,1.1024137719307867,-0.6046286796589855,-0.8812842030098401,1.4612246471009083,0.9584060744500491,9.210899579679932e-2,-0.15850413664405813,-0.4754694827227343,0.8669922262489788,0.4593351854708853,-0.2015350278936992,0.8829710664887649,0.7195048491420026]
|
|
|
|
ss = sin (15*2*pi*ts)
|
|
ds = 0.25*rs + ss
|
|
es = constant (0.25*(stddev rs)) ln
|
|
|
|
fs :: Double -> Double
|
|
fs = sin . (15*2*pi*)
|
|
|
|
figure = do
|
|
withTextDefaults $ setFontFamily "OpenSymbol"
|
|
withTitle $ setText "Testing plot package:"
|
|
withSubTitle $ do
|
|
setText "with 1 second of a 15Hz sine wave"
|
|
setFontSize 10
|
|
setPlots 1 1
|
|
withPlot (1,1) $ do
|
|
setDataset (ts,[point (ds,es) (Cross,red),line fs blue])
|
|
addAxis XAxis (Side Lower) $ withAxisLabel $ setText "time (s)"
|
|
addAxis YAxis (Side Lower) $ withAxisLabel $ setText "amplitude"
|
|
addAxis XAxis (Value 0) $ return ()
|
|
setRangeFromData XAxis Lower Linear
|
|
setRange YAxis Lower Linear (-1.25) 1.25
|
|
|
|
display :: ((Int,Int) -> C.Render ()) -> IO ()
|
|
display r = do
|
|
initGUI -- is start
|
|
|
|
window <- windowNew
|
|
set window [ windowTitle := "Cairo test window"
|
|
, windowDefaultWidth := 400
|
|
, windowDefaultHeight := 300
|
|
, containerBorderWidth := 1
|
|
]
|
|
|
|
-- canvas <- pixbufNew ColorspaceRgb True 8 300 200
|
|
-- containerAdd window canvas
|
|
frame <- frameNew
|
|
containerAdd window frame
|
|
canvas <- drawingAreaNew
|
|
containerAdd frame canvas
|
|
widgetModifyBg canvas StateNormal (Color 65535 65535 65535)
|
|
|
|
widgetShowAll window
|
|
|
|
on canvas exposeEvent $ tryEvent $ do s <- liftIO $ widgetGetSize canvas
|
|
drw <- liftIO $ widgetGetDrawWindow canvas
|
|
--dat <- liftIO $ takeMVar d
|
|
--liftIO $ renderWithDrawable drw (circle 50 10)
|
|
liftIO $ renderWithDrawable drw (r s)
|
|
|
|
onDestroy window mainQuit
|
|
mainGUI
|
|
|
|
|
|
main = display $ render figure
|
|
|
|
test = writeFigure PNG "perturbed-sine.png" (400,400) figure |