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.4
+version:             0.1.0.5
 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
@@ -13,6 +13,14 @@
 import System.Directory
 import System.FilePath
 
+import System.IO.Unsafe
+import System.Directory
+
+ratio :: Double
+ratio = unsafePerformIO $ do
+	ex <- doesFileExist "ratio"
+	if ex then read <$> readFile "ratio" else return 0
+
 evrItemsName, evrProgressName :: [FilePath]
 evrItemsName = [
 	"../test1/item_list",
@@ -59,18 +67,18 @@
 	t <- newTurtle f
 	speed t "fastest"
 	flushoff t
-	waku t (50, 100) (400, 200) di
-	goto t 50 300
+	waku t (50 * ratio, 100 * ratio) (400 * ratio, 200 * ratio) di
+	goto t (50 * ratio) (300 * ratio)
 	flushon t
 	speed t "slowest"
-	chart t "grey" cnv (50, 100) (400, 200) di
+	chart t "grey" cnv (50 * ratio, 100 * ratio) (400 * ratio, 200 * ratio) di
 	speed t "slow"
-	goto t 50 300
+	goto t (50 * ratio) (300 * ratio)
 	speed t "slowest"
-	chart t "black" cnv (50, 100) (400, 200) dip
+	chart t "black" cnv (50 * ratio, 100 * ratio) (400 * ratio, 200 * ratio) dip
 	speed t "fastest"
-	goto t 200 100
-	write t "Kochi Gothic" fontsize $ take 4 (show pc) ++ "% (" ++
+	goto t (200 * ratio) (100 * ratio)
+	write t "Kochi Gothic" (fontsize * ratio) $ take 4 (show pc) ++ "% (" ++
 		show (getPoint dip) ++ "/" ++ show (getPoint di) ++ ")"
 	hideturtle t
 	onkeypress f $ return . (/= 'q')