# Intersection Point of the common Tangents of the circle whose
CommonTangentsMeetingPt:=proc(C1,R1,b,d,R2) local a:
a:=d/(R2/R1-1): [C1[1]-a*cos(b),C1[2]-a*sin(b)]:
end:
# center is Point C1 and radius R1, and the circle of radius R2
# whose center (let's call it C2) is distance d from C1, and
# such that the line joining C1 and C2 makes an angle of
# b radians with the x-axis