% `arcto.m4'
.PS
gen_init

[
A: 0,0
B: 0.5,1
Q: 1,1
{"H" at A}
{dot(at B); "X" above}
{dot(at Q); "Y" above}

move to A
arcto(B,Q,,dashed)
dot(at C_arcto); {"C" above}
#ot(at TX_arcto); {"TX" above}
#ot(at TY_arcto); {"TY" above}
  ]

[
A: 1.5,0
B: 0.5,1
Q: 1,1
{"H" at A}
{dot(at B); "X" above}
{dot(at Q); "Y" above}

move to A
arcto(B,Q,,dashed)
dot(at C_arcto); {"C" above}
#ot(at TX_arcto); {"TX" above}
#ot(at TY_arcto); {"TY" above}
  ] with .nw at last [].ne+(0.5,0)

.PE