Solo Programadores 22/SOLO_22.iso/disk22/cdemos/donut.pas

Pascal/Delphi Source File | 1996-04-14 | 5.8 KB | 398 lines

UNIT DONUT;

INTERFACE

Uses lib3d_v2;

Const

Points: Array [0..127] of Point3D = (
(92,0,0),
(85,-16,0),
(69,-23,0),
(53,-16,0),
(46,0,-0),
(53,16,-0),
(69,23,-0),
(85,16,-0),
(85,0,35),
(79,-16,32),
(64,-23,26),
(49,-16,20),
(42,0,17),
(49,16,20),
(64,23,26),
(79,16,32),
(65,0,65),
(60,-16,60),
(49,-23,49),
(37,-16,37),
(32,0,32),
(37,16,37),
(49,23,49),
(60,16,60),
(35,0,85),
(32,-16,79),
(26,-23,64),
(20,-16,49),
(17,0,42),
(20,16,49),
(26,23,64),
(32,16,79),
(-0,0,92),
(-0,-16,85),
(-0,-23,69),
(-0,-16,53),
(-0,0,46),
(-0,16,53),
(-0,23,69),
(-0,16,85),
(-35,0,85),
(-32,-16,79),
(-26,-23,64),
(-20,-16,49),
(-17,0,42),
(-20,16,49),
(-26,23,64),
(-32,16,79),
(-65,0,65),
(-60,-16,60),
(-49,-23,49),
(-37,-16,37),
(-32,0,32),
(-37,16,37),
(-49,23,49),
(-60,16,60),
(-85,0,35),
(-79,-16,32),
(-64,-23,26),
(-49,-16,20),
(-42,0,17),
(-49,16,20),
(-64,23,26),
(-79,16,32),
(-92,0,0),
(-85,-16,0),
(-69,-23,0),
(-53,-16,0),
(-46,0,0),
(-53,16,0),
(-69,23,0),
(-85,16,0),
(-85,-0,-35),
(-79,-16,-32),
(-64,-23,-26),
(-49,-16,-20),
(-42,-0,-17),
(-49,16,-20),
(-64,23,-26),
(-79,16,-32),
(-65,-0,-65),
(-60,-16,-60),
(-49,-23,-49),
(-37,-16,-37),
(-32,-0,-32),
(-37,16,-37),
(-49,23,-49),
(-60,16,-60),
(-35,-0,-85),
(-32,-16,-79),
(-26,-23,-64),
(-20,-16,-49),
(-17,-0,-42),
(-20,16,-49),
(-26,23,-64),
(-32,16,-79),
(0,-0,-92),
(0,-16,-85),
(0,-23,-69),
(0,-16,-53),
(0,-0,-46),
(0,16,-53),
(0,23,-69),
(0,16,-85),
(35,-0,-85),
(32,-16,-79),
(26,-23,-64),
(20,-16,-49),
(17,-0,-42),
(20,16,-49),
(26,23,-64),
(32,16,-79),
(65,-0,-65),
(60,-16,-60),
(49,-23,-49),
(37,-16,-37),
(32,-0,-32),
(37,16,-37),
(49,23,-49),
(60,16,-60),
(85,-0,-35),
(79,-16,-32),
(64,-23,-26),
(49,-16,-20),
(42,-0,-17),
(49,16,-20),
(64,23,-26),
(79,16,-32));
Faces: Array [0..255] of Face3D = (
(0,9,1,0),
(0,8,9,0),
(1,10,2,0),
(1,9,10,0),
(2,11,3,0),
(2,10,11,0),
(3,12,4,0),
(3,11,12,0),
(4,13,5,0),
(4,12,13,0),
(5,14,6,0),
(5,13,14,0),
(6,15,7,0),
(6,14,15,0),
(7,8,0,0),
(7,15,8,0),
(8,17,9,0),
(8,16,17,0),
(9,18,10,0),
(9,17,18,0),
(10,19,11,0),
(10,18,19,0),
(11,20,12,0),
(11,19,20,0),
(12,21,13,0),
(12,20,21,0),
(13,22,14,0),
(13,21,22,0),
(14,23,15,0),
(14,22,23,0),
(15,16,8,0),
(15,23,16,0),
(16,25,17,0),
(16,24,25,0),
(17,26,18,0),
(17,25,26,0),
(18,27,19,0),
(18,26,27,0),
(19,28,20,0),
(19,27,28,0),
(20,29,21,0),
(20,28,29,0),
(21,30,22,0),
(21,29,30,0),
(22,31,23,0),
(22,30,31,0),
(23,24,16,0),
(23,31,24,0),
(24,33,25,0),
(24,32,33,0),
(25,34,26,0),
(25,33,34,0),
(26,35,27,0),
(26,34,35,0),
(27,36,28,0),
(27,35,36,0),
(28,37,29,0),
(28,36,37,0),
(29,38,30,0),
(29,37,38,0),
(30,39,31,0),
(30,38,39,0),
(31,32,24,0),
(31,39,32,0),
(32,41,33,0),
(32,40,41,0),
(33,42,34,0),
(33,41,42,0),
(34,43,35,0),
(34,42,43,0),
(35,44,36,0),
(35,43,44,0),
(36,45,37,0),
(36,44,45,0),
(37,46,38,0),
(37,45,46,0),
(38,47,39,0),
(38,46,47,0),
(39,40,32,0),
(39,47,40,0),
(40,49,41,0),
(40,48,49,0),
(41,50,42,0),
(41,49,50,0),
(42,51,43,0),
(42,50,51,0),
(43,52,44,0),
(43,51,52,0),
(44,53,45,0),
(44,52,53,0),
(45,54,46,0),
(45,53,54,0),
(46,55,47,0),
(46,54,55,0),
(47,48,40,0),
(47,55,48,0),
(48,57,49,0),
(48,56,57,0),
(49,58,50,0),
(49,57,58,0),
(50,59,51,0),
(50,58,59,0),
(51,60,52,0),
(51,59,60,0),
(52,61,53,0),
(52,60,61,0),
(53,62,54,0),
(53,61,62,0),
(54,63,55,0),
(54,62,63,0),
(55,56,48,0),
(55,63,56,0),
(56,65,57,0),
(56,64,65,0),
(57,66,58,0),
(57,65,66,0),
(58,67,59,0),
(58,66,67,0),
(59,68,60,0),
(59,67,68,0),
(60,69,61,0),
(60,68,69,0),
(61,70,62,0),
(61,69,70,0),
(62,71,63,0),
(62,70,71,0),
(63,64,56,0),
(63,71,64,0),
(64,73,65,0),
(64,72,73,0),
(65,74,66,0),
(65,73,74,0),
(66,75,67,0),
(66,74,75,0),
(67,76,68,0),
(67,75,76,0),
(68,77,69,0),
(68,76,77,0),
(69,78,70,0),
(69,77,78,0),
(70,79,71,0),
(70,78,79,0),
(71,72,64,0),
(71,79,72,0),
(72,81,73,0),
(72,80,81,0),
(73,82,74,0),
(73,81,82,0),
(74,83,75,0),
(74,82,83,0),
(75,84,76,0),
(75,83,84,0),
(76,85,77,0),
(76,84,85,0),
(77,86,78,0),
(77,85,86,0),
(78,87,79,0),
(78,86,87,0),
(79,80,72,0),
(79,87,80,0),
(80,89,81,0),
(80,88,89,0),
(81,90,82,0),
(81,89,90,0),
(82,91,83,0),
(82,90,91,0),
(83,92,84,0),
(83,91,92,0),
(84,93,85,0),
(84,92,93,0),
(85,94,86,0),
(85,93,94,0),
(86,95,87,0),
(86,94,95,0),
(87,88,80,0),
(87,95,88,0),
(88,97,89,0),
(88,96,97,0),
(89,98,90,0),
(89,97,98,0),
(90,99,91,0),
(90,98,99,0),
(91,100,92,0),
(91,99,100,0),
(92,101,93,0),
(92,100,101,0),
(93,102,94,0),
(93,101,102,0),
(94,103,95,0),
(94,102,103,0),
(95,96,88,0),
(95,103,96,0),
(96,105,97,0),
(96,104,105,0),
(97,106,98,0),
(97,105,106,0),
(98,107,99,0),
(98,106,107,0),
(99,108,100,0),
(99,107,108,0),
(100,109,101,0),
(100,108,109,0),
(101,110,102,0),
(101,109,110,0),
(102,111,103,0),
(102,110,111,0),
(103,104,96,0),
(103,111,104,0),
(104,113,105,0),
(104,112,113,0),
(105,114,106,0),
(105,113,114,0),
(106,115,107,0),
(106,114,115,0),
(107,116,108,0),
(107,115,116,0),
(108,117,109,0),
(108,116,117,0),
(109,118,110,0),
(109,117,118,0),
(110,119,111,0),
(110,118,119,0),
(111,112,104,0),
(111,119,112,0),
(112,121,113,0),
(112,120,121,0),
(113,122,114,0),
(113,121,122,0),
(114,123,115,0),
(114,122,123,0),
(115,124,116,0),
(115,123,124,0),
(116,125,117,0),
(116,124,125,0),
(117,126,118,0),
(117,125,126,0),
(118,127,119,0),
(118,126,127,0),
(119,120,112,0),
(119,127,120,0),
(120,1,121,0),
(120,0,1,0),
(121,2,122,0),
(121,1,2,0),
(122,3,123,0),
(122,2,3,0),
(123,4,124,0),
(123,3,4,0),
(124,5,125,0),
(124,4,5,0),
(125,6,126,0),
(125,5,6,0),
(126,7,127,0),
(126,6,7,0),
(127,0,120,0),
(127,7,0,0));
IMPLEMENTATION

END.