DrawScript

home.gif


Inversion in a circle (2)


inv.gif
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