.curv

let
include lib.builder;
include file "sketch.curv";
in
build
>> put (box) [0,0,0]
>> put (sphere) [2,0,0]
>> child (ctx -> ctx
  >> put (
    workplane
    >> move_abs [0, 3]
    >> spline [[[1, 3.5], [2, 2.6], [3,3]]]
    >> tangent_arc_point [6,3]
    >> tangent_arc_point [8,1]
    >> spline [[[7,-3], [6,0], [3, 0]]]
    >> tangent_arc_point [0, 3]
    >> close
    >> extrude 1
  ) [0,-2,0] // Remember, origin is [1,0,0] since it's child of sphere!
)
>> done