# 1585 Seeds

```
(define
seed-radius 3.2 ~ (gen/scalar min: 3 max: 5)
scale-factor 4
phi (/ (sqrt 5 ~ (gen/scalar min: 4 max: 6)) 8 ~ (gen/scalar min: 1 max: 10))
seeds 200
make-colour (col/build-procedural a: [0.80 0.50 0.40] ~ (gen/scalar)
b: [0.20 0.40 0.20] ~ (gen/scalar)
c: [2.00 1.00 1.00] ~ (gen/scalar)
d: [0.00 0.25 0.25] ~ (gen/scalar))
focalpoint (focal/build-point ~ (gen/select from: '(focal/build-point focal/build-hline focal/build-vline))
position: [500 ~ (gen/int max: canvas/width)
500 ~ (gen/int max: canvas/height)]
distance: 800 ~ (gen/int min: (/ canvas/width 2) max: canvas/width)))
(fn (interesting-circle position: [500 500]
colour: red
seed: 454
radius: 300)
(define
rng (prng/build seed: seed)
outer-exterior (prng/build seed: (prng/value from: rng) min: 170 max: 210)
outer-interior (prng/build seed: (prng/value from: rng) min: 80 max: 170)
inner-exterior (prng/build seed: (prng/value from: rng) min: 100 max: 150)
inner-interior (prng/build seed: (prng/value from: rng) min: 0 max: 100)
srng (prng/build min: -1 max: 1 seed: seed))
(on-matrix-stack
(translate vector: position)
(scale scalar: (/ radius 210))
(loop (i to: 3)
(on-matrix-stack
(rotate angle: (* 360 (prng/value from: rng)))
;; outer ring
(circle-slice tessellation: 20
position: [0 0]
colour: (col/lighten from: colour
value: (* 30 ~ (gen/int min: 20 max: 60) (prng/value from: srng)))
angle-start: 0
angle-end: 320
width: (prng/value from: outer-exterior)
inner-width: (prng/value from: outer-interior)
height: (prng/value from: outer-exterior)
inner-height: (prng/value from: outer-interior))
;; inner ring
(circle-slice tessellation: 10
position: [0 0]
colour: (col/lighten from: colour
value: (* 20 ~ (gen/int min: 10 max: 40) (prng/value from: srng)))
angle-start: 0
angle-end: 320
width: (prng/value from: inner-exterior)
inner-width: (prng/value from: inner-interior)
height: (prng/value from: inner-exterior)
inner-height: (prng/value from: inner-interior))))
;; centre fill
(circle-slice tessellation: 10
position: [0 0]
colour: (col/lighten from: colour
value: (* 10 ~ (gen/int min: 5 max: 20) (prng/value from: srng)))
angle-start: 0
angle-end: 360
radius: 30)))
(rect position: [500 500]
width: canvas/width
height: canvas/height
colour: (col/rgb r: 1 g: 1 b: 1 alpha: 1) ~ (gen/col))
(loop (seed to: seeds)
(define
zoom 8
radius (* zoom seed-radius)
theta (/ (* seed math/TAU) phi)
r (* scale-factor (sqrt seed))
position [(+ 500 (* r zoom (math/cos from: theta)))
(+ 500 (* r zoom (math/sin from: theta)))]
colour (col/value from: make-colour t: (focal/value from: focalpoint position: position)))
(interesting-circle position radius colour seed))
```