*

: x 2 4 x * - ;
: y 2 4 y * - ;
: ts t sin ;
: tc t cos ;
: 2ts t 2 * sin ;
: 2tc t 2 * cos ;
: +ts t + sin ;
: +tc t + cos ;
: circle pi 2 * * dup +ts swap +tc ;
: +xy x y z+ ;
: ^2 dup * ;
: r^2 ^2 swap ^2 + ;
: r r^2 sqrt ;
: 1- 1 swap - ;
: ball +xy r^2 dup 1- ^2
swap 1 < min + ;

0
0 circle ball
0.33 circle ball
0.66 circle ball
t 0.05 * circle 2 * swap dup + ball
dup 0.4 >
swap dup rot + 0 swap dup

Possibly based on: Metaballs (ish) - Anonymous


comments powered by Disqus