joe-warren

{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
module Object where

import qualified Csg
import Data.List
import Data.Serialize
import Data.Semigroup
import Data.Vec3 as V3

joe-warren

{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
module Object where

import qualified Csg
import Data.List
import Data.Serialize
import Data.Semigroup
import Data.Vec3 as V3

joe-warren

import Data.List (minimumBy)
import Data.Function (on)

nearestInc :: Int -> [Int] -> Int
nearestInc n xs = 
  case span (<n) xs of
    ([], h:_) -> h
    (ss, []) -> last ss
    (ss, l:_) -> minimumBy (compare `on` abs . (`subtract` n)) [last ss, l]

joe-warren

{
    "problemMatcher": [
        {
            "owner": "hlint",
            "severity": "warning",
            "pattern": [
                {
                    "regexp": "^([^:]*\\/)([^:/]*):(\\d+)(-\\d+)?:(\\d+)(-\\d+)?: (Warning|Error): (.*)$",
                    "fromPath": 1,
                    "file": 2,

joe-warren

{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
module Object where

import qualified Csg
import qualified Csg.STL
import Data.List
import Data.Serialize
import Data.Semigroup
import Data.Vec3 as V3

joe-warren

mkdir junk
for file in $(git ls-files --others --exclude-standard); do mv "$file" junk; done

joe-warren

module Object where

import qualified Csg
import qualified Csg.STL
import Data.List
import Data.Serialize
import Data.Semigroup
import Data.Vec3 as V3
import qualified Data.Text.IO as T

joe-warren

{-# Language FlexibleInstances #-}
module SillyVersion where

import Data.Ratio

data SillyVersion = SillyVersion Integer Integer Integer

display :: (() -> SillyVersion) -> String 
display f = let SillyVersion maj min pat = f ()
             in show maj <> "." <> show min <> "." <> show pat 

joe-warren

import Codec.Picture
import Codec.Picture.Types
import qualified Codec.Picture.Png (writeDynamicPng)
import Control.Lens
import Control.Monad (forM_)
transformImage :: Image PixelYCbCr8 -> Image PixelYCbCr8
transformImage img = img -- Transform the image here

transformRGBImage :: Image PixelRGB8 -> Image PixelRGB8
transformRGBImage img = img -- Transform the RGB image here

joe-warren

#!/usr/bin/env stack
{- stack script --resolver lts-21.13 
    --package linear
    --package lens
    --package waterfall-cad
    --extra-dep waterfall-cad-0.1.1.1 
    --extra-dep opencascade-hs-0.1.1.1
-}
import qualified Waterfall 
import qualified Waterfall.TwoD.Shape as Shape