#import "@preview/fletcher:0.5.8" as fletcher: diagram, node, edge

#let bent-edge(from, to, ..args) = {
  let midpoint = (from, 50%, to)
  let vertices = (
    from,
    (from, "|-", midpoint),
    (midpoint, "-|", to),
    to,
  )
  edge(..vertices, "-|", ..args)
}


#let b3_0 = diagram(
  node-stroke: luma(80%),
  edge-corner-radius: none,
  spacing: (10pt, 20pt),

  // Nodes
  node((1.5,0), [1.#h(3mm)2.#h(3mm)3.1.], name: <a>),
  node((0.5,1), [4.1.-4.3.], name: <b>),
  node((2.5,1), [3.2.-3.3.], name: <c>),

  node((0,2), [4.4.-4.5.], name: <d>),
  node((1,2), [4.6.], name: <e>),

  node((2.501,2), [5.1.-5.5.], name: <f>),
  node((2,3), [5.6.], name: <g>),
  node((3,3), [5.7.], name: <h>),
  node((4,3), [5.8.], name: <i>),
  node((5,3), [5.9.], name: <j>),
  node((6,3), [5.10.], name: <k>),
  node((2.001,4), [#h(1mm)6.#h(1mm) ], name: <m>),

  // Edges
  bent-edge(<a>, <b>),
  bent-edge(<a>, <c>),
  bent-edge(<b>, <d>),
  bent-edge(<b>, <e>),
  bent-edge(<c>, <f>),
  bent-edge(<c>, <f>),
  bent-edge(<f>, <g>),
  bent-edge(<f>, <h>),
  bent-edge(<f>, <i>),
  bent-edge(<f>, <j>),
  bent-edge(<f>, <k>),
  bent-edge(<g>, <m>),
)