home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / demos / invert.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.3 KB  |  31 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.538043, -0.005435, "1");
  3. v2 = .free(-0.192935, -0.038043, "2");
  4. c1 = .c.vv(v1, v2);
  5. v3 = .free(-0.432065, -0.065217, "p1");
  6. l1 = .l.vv(v1, v3, .invisible, .ray12);
  7. l2 = .l.vlperp(v3, l1, .invisible, .longline);
  8. v4 = .v.lc(l2, c1, 1, .invisible, .plus);
  9. l3 = .l.vc(v4, c1, 1, .invisible);
  10. v5 = .v.ll(l1, l3, .invisible, .plus);
  11. vv3 = .free(-0.293478, -0.119565, "p2");
  12. ll1 = .l.vv(v1, vv3, .invisible, .ray12);
  13. ll2 = .l.vlperp(vv3, ll1, .invisible, .longline);
  14. vv4 = .v.lc(ll2, c1, 1, .invisible, .plus);
  15. ll3 = .l.vc(vv4, c1, 1, .invisible);
  16. vv5 = .v.ll(ll1, ll3, .invisible, .plus);
  17. vvv3 = .free(-0.328804, 0.065217, "p3");
  18. lll1 = .l.vv(v1, vvv3, .invisible, .ray12);
  19. lll2 = .l.vlperp(vvv3, lll1, .invisible, .longline);
  20. vvv4 = .v.lc(lll2, c1, 1, .invisible, .plus);
  21. lll3 = .l.vc(vvv4, c1, 1, .invisible);
  22. vvv5 = .v.ll(lll1, lll3, .invisible, .plus);
  23. c2 = .c.vvv(v3, vv3, vvv3, .green);
  24. c3 = .c.vvv(vvv5, v5, vv5, .red);
  25. .text("Inversion of a circle in a circle:");
  26. .text("");
  27. .text("In this illustration, the green circle is inverted in the white");
  28. .text("circle to make the red circle.  Due to some screwed-up coding, the");
  29. .text("three control points p1, p2, and p3 for the green circle should");
  30. .text("stay inside the white circle for proper display.");
  31.