graph-rewriting-lambdascope 0.4.5 → 0.4.6

raw patch · 2 files changed

+11/−12 lines, 2 filesdep ~graph-rewriting-gl

Dependency ranges changed: graph-rewriting-gl

Files

• Main.hs +9/−10
• graph-rewriting-lambdascope.cabal +2/−2

@@ -31,16 +31,15 @@ 	let graph = execGraph (apply $ exhaustive compileShare) (wrapGraph hypergraph) 	UI.run 40 id layoutStep graph ruleTree -layoutStep = do-	withNodes $ \n → do-		(cgf, cf, sf, rot) ← readOnly $ do-			cgf ← centralGravitation n-			cf ← coulombForce n-			sf ← springForce 1.5 n-			rot ← angularMomentum n-			return (cgf, cf, sf, rot)-		Unsafe.adjustNode (Position . sf (*0.9) . cgf (*0.01) . cf (\x → min (100/(x^2+0.1)) 10) . position) n-		Unsafe.adjustNode (rot (*0.9)) n+layoutStep n = do+	(cgf, cf, sf, rot) ← readOnly $ do+		cgf ← centralGravitation n+		cf ← coulombForce n+		sf ← springForce 1.5 n+		rot ← angularMomentum n+		return (cgf, cf, sf, rot)+	Unsafe.adjustNode (Position . sf (*0.9) . cgf (*0.01) . cf (\x → min (100/(x^2+0.1)) 10) . position) n+	Unsafe.adjustNode (rot (*0.9)) n  ruleTree = Branch "All" 	[Branch "All but Beta"

@@ -1,5 +1,5 @@ Name:           graph-rewriting-lambdascope-Version:        0.4.5+Version:        0.4.6 Copyright:      (c) 2010, Jan Rochel License:        BSD3 License-File:	LICENSE@@ -21,7 +21,7 @@ 	base-unicode-symbols >= 0.2 && < 0.3, 	graph-rewriting >= 0.4.4 && < 0.5, 	graph-rewriting-layout >= 0.4.1 && < 0.5,-	graph-rewriting-gl >= 0.5 && < 0.6,+	graph-rewriting-gl >= 0.6 && < 0.7, 	parsec >= 2.1 && < 2.2, 	GLUT >= 2.2 && < 2.3, 	OpenGL >= 2.4 && < 2.5,