open Jig;;
let (top, embd, [inf; outf]) =
mix ([[0; 1; 2]; [0; 2; 3]; [0; 3; 4]; [0; 4; 1]],
     [|[|-0.1; 0.6|]; [|1.; 0.|]; [|0.; 1.|];  [|-1.; 0.|]; [|0.; -1.|]|],
     [[1; 2]; [2; 3]]) (rp 5) in
let bl = Glue.morphgen (nz (embd, pyt)) top [] in
(jig embd bl inf outf).lray ([|0.5; 0.5|], [|-1.; 0.|])
(* should yield approx ([|-0.5; 0.5|], [|-1.; 0.|]) *);;