qcircle c1 0 0 10
point p1 5 0
point p2 -10 0

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