qcircle c1 0 0 10
point p1 20 0
point p2 10 0

set log [circ2d3Tan tan1 c1 p1 p2]
if {[llength $log]} {puts "Error:Incorrect circle is created"}
