From 582948167a3b1cd03069429b9d9faefe239a372d Mon Sep 17 00:00:00 2001 From: Brian Hicks Date: Mon, 13 Jan 2020 09:02:31 -0600 Subject: [PATCH] add nri --- src/Image.elm | 50 +++++++++++++++++++++++++++++++++++++++++++++++++- src/Main.elm | 1 + 2 files changed, 50 insertions(+), 1 deletion(-) diff --git a/src/Image.elm b/src/Image.elm index d6e1ad7..38c307c 100644 --- a/src/Image.elm +++ b/src/Image.elm @@ -1,4 +1,4 @@ -module Image exposing (Image, bars, nyan, recurse, view, viewColor, waves) +module Image exposing (Image, bars, nri, nyan, recurse, view, viewColor, waves) import Array exposing (Array) import Color.Transparent as Color exposing (Color) @@ -151,3 +151,51 @@ nyan = , [ t, t, t, t, k, k, k, k, k, k, k, k, k, k, t, t, t, t ] , List.repeat 18 t ] + + +nri : Image +nri = + let + w = + Color.fromRGBA { red = 255, green = 255, blue = 255, alpha = Color.opaque } + + l = + Color.fromRGBA { red = 247, green = 127, blue = 163, alpha = Color.opaque } + + p = + Color.fromRGBA { red = 243, green = 52, blue = 108, alpha = Color.opaque } + in + Grid.fromRowsAndColumns + [ List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , [ p, p, p, p, p, p, p, p, p, l, l, l, l, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, l, w, w, w, w, w, w, l, p, p, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, w, w, w, w, w, w, w, w, l, p, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, w, w, w, w, w, w, w, w, w, w, p, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, w, l, p, p, l, w, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , [ p, p, p, p, p, p, p, p, l, w, w, w, w, l, p, p, p, p, l, w, w, w, w, l, p, p, p, p, p, p, p, p ] + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + , List.repeat 32 p + ] diff --git a/src/Main.elm b/src/Main.elm index 06eacad..43a9db2 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -200,6 +200,7 @@ view model = , ( "Bars", Image.bars ) , ( "Recurse", Image.recurse ) , ( "Nyan Cat", Image.nyan ) + , ( "NoRedInk", Image.nri ) ] |> List.map (\( name, image ) ->