prune dead code
[ruff:gruff.git] / TODO
1 make colour gui reflect image settings
2
3
4 {- -- finding external angles and address of an island
5                   root = findBond p c0 0
6                   cusp = c0 + 2 * (root - c0)
7                   iter !k !zz !cc
8                     | magnitude2 zz > er2 = k
9                     | k > maxIters = maxIters
10                     | otherwise = iter (k + 1) (zz * zz + cc) cc
11                   m = sharpness * iter 0 0 cusp
12                   er = 2 ** 24
13                   er2 = er * er
14                   sharpness = 8
15                   maxIters = 10000
16                   rs = externalRayOut maxIters (2**(-200)) sharpness er cusp
17                   go [(_, c)] = return c
18                   go ((n, _):xs) = do
19                     progress $ "Computing external angle of cusp... (" ++ show n ++ "/" ++ show m ++ ") (period " ++ show p ++ ")"
20                     go xs
21               c1 <- go $ [(0::Int)..] `zip` rs
22               let af0 = phase c1 / (2 * pi)
23                   af = af0 - fromIntegral (floor af0 :: Int)
24                   d = 2 ^ p - 1
25                   af' = af * fromInteger d
26                   ai = round af'
27                   ar = ai % d
28                   err = af - fromRational ar
29               print (ar, err)
30               if (magnitude2 c1 > er2)
31                 then do
32                   progress $ "Computing angled internal address..."
33                   case angledInternalAddress ar of
34                     Just aia -> return g1{ gAddress = Just aia }
35                     _ -> return g1
36                 else return g1
37 -}