schedevr 0.1.0.4 → 0.1.0.5

raw patch · 2 files changed

+16/−8 lines, 2 files

Files

• schedevr.cabal +1/−1
• src/prog_graph/mkGraph.hs +15/−7

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

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