schedevr 0.1.0.3 → 0.1.0.4

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

schedevr.cabal +1/−1
src/prog_graph/WatchEVR.hs +1/−1
src/prog_graph/mkGraph.hs +2/−1

schedevr.cabal view

@@ -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

src/prog_graph/WatchEVR.hs view

@@ -1,6 +1,6 @@ module WatchEVR ( 	idPoint', dayId, accumSecond, dayPoint, getConverter, progPercent,-	waku, chart, fontsize+	waku, chart, fontsize, getPoint ) where  import Graphics.X11.Turtle

src/prog_graph/mkGraph.hs view

@@ -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