home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / AMOD095.ZIP / 3D.INC next >
Text File  |  1995-09-06  |  2KB  |  115 lines
  1. cubep: array[0..8,0..3] of integer =
  2. ((8,200,0,0),
  3. (-40,-40,-40,0),
  4. (40,-40,-40,0),
  5. (40,40,-40,0),
  6. (-40,40,-40,0),
  7. (-40,-40,40,0),
  8. (40,-40,40,0),
  9. (40,40,40,0),
  10. (-40,40,40,0));
  11. cubel: array[0..12,0..1] of integer =
  12. ((12,0),
  13. (1,2),
  14. (2,3),
  15. (3,4),
  16. (4,1),
  17. (5,6),
  18. (6,7),
  19. (7,8),
  20. (8,5),
  21. (1,5),
  22. (2,6),
  23. (3,7),
  24. (4,8));
  25.  
  26. pyramidp : array[0..5,0..3] of integer =
  27. ((5,180,0,0),
  28. (-40,-40,-30,0),
  29. (40,-40,-30,0),
  30. (40,40,-30,0),
  31. (-40,40,-30,0),
  32. (0,0,60,0));
  33.  
  34. pyramidl : array[0..8,0..1] of integer =
  35. ((8,0),
  36. (1,2),
  37. (2,3),
  38. (3,4),
  39. (4,1),
  40. (1,5),
  41. (2,5),
  42. (3,5),
  43. (4,5));
  44.  
  45. adnmodp : array[0..34,0..3] of integer =
  46. ((34,270,0,0),
  47. (-40,0,0,0),
  48. (-20,0,0,0),
  49. (-20,-60,0,0),
  50. (0,0,0,0),
  51. (0,-60,0,0),
  52. (20,-20,0,0),
  53. (20,-40,0,0),
  54. (40,0,0,0),
  55. (40,-60,0,0),
  56. (80,0,0,0),
  57. (80,-60,0,0),
  58. (-80,0,0,0),
  59. (-40,-60,0,0),
  60. (-40,-20,0,0),
  61. (-66,-20,0,0),
  62. (-80,20,0,0),
  63. (-80,80,0,0),
  64. (-60,40,0,0),
  65. (-40,20,0,0),
  66. (-40,80,0,0),
  67. (-20,26,0,0),
  68. (-14,20,0,0),
  69. (14,20,0,0),
  70. (20,26,0,0),
  71. (20,74,0,0),
  72. (14,80,0,0),
  73. (-14,80,0,0),
  74. (-20,74,0,0),
  75. (40,20,0,0),
  76. (40,80,0,0),
  77. (60,20,0,0),
  78. (60,80,0,0),
  79. (80,60,0,0),
  80. (80,40,0,0));
  81. adnmodl : array[0..32,0..1] of integer =
  82. ((32,0),
  83. (2,3),
  84. (3,5),
  85. (5,7),
  86. (7,6),
  87. (6,4),
  88. (4,2),
  89. (11,10),
  90. (10,9),
  91. (9,8),
  92. (1,14),
  93. (14,13),
  94. (14,15),
  95. (13,15),
  96. (15,12),
  97. (17,16),
  98. (16,18),
  99. (18,19),
  100. (19,20),
  101. (22,23),
  102. (23,24),
  103. (24,25),
  104. (25,26),
  105. (26,27),
  106. (27,28),
  107. (28,21),
  108. (21,22),
  109. (29,31),
  110. (31,34),
  111. (34,33),
  112. (33,32),
  113. (32,30),
  114. (30,29));
  115.