OSL Cup Program: continued

• (define d2 (crease-l2l e23 d1))

• (define p1 (intersect d2 e34))

• (define d3 (crease-p2p c2 p1))

• (execute-fold d3 apical landmark=c2)