Help:=proc(): print(`SE(S,radS,M,radM)`):end:

with(plots):


IsTangent:=proc(Cir,Line)
IsTangent:=proc(Cir,Line)

#PtToCircle(Cir,pt): The two points on the 
PtToCircle:=proc(Cir,pt)
end:

SE:=proc(S,radS,M,radM) local P:
P:=plot([S[1]+radS*cos(t),S[2]+radS*sin(t),t=0..2*Pi],axes=none,filled=true,color=yellow):
P:=P, plot([M[1]+radM*cos(t),M[2]+radM*sin(t),t=0..2*Pi],filled=true, color=green):
display(P):
end: