Browse Source

tightened up 1922-skull-face.seni

master
Inderjit Gill 5 months ago
parent
commit
9de1076cda
1 changed files with 13 additions and 21 deletions
  1. +13
    -21
      server/static/seni/1922-skull-face.seni

+ 13
- 21
server/static/seni/1922-skull-face.seni View File

@@ -1,15 +1,11 @@
(meta linear-colour-space: 1)


(define
texture "skull-a.png"
rng (prng/build seed: {342 (gen/scalar min: 1 max: 5000)} min: 0 max: 10)
pass-0-colour (col/hsluv h: { 134 (gen/scalar max: 360)} s: {90 (gen/scalar max: 100)} l: 100 alpha: 0.07)
pass-0-colour (col/hsluv h: {134 (gen/scalar max: 360)} s: {90 (gen/scalar max: 100)} l: 100 alpha: 0.07)
pass-1-colour (col/hsluv h: {296 (gen/scalar max: 360)} s: {30 (gen/scalar max: 100)} l: 100 alpha: 0.07)
per-pixel-funcs [(address-of pass-0)
(address-of pass-1)])


(each (per-pixel-func from: per-pixel-funcs)
(bitmap/each from: texture
position: [500 500]
@@ -20,26 +16,22 @@

(fn (pass-0 colour: (col/rgb r: 0 g: 0 b: 0 alpha: 0) position: [100 100])
(define
a (col/e0 from: colour)
a (colour.col/e0)
angle (+ {0.37 (gen/scalar min: 0 max: 8)} (* a math/PI)))
(line from: [(* {6 (gen/scalar min: 5 max: 10)} (math/cos from: angle))
(* {13 (gen/scalar min: 10 max: 15)} (math/sin from: angle))]
to: [(* {-5 (gen/scalar min: -10 max: 0)} (math/cos from: angle))
(* {-6 (gen/scalar min: -10 max: 0)} (math/sin from: angle))]
width: (- {1.9 (gen/scalar min: 0.1 max: 3)} a)
(line from: [(* {6.00 (gen/stray from: 6.00 by: 1.00)} (angle.math/cos)) (* {13.00 (gen/stray from: 13.00 by: 1.00)} (angle.math/sin))]
to: [(* {-5.00 (gen/stray from: -5.00 by: 1.00)} (angle.math/cos)) (* {-6.00 (gen/stray from: -6.00 by: 1.00)} (angle.math/sin))]
width: (- {1.90 (gen/stray from: 1.90 by: 0.50)} a)
brush: {brush/g (gen/select from: brush/*)}
brush-subtype: (prng/value from: rng)
colour: (col/set-e2 from: pass-0-colour value: (* a 100))))
brush-subtype: (rng.prng/value)
colour: (pass-0-colour.col/set-e2 value: (* a 100))))

(fn (pass-1 colour: (col/rgb r: 0 g: 0 b: 0 alpha: 0) position: [100 100])
(define
b (col/e2 from: colour)
b (colour.col/e2)
angle (+ {6.12 (gen/scalar min: 0 max: 8)} (* b math/PI)))
(line from: [(* {-2 (gen/scalar min: -5 max: 2)} (math/cos from: angle))
(* {11 (gen/scalar min: 7 max: 15)} (math/sin from: angle))]
to: [(* {14 (gen/scalar min: 10 max: 15)} (math/cos from: angle))
(* {4 (gen/scalar min: 0 max: 5)} (math/sin from: angle))]
width: (- {3.2 (gen/scalar min: 2.1 max: 5)} b)
(line from: [(* {-2.00 (gen/stray from: -2.00 by: 1.00)} (angle.math/cos)) (* {11.00 (gen/stray from: 11.00 by: 1.00)} (angle.math/sin))]
to: [(* {14.00 (gen/stray from: 14.00 by: 1.00)} (angle.math/cos)) (* {4.00 (gen/stray from: 4.00 by: 1.00)} (angle.math/sin))]
width: (- {3.20 (gen/stray from: 3.20 by: 0.50)} b)
brush: {brush/b (gen/select from: brush/*)}
brush-subtype: (prng/value from: rng)
colour: (col/set-e2 from: pass-1-colour value: (* b 100))))
brush-subtype: (rng.prng/value)
colour: (pass-1-colour.col/set-e2 value: (* b 100))))

Loading…
Cancel
Save