home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / junk / Marksquare.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.6 KB  |  40 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.723944, -0.507042, .invisible, .L0);
  3. v2 = .free(0.870422, -0.512676, .invisible, .L0);
  4. l1 = .l.vv(v1, v2, .invisible, .L0);
  5. v3 = .vonl(l1, -0.335469, -0.508415, .L0, .cross, "R1");
  6. v5 = .free(0.664789, 0.326761, .L0, "R2");
  7. l2 = .l.vlperp(v5, l1, .invisible, .L0);
  8. l3 = .l.vlperp(v3, l1, .invisible, .L0);
  9. l4 = .l.vlperp(v5, l3, .invisible, .L0);
  10. v6 = .v.ll(l4, l3, .L0, .plus);
  11. v7 = .v.ll(l2, l1, .L0, .plus);
  12. v8 = .v.ll(l1, l1, .L0, .plus);
  13. l5 = .l.vv(v3, v7, .L0);
  14. l6 = .l.vv(v7, v5, .L0);
  15. l7 = .l.vv(v5, v6, .L0);
  16. l8 = .l.vv(v6, v3, .L0);
  17. v9 = .free(-0.921127, 0.135211, .L0, "L1");
  18. v10 = .free(-0.357746, 0.842254, .L0, "L2");
  19. l9 = .l.vv(v10, v9, .red, .L0, .longline);
  20. l10 = .l.vlperp(v10, l9, .invisible, .L0, .longline);
  21. v11 = .vonl(l10, -0.0205454, 0.573567, .red, .L0, .cross, "Control");
  22. l11 = .l.vlperp(v11, l10, .invisible, .L0);
  23. v12 = .v.ll(l11, l7, .green, .L0, .plus);
  24. v13 = .v.ll(l11, l8, .green, .L0, .plus);
  25. v14 = .v.vvmid(v12, v13, .red, .L0, .plus);
  26. l12 = .l.vlperp(v14, l11, .red, .L0, .longline);
  27. v15 = .v.vvmid(v5, v3, .yellow, .L0, .plus, "Center");
  28. l13 = .l.vv(v12, v13, .green, .L0);
  29. l14 = .l.vlperp(v12, l13, .invisible, .L0);
  30. l15 = .l.vlperp(v13, l13, .invisible, .L0);
  31. v16 = .v.ll(l14, l6, .green, .L0, .plus);
  32. v17 = .v.ll(l5, l15, .green, .L0, .plus);
  33. l16 = .l.vv(v12, v16, .green, .L0);
  34. l17 = .l.vv(v16, v17, .green, .L0);
  35. l18 = .l.vv(v17, v13, .green, .L0);
  36. .text("Move R1, R2 to change the shape of the rectangle,");
  37. .text("L1 and L2 to change the slope of the line, and the");
  38. .text("Control point to force the bisector through the center");
  39. .text("of the rectangle.");
  40.