From 2e07689ceadaea1853c1228d14346853223be942 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 29 Sep 2007 21:12:38 +0200 Subject: some renaming of classes and data types. darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz --- Spiral.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Spiral.hs') diff --git a/Spiral.hs b/Spiral.hs index ae52428..510d59e 100644 --- a/Spiral.hs +++ b/Spiral.hs @@ -55,11 +55,11 @@ blend scale ratios = zipWith (+) ratios scaleFactors step = (scale - (1 % 1)) / (fromIntegral len) scaleFactors = map (* step) . reverse . take len $ [0..] -spiral :: Rational -> Layout a +spiral :: Rational -> LayoutClass a spiral = spiralWithDir East CW -spiralWithDir :: Direction -> Rotation -> Rational -> Layout a -spiralWithDir dir rot scale = Layout { doLayout = l2lModDo fibLayout, +spiralWithDir :: Direction -> Rotation -> Rational -> LayoutClass a +spiralWithDir dir rot scale = LayoutClass { doLayout = l2lModDo fibLayout, modifyLayout = \m -> return $ fmap resize $ fromMessage m } where fibLayout sc ws = zip ws rects -- cgit v1.2.3