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.3
+version:             0.1.0.4
 synopsis:            Marge schedules and show EVR
 -- description:         
 license:             BSD3
diff --git a/src/prog_graph/WatchEVR.hs b/src/prog_graph/WatchEVR.hs
--- a/src/prog_graph/WatchEVR.hs
+++ b/src/prog_graph/WatchEVR.hs
@@ -1,6 +1,6 @@
 module WatchEVR (
 	idPoint', dayId, accumSecond, dayPoint, getConverter, progPercent,
-	waku, chart, fontsize
+	waku, chart, fontsize, getPoint
 ) where
 
 import Graphics.X11.Turtle
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
@@ -70,7 +70,8 @@
 	chart t "black" cnv (50, 100) (400, 200) dip
 	speed t "fastest"
 	goto t 200 100
-	write t "Kochi Gothic" fontsize $ take 4 (show pc) ++ "%"
+	write t "Kochi Gothic" fontsize $ take 4 (show pc) ++ "% (" ++
+		show (getPoint dip) ++ "/" ++ show (getPoint di) ++ ")"
 	hideturtle t
 	onkeypress f $ return . (/= 'q')
 	waitField f