def lift_edges

near-v-framework@0.4.0.0 · general/compound/ops.bend:89

import Base
import near-v-framework@0.4.0.0/general/rose/ops.bend as RO
import near-v-framework@0.4.0.0/general/compound/edge/type.bend as E

89def lift_edges(es: List<&2, E.Edge>, +ps: List<&2, RO.Place>, +visible: List<&2, String>) -> List<&2, E.Edge>:
90  match es:
91    case []:
92      []
93    case e <> rest:
94      match e:
95        case E.Edge{a, b, l, t}:
96          keep_edge(shown_as(a, ps, visible), shown_as(b, ps, visible), l, t, lift_edges(rest, ps, visible))