procedure(CCFgetPinCoordinates(inst) foreach(mapcar instTerm inst~>instTerms list(instTerm~>name dbTransformPoint(centerBox(car(instTerm~>term~>pins)~>fig~>bBox) inst~>transform) ) ) )
↧