kinopio.bauble

kinopio.bauble

(box [50 37 50] :r (ss p.y 50 -70 50 0)
| morph (cylinder y 50 50 :r 26)
| move y (ss p.y -50 0 3 0 * (cos (p.x / 12) + (cos (p.z / 12))))
| scale [1 0 1 * (ss p.y -20 -50 0 -0.1 * (cos (p.x / 12) + (cos (p.z / 12)))) + 1]
| shade cyan :g 10
| union (capsule z 13 6.2 | move x 49.1 z 14.5 y 3 | shade white | mirror z)
  (cylinder x 2.7 0 | expand 2.1 | move x 55.02 y 2 z 20.2 | shade black| mirror z | move z (sin t * -1))
  (torus x 5 2 | move [50.6 -14.9 0] | elongate z (4.3 + (2 * sin (t / 2))) | shade (hsv (5.49 / 6) 0.63 1))
| with-lights (light/ambient 0.75 :brightness (mix 0.5 1 (occlusion :dist 20)))
  (light/directional 0.25 [-1 -1 0 | normalize] 100 :shadow 0.67)
| rotate y (p.x / 500 * sin t)# x (p.z / -500 * sin t)
)