Jack/image-triangles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

run nix fmt

Browse source
This commit is contained in:
Jack Wines 2024-04-19 15:16:50 -07:00
parent 7f6a95d19f
commit d07628f184
No known key found for this signature in database
GPG key ID: 25B20640600571E6
4 changed files with 51 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

3
flake.nix
View file

@ -31,8 +31,7 @@
}; };
# Add your package overrides here # Add your package overrides here
settings = { settings = { };
};
# Development shell configuration # Development shell configuration
devShell = { devShell = {

48
src/Main.hs
View file

@ -1,44 +1,44 @@
module Main where module Main where
import Control.Arrow import Control.Arrow
import qualified Control.Monad as M import Control.Monad qualified as M
import qualified Control.Monad.Parallel as MP import Control.Monad.Parallel qualified as MP
import Control.Monad.Zip (MonadZip (mzipWith)) import Control.Monad.Zip (MonadZip (mzipWith))
import Control.Parallel.Strategies import Control.Parallel.Strategies
import qualified Data.Bifunctor as Bi import Data.Bifunctor qualified as Bi
import qualified Data.Colour as C import Data.Colour qualified as C
import qualified Data.Colour.Names as CN import Data.Colour.Names qualified as CN
import Data.Colour.RGBSpace (uncurryRGB) import Data.Colour.RGBSpace (uncurryRGB)
import qualified Data.Colour.SRGB as CL import Data.Colour.SRGB qualified as CL
import qualified Data.Colour.SRGB.Linear as CL import Data.Colour.SRGB.Linear qualified as CL
import Data.List import Data.List
import qualified Data.List as L import Data.List qualified as L
import qualified Data.Map as M import Data.Map qualified as M
import qualified Data.Massiv.Array as M import Data.Massiv.Array qualified as M
import qualified Data.Massiv.Array as Ma import Data.Massiv.Array qualified as Ma
import qualified Data.Massiv.Array.IO as M import Data.Massiv.Array.IO qualified as M
import qualified Data.Maybe as My import Data.Maybe qualified as My
import qualified Data.Set as S import Data.Set qualified as S
import qualified Data.Vector.Unboxed as Vec import Data.Vector.Unboxed qualified as Vec
import Debug.Trace import Debug.Trace
import qualified Debug.Trace as D import Debug.Trace qualified as D
import qualified Debug.Trace as DT import Debug.Trace qualified as DT
import qualified Debug.Trace as T import Debug.Trace qualified as T
import qualified Diagrams as DP import Diagrams qualified as DP
import Diagrams.Backend.SVG import Diagrams.Backend.SVG
import Diagrams.Backend.SVG.CmdLine import Diagrams.Backend.SVG.CmdLine
import Diagrams.Prelude import Diagrams.Prelude
import qualified Diagrams.Prelude as D import Diagrams.Prelude qualified as D
import GHC.Generics import GHC.Generics
import qualified Graphics.Color.Space as Co import Graphics.Color.Space qualified as Co
import qualified MinDistanceSample as MDS import MinDistanceSample qualified as MDS
import Options.Generic import Options.Generic
import qualified System.Environment as Env import System.Environment qualified as Env
import System.Random import System.Random
import System.Random.Internal import System.Random.Internal
import System.Random.SplitMix import System.Random.SplitMix
import Triangles (getTriangleAverageRGB) import Triangles (getTriangleAverageRGB)
import qualified Triangles as Tri import Triangles qualified as Tri
toColour :: (Fractional a) => Co.Color (Co.SRGB Co.Linear) a -> Colour a toColour :: (Fractional a) => Co.Color (Co.SRGB Co.Linear) a -> Colour a
toColour (Co.ColorSRGB r g b) = CL.rgb r g b toColour (Co.ColorSRGB r g b) = CL.rgb r g b

18
src/MinDistanceSample.hs
View file

@ -1,14 +1,14 @@
module MinDistanceSample where module MinDistanceSample where
import qualified Control.Monad as M import Control.Monad qualified as M
import qualified Data.Array as A import Data.Array qualified as A
import qualified Data.Bifunctor as B import Data.Bifunctor qualified as B
import qualified Data.Ix as Ix import Data.Ix qualified as Ix
import qualified Data.List as L import Data.List qualified as L
import qualified Data.List.NonEmpty as NE import Data.List.NonEmpty qualified as NE
import qualified Data.Map.Strict as M import Data.Map.Strict qualified as M
import qualified Data.Maybe as My import Data.Maybe qualified as My
import qualified Debug.Trace as D import Debug.Trace qualified as D
import Diagrams.Prelude import Diagrams.Prelude
import System.Random.Stateful import System.Random.Stateful

34
src/Triangles.hs
View file

@ -2,36 +2,36 @@ module Triangles where
import Control.Arrow import Control.Arrow
import Control.Parallel.Strategies import Control.Parallel.Strategies
import qualified Data.Array as A import Data.Array qualified as A
import qualified Data.Colour as C import Data.Colour qualified as C
import qualified Data.Colour.Names as C import Data.Colour.Names qualified as C
import Data.Colour.SRGB.Linear (Colour) import Data.Colour.SRGB.Linear (Colour)
import qualified Data.Colour.SRGB.Linear as C import Data.Colour.SRGB.Linear qualified as C
import qualified Data.Colour.SRGB.Linear as CL import Data.Colour.SRGB.Linear qualified as CL
import Data.Fixed import Data.Fixed
import qualified Data.Function as F import Data.Function qualified as F
import Data.List import Data.List
import qualified Data.List as L import Data.List qualified as L
import qualified Data.Map as M import Data.Map qualified as M
import qualified Data.Massiv.Array as Ma import Data.Massiv.Array qualified as Ma
import qualified Data.Massiv.Array.IO as Ma import Data.Massiv.Array.IO qualified as Ma
import Data.Maybe import Data.Maybe
import qualified Data.Ord as O import Data.Ord qualified as O
import Data.Ratio import Data.Ratio
import qualified Data.Set as S import Data.Set qualified as S
import Data.Vector.Generic.Base (Vector) import Data.Vector.Generic.Base (Vector)
import Data.Vector.Generic.Mutable (MVector) import Data.Vector.Generic.Mutable (MVector)
import qualified Data.Vector.Unboxed as Vec import Data.Vector.Unboxed qualified as Vec
import Data.Vector.Unboxed.Deriving import Data.Vector.Unboxed.Deriving
import Debug.Trace (traceShow) import Debug.Trace (traceShow)
import qualified Debug.Trace import Debug.Trace qualified
import qualified Debug.Trace as D import Debug.Trace qualified as D
import Diagrams.Prelude import Diagrams.Prelude
import Diagrams.Trail (trailPoints) import Diagrams.Trail (trailPoints)
import Diagrams.TwoD import Diagrams.TwoD
import qualified Diagrams.TwoD.Path.IntersectionExtras as I import Diagrams.TwoD.Path.IntersectionExtras qualified as I
import Diagrams.TwoD.Segment.Bernstein (listToBernstein) import Diagrams.TwoD.Segment.Bernstein (listToBernstein)
import qualified Graphics.Color.Space as Co import Graphics.Color.Space qualified as Co
import System.Random import System.Random
toColour :: (Fractional a) => Co.Color (Co.SRGB Co.Linear) a -> Colour a toColour :: (Fractional a) => Co.Color (Co.SRGB Co.Linear) a -> Colour a