diff --git a/schedevr.cabal b/schedevr.cabal
--- a/schedevr.cabal
+++ b/schedevr.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                schedevr
-version:             0.1.0.5
+version:             0.1.0.6
 synopsis:            Marge schedules and show EVR
 -- description:         
 license:             BSD3
diff --git a/src/prog_graph/mkGraph.hs b/src/prog_graph/mkGraph.hs
--- a/src/prog_graph/mkGraph.hs
+++ b/src/prog_graph/mkGraph.hs
@@ -19,7 +19,7 @@
 ratio :: Double
 ratio = unsafePerformIO $ do
 	ex <- doesFileExist "ratio"
-	if ex then read <$> readFile "ratio" else return 0
+	if ex then read <$> readFile "ratio" else return 1
 
 evrItemsName, evrProgressName :: [FilePath]
 evrItemsName = [
@@ -60,7 +60,7 @@
 		esp = sortBy (on compare fst) $ map dayId $ lines espCnt
 		di = accumSecond (+) 0 $ dayPoint ei es
 		dip = accumSecond (+) 0 $ dayPoint ei esp
-		cnv = getConverter (50, 100) (400, 200) di
+		cnv = getConverter (50 * ratio, 100 * ratio) (400 * ratio, 200 * ratio) di
 		pc = progPercent dip di
 	f <- openField
 	topleft f