DrawScript
Inversion in a circle (2)
DATA 1.2,.1
READ R,h : ·Origin(0,8*R)
·Fill(14)
·EvenOddWindingRule
p=h/2 : a=3*h/2
·Circle(R*R/4/h,0,ABS(R*R/4/h))
·Circle(R*R/2/h,0,ABS(R*R/2/h))
FOR b=-20*h TO 20*h STEP h
I=R*R/(a*a+b*b-p*p)
A=I*a
B=I*b
r=ABS(I)*p
·Circle(A,B,r)
NEXT
|
|