155b Spiral Derived

(meta linear-colour-space: 1)

(define [cx cy] [(/ canvas/width 2) (/ canvas/height 2)])

(fn (render-circle position: [0 0]
                   n: 0
                   t: 0)
  (define
    rad (- 415 ~ (gen/int min: 200 max: 600)
           (* n 0.58 ~ (gen/scalar max: 2)))
    [px py] position)
  (circle position: [(+ cx (* px rad)) (+ cy (* py rad))]
          radius: 11 ~ (gen/int min: 5 max: 50)
          tessellation: 30
          colour: (col/rgb r: 0.1 g: 0.5 b: 0.2 alpha: 0.7)))

(path/circle position: [0 0]
             t-start: 0.018 ~ (gen/scalar)
             t-end: (* 4 4.183 ~ (gen/scalar min: 1 max: 12))
             radius: 1
             steps: (* 4 123 ~ (gen/int min: 30 max: 800))
             fn: (address-of render-circle))