Browse Source

tightened up 1922-skull-face.seni

Inderjit Gill 1 month 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 @@
1
-(meta linear-colour-space: 1)
2
-
3
-
4 1
 (define
5 2
   texture "skull-a.png"
6 3
   rng (prng/build seed: {342 (gen/scalar min: 1 max: 5000)} min: 0 max: 10)
7
-  pass-0-colour (col/hsluv h: { 134 (gen/scalar max: 360)} s: {90 (gen/scalar max: 100)} l: 100 alpha: 0.07)
4
+  pass-0-colour (col/hsluv h: {134 (gen/scalar max: 360)} s: {90 (gen/scalar max: 100)} l: 100 alpha: 0.07)
8 5
   pass-1-colour (col/hsluv h: {296 (gen/scalar max: 360)} s: {30 (gen/scalar max: 100)} l: 100 alpha: 0.07)
9 6
   per-pixel-funcs [(address-of pass-0)
10 7
                    (address-of pass-1)])
11 8
 
12
-
13 9
 (each (per-pixel-func from: per-pixel-funcs)
14 10
       (bitmap/each from: texture
15 11
                    position: [500 500]
@@ -20,26 +16,22 @@
20 16
 
21 17
 (fn (pass-0 colour: (col/rgb r: 0 g: 0 b: 0 alpha: 0) position: [100 100])
22 18
   (define
23
-    a (col/e0 from: colour)
19
+    a (colour.col/e0)
24 20
     angle (+ {0.37 (gen/scalar min: 0 max: 8)} (* a math/PI)))
25
-  (line from: [(* {6 (gen/scalar min: 5 max: 10)} (math/cos from: angle))
26
-               (* {13 (gen/scalar min: 10 max: 15)} (math/sin from: angle))]
27
-        to: [(* {-5 (gen/scalar min: -10 max: 0)} (math/cos from: angle))
28
-             (* {-6 (gen/scalar min: -10 max: 0)} (math/sin from: angle))]
29
-        width: (- {1.9 (gen/scalar min: 0.1 max: 3)} a)
21
+  (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))]
22
+        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))]
23
+        width: (- {1.90 (gen/stray from: 1.90 by: 0.50)} a)
30 24
         brush: {brush/g (gen/select from: brush/*)}
31
-        brush-subtype: (prng/value from: rng)
32
-        colour: (col/set-e2 from: pass-0-colour value: (* a 100))))
25
+        brush-subtype: (rng.prng/value)
26
+        colour: (pass-0-colour.col/set-e2 value: (* a 100))))
33 27
 
34 28
 (fn (pass-1 colour: (col/rgb r: 0 g: 0 b: 0 alpha: 0) position: [100 100])
35 29
   (define
36
-    b (col/e2 from: colour)
30
+    b (colour.col/e2)
37 31
     angle (+ {6.12 (gen/scalar min: 0 max: 8)} (* b math/PI)))
38
-  (line from: [(* {-2 (gen/scalar min: -5 max: 2)} (math/cos from: angle))
39
-               (* {11 (gen/scalar min: 7 max: 15)} (math/sin from: angle))]
40
-        to: [(* {14 (gen/scalar min: 10 max: 15)} (math/cos from: angle))
41
-             (* {4 (gen/scalar min: 0 max: 5)} (math/sin from: angle))]
42
-        width: (- {3.2 (gen/scalar min: 2.1 max: 5)} b)
32
+  (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))]
33
+        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))]
34
+        width: (- {3.20 (gen/stray from: 3.20 by: 0.50)} b)
43 35
         brush: {brush/b (gen/select from: brush/*)}
44
-        brush-subtype: (prng/value from: rng)
45
-        colour: (col/set-e2 from: pass-1-colour value: (* b 100))))
36
+        brush-subtype: (rng.prng/value)
37
+        colour: (pass-1-colour.col/set-e2 value: (* b 100))))

Loading…
Cancel
Save