.geometry "version 0.40";
f = .script(0.000000, 360.000000, 1.000000);
v6 = .free(-0.9625, 0.5275, .in);
v7 = .free(-0.0025, 0.5275, .in);
l1 = .l.vv(v6, v7);
v8 = .vonl(l1, -0.5825, 0.5275, .red, .soliddiamond, "R");
v9 = .vonl(l1, -0.4825, 0.5275, .blue, .soliddiamond, "B");
p1 = .f.vvvratio(v6, v8, v7);
p2 = .f.vvvratio(v6, v9, v7);
pp1 = .f.rpn(p1, 10.000000, .mul, .truncate);
pp2 = .f.rpn(p2, 10.000000, .mul, .truncate);
v1 = .free(0.48, 0.535, "1");
v2 = .free(-0.5225, -0.4025, "2");
v3 = .free(0.48, 0.9875, "3");
c1 = .c.vv(v1, v3);
c2 = .c.vcrad(v2, c1);
a1 = .f.rpn(f, pp1, .mul);
a2 = .f.rpn(f, pp2, .mul);
v4 = .vonc(c2, -0.508321, 0.0497778);
ang1 = .a.f(a1);
ang2 = .a.f(a2);
vv1 = .v.avv(ang1, v3, v1, .red);
vv2 = .v.avv(ang2, v4, v2, .blue);
redx = .f.vxcoord(vv1);
bluey = .f.vycoord(vv2);
ww1 = .v.ff(redx, -2.000000);
ww2 = .v.ff(2.000000, bluey);
ll1 = .l.vv(vv1, ww1, .red);
ll2 = .l.vv(vv2, ww2, .blue);
v5 = .v.ll(ll1, ll2, .smear, .dot);
.text("Press 'Run Script'.  Then move the
points labellel B and R and press it again.");