(define "SharedCells" (intersection (sites Around #1) (sites Around #2))) (define "HalfWayEdge" (intersection (sites Incident Edge of:Cell at:(regionSite ("SharedCells" #1 #2) index:0)) (sites Incident Edge of:Cell at:(regionSite ("SharedCells" #1 #2) index:1)) ) )