HROOT-0.6.6: example/datetime.hs

module Main where

import HROOT

import Control.Applicative

main = do 
  tcanvas <- newTCanvas "test" "test" 640 480
  
  t0 <- newTDatime 2002 1 1 0 0 0 
  x0 <- convert t0 0
  t1 <- newTDatime 2002 09 23 00 00 00 
  x1 <- (-) <$> convert t1 0 <*> return x0 
  t2 <- newTDatime 2003 03 07 00 00 00  
  x2 <- (-) <$> convert t2 0 <*> return x0 

  putStrLn $ show x0 
  putStrLn $ show x1
  putStrLn $ show x2 

  h1 <- newTH1F "test" "test" 100 (fromIntegral x1) (fromIntegral x2)

  xaxis <- tH1GetXaxis (upcastTH1 h1) 
  setTimeOffset xaxis (fromIntegral x0) "local"
  setTimeDisplay xaxis 1
  setTimeFormat xaxis "%Y/%m/%d"
 
  draw h1 ""   

  saveAs tcanvas "datetime.pdf" "" 

  delete h1
  delete tcanvas

  return ()