Bob 2022 picture upload about generative-art

[knuton]

William Shatter

Code

module Main (main) where

import qualified Data.Vector as V
import qualified Graphics.Rendering.Cairo as Cairo
import System.Random.MWC

import Geometry
import Geometry.Core
import Draw

-- | Draw a 'Render' to PNG and SVG files.
drawToFiles
    :: FilePath -- ^ Output location, will store .svg and .png versions
    -> Int -- ^ Width
    -> Int -- ^ Height
    -> Cairo.Render a -- ^ Picture, parameterized by width/height
    -> IO ()
drawToFiles filename w h drawing = do
    _ <- withSurface PNG (filename ++ ".png") w h (\surface -> Cairo.renderWith surface drawing)
    _ <- withSurface SVG (filename ++ ".svg") w h (\surface -> Cairo.renderWith surface drawing)
    pure ()

-- | You can generate the output files using either:
--
-- `stack build --file-watch --exec bob-2022-workshop`
-- (slower compile time, faster execution time, works out of the box with `stack`)
--
-- `ghcid --command='stack ghci --main-is generative-art:bob-2022-workshop' --test=main -W`
-- (fast compilation, slower execution time, requires `ghcid` installation)
main :: IO ()
main = drawToFiles "bob2022/shatter" 1000 1000 $ do
    setColor white
    Cairo.paint

    let square = Polygon
            [ Vec2 100 100
            , Vec2 100 900
            , Vec2 900 900
            , Vec2 900 100
            ]
    let square = Polygon
            [ Vec2 100 100
            , Vec2 100 900
            , Vec2 900 900
            , Vec2 900 100
            ]

    for_ [ 0, 0.1..180 ] $ \angle -> do
	let sqr = transform (rotate (deg $ 90 * cos (angle/100))) square
	let sqs = transform (scaleAround (polygonCentroid sqr) (1/(angle/50+1))) sqr
        sketch sqs
        setColor (hsl 0 1 0.5 `withOpacity` 0.1)
        --Cairo.fillPreserve
        setColor (black `withOpacity` 0.1)
        Cairo.stroke
    for_ [ 0, 0.1..180 ] $ \angle -> do
	let sqr = transform (rotate (deg $ 90 * cos (angle/100))) square
	let sqs = transform (scaleAround (polygonCentroid sqr) (1/(angle/50+1))) sqr
        sketch sqs
        setColor (hsl 0 1 0.5 `withOpacity` 0.1)
        --Cairo.fillPreserve
        setColor (black `withOpacity` 0.1)
        Cairo.stroke
    for_ [ 0, 0.1..180 ] $ \angle -> do
	let sqr = transform (rotate (deg $ 27.5 * sin (angle/100))) square
	let sqs = transform (scaleAround (polygonCentroid sqr) (1/(angle/40+1))) sqr
        sketch sqs
        setColor (hsl 40 1 0.5 `withOpacity` 0.01)
        --Cairo.fillPreserve
        setColor (black `withOpacity` 0.1)
        Cairo.stroke
    for_ [ 0, 0.1..180 ] $ \angle -> do
	let sqr = transform (rotate (deg $ 45 * cos (angle/100) * sin (angle/100))) square
	let sqs = transform (scaleAround (polygonCentroid sqr) (1/(angle/40+1))) sqr
        sketch sqs
        setColor (hsl 90 1 0.5 `withOpacity` 0.01)
        --Cairo.fillPreserve
        setColor (black `withOpacity` 0.1)
        Cairo.stroke

[quchen]

Just looked through this again and I must say I’m still impressed by how quickly you whipped up such nice pictures. I mean we’re talking about one hour here!

[knuton]

Hello world

[Arkham]

[janilcgarcia]

[juhp]

[fmthoma]

[fmthoma]

[knuton]

Accident 🥴

[janilcgarcia]

now I created a bias function for the color:
bias x = abs $ sin (x / pi + 0.4)

and I'm using it like this:

colorIndex <- Cairo.liftIO $ uniformRM (0, 1) gen
let color = viridis $ bias colorIndex

[richard-zhang]

[janilcgarcia]

I actually introduced a bias for vertical lines with:

  randomAngle <- uniformRM (0, 4) gen
  let angles = [deg 0, deg 90, deg 90, deg 0, deg 90]

[fmthoma]

@janilcgarcia I took your idea to triangles :-)

[fmthoma]

There are no mistakes, just happy little accidents :-D

[fmthoma]

[dfurmans]

The ugly one have to bee as well ;)