Something like this? Teach the transformation variable p1. Make a program like this:

`POINT p2 = SHIFT(p1 by radius, -radius) `

POINT /OAT p2 = rz(90) + p1

POINT p3 = SHIFT(p1 by 0, -radius*2)

POINT /OAT p3 = rz(180) + p1

POINT p4 = SHIFT(p1 by -radius, -radius)

POINT /OAT p4 = rz(-90) + p1

;

LMOVE p1

C1MOVE p2

C1MOVE p3

C1MOVE p4

C2MOVE p1