DrawScript

home.gif


Inversion in a circle


chess.gif
REM > Inverted chessboard
·Fill(7)
·EvenOddWindingRule
·Origin(4,4)
FOR x=-4 TO 4 
 IF x<>0 THEN
  ·Circle(2/x,0,2/ABS(x))
  ·Circle(0,2/x,2/ABS(x))
  ENDIF
 NEXT