home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / dos_misc / buckyspn.zip / TETRATET.ACD < prev   
Text File  |  1992-04-08  |  2KB  |  49 lines
  1. -- Reciprocal tetrahedrons displayed as layer 1 (magenta)
  2. -- and layer 2 (bright red)
  3. -- octahedron formed by connecting points of intersection layer 3 (green)
  4. -- cube formed by connecting vertices is layer 4 (yellow)
  5. -- calculated by Janine Adler Parker
  6. EndPointList Name X Y Z
  7. tetra1  0.0000000000E+00  0.0000000000E+00  1.0000000000E+00
  8. tetra2  0.0000000000E+00  9.4280904158E-01 -3.3333333333E-01
  9. tetra3  8.1649658093E-01 -4.7140452079E-01 -3.3333333333E-01
  10. tetra4 -8.1649658093E-01 -4.7140452079E-01 -3.3333333333E-01
  11. artet1  0.0000000000E+00  0.0000000000E+00 -1.0000000000E+00
  12. artet2  0.0000000000E+00 -9.4280904158E-01  3.3333333333E-01
  13. artet3 -8.1649658093E-01  4.7140452079E-01  3.3333333333E-01
  14. artet4  8.1649658093E-01  4.7140452079E-01  3.3333333333E-01
  15. octa12  0.0000000000E+00  4.7140452079E-01  3.3333333333E-01
  16. octa13  4.0824829046E-01 -2.3570226040E-01  3.3333333333E-01
  17. octa14 -4.0824829046E-01 -2.3570226040E-01  3.3333333333E-01
  18. octa23  4.0824829046E-01  2.3570226040E-01 -3.3333333333E-01
  19. octa24 -4.0824829046E-01  2.3570226040E-01 -3.3333333333E-01
  20. octa34  0.0000000000E+00 -4.7140452079E-01 -3.3333333333E-01
  21. Set Color 12 layer 2
  22. Linelist from to
  23. tetra1 tetra2
  24. tetra1 tetra3
  25. tetra1 tetra4
  26. tetra2 tetra3
  27. tetra3 tetra4
  28. tetra4 tetra2
  29. Set Color 13 layer 1
  30. Linelist from to
  31. artet1 artet2
  32. artet1 artet3
  33. artet1 artet4
  34. artet2 artet3
  35. artet3 artet4
  36. artet4 artet2
  37. set color 10 layer 3
  38. Linelist from to
  39. octa12 octa13  octa13 octa14  octa14 octa12
  40. octa12 octa23  octa23 octa24  octa24 octa12
  41. octa13 octa23  octa23 octa34  octa34 octa13
  42. octa14 octa24  octa24 octa34  octa34 octa14
  43. set color 14 layer 4
  44. Linelist from to
  45. tetra1 artet2  tetra1 artet3  tetra1 artet4
  46. tetra2 artet1  tetra2 artet3  tetra2 artet4
  47. tetra3 artet1  tetra3 artet2  tetra3 artet4
  48. tetra4 artet1  tetra4 artet2  tetra4 artet3
  49.