(let dx (- x 80)
  (let dy (- y 56)
    (let radius (+ (* dx dx) (* dy dy))
      (and (shr (+ radius (* t 32)) 6) 15))))