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
settings = {
};
settings = { };
# Development shell configuration
devShell = {

48
src/Main.hs
View file

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

18
src/MinDistanceSample.hs
View file

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

34
src/Triangles.hs
View file

@ -2,36 +2,36 @@ module Triangles where
import Control.Arrow
import Control.Parallel.Strategies
import qualified Data.Array as A
import qualified Data.Colour as C
import qualified Data.Colour.Names as C
import Data.Array qualified as A
import Data.Colour qualified as C
import Data.Colour.Names qualified as C
import Data.Colour.SRGB.Linear (Colour)
import qualified Data.Colour.SRGB.Linear as C
import qualified Data.Colour.SRGB.Linear as CL
import Data.Colour.SRGB.Linear qualified as C
import Data.Colour.SRGB.Linear qualified as CL
import Data.Fixed
import qualified Data.Function as F
import Data.Function qualified as F
import Data.List
import qualified Data.List as L
import qualified Data.Map as M
import qualified Data.Massiv.Array as Ma
import qualified Data.Massiv.Array.IO as Ma
import Data.List qualified as L
import Data.Map qualified as M
import Data.Massiv.Array qualified as Ma
import Data.Massiv.Array.IO qualified as Ma
import Data.Maybe
import qualified Data.Ord as O
import Data.Ord qualified as O
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.Mutable (MVector)
import qualified Data.Vector.Unboxed as Vec
import Data.Vector.Unboxed qualified as Vec
import Data.Vector.Unboxed.Deriving
import Debug.Trace (traceShow)
import qualified Debug.Trace
import qualified Debug.Trace as D
import Debug.Trace qualified
import Debug.Trace qualified as D
import Diagrams.Prelude
import Diagrams.Trail (trailPoints)
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 qualified Graphics.Color.Space as Co
import Graphics.Color.Space qualified as Co
import System.Random
toColour :: (Fractional a) => Co.Color (Co.SRGB Co.Linear) a -> Colour a