A MACROP for pickup up and putting in a bay

(define-macrop

:in-form '(put-into-bay ?p1 ?arm ?bay ?p2)

:out-forms

'((arm-move ?arm OUTSIDE)

(arm-move ?arm ?p1)

(arm-grasp ?arm)

(arm-move ?arm FOLDED)

(arm-move ?arm INSIDE)

(arm-move ?arm ?bay)

(arm-move ?arm ?p2)

(arm-ungrasp ?arm 0)

(arm-fold ?arm)))

Previous slide

Next slide

Back to first slide

View graphic version