Crocodile In Style - Curv

Curv is a programming language for creating art using mathematics. It's a 2D and 3D geometric modelling tool that supports full colour, animation and 3D printing.
https://github.com/doug-moen/curv

Playing around with my new capcone primitive

let

capcone ( p1 , p2 ) =
let a=p1[[X,Y,Z]];
b=p2[[X,Y,Z]];
d1=p1[3];
d2=p2[3];
ba = b - a;
in make_shape {


dist p =
let
pa = p[[X,Y,Z]] - a;
h = clamp(dot(pa,ba) / dot(ba,ba),