proc celldef() { topol() geom() geom_nseg() } create soma, dend_5[49], apic[42], dend[51], axon[1] proc topol() { local i {soma connect axon[0](0), 1} {access axon[0]} {pt3dclear()} {pt3dadd(-0.568,-1,-0.023,1.5)} {pt3dadd(3.5,7,7,1)} {pt3dadd(5.5,14,7,1)} {pt3dadd(6.5,22.5,6,1)} {pt3dadd(6,29.5,7,1)} {pt3dadd(1.5,36,12,1)} {pt3dadd(-2.5,41,14,1)} {pt3dadd(-7.5,45,15.5,1)} {pt3dadd(-9,45,19.5,1)} {pt3dadd(-13.5,45.5,22.5,1)} {pt3dadd(-16.5,47,25.5,1)} {pt3dadd(-11.5,51.5,30,1)} {pt3dadd(-11.5,54.5,36.5,1)} {pt3dadd(-11,57.5,40.5,1)} {pt3dadd(-8.5,60.5,44.5,1)} connect dend_5(0), soma(1) for i = 1, 19 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[20](0), dend_5[18](1) for i = 21, 22 connect dend_5[i](0), dend_5[20](1) connect dend_5[23](0), dend_5[17](1) connect dend_5[24](0), dend_5[16](1) for i = 25, 26 connect dend_5[i](0), dend_5[24](1) connect dend_5[27](0), dend_5[13](1) for i = 28, 31 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[32](0), dend_5[30](1) for i = 33, 34 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[35](0), dend_5[33](1) connect dend_5[36](0), dend_5[32](1) for i = 37, 38 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[39](0), dend_5[37](1) connect dend_5[40](0), dend_5[36](1) for i = 41, 42 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[43](0), dend_5[41](1) connect dend_5[44](0), dend_5[40](1) for i = 45, 46 connect dend_5[i](0), dend_5[i-1](1) connect dend_5[47](0), dend_5[45](1) connect dend_5[48](0), dend_5[44](1) connect apic(0), dend_5(1) for i = 1, 2 connect apic[i](0), apic(1) for i = 3, 4 connect apic[i](0), apic[2](1) for i = 5, 6 connect apic[i](0), dend_5[i-4](1) for i = 7, 8 connect apic[i](0), apic[6](1) for i = 9, 10 connect apic[i](0), apic[8](1) for i = 11, 12 connect apic[i](0), apic[10](1) connect apic[13](0), dend_5[3](1) for i = 14, 15 connect apic[i](0), apic[13](1) for i = 16, 17 connect apic[i](0), dend_5[i-12](1) for i = 18, 19 connect apic[i](0), apic[17](1) connect apic[20](0), dend_5[6](1) for i = 21, 22 connect apic[i](0), apic[20](1) for i = 23, 24 connect apic[i](0), apic[22](1) for i = 25, 27 connect apic[i](0), dend_5[i-18](1) for i = 28, 29 connect apic[i](0), apic[27](1) for i = 30, 32 connect apic[i](0), dend_5[i-20](1) for i = 33, 34 connect apic[i](0), dend_5[i-19](1) for i = 35, 37 connect apic[i](0), dend_5[i-8](1) for i = 38, 39 connect apic[i](0), apic[i-1](1) connect apic[40](0), apic[38](1) connect apic[41](0), apic[37](1) connect dend(0), soma(0) for i = 1, 3 connect dend[i](0), dend[i-1](1) connect dend[4](0), dend[2](1) connect dend[5](0), dend[1](1) for i = 6, 7 connect dend[i](0), dend[5](1) for i = 8, 9 connect dend[i](0), dend[7](1) for i = 10, 11 connect dend[i](0), dend[9](1) connect dend[12](0), dend(1) for i = 13, 15 connect dend[i](0), dend[i-1](1) connect dend[16](0), dend[14](1) connect dend[17](0), dend[13](1) for i = 18, 19 connect dend[i](0), dend[17](1) connect dend[20](0), dend[12](1) for i = 21, 22 connect dend[i](0), dend[20](1) connect dend[23](0), soma(0) for i = 24, 26 connect dend[i](0), dend[i-1](1) connect dend[27](0), dend[25](1) connect dend[28](0), dend[24](1) connect dend[29](0), dend[23](1) for i = 30, 31 connect dend[i](0), dend[i-1](1) connect dend[32](0), dend[30](1) for i = 33, 34 connect dend[i](0), dend[32](1) connect dend[35](0), dend[29](1) for i = 36, 38 connect dend[i](0), dend[i-1](1) connect dend[39](0), dend[37](1) connect dend[40](0), dend[36](1) connect dend[41](0), dend[35](1) connect dend[42](0), soma(0) for i = 43, 44 connect dend[i](0), dend[i-1](1) connect dend[45](0), dend[43](1) for i = 46, 47 connect dend[i](0), dend[45](1) connect dend[48](0), dend[42](1) for i = 49, 50 connect dend[i](0), dend[48](1) basic_shape() } proc shape3d_1() { soma {pt3dclear() pt3dadd(10, 0, 30, 20) pt3dadd(21.5, 0.4, 30, 2.1) } dend_5 {pt3dclear() pt3dadd(21.5, 0.4, 30, 2.1) pt3dadd(22.3, 0.6, 30, 2.1) pt3dadd(23.2, 1, 30, 2.1) pt3dadd(24, 0.9, 30, 2.1) pt3dadd(28.3, 0.7, 30, 2.1) pt3dadd(29.7, -0.4, 30, 2.1) pt3dadd(31.1, -0.9, 30, 2.1) pt3dadd(32.4, -0.9, 30, 2.1) pt3dadd(36.6, -1.2, 30, 2.1) pt3dadd(39.1, -1.1, 30, 2.1) pt3dadd(40.1, -1.1, 30, 2.1) pt3dadd(41.5, -1.6, 30, 2.1) pt3dadd(42.3, -1.6, 30, 2.1) pt3dadd(45.6, -2.3, 30, 2.1) pt3dadd(46.1, -3.1, 30, 2.1) pt3dadd(47.1, -3.8, 30, 2.1) } apic {pt3dclear() pt3dadd(47.1, -3.8, 30, 2.1) pt3dadd(47.8, -2.7, 30, 0.5) pt3dadd(48.3, -1.1, 30, 0.5) pt3dadd(48.6, -0.2, 30, 0.5) pt3dadd(49.3, 0.8, 30, 0.5) pt3dadd(50.3, 1.1, 30, 0.5) pt3dadd(51.1, 1.8, 30, 0.5) pt3dadd(52, 2.1, 30, 0.5) pt3dadd(52.7, 2.8, 30, 0.5) pt3dadd(54.1, 3.4, 30, 0.5) pt3dadd(56.1, 4.4, 30, 0.5) pt3dadd(56.8, 5, 30, 0.5) pt3dadd(57.2, 6, 30, 0.5) pt3dadd(56.8, 7.1, 30, 0.5) } apic[1] {pt3dclear() pt3dadd(56.8, 7.1, 30, 0.5) pt3dadd(57.3, 8, 30, 0.5) pt3dadd(58, 9, 29.8, 0.5) pt3dadd(58.4, 10.2, 29.6, 0.5) pt3dadd(59.2, 10.9, 29.4, 0.5) pt3dadd(60, 11.2, 29.2, 0.5) pt3dadd(61.1, 11.9, 28.7, 0.5) pt3dadd(61.1, 12.7, 28.4, 0.5) pt3dadd(62.2, 12.9, 27.9, 0.5) pt3dadd(62.7, 13.5, 27.5, 0.5) pt3dadd(63.8, 13.9, 26.9, 0.5) pt3dadd(64.4, 14.5, 26.4, 0.5) pt3dadd(64.9, 15.5, 25.7, 0.5) pt3dadd(65.3, 16.5, 25, 0.5) pt3dadd(65.3, 17.5, 24.3, 0.5) pt3dadd(66.7, 19.3, 22.4, 0.5) pt3dadd(68, 20.1, 21.1, 0.5) pt3dadd(68.7, 20.9, 20.1, 0.5) pt3dadd(69.4, 21.8, 19, 0.5) pt3dadd(70.2, 22.2, 18.2, 0.5) pt3dadd(70.9, 22.8, 17.2, 0.5) pt3dadd(72.1, 25.1, 14.4, 0.5) pt3dadd(71.8, 26, 13.3, 0.5) pt3dadd(71.8, 27, 12.1, 0.5) pt3dadd(72.5, 27.9, 10.8, 0.5) pt3dadd(73.4, 28.5, 9.4, 0.5) pt3dadd(74.7, 29.3, 7.5, 0.5) pt3dadd(75.4, 29.7, 6.4, 0.5) pt3dadd(77.7, 30.6, 3.1, 0.5) pt3dadd(78.4, 31.1, 1.9, 0.5) pt3dadd(79.6, 33.2, -1.5, 0.5) pt3dadd(79.7, 34, -2.6, 0.5) pt3dadd(80, 34.8, -3.8, 0.5) pt3dadd(81.3, 36.5, -7, 0.5) pt3dadd(81.7, 37.6, -8.7, 0.5) pt3dadd(81.7, 38.4, -9.9, 0.5) pt3dadd(82, 43.1, -17, 0.5) pt3dadd(81.7, 44.9, -19.8, 0.5) pt3dadd(81.8, 46.1, -21.7, 0.5) pt3dadd(81.2, 47.4, -23.7, 0.5) pt3dadd(81.3, 48.3, -25.2, 0.5) pt3dadd(81.6, 52.7, -31.9, 0.5) pt3dadd(82.2, 56.2, -37.3, 0.5) pt3dadd(83, 56.9, -38.8, 0.5) pt3dadd(83.3, 57.7, -40.1, 0.5) pt3dadd(83.5, 58.7, -41.5, 0.5) pt3dadd(83.9, 59.7, -43.1, 0.5) pt3dadd(84, 60.7, -44.5, 0.5) pt3dadd(84.3, 64.9, -50.3, 0.5) pt3dadd(83.8, 65.7, -51.5, 0.5) pt3dadd(83.9, 66.8, -52.8, 0.5) pt3dadd(83.6, 67.8, -54.2, 0.5) pt3dadd(83.6, 68.7, -55.3, 0.5) pt3dadd(83.3, 69.4, -56.3, 0.5) pt3dadd(83.3, 70.2, -57.3, 0.5) pt3dadd(83.6, 72.6, -60, 0.5) pt3dadd(83.6, 73.4, -60.9, 0.5) pt3dadd(83.3, 74.3, -62, 0.5) pt3dadd(83.7, 75.4, -63.3, 0.5) pt3dadd(84.1, 76.3, -64.4, 0.5) pt3dadd(84.9, 77.2, -65.7, 0.5) pt3dadd(84.9, 78.2, -66.8, 0.5) pt3dadd(85.2, 81.5, -70.5, 0.5) pt3dadd(85.6, 82.8, -72, 0.5) } apic[2] {pt3dclear() pt3dadd(56.8, 7.1, 30, 0.5) pt3dadd(58.4, 7.3, 30.1, 0.5) pt3dadd(59.3, 7.5, 30.2, 0.5) pt3dadd(60.2, 7.9, 30.4, 0.5) pt3dadd(61.3, 8.1, 30.6, 0.5) pt3dadd(62.2, 8.4, 30.9, 0.5) pt3dadd(64.8, 8.9, 31.9, 0.5) pt3dadd(67.1, 9.1, 33.1, 0.5) pt3dadd(70.3, 9.6, 35.1, 0.5) pt3dadd(71.1, 9.6, 35.7, 0.5) pt3dadd(72, 9.9, 36.4, 0.5) pt3dadd(73.5, 10.1, 37.6, 0.5) pt3dadd(76.2, 10.3, 39.9, 0.5) pt3dadd(77.5, 10.5, 41.1, 0.5) pt3dadd(78.8, 10.4, 42.4, 0.5) pt3dadd(80.1, 11.1, 43.9, 0.5) pt3dadd(80.8, 11.5, 44.7, 0.5) pt3dadd(81.5, 12.6, 46.1, 0.5) pt3dadd(82.9, 14.2, 48.5, 0.5) pt3dadd(84, 14.2, 49.8, 0.5) pt3dadd(84.6, 13.6, 50.7, 0.5) pt3dadd(85.6, 13.6, 51.9, 0.5) pt3dadd(86.8, 13.8, 53.3, 0.5) pt3dadd(88.1, 14.5, 55.1, 0.5) pt3dadd(88.9, 14.4, 56.1, 0.5) pt3dadd(90, 14.7, 57.4, 0.5) pt3dadd(90.8, 14.6, 58.4, 0.5) pt3dadd(92.1, 14.8, 60, 0.5) pt3dadd(93.2, 14.8, 61.7, 0.5) pt3dadd(95, 15, 65.9, 0.5) pt3dadd(96, 15.2, 68.5, 0.5) pt3dadd(97.3, 15.2, 72.1, 0.5) pt3dadd(98.3, 14.7, 75.4, 0.5) pt3dadd(99.3, 14.6, 77.9, 0.5) pt3dadd(100.3, 14.9, 80.5, 0.5) pt3dadd(101.9, 16, 84, 0.5) } apic[3] {pt3dclear() pt3dadd(101.9, 16, 84, 0.5) pt3dadd(102.8, 16.5, 85.3, 0.5) pt3dadd(103.2, 17.8, 87, 0.5) pt3dadd(103.5, 18.8, 88.3, 0.5) pt3dadd(104.2, 19.5, 89.3, 0.5) pt3dadd(104.7, 20.2, 90.3, 0.5) pt3dadd(105.3, 20.9, 91.2, 0.5) pt3dadd(106.1, 21.4, 91.9, 0.5) pt3dadd(108, 22.3, 93.6, 0.5) pt3dadd(109.5, 23.2, 94.8, 0.5) pt3dadd(110.3, 24.2, 95.5, 0.5) pt3dadd(111.5, 26, 96.5, 0.5) pt3dadd(111.9, 27, 96.8, 0.5) pt3dadd(112.6, 27.6, 97.1, 0.5) pt3dadd(113.4, 28.2, 97.3, 0.5) pt3dadd(115.1, 29.3, 97.5, 0.5) pt3dadd(115.5, 30.1, 97.5, 0.5) pt3dadd(116.2, 31.1, 97.5, 0.5) pt3dadd(117.1, 31.4, 97.4, 0.5) pt3dadd(117.7, 32, 97.3, 0.5) pt3dadd(118.6, 32.3, 97.1, 0.5) pt3dadd(120.3, 32.5, 96.6, 0.5) pt3dadd(121.5, 32.8, 96.1, 0.5) pt3dadd(122.7, 33.6, 95.5, 0.5) pt3dadd(123.6, 34.4, 94.9, 0.5) pt3dadd(124.7, 35.1, 94.1, 0.5) pt3dadd(125.8, 35.3, 93.4, 0.5) pt3dadd(126.7, 35.6, 92.7, 0.5) pt3dadd(127.5, 35.5, 92.2, 0.5) pt3dadd(128.6, 35.8, 91.3, 0.5) pt3dadd(129.4, 36, 90.6, 0.5) pt3dadd(130.5, 36.3, 89.6, 0.5) pt3dadd(131.5, 36.6, 88.6, 0.5) pt3dadd(131.9, 37.5, 87.7, 0.5) pt3dadd(132.7, 37.7, 86.8, 0.5) pt3dadd(133.7, 38.3, 85.6, 0.5) pt3dadd(135.2, 38.2, 84, 0.5) } apic[4] {pt3dclear() pt3dadd(101.9, 16, 84, 0.5) pt3dadd(101.6, 15.1, 85.1, 0.5) pt3dadd(102.6, 15.5, 86.2, 0.5) pt3dadd(104.5, 16.4, 88.5, 0.5) pt3dadd(105.2, 17.2, 89.6, 0.5) pt3dadd(105.6, 18, 90.4, 0.5) pt3dadd(106.3, 19, 91.7, 0.5) pt3dadd(106.8, 19.6, 92.5, 0.5) pt3dadd(107.8, 19.9, 93.6, 0.5) pt3dadd(109, 19.8, 94.8, 0.5) pt3dadd(112.4, 20.5, 98, 0.5) pt3dadd(113.2, 21.1, 98.9, 0.5) pt3dadd(114.3, 21.4, 99.9, 0.5) pt3dadd(116.3, 21.9, 101.7, 0.5) pt3dadd(117.2, 21.8, 102.5, 0.5) pt3dadd(118, 22.2, 103.2, 0.5) pt3dadd(119.1, 22.8, 104.2, 0.5) pt3dadd(120.1, 23.2, 105.1, 0.5) pt3dadd(120.8, 24.2, 106.1, 0.5) pt3dadd(120.9, 25, 106.8, 0.5) pt3dadd(122.1, 25.8, 107.9, 0.5) pt3dadd(123.3, 26.1, 108.8, 0.5) pt3dadd(124.1, 26, 109.4, 0.5) pt3dadd(125.1, 25.9, 110, 0.5) pt3dadd(126.2, 26.5, 111, 0.5) pt3dadd(127.1, 27.3, 111.8, 0.5) pt3dadd(128, 27.2, 112.3, 0.5) pt3dadd(129.1, 27.5, 113.1, 0.5) pt3dadd(130.8, 27.7, 114.2, 0.5) pt3dadd(131.8, 28, 114.8, 0.5) pt3dadd(133.2, 29.1, 115.8, 0.5) } } proc shape3d_2() { apic[4] { pt3dadd(135.4, 30.1, 117.1, 0.5) pt3dadd(136.2, 30, 117.6, 0.5) pt3dadd(138.3, 30.2, 118.7, 0.5) pt3dadd(139.1, 30.6, 119.1, 0.5) pt3dadd(139.9, 30.5, 119.5, 0.5) pt3dadd(140.9, 30.8, 120, 0.5) pt3dadd(141.7, 31, 120.4, 0.5) pt3dadd(142.8, 30.9, 120.9, 0.5) pt3dadd(143.8, 31.1, 121.4, 0.5) pt3dadd(145.8, 31.5, 122.3, 0.5) pt3dadd(147.4, 32.1, 123.1, 0.5) pt3dadd(148.6, 32.3, 123.6, 0.5) pt3dadd(150.7, 32.9, 124.7, 0.5) pt3dadd(151.9, 33.2, 125.2, 0.5) pt3dadd(152.8, 33.5, 125.7, 0.5) pt3dadd(154.1, 33.8, 126.3, 0.5) pt3dadd(155.2, 34.5, 126.9, 0.5) pt3dadd(156.1, 34.7, 127.3, 0.5) pt3dadd(157.1, 35.5, 127.9, 0.5) pt3dadd(158.8, 37.1, 129, 0.5) pt3dadd(159.6, 37.9, 129.5, 0.5) pt3dadd(159.9, 38.8, 129.9, 0.5) pt3dadd(160.8, 39.1, 130.3, 0.5) pt3dadd(161.7, 39.9, 130.9, 0.5) pt3dadd(163.4, 41.3, 131.9, 0.5) pt3dadd(164.7, 42.5, 132.7, 0.5) pt3dadd(165.8, 43.3, 133.3, 0.5) pt3dadd(166.5, 43.7, 133.7, 0.5) pt3dadd(167.3, 44.1, 134.1, 0.5) pt3dadd(168.3, 44.3, 134.5, 0.5) pt3dadd(169.5, 44.9, 135.1, 0.5) pt3dadd(170.4, 45.1, 135.5, 0.5) pt3dadd(172.3, 45.8, 136.4, 0.5) pt3dadd(174, 46.5, 137.2, 0.5) pt3dadd(175, 46.7, 137.6, 0.5) pt3dadd(178.3, 47.8, 139.1, 0.5) pt3dadd(178.6, 48.7, 139.5, 0.5) pt3dadd(179.8, 49.1, 140, 0.5) pt3dadd(181.4, 49.4, 140.7, 0.5) pt3dadd(183, 50.3, 141.4, 0.5) pt3dadd(183.8, 50.6, 141.8, 0.5) pt3dadd(185.4, 50.8, 142.4, 0.5) pt3dadd(186.4, 51, 142.8, 0.5) pt3dadd(188.3, 51.7, 143.6, 0.5) pt3dadd(189.3, 52, 144, 0.5) pt3dadd(190.4, 52.7, 144.5, 0.5) pt3dadd(191.8, 53, 145, 0.5) pt3dadd(192.5, 54.1, 145.5, 0.5) pt3dadd(193.4, 55.4, 146.1, 0.5) pt3dadd(194.3, 56.6, 146.6, 0.5) pt3dadd(194.8, 57.3, 146.9, 0.5) pt3dadd(196, 59, 147.7, 0.5) pt3dadd(197.4, 60.6, 148.4, 0.5) pt3dadd(197.7, 61.5, 148.7, 0.5) pt3dadd(198.4, 62.4, 149.1, 0.5) pt3dadd(200.4, 64.8, 150, 0.5) pt3dadd(201.4, 66, 150.5, 0.5) pt3dadd(201.8, 66.7, 150.8, 0.5) pt3dadd(203.7, 68.2, 151.5, 0.5) pt3dadd(204.8, 69, 151.9, 0.5) pt3dadd(205.8, 69.5, 152.2, 0.5) pt3dadd(206.8, 69.8, 152.4, 0.5) pt3dadd(208.1, 70.5, 152.8, 0.5) pt3dadd(209.1, 70.8, 153.1, 0.5) pt3dadd(210.6, 71.1, 153.5, 0.5) pt3dadd(211.3, 71.4, 153.7, 0.5) pt3dadd(212.2, 71.7, 153.9, 0.5) pt3dadd(214.4, 72.3, 154.4, 0.5) pt3dadd(216.4, 72.5, 154.8, 0.5) pt3dadd(218.7, 72.7, 155.3, 0.5) pt3dadd(219.9, 72.9, 155.5, 0.5) pt3dadd(221.3, 73.2, 155.8, 0.5) pt3dadd(222.5, 73.7, 156, 0.5) } dend_5[1] {pt3dclear() pt3dadd(47.1, -3.8, 30, 2.1) pt3dadd(47.9, -4, 30, 2.1) pt3dadd(48.9, -4.1, 30, 2.1) pt3dadd(51.1, -5, 30, 2.1) pt3dadd(52.6, -5.5, 30, 2.1) pt3dadd(54.1, -5.6, 30, 2.1) pt3dadd(55.9, -6.1, 30, 2.1) pt3dadd(56.7, -6.1, 30, 2.1) pt3dadd(58.1, -6.2, 30, 2.1) pt3dadd(59.4, -6.6, 30, 2.1) } apic[5] {pt3dclear() pt3dadd(59.4, -6.6, 30, 2.1) pt3dadd(59, -7.6, 30, 0.5) pt3dadd(58.9, -8.4, 30, 0.5) pt3dadd(59.3, -10.7, 30, 0.5) pt3dadd(59.7, -11.3, 30, 0.5) pt3dadd(59.6, -12.8, 30, 0.5) pt3dadd(59.3, -16.9, 30, 0.5) pt3dadd(59.6, -17.9, 30, 0.5) pt3dadd(59.8, -19.4, 30.1, 0.5) pt3dadd(60.2, -20.4, 30.1, 0.5) pt3dadd(60.7, -21.4, 30.1, 0.5) pt3dadd(61.7, -22.3, 30.1, 0.5) pt3dadd(62.6, -23.4, 30.1, 0.5) pt3dadd(63.6, -24.3, 30.1, 0.5) pt3dadd(64.5, -24.9, 30.1, 0.5) pt3dadd(67.8, -27.2, 30.2, 0.5) pt3dadd(69, -28.2, 30.2, 0.5) pt3dadd(70.5, -28.7, 30.3, 0.5) pt3dadd(71.2, -29.7, 30.3, 0.5) pt3dadd(71.5, -30.6, 30.3, 0.5) pt3dadd(71.8, -31.6, 30.3, 0.5) pt3dadd(72, -33, 30.4, 0.5) pt3dadd(72, -33.8, 30.4, 0.5) pt3dadd(72, -38.5, 30.5, 0.5) pt3dadd(72.5, -40.7, 30.5, 0.5) pt3dadd(72.4, -41.8, 30.6, 0.5) pt3dadd(72.1, -46, 30.7, 0.5) pt3dadd(72.4, -47.8, 30.7, 0.5) pt3dadd(73.6, -51.8, 30.9, 0.5) pt3dadd(74.2, -52.7, 30.9, 0.5) pt3dadd(74.1, -53.6, 30.9, 0.5) pt3dadd(74.7, -54.6, 31, 0.5) pt3dadd(74.6, -55.5, 31, 0.5) pt3dadd(74.9, -56.5, 31, 0.5) pt3dadd(75.6, -57.4, 31.1, 0.5) pt3dadd(76.5, -57.9, 31.1, 0.5) pt3dadd(78.1, -59.8, 31.2, 0.5) pt3dadd(78.8, -60.8, 31.3, 0.5) pt3dadd(80.1, -61.3, 31.3, 0.5) pt3dadd(83.3, -62.6, 31.4, 0.5) pt3dadd(84.8, -63.1, 31.5, 0.5) pt3dadd(85.8, -63.8, 31.5, 0.5) pt3dadd(88.3, -64.8, 31.7, 0.5) pt3dadd(90.4, -65.3, 31.7, 0.5) pt3dadd(92.5, -66.5, 31.8, 0.5) pt3dadd(93.2, -67.5, 31.9, 0.5) pt3dadd(94, -68.5, 32, 0.5) pt3dadd(96.7, -71.2, 32.1, 0.5) pt3dadd(97.5, -71.3, 32.2, 0.5) pt3dadd(98.4, -71.7, 32.2, 0.5) pt3dadd(99.2, -71.8, 32.2, 0.5) pt3dadd(100.4, -72.8, 32.3, 0.5) pt3dadd(101.2, -73.7, 32.4, 0.5) pt3dadd(101.9, -74.3, 32.4, 0.5) pt3dadd(102.4, -75, 32.5, 0.5) pt3dadd(103.1, -75.6, 32.5, 0.5) pt3dadd(104.4, -76.1, 32.6, 0.5) pt3dadd(105.1, -76.5, 32.6, 0.5) pt3dadd(106.5, -77.5, 32.7, 0.5) pt3dadd(107.4, -77.9, 32.7, 0.5) pt3dadd(108.2, -78, 32.8, 0.5) pt3dadd(109.5, -78.5, 32.9, 0.5) pt3dadd(110.4, -79, 32.9, 0.5) pt3dadd(111.6, -80, 33, 0.5) pt3dadd(112.8, -81.1, 33.1, 0.5) pt3dadd(113.9, -82.3, 33.2, 0.5) pt3dadd(115, -83.4, 33.2, 0.5) pt3dadd(115.8, -84, 33.3, 0.5) pt3dadd(117.3, -84.5, 33.4, 0.5) pt3dadd(118.4, -85.3, 33.4, 0.5) pt3dadd(119.1, -86.1, 33.5, 0.5) pt3dadd(120.3, -87.3, 33.6, 0.5) pt3dadd(121, -87.8, 33.6, 0.5) pt3dadd(122.1, -87.9, 33.7, 0.5) pt3dadd(123, -88.7, 33.8, 0.5) pt3dadd(124, -88.8, 33.8, 0.5) pt3dadd(124.8, -89.2, 33.9, 0.5) pt3dadd(126.4, -89.7, 34, 0.5) pt3dadd(127.3, -90.2, 34, 0.5) pt3dadd(128.2, -90.2, 34.1, 0.5) pt3dadd(132.7, -90.5, 34.3, 0.5) pt3dadd(133.3, -91, 34.4, 0.5) pt3dadd(134.6, -91.4, 34.4, 0.5) pt3dadd(135.5, -91.5, 34.5, 0.5) pt3dadd(140, -91.8, 34.7, 0.5) pt3dadd(144.4, -92.1, 35, 0.5) pt3dadd(145.4, -92.6, 35, 0.5) pt3dadd(146.5, -92.7, 35.1, 0.5) pt3dadd(147.2, -93.1, 35.2, 0.5) pt3dadd(149, -94.1, 35.3, 0.5) pt3dadd(149.7, -94.5, 35.3, 0.5) pt3dadd(150.4, -95.5, 35.4, 0.5) pt3dadd(151.1, -96.4, 35.5, 0.5) pt3dadd(152.2, -96.5, 35.5, 0.5) pt3dadd(153.2, -96.9, 35.6, 0.5) pt3dadd(155.3, -97.4, 35.7, 0.5) pt3dadd(155.9, -98, 35.8, 0.5) pt3dadd(157.4, -98.9, 35.9, 0.5) pt3dadd(158.1, -99.9, 35.9, 0.5) pt3dadd(159, -100.8, 36, 0.5) } dend_5[2] {pt3dclear() pt3dadd(59.4, -6.6, 30, 2.1) pt3dadd(60.5, -6.7, 30.2, 2.1) pt3dadd(61.6, -6.5, 30.6, 2.1) pt3dadd(62.6, -6.5, 31.2, 2.1) pt3dadd(63.3, -7, 31.9, 2.1) pt3dadd(64.5, -7, 32.9, 2.1) pt3dadd(69, -7.3, 35.8, 2.1) pt3dadd(70, -7.7, 36, 2.1) } apic[6] {pt3dclear() pt3dadd(70, -7.7, 36, 2.1) pt3dadd(70.1, -8.6, 35.6, 0.5) pt3dadd(69.5, -9.5, 34.7, 0.5) pt3dadd(69.5, -10.4, 33.6, 0.5) pt3dadd(70.3, -10.8, 32.4, 0.5) pt3dadd(71.2, -10.9, 31.3, 0.5) pt3dadd(72.7, -10.6, 30, 0.5) } apic[7] {pt3dclear() pt3dadd(72.7, -10.6, 30, 0.5) pt3dadd(73, -11.6, 29.6, 0.5) } } proc shape3d_3() { apic[7] { pt3dadd(73.2, -12.5, 29.3, 0.5) pt3dadd(74.1, -15, 28.5, 0.5) pt3dadd(75.1, -17.7, 27.6, 0.5) pt3dadd(75.4, -18.9, 27.2, 0.5) pt3dadd(75.3, -20, 26.9, 0.5) pt3dadd(75.4, -24, 25.9, 0.5) pt3dadd(75.7, -25.8, 25.4, 0.5) pt3dadd(75.1, -28.1, 24.9, 0.5) pt3dadd(74.6, -29.6, 24.6, 0.5) pt3dadd(74.6, -30.4, 24.4, 0.5) pt3dadd(74, -31.6, 24.2, 0.5) pt3dadd(73.9, -32.8, 24, 0.5) pt3dadd(74.3, -33.8, 23.8, 0.5) pt3dadd(74.7, -34.6, 23.6, 0.5) pt3dadd(74.9, -35.6, 23.5, 0.5) pt3dadd(75.2, -37.3, 23.2, 0.5) pt3dadd(75.8, -38.3, 23.1, 0.5) pt3dadd(75.7, -39.3, 23, 0.5) pt3dadd(75.3, -40.6, 22.8, 0.5) pt3dadd(74.8, -41.3, 22.7, 0.5) pt3dadd(74.8, -42.3, 22.7, 0.5) pt3dadd(74.3, -43.5, 22.6, 0.5) pt3dadd(73.8, -44.4, 22.5, 0.5) pt3dadd(72.7, -45.4, 22.4, 0.5) pt3dadd(72.3, -46.8, 22.3, 0.5) pt3dadd(72.2, -47.8, 22.3, 0.5) pt3dadd(71.9, -52.7, 22.3, 0.5) pt3dadd(72.3, -54, 22.3, 0.5) pt3dadd(72.2, -54.8, 22.4, 0.5) pt3dadd(71.6, -58.1, 22.6, 0.5) pt3dadd(71, -58.7, 22.6, 0.5) pt3dadd(69.5, -60.2, 22.9, 0.5) pt3dadd(69, -61.1, 23, 0.5) pt3dadd(68.4, -61.8, 23.1, 0.5) pt3dadd(67.7, -62.4, 23.2, 0.5) pt3dadd(66.8, -62.9, 23.4, 0.5) pt3dadd(66.3, -64, 23.6, 0.5) pt3dadd(66.2, -65.1, 23.7, 0.5) pt3dadd(66.5, -66.3, 24, 0.5) pt3dadd(66.8, -67.3, 24.2, 0.5) pt3dadd(67.5, -68.4, 24.5, 0.5) pt3dadd(67.8, -69.4, 24.7, 0.5) pt3dadd(67.7, -70.5, 24.9, 0.5) pt3dadd(67.3, -71.5, 25.2, 0.5) pt3dadd(66.3, -71.8, 25.5, 0.5) pt3dadd(65.4, -72.7, 25.8, 0.5) pt3dadd(64.8, -73.9, 26.2, 0.5) pt3dadd(65.1, -75.7, 26.7, 0.5) pt3dadd(65.8, -77.1, 27.3, 0.5) pt3dadd(66.4, -79.2, 28, 0.5) pt3dadd(66.7, -80.6, 28.6, 0.5) pt3dadd(66.9, -82.8, 29.4, 0.5) pt3dadd(67.1, -83.7, 29.8, 0.5) pt3dadd(67.8, -84.7, 30.3, 0.5) pt3dadd(69.3, -86.3, 31.3, 0.5) pt3dadd(70.2, -86.3, 31.7, 0.5) pt3dadd(71, -86.8, 32.1, 0.5) pt3dadd(71.8, -87.3, 32.6, 0.5) pt3dadd(73.3, -88.7, 33.6, 0.5) pt3dadd(73.5, -89.5, 34.1, 0.5) pt3dadd(74.6, -89.5, 34.6, 0.5) pt3dadd(75.2, -90.1, 35.1, 0.5) pt3dadd(76.5, -91, 36, 0.5) } apic[8] {pt3dclear() pt3dadd(72.7, -10.6, 30, 0.5) pt3dadd(73.8, -10, 29.4, 0.5) pt3dadd(74.2, -9, 29, 0.5) pt3dadd(74.2, -8.2, 28.8, 0.5) pt3dadd(74.6, -7.1, 28.5, 0.5) pt3dadd(75, -6.3, 28.3, 0.5) pt3dadd(75.8, -5.2, 28, 0.5) pt3dadd(76.6, -4.9, 27.9, 0.5) pt3dadd(78, -4.2, 27.6, 0.5) pt3dadd(78.7, -3.2, 27.3, 0.5) pt3dadd(79.6, -2.3, 26.8, 0.5) pt3dadd(80, -1.7, 26.5, 0.5) pt3dadd(80.4, -0.7, 26, 0.5) pt3dadd(81.1, 0.2, 25.3, 0.5) pt3dadd(82.6, 0.9, 24, 0.5) } apic[9] {pt3dclear() pt3dadd(82.6, 0.9, 24, 0.5) pt3dadd(83.2, 1.9, 23.3, 0.5) pt3dadd(83.6, 2.8, 22.7, 0.5) pt3dadd(83.6, 3.7, 22.2, 0.5) pt3dadd(84.4, 5, 21.3, 0.5) pt3dadd(84.8, 6.1, 20.6, 0.5) pt3dadd(85.2, 7.8, 19.5, 0.5) pt3dadd(85.8, 9.4, 18.5, 0.5) pt3dadd(86.1, 10.2, 17.9, 0.5) pt3dadd(86.6, 11.9, 16.8, 0.5) pt3dadd(87.1, 13.6, 15.8, 0.5) pt3dadd(87.2, 15.3, 14.7, 0.5) pt3dadd(87.4, 19.6, 12, 0.5) pt3dadd(87, 20.3, 11.4, 0.5) pt3dadd(87.1, 21.1, 10.9, 0.5) pt3dadd(87.7, 25.9, 7.8, 0.5) pt3dadd(87.7, 26.7, 7.3, 0.5) pt3dadd(88.2, 28.5, 6, 0.5) pt3dadd(89, 30.2, 4.7, 0.5) pt3dadd(89.4, 31.3, 3.9, 0.5) pt3dadd(89.9, 32, 3.3, 0.5) pt3dadd(90.4, 32.9, 2.6, 0.5) pt3dadd(91.2, 34.2, 1.6, 0.5) pt3dadd(92, 36.2, 0.1, 0.5) pt3dadd(92.4, 38.3, -1.4, 0.5) pt3dadd(92.9, 39, -2, 0.5) pt3dadd(93.3, 40.3, -2.9, 0.5) pt3dadd(93.7, 41, -3.5, 0.5) pt3dadd(95.2, 44.2, -6, 0.5) pt3dadd(95.6, 45.3, -6.9, 0.5) pt3dadd(96, 46.1, -7.6, 0.5) pt3dadd(96, 46.9, -8.1, 0.5) pt3dadd(96.7, 47.8, -9, 0.5) pt3dadd(97.2, 48.6, -9.7, 0.5) pt3dadd(98.1, 49.6, -10.7, 0.5) pt3dadd(98.8, 50.1, -11.3, 0.5) pt3dadd(100, 51.1, -12.5, 0.5) pt3dadd(101.7, 52.7, -14.3, 0.5) pt3dadd(102.1, 54.3, -15.6, 0.5) pt3dadd(102.2, 55.7, -16.7, 0.5) pt3dadd(102.6, 57, -17.7, 0.5) pt3dadd(103, 57.8, -18.4, 0.5) pt3dadd(103.7, 58.7, -19.4, 0.5) pt3dadd(104.2, 60.1, -20.6, 0.5) pt3dadd(105, 61.1, -21.6, 0.5) pt3dadd(106.4, 63, -23.5, 0.5) pt3dadd(107.1, 64.3, -24.7, 0.5) pt3dadd(107.5, 65.3, -25.6, 0.5) pt3dadd(107.6, 66.1, -26.3, 0.5) pt3dadd(108.4, 67.8, -27.9, 0.5) pt3dadd(109.2, 68.4, -28.8, 0.5) pt3dadd(110, 68.7, -29.5, 0.5) pt3dadd(110.6, 69.4, -30.3, 0.5) pt3dadd(110.1, 70.3, -31.1, 0.5) pt3dadd(109.4, 71.1, -32.1, 0.5) pt3dadd(109.1, 72.2, -33, 0.5) pt3dadd(108.7, 73, -33.8, 0.5) pt3dadd(108, 74.5, -35.3, 0.5) pt3dadd(107.8, 75.3, -36, 0.5) } apic[10] {pt3dclear() pt3dadd(82.6, 0.9, 24, 0.5) pt3dadd(83.5, 0.8, 23, 0.5) pt3dadd(84.4, 1.1, 21.9, 0.5) pt3dadd(85.2, 1, 21, 0.5) pt3dadd(87, 0.9, 19.1, 0.5) pt3dadd(87.9, 0.8, 18, 0.5) } apic[11] {pt3dclear() pt3dadd(87.9, 0.8, 18, 0.5) pt3dadd(88.9, 1.4, 16.7, 0.5) pt3dadd(90.1, 2.2, 15.2, 0.5) pt3dadd(92.2, 3.4, 12.5, 0.5) pt3dadd(93.4, 3.9, 11.1, 0.5) pt3dadd(94.3, 4.8, 9.7, 0.5) pt3dadd(95, 5.2, 8.8, 0.5) pt3dadd(96.9, 5.8, 6.6, 0.5) pt3dadd(98.9, 6, 4.4, 0.5) pt3dadd(104, 5.7, -1.1, 0.5) pt3dadd(105.4, 6.3, -2.8, 0.5) pt3dadd(106.4, 6.6, -4, 0.5) pt3dadd(107.2, 7, -5, 0.5) pt3dadd(108.1, 6.9, -5.9, 0.5) pt3dadd(109, 7.7, -7.2, 0.5) pt3dadd(110, 8.3, -8.6, 0.5) pt3dadd(110.9, 8.6, -9.6, 0.5) pt3dadd(112.9, 9.1, -11.9, 0.5) pt3dadd(113.9, 9.6, -13, 0.5) pt3dadd(115.2, 9.8, -14.5, 0.5) pt3dadd(116.2, 10, -15.6, 0.5) pt3dadd(117, 10.7, -16.8, 0.5) pt3dadd(118.2, 11, -18.1, 0.5) pt3dadd(118.9, 11.4, -19, 0.5) pt3dadd(119.6, 11.8, -20, 0.5) pt3dadd(120.5, 12.2, -21, 0.5) pt3dadd(121.7, 12.4, -22.3, 0.5) pt3dadd(122.9, 12.3, -23.6, 0.5) pt3dadd(127.6, 12, -28.7, 0.5) pt3dadd(130.3, 11.5, -31.7, 0.5) pt3dadd(131.2, 11.4, -32.6, 0.5) pt3dadd(132.2, 12, -34, 0.5) pt3dadd(133.1, 12.2, -35, 0.5) pt3dadd(134.4, 12.9, -36.5, 0.5) pt3dadd(135.3, 13.1, -37.6, 0.5) pt3dadd(136.3, 13.5, -38.7, 0.5) pt3dadd(137.3, 13.4, -39.8, 0.5) pt3dadd(140.6, 12.8, -43.4, 0.5) pt3dadd(141.6, 12.7, -44.4, 0.5) pt3dadd(144.4, 12.9, -47.4, 0.5) pt3dadd(145.4, 12.8, -48.5, 0.5) pt3dadd(146.2, 13.1, -49.4, 0.5) pt3dadd(147, 13.5, -50.4, 0.5) pt3dadd(148.9, 14, -52.5, 0.5) pt3dadd(150.8, 13.5, -54.6, 0.5) pt3dadd(151.9, 13, -55.9, 0.5) pt3dadd(152.8, 12.4, -57, 0.5) pt3dadd(153, 11.5, -58, 0.5) pt3dadd(153.8, 11.1, -58.9, 0.5) pt3dadd(154.6, 10.4, -60, 0.5) pt3dadd(154.9, 9.4, -61.1, 0.5) pt3dadd(155.8, 9.3, -62, 0.5) pt3dadd(156.9, 8.8, -63.3, 0.5) pt3dadd(157.7, 9.4, -64.2, 0.5) pt3dadd(158.6, 9.7, -65, 0.5) pt3dadd(159.3, 10.1, -65.8, 0.5) pt3dadd(160.3, 11.1, -67, 0.5) } } proc shape3d_4() { apic[11] { pt3dadd(161.2, 11.7, -67.9, 0.5) pt3dadd(161.9, 12.4, -68.7, 0.5) pt3dadd(163.1, 14, -70.3, 0.5) pt3dadd(164, 14.7, -71.1, 0.5) pt3dadd(164.9, 16, -72.3, 0.5) pt3dadd(166.3, 16.7, -73.4, 0.5) pt3dadd(167.2, 17.4, -74.2, 0.5) pt3dadd(168, 17.7, -74.8, 0.5) pt3dadd(169, 17.9, -75.5, 0.5) pt3dadd(169.7, 18.3, -76, 0.5) pt3dadd(170.7, 18.5, -76.7, 0.5) pt3dadd(171.7, 18.8, -77.4, 0.5) pt3dadd(172.4, 19.4, -78, 0.5) } apic[12] {pt3dclear() pt3dadd(87.9, 0.8, 18, 0.5) pt3dadd(87.6, -0.1, 16.9, 0.5) pt3dadd(87.6, -0.9, 16, 0.5) pt3dadd(87.7, -3.2, 13.4, 0.5) pt3dadd(87.7, -4.6, 11.8, 0.5) pt3dadd(88.3, -5.1, 10.9, 0.5) pt3dadd(88.9, -6.1, 9.6, 0.5) pt3dadd(89.2, -7.3, 8.2, 0.5) pt3dadd(89.7, -7.9, 7.3, 0.5) pt3dadd(90.5, -9.6, 5.2, 0.5) pt3dadd(90.5, -10.5, 4.1, 0.5) pt3dadd(91.7, -11.6, 2.3, 0.5) pt3dadd(92, -12.9, 0.8, 0.5) pt3dadd(92.2, -13.8, -0.3, 0.5) pt3dadd(92.5, -14.9, -1.6, 0.5) pt3dadd(92.4, -16.4, -3.2, 0.5) pt3dadd(92.6, -18.2, -5.3, 0.5) pt3dadd(92.9, -19.3, -6.7, 0.5) pt3dadd(93.5, -19.9, -7.7, 0.5) pt3dadd(93.5, -21, -8.8, 0.5) pt3dadd(92.8, -24.8, -13.3, 0.5) pt3dadd(92.8, -25.6, -14.2, 0.5) pt3dadd(92.3, -26.4, -15.2, 0.5) pt3dadd(91.3, -28, -17.4, 0.5) pt3dadd(90.7, -28.9, -18.6, 0.5) pt3dadd(89.7, -30.1, -20.4, 0.5) pt3dadd(89.2, -31, -21.5, 0.5) pt3dadd(88.8, -32, -22.8, 0.5) pt3dadd(88.7, -33, -23.9, 0.5) pt3dadd(89.2, -36.5, -27.9, 0.5) pt3dadd(89.6, -37.2, -28.8, 0.5) pt3dadd(89.8, -38.2, -30, 0.5) pt3dadd(89.8, -39.3, -31.2, 0.5) pt3dadd(90, -40.3, -32.4, 0.5) pt3dadd(90.7, -40.9, -33.5, 0.5) pt3dadd(91.3, -42, -34.8, 0.5) pt3dadd(92.5, -43.4, -37, 0.5) pt3dadd(94, -44.5, -39.1, 0.5) pt3dadd(94.7, -45, -40.1, 0.5) pt3dadd(95.5, -45.8, -41.4, 0.5) pt3dadd(96.1, -46.4, -42.3, 0.5) pt3dadd(96.5, -47.2, -43.3, 0.5) pt3dadd(97.2, -48, -44.6, 0.5) pt3dadd(98.4, -48.9, -46.2, 0.5) pt3dadd(99.1, -49.3, -47.1, 0.5) pt3dadd(99.4, -50.1, -48.1, 0.5) pt3dadd(100.3, -50.6, -49.2, 0.5) pt3dadd(100.6, -51.5, -50.3, 0.5) pt3dadd(101.4, -52, -51.3, 0.5) pt3dadd(103, -52.6, -53.3, 0.5) pt3dadd(103.3, -53.5, -54.3, 0.5) pt3dadd(103.7, -56.1, -57.2, 0.5) pt3dadd(104, -57, -58.3, 0.5) pt3dadd(104.6, -58.4, -60, 0.5) pt3dadd(105.3, -59, -61, 0.5) pt3dadd(106, -59.5, -62, 0.5) pt3dadd(106.3, -60.3, -62.9, 0.5) pt3dadd(107.3, -60.8, -64.2, 0.5) pt3dadd(108.2, -61.4, -65.3, 0.5) pt3dadd(108.4, -62.3, -66.4, 0.5) pt3dadd(108.4, -63.4, -67.5, 0.5) pt3dadd(109, -63.9, -68.4, 0.5) pt3dadd(109.8, -64.7, -69.6, 0.5) pt3dadd(110.7, -65.2, -70.7, 0.5) pt3dadd(111.4, -65.6, -71.6, 0.5) pt3dadd(112, -66.5, -72.7, 0.5) pt3dadd(113.7, -67.5, -74.8, 0.5) pt3dadd(114.4, -68.4, -75.9, 0.5) pt3dadd(115.2, -68.8, -76.9, 0.5) pt3dadd(116.1, -69.4, -78, 0.5) } dend_5[3] {pt3dclear() pt3dadd(70, -7.7, 36, 2.1) pt3dadd(71.3, -7.7, 35.9, 2.1) pt3dadd(72.6, -7.8, 35.7, 2.1) pt3dadd(75.6, -8.4, 34.9, 2.1) pt3dadd(76.7, -8.5, 34.5, 2.1) pt3dadd(79.5, -8.3, 33.4, 2.1) pt3dadd(80.6, -8.4, 32.9, 2.1) pt3dadd(82.1, -8.9, 32.3, 2.1) pt3dadd(83.1, -9.3, 31.8, 2.1) pt3dadd(83.9, -9.4, 31.5, 2.1) pt3dadd(88.2, -9.7, 30.2, 2.1) pt3dadd(89.1, -9.4, 30.1, 2.1) pt3dadd(90.5, -9.4, 30, 2.1) } apic[13] {pt3dclear() pt3dadd(90.5, -9.4, 30, 2.1) pt3dadd(91.3, -9.8, 29.8, 0.5) pt3dadd(91.7, -10.6, 29.7, 0.5) pt3dadd(92.2, -11.2, 29.5, 0.5) pt3dadd(92.6, -12.2, 29.2, 0.5) pt3dadd(92.9, -13.1, 29, 0.5) pt3dadd(94, -15.2, 28.5, 0.5) pt3dadd(94.9, -17.2, 28, 0.5) pt3dadd(95.5, -18.2, 27.7, 0.5) pt3dadd(96.3, -18.7, 27.5, 0.5) pt3dadd(97.2, -19.7, 27.2, 0.5) pt3dadd(98.6, -19.8, 26.9, 0.5) pt3dadd(99.3, -20.2, 26.7, 0.5) pt3dadd(100.1, -21.1, 26.5, 0.5) pt3dadd(101.1, -21.7, 26.2, 0.5) pt3dadd(101.9, -22.7, 26, 0.5) pt3dadd(103.3, -24.1, 25.6, 0.5) pt3dadd(103.6, -25, 25.4, 0.5) pt3dadd(104.5, -25.5, 25.2, 0.5) pt3dadd(105.1, -26.4, 25, 0.5) pt3dadd(105.9, -27.3, 24.8, 0.5) pt3dadd(107.4, -29.3, 24.4, 0.5) pt3dadd(108.2, -30.3, 24.3, 0.5) pt3dadd(110.2, -31.7, 24, 0.5) pt3dadd(110.5, -32.8, 23.9, 0.5) pt3dadd(111.3, -33.7, 23.8, 0.5) pt3dadd(111.6, -34.8, 23.8, 0.5) pt3dadd(112.7, -35.9, 23.8, 0.5) pt3dadd(113.1, -36.9, 23.7, 0.5) pt3dadd(114.3, -38.1, 23.8, 0.5) pt3dadd(115.1, -38.6, 23.8, 0.5) pt3dadd(116.3, -39.2, 23.9, 0.5) pt3dadd(117.3, -39.7, 24, 0.5) } apic[14] {pt3dclear() pt3dadd(117.3, -39.7, 24, 0.5) pt3dadd(118.7, -40.1, 23.9, 0.5) pt3dadd(119.8, -40.9, 23.8, 0.5) pt3dadd(120.4, -41.8, 23.7, 0.5) pt3dadd(121.1, -42.3, 23.7, 0.5) pt3dadd(122.5, -42.8, 23.6, 0.5) pt3dadd(123.3, -42.8, 23.6, 0.5) pt3dadd(127.4, -43.5, 23.3, 0.5) pt3dadd(129.6, -44, 23.2, 0.5) pt3dadd(130.5, -44.5, 23.2, 0.5) pt3dadd(131.1, -45.4, 23.2, 0.5) pt3dadd(132.5, -46.4, 23.1, 0.5) pt3dadd(133.5, -46.5, 23.1, 0.5) pt3dadd(134.8, -47, 23, 0.5) pt3dadd(135.6, -47, 23, 0.5) pt3dadd(137.4, -47.5, 22.9, 0.5) pt3dadd(138.6, -47.6, 22.9, 0.5) pt3dadd(140.4, -48.2, 22.9, 0.5) pt3dadd(141, -48.7, 22.9, 0.5) pt3dadd(141.3, -49.5, 22.9, 0.5) pt3dadd(141.6, -50.4, 22.8, 0.5) pt3dadd(142.2, -51.3, 22.8, 0.5) pt3dadd(142.9, -51.9, 22.8, 0.5) pt3dadd(144.3, -53, 22.8, 0.5) pt3dadd(146.5, -53.9, 22.8, 0.5) pt3dadd(148.2, -53.4, 22.8, 0.5) pt3dadd(149, -53.4, 22.8, 0.5) pt3dadd(151.7, -54, 22.8, 0.5) pt3dadd(154.5, -56.3, 22.9, 0.5) pt3dadd(155.4, -57.4, 22.9, 0.5) pt3dadd(156.4, -57.9, 23, 0.5) pt3dadd(157.5, -58.4, 23, 0.5) pt3dadd(158.6, -58.4, 23, 0.5) pt3dadd(163.6, -58.4, 23.2, 0.5) pt3dadd(164.6, -58.2, 23.2, 0.5) pt3dadd(165.4, -57.8, 23.3, 0.5) pt3dadd(166.4, -57.6, 23.3, 0.5) pt3dadd(167.9, -57, 23.4, 0.5) pt3dadd(168.6, -56.4, 23.5, 0.5) pt3dadd(169.6, -56.9, 23.5, 0.5) pt3dadd(170.5, -57.4, 23.6, 0.5) pt3dadd(171.3, -57.5, 23.6, 0.5) pt3dadd(172.3, -57.2, 23.7, 0.5) pt3dadd(173.2, -56.9, 23.7, 0.5) pt3dadd(174.2, -56.3, 23.8, 0.5) pt3dadd(175, -56, 23.9, 0.5) pt3dadd(176.5, -55, 24, 0.5) } apic[15] {pt3dclear() pt3dadd(117.3, -39.7, 24, 0.5) pt3dadd(116.9, -41.2, 24.5, 0.5) pt3dadd(117.2, -42.2, 24.9, 0.5) pt3dadd(117.1, -43.2, 25.4, 0.5) pt3dadd(117.7, -44.5, 26.3, 0.5) pt3dadd(117.7, -45.8, 27.1, 0.5) pt3dadd(117, -48.5, 29.3, 0.5) pt3dadd(117, -49.3, 30, 0.5) pt3dadd(116.4, -50.4, 31.1, 0.5) pt3dadd(115.8, -52.6, 33.4, 0.5) pt3dadd(115.2, -53.8, 34.7, 0.5) pt3dadd(114.7, -54.7, 35.9, 0.5) pt3dadd(114.7, -55.6, 36.8, 0.5) pt3dadd(114.1, -57.5, 39.1, 0.5) pt3dadd(113.7, -58.7, 40.6, 0.5) pt3dadd(113.1, -59.3, 41.5, 0.5) pt3dadd(112.7, -60.6, 43.2, 0.5) pt3dadd(112.2, -61.2, 44.1, 0.5) pt3dadd(111.7, -62.3, 45.5, 0.5) pt3dadd(110.7, -63.3, 47.1, 0.5) pt3dadd(110.6, -64.5, 48.5, 0.5) pt3dadd(110.1, -65.5, 49.8, 0.5) pt3dadd(110.1, -66.6, 51, 0.5) pt3dadd(110.3, -69.5, 54.2, 0.5) } } proc shape3d_5() { apic[15] { pt3dadd(110.2, -70.6, 55.3, 0.5) pt3dadd(110.5, -71.6, 56.3, 0.5) pt3dadd(110.4, -72.8, 57.4, 0.5) pt3dadd(109.9, -74.7, 59.1, 0.5) pt3dadd(109.2, -75.7, 60, 0.5) pt3dadd(109.8, -76.5, 60.8, 0.5) pt3dadd(110.1, -77.6, 61.6, 0.5) pt3dadd(110, -78.5, 62.3, 0.5) pt3dadd(109.5, -81, 64.2, 0.5) pt3dadd(109.4, -82.5, 65.4, 0.5) pt3dadd(109.1, -87.1, 68.8, 0.5) pt3dadd(108.5, -88.3, 69.7, 0.5) pt3dadd(108, -89.7, 70.8, 0.5) pt3dadd(108, -90.7, 71.6, 0.5) pt3dadd(108.1, -94.6, 74.4, 0.5) pt3dadd(108.5, -95.7, 75.2, 0.5) pt3dadd(109, -96.6, 75.9, 0.5) pt3dadd(109.3, -97.4, 76.5, 0.5) pt3dadd(109.6, -98.3, 77.2, 0.5) pt3dadd(109.9, -99.3, 77.9, 0.5) pt3dadd(110.1, -100.4, 78.7, 0.5) pt3dadd(110.5, -101.5, 79.4, 0.5) pt3dadd(110.7, -102.8, 80.3, 0.5) pt3dadd(111.4, -104.1, 81.2, 0.5) pt3dadd(111.8, -104.8, 81.7, 0.5) pt3dadd(112.4, -105.7, 82.4, 0.5) pt3dadd(113.5, -106.3, 83.2, 0.5) pt3dadd(114.7, -106.9, 84, 0.5) } dend_5[4] {pt3dclear() pt3dadd(90.5, -9.4, 30, 2.1) pt3dadd(91.3, -9.5, 30, 2.1) pt3dadd(92.1, -9.5, 30, 2.1) pt3dadd(94.1, -9.6, 30, 2.1) pt3dadd(95, -9.6, 30, 2.1) pt3dadd(96.1, -9.4, 30, 2.1) pt3dadd(97.1, -9.4, 30, 2.1) pt3dadd(98.2, -9.5, 30, 2.1) } apic[16] {pt3dclear() pt3dadd(98.2, -9.5, 30, 2.1) pt3dadd(97.6, -8.9, 30.1, 0.5) pt3dadd(97.6, -8.1, 30.2, 0.5) pt3dadd(97, -5.3, 30.7, 0.5) pt3dadd(95.9, -4.6, 31.1, 0.5) pt3dadd(95.6, -3.8, 31.4, 0.5) pt3dadd(95.2, -2.9, 31.7, 0.5) pt3dadd(93.7, -0.4, 33, 0.5) pt3dadd(92.9, 0, 33.5, 0.5) pt3dadd(92.5, 0.8, 33.9, 0.5) pt3dadd(91.5, 1.2, 34.5, 0.5) pt3dadd(90.8, 2.1, 35.2, 0.5) pt3dadd(90.4, 2.8, 35.8, 0.5) pt3dadd(89.9, 3.9, 36.6, 0.5) pt3dadd(89, 4.7, 37.5, 0.5) pt3dadd(87.8, 5.4, 38.5, 0.5) pt3dadd(86.6, 5.8, 39.5, 0.5) pt3dadd(85.7, 6.2, 40.4, 0.5) pt3dadd(85.3, 7, 41.2, 0.5) pt3dadd(84.6, 8.1, 42.4, 0.5) pt3dadd(84.2, 8.9, 43.2, 0.5) pt3dadd(83.8, 9.6, 44, 0.5) pt3dadd(82.9, 10.3, 45.1, 0.5) pt3dadd(81.9, 10.7, 46.3, 0.5) pt3dadd(80.2, 11.5, 48.3, 0.5) pt3dadd(79.7, 12.4, 49.4, 0.5) pt3dadd(79.4, 13.3, 50.5, 0.5) pt3dadd(78.3, 15.1, 53, 0.5) pt3dadd(77.5, 15.9, 54.5, 0.5) pt3dadd(76.7, 16.6, 55.8, 0.5) pt3dadd(75.7, 17, 57.3, 0.5) pt3dadd(75.3, 17.8, 58.4, 0.5) pt3dadd(74.4, 18.5, 60, 0.5) pt3dadd(73.6, 18.9, 61.2, 0.5) pt3dadd(73.1, 19.5, 62.6, 0.5) pt3dadd(72.3, 19.6, 63.9, 0.5) pt3dadd(71.6, 20.3, 65.7, 0.5) pt3dadd(70.7, 20.7, 67.6, 0.5) pt3dadd(69.8, 21.3, 70, 0.5) pt3dadd(67.7, 23.5, 77.1, 0.5) pt3dadd(67.8, 24.6, 80, 0.5) pt3dadd(67.5, 26.5, 85.5, 0.5) pt3dadd(67.2, 27.3, 88.2, 0.5) pt3dadd(65.8, 29.2, 95.5, 0.5) pt3dadd(63.9, 30, 102.4, 0.5) pt3dadd(63.1, 30.4, 105.7, 0.5) pt3dadd(62.2, 30, 108.9, 0.5) pt3dadd(61.8, 29.1, 112.8, 0.5) pt3dadd(61.3, 28, 117.3, 0.5) pt3dadd(61.3, 27.1, 121, 0.5) pt3dadd(60.3, 25.8, 127.5, 0.5) pt3dadd(59.5, 25.8, 130.8, 0.5) pt3dadd(57.7, 26.6, 139, 0.5) pt3dadd(57.4, 27.5, 142.9, 0.5) pt3dadd(56, 28.3, 149.9, 0.5) pt3dadd(53.8, 28, 159.7, 0.5) pt3dadd(52.9, 27.7, 164.2, 0.5) pt3dadd(51.1, 26.8, 174, 0.5) pt3dadd(50.1, 26.8, 178.5, 0.5) pt3dadd(48.1, 26.9, 188, 0.5) pt3dadd(47.7, 26.3, 192, 0.5) } dend_5[5] {pt3dclear() pt3dadd(98.2, -9.5, 30, 2.1) pt3dadd(99.1, -9.6, 30, 2.1) pt3dadd(100.1, -9.7, 30, 2.1) pt3dadd(101.2, -10.2, 30, 2.1) pt3dadd(102.2, -10.8, 30, 2.1) pt3dadd(103.1, -11.2, 30, 2.1) pt3dadd(104.3, -11.3, 30, 2.1) pt3dadd(109.1, -11.6, 30, 2.1) pt3dadd(110.9, -11.4, 30, 2.1) pt3dadd(112, -11.5, 30, 2.1) pt3dadd(114.2, -12.1, 30, 2.1) pt3dadd(115.3, -12.6, 30, 2.1) pt3dadd(116.6, -12.3, 30, 2.1) pt3dadd(117.6, -12.4, 30, 2.1) pt3dadd(118.3, -12.8, 30, 2.1) pt3dadd(120.1, -13, 30, 2.1) } apic[17] {pt3dclear() pt3dadd(120.1, -13, 30, 2.1) pt3dadd(120.7, -12.6, 30, 0.5) pt3dadd(121.2, -11.7, 30, 0.5) pt3dadd(122.1, -11, 30, 0.5) pt3dadd(122.9, -10.3, 30, 0.5) pt3dadd(124, -10.3, 30, 0.5) pt3dadd(126.4, -10.2, 30, 0.5) pt3dadd(127.2, -10.2, 30, 0.5) pt3dadd(129.7, -10.8, 30, 0.5) pt3dadd(130.6, -10.8, 30, 0.5) } apic[18] {pt3dclear() pt3dadd(130.6, -10.8, 30, 0.5) pt3dadd(130.5, -9.9, 30, 0.5) pt3dadd(131.6, -9.7, 30, 0.5) pt3dadd(132.4, -9.4, 29.9, 0.5) pt3dadd(133.9, -8.5, 29.8, 0.5) pt3dadd(134.8, -8.2, 29.7, 0.5) pt3dadd(135.5, -7.9, 29.6, 0.5) pt3dadd(138.4, -6.4, 29.1, 0.5) pt3dadd(139.5, -5.8, 28.8, 0.5) pt3dadd(141.5, -4.9, 28.3, 0.5) pt3dadd(142.6, -5, 28, 0.5) pt3dadd(143.4, -4.6, 27.8, 0.5) pt3dadd(144.7, -4.7, 27.4, 0.5) pt3dadd(146.9, -4.5, 26.7, 0.5) pt3dadd(148.2, -3.8, 26.2, 0.5) pt3dadd(149.2, -3, 25.7, 0.5) pt3dadd(149.8, -2.6, 25.4, 0.5) pt3dadd(150.7, -2.3, 25, 0.5) pt3dadd(151.8, -2.4, 24.5, 0.5) pt3dadd(152.7, -2.1, 24.1, 0.5) pt3dadd(154, -1.6, 23.4, 0.5) pt3dadd(154.8, -1.3, 23, 0.5) pt3dadd(155.9, -0.2, 22.2, 0.5) pt3dadd(158.1, 1.9, 20.6, 0.5) pt3dadd(159.9, 3, 19.4, 0.5) pt3dadd(160.7, 3.6, 18.8, 0.5) pt3dadd(161.6, 3.9, 18.2, 0.5) pt3dadd(162.7, 3.8, 17.5, 0.5) pt3dadd(164.1, 4.1, 16.6, 0.5) pt3dadd(165.1, 4, 16, 0.5) pt3dadd(166.1, 4.3, 15.3, 0.5) pt3dadd(167.4, 4.6, 14.4, 0.5) pt3dadd(168.6, 5.1, 13.5, 0.5) pt3dadd(169.5, 5.1, 12.8, 0.5) pt3dadd(170.6, 5.7, 11.9, 0.5) pt3dadd(171.8, 6.1, 11, 0.5) pt3dadd(173, 6.8, 9.9, 0.5) pt3dadd(173.9, 7.4, 9.1, 0.5) pt3dadd(175.2, 7.7, 8, 0.5) pt3dadd(176.3, 8.4, 7, 0.5) pt3dadd(177.3, 8.6, 6.1, 0.5) pt3dadd(179, 9.6, 4.5, 0.5) pt3dadd(180.2, 10.1, 3.4, 0.5) pt3dadd(180.5, 10.9, 2.7, 0.5) pt3dadd(181.3, 11.9, 1.6, 0.5) pt3dadd(182.3, 12.3, 0.7, 0.5) pt3dadd(183.6, 12.6, -0.5, 0.5) pt3dadd(184.3, 13.3, -1.4, 0.5) pt3dadd(185.6, 13.2, -2.5, 0.5) pt3dadd(186.6, 13.9, -3.6, 0.5) pt3dadd(190.4, 16.6, -8, 0.5) pt3dadd(191.7, 18.3, -10.1, 0.5) pt3dadd(193, 18.9, -11.4, 0.5) pt3dadd(193.9, 19.1, -12.4, 0.5) pt3dadd(195.2, 19.4, -13.7, 0.5) pt3dadd(197.3, 20.2, -15.9, 0.5) pt3dadd(198.3, 20.6, -17, 0.5) pt3dadd(199.6, 21.2, -18.5, 0.5) pt3dadd(200.8, 22, -20, 0.5) pt3dadd(201.5, 22.3, -20.8, 0.5) pt3dadd(203.3, 22.7, -22.7, 0.5) pt3dadd(206, 23.5, -25.6, 0.5) pt3dadd(206.8, 24.1, -26.7, 0.5) pt3dadd(207.6, 24.5, -27.7, 0.5) pt3dadd(208.7, 24.7, -28.8, 0.5) pt3dadd(209.8, 24.6, -30, 0.5) pt3dadd(212.3, 25.1, -32.7, 0.5) pt3dadd(213.4, 25.4, -34, 0.5) pt3dadd(214.2, 26, -35.1, 0.5) pt3dadd(215, 26.4, -36, 0.5) pt3dadd(217.3, 26.9, -38.6, 0.5) pt3dadd(218.2, 27.1, -39.6, 0.5) pt3dadd(219.4, 27.4, -40.9, 0.5) pt3dadd(220.8, 27.9, -42.6, 0.5) pt3dadd(221.6, 28.5, -43.7, 0.5) pt3dadd(222.5, 28.5, -44.6, 0.5) pt3dadd(224.3, 28.7, -46.6, 0.5) } } proc shape3d_6() { apic[18] { pt3dadd(225.5, 28.9, -48, 0.5) } apic[19] {pt3dclear() pt3dadd(130.6, -10.8, 30, 0.5) pt3dadd(131.3, -12, 30, 0.5) pt3dadd(132.2, -12.8, 29.9, 0.5) pt3dadd(133.4, -12.9, 29.9, 0.5) pt3dadd(134.1, -13.4, 29.8, 0.5) pt3dadd(134.9, -14, 29.7, 0.5) pt3dadd(136, -14.5, 29.5, 0.5) pt3dadd(136.5, -15.4, 29.4, 0.5) pt3dadd(137.4, -16.3, 29.2, 0.5) pt3dadd(138.4, -17.8, 28.8, 0.5) pt3dadd(139.4, -19.6, 28.3, 0.5) pt3dadd(140.1, -20.1, 28.1, 0.5) pt3dadd(141.1, -20.6, 27.8, 0.5) pt3dadd(142.6, -20.7, 27.3, 0.5) pt3dadd(143.2, -21.3, 27.1, 0.5) pt3dadd(143.9, -21.7, 26.8, 0.5) pt3dadd(144.7, -21.8, 26.5, 0.5) pt3dadd(145.7, -22.3, 26.1, 0.5) pt3dadd(147.1, -22.8, 25.5, 0.5) pt3dadd(148.6, -23.6, 24.9, 0.5) pt3dadd(150, -24.2, 24.2, 0.5) pt3dadd(150.8, -24.7, 23.7, 0.5) pt3dadd(152.1, -24.8, 23.1, 0.5) pt3dadd(154.1, -24.4, 22.1, 0.5) pt3dadd(154.9, -23.7, 21.6, 0.5) pt3dadd(155.9, -23, 20.9, 0.5) pt3dadd(156.8, -23.1, 20.4, 0.5) pt3dadd(158.9, -23.6, 19.2, 0.5) pt3dadd(160.4, -24.7, 18.1, 0.5) pt3dadd(161.1, -25.3, 17.5, 0.5) pt3dadd(162.4, -26, 16.5, 0.5) pt3dadd(163.2, -26.5, 15.9, 0.5) pt3dadd(164.2, -26.6, 15.3, 0.5) pt3dadd(164.9, -27, 14.7, 0.5) pt3dadd(166.5, -27.6, 13.5, 0.5) pt3dadd(167.1, -28.2, 12.9, 0.5) pt3dadd(167.8, -28.6, 12.3, 0.5) pt3dadd(169.2, -29.1, 11.2, 0.5) pt3dadd(170.3, -29.6, 10.3, 0.5) pt3dadd(173.1, -31.7, 7.6, 0.5) pt3dadd(173.1, -32.6, 6.9, 0.5) pt3dadd(173.3, -33.8, 5.9, 0.5) pt3dadd(173.4, -34.9, 5, 0.5) pt3dadd(173.9, -36, 4, 0.5) pt3dadd(174.8, -37.5, 2.5, 0.5) pt3dadd(175.3, -38.5, 1.6, 0.5) pt3dadd(176.2, -38.9, 0.7, 0.5) pt3dadd(177.8, -39.4, -0.8, 0.5) pt3dadd(178.6, -40.1, -1.7, 0.5) pt3dadd(179.7, -40.6, -2.8, 0.5) pt3dadd(180.7, -40.7, -3.7, 0.5) pt3dadd(183, -41.2, -5.8, 0.5) pt3dadd(184.7, -41.3, -7.4, 0.5) pt3dadd(188.7, -42, -11.3, 0.5) pt3dadd(189.6, -42.1, -12.2, 0.5) pt3dadd(191.1, -42.7, -13.8, 0.5) pt3dadd(192, -42.7, -14.6, 0.5) pt3dadd(194.1, -43.3, -16.8, 0.5) pt3dadd(195.1, -43.7, -17.8, 0.5) pt3dadd(196, -44.3, -18.9, 0.5) pt3dadd(196.9, -45.1, -20.1, 0.5) pt3dadd(197.5, -45.9, -21.2, 0.5) pt3dadd(197.8, -46.9, -22.2, 0.5) pt3dadd(198, -47.9, -23.2, 0.5) pt3dadd(198.2, -50.1, -25.5, 0.5) pt3dadd(198.6, -50.9, -26.5, 0.5) pt3dadd(198.9, -51.9, -27.5, 0.5) pt3dadd(199.5, -53.1, -28.9, 0.5) pt3dadd(199.4, -53.9, -29.8, 0.5) pt3dadd(200.1, -55, -31.1, 0.5) pt3dadd(200.9, -56.7, -33.1, 0.5) pt3dadd(201.6, -57.9, -34.5, 0.5) pt3dadd(202.3, -58.5, -35.5, 0.5) pt3dadd(203.6, -59, -36.9, 0.5) pt3dadd(204.5, -59, -37.9, 0.5) pt3dadd(207.2, -59.6, -40.8, 0.5) pt3dadd(208.2, -60.2, -42, 0.5) } dend_5[6] {pt3dclear() pt3dadd(120.1, -13, 30, 2.1) pt3dadd(120.7, -13.6, 30, 2.1) pt3dadd(121.7, -13.7, 30, 2.1) pt3dadd(122.5, -14.1, 29.9, 2.1) pt3dadd(123.6, -14.2, 29.8, 2.1) pt3dadd(125.3, -13.7, 29.8, 2.1) pt3dadd(126.1, -13.7, 29.7, 2.1) pt3dadd(129, -14.3, 29.8, 2.1) pt3dadd(129.8, -14.4, 29.9, 2.1) pt3dadd(130.9, -14.8, 30.1, 2.1) pt3dadd(132, -14.9, 30.3, 2.1) pt3dadd(136.7, -15.2, 32.6, 2.1) pt3dadd(138.7, -15.7, 34.4, 2.1) pt3dadd(140.2, -16, 36, 2.1) } apic[20] {pt3dclear() pt3dadd(140.2, -16, 36, 2.1) pt3dadd(141, -15.9, 36.8, 0.5) pt3dadd(141.7, -15, 39.2, 0.5) pt3dadd(142.4, -14.4, 42.3, 0.5) pt3dadd(143.4, -14.1, 46.5, 0.5) pt3dadd(144.1, -13.5, 51, 0.5) pt3dadd(145.8, -12.8, 60, 0.5) pt3dadd(146.8, -12.9, 68.6, 0.5) pt3dadd(147.6, -12.3, 81, 0.5) pt3dadd(148.4, -11.7, 93.3, 0.5) pt3dadd(149.2, -11.5, 102.5, 0.5) pt3dadd(150, -10.9, 108, 0.5) } apic[21] {pt3dclear() pt3dadd(150, -10.9, 108, 0.5) pt3dadd(150.7, -9.9, 115.3, 0.5) pt3dadd(150.7, -9.1, 120, 0.5) pt3dadd(151.4, -5.9, 138, 0.5) pt3dadd(152.6, -5.2, 145.5, 0.5) pt3dadd(153.4, -5, 149.9, 0.5) pt3dadd(154.4, -4.3, 155.9, 0.5) pt3dadd(157.8, -1.8, 175.5, 0.5) pt3dadd(157.9, -0.9, 179.3, 0.5) pt3dadd(159.2, 0.6, 187.7, 0.5) pt3dadd(159.6, 1.7, 192.3, 0.5) pt3dadd(160, 2.6, 195.8, 0.5) pt3dadd(160.3, 3.7, 200, 0.5) pt3dadd(160.8, 4.4, 203.1, 0.5) pt3dadd(161.2, 5.2, 206, 0.5) pt3dadd(162.3, 5.9, 210.4, 0.5) pt3dadd(163.2, 6.1, 213.3, 0.5) pt3dadd(164, 6.8, 216.3, 0.5) pt3dadd(164.6, 7.5, 219.3, 0.5) pt3dadd(164.7, 8.4, 221.7, 0.5) pt3dadd(165.1, 9.7, 225.1, 0.5) pt3dadd(165.9, 10.5, 228, 0.5) pt3dadd(166.8, 10.8, 230.2, 0.5) pt3dadd(167.6, 11.1, 232.2, 0.5) pt3dadd(168.8, 11.3, 234.8, 0.5) pt3dadd(170.2, 11.9, 237.7, 0.5) pt3dadd(172.4, 12.9, 241.9, 0.5) pt3dadd(173.9, 14.1, 244.8, 0.5) pt3dadd(174.7, 15.2, 246.5, 0.5) pt3dadd(175.1, 15.9, 247.5, 0.5) pt3dadd(175.9, 16.7, 248.7, 0.5) pt3dadd(176.8, 17.4, 249.8, 0.5) pt3dadd(178.4, 19.2, 251.5, 0.5) pt3dadd(179.3, 20.7, 252.4, 0.5) pt3dadd(180.2, 21.4, 252.8, 0.5) pt3dadd(181.1, 22.2, 253, 0.5) pt3dadd(182, 22.1, 253.1, 0.5) pt3dadd(183.1, 22.4, 253.1, 0.5) pt3dadd(184, 22.3, 253, 0.5) pt3dadd(185.5, 22.9, 252.6, 0.5) pt3dadd(186.3, 23.7, 252.2, 0.5) pt3dadd(187.4, 24.6, 251.4, 0.5) pt3dadd(188.3, 25, 250.7, 0.5) pt3dadd(189.1, 25.4, 250.1, 0.5) pt3dadd(191.5, 27.1, 247.3, 0.5) pt3dadd(192, 27.9, 246.2, 0.5) pt3dadd(192.6, 28.8, 244.9, 0.5) pt3dadd(193.4, 29.7, 243.1, 0.5) pt3dadd(194.2, 30.1, 241.8, 0.5) pt3dadd(195.4, 30.8, 239.7, 0.5) pt3dadd(195.9, 32, 237.5, 0.5) pt3dadd(196.3, 32.7, 236, 0.5) pt3dadd(196.7, 33.8, 233.8, 0.5) pt3dadd(197.6, 34.8, 231.1, 0.5) pt3dadd(198.8, 36.2, 227.1, 0.5) pt3dadd(200.2, 37.9, 221.7, 0.5) pt3dadd(200.7, 38.8, 219.1, 0.5) pt3dadd(201.1, 40.6, 214.4, 0.5) pt3dadd(201.7, 43.6, 205.4, 0.5) pt3dadd(202.5, 45.1, 200.3, 0.5) pt3dadd(204.4, 46.7, 192.2, 0.5) pt3dadd(204.7, 47.6, 189, 0.5) pt3dadd(205.1, 48.7, 184.9, 0.5) pt3dadd(205.2, 49.6, 181.5, 0.5) pt3dadd(205.6, 50.5, 177.7, 0.5) pt3dadd(206, 51.5, 173.6, 0.5) pt3dadd(206.4, 53.2, 167, 0.5) pt3dadd(206.8, 54.2, 162.7, 0.5) pt3dadd(206.9, 55.1, 159.2, 0.5) pt3dadd(207.7, 55.9, 154.3, 0.5) pt3dadd(208.9, 57.2, 146.8, 0.5) pt3dadd(209.3, 58.1, 142.4, 0.5) pt3dadd(209.4, 59.1, 137.7, 0.5) pt3dadd(209.9, 61.2, 128.1, 0.5) pt3dadd(210.7, 62.1, 122.2, 0.5) pt3dadd(212.3, 62.8, 114, 0.5) } apic[22] {pt3dclear() pt3dadd(150, -10.9, 108, 0.5) pt3dadd(150.9, -11.2, 108.3, 0.5) pt3dadd(151.8, -10.8, 108.5, 0.5) pt3dadd(154.2, -10.3, 108.3, 0.5) pt3dadd(155, -9.9, 108, 0.5) pt3dadd(155.9, -9, 107.6, 0.5) pt3dadd(156.7, -7.9, 106.9, 0.5) pt3dadd(157.6, -6.5, 105.9, 0.5) pt3dadd(158, -5.7, 105.3, 0.5) pt3dadd(159.1, -4.1, 103.9, 0.5) pt3dadd(160.1, -3.9, 103.1, 0.5) pt3dadd(161.3, -3.3, 102.1, 0.5) pt3dadd(162, -3.4, 101.5, 0.5) pt3dadd(163.8, -3.1, 100.1, 0.5) pt3dadd(164.9, -2.8, 99.3, 0.5) pt3dadd(165.9, -2.9, 98.6, 0.5) pt3dadd(167.6, -2.7, 97.6, 0.5) pt3dadd(168.4, -2.7, 97.2, 0.5) pt3dadd(171.3, -2.9, 96.1, 0.5) pt3dadd(172.3, -2.7, 96, 0.5) } } proc shape3d_7() { apic[22] { } apic[23] {pt3dclear() pt3dadd(172.3, -2.7, 96, 0.5) pt3dadd(173.1, -1.9, 95.4, 0.5) pt3dadd(173.3, -1, 94.9, 0.5) pt3dadd(174, 0.1, 94.1, 0.5) pt3dadd(174.7, 0.5, 93.6, 0.5) pt3dadd(175.4, 1.1, 93.1, 0.5) pt3dadd(176.8, 1, 92.3, 0.5) pt3dadd(178, 1.6, 91.5, 0.5) pt3dadd(178.8, 2.3, 90.9, 0.5) pt3dadd(179.6, 3.2, 90.2, 0.5) pt3dadd(180, 4, 89.7, 0.5) pt3dadd(180.9, 4.7, 89.1, 0.5) pt3dadd(181.6, 5.5, 88.5, 0.5) pt3dadd(182.4, 5.9, 87.9, 0.5) pt3dadd(185.2, 7.3, 86.2, 0.5) pt3dadd(186.1, 7.5, 85.7, 0.5) pt3dadd(188.3, 8, 84.4, 0.5) pt3dadd(189.2, 8.3, 83.9, 0.5) pt3dadd(190, 8.9, 83.4, 0.5) pt3dadd(190.4, 9.6, 82.9, 0.5) pt3dadd(191.2, 10.4, 82.3, 0.5) pt3dadd(191.9, 11.2, 81.6, 0.5) pt3dadd(192.3, 12, 81.2, 0.5) pt3dadd(193.7, 12.6, 80.3, 0.5) pt3dadd(194.4, 13.1, 79.9, 0.5) pt3dadd(195.7, 13.8, 79, 0.5) pt3dadd(197, 14.4, 78.2, 0.5) pt3dadd(197.9, 14.7, 77.6, 0.5) pt3dadd(198.6, 15.3, 77.1, 0.5) pt3dadd(199.4, 16, 76.5, 0.5) pt3dadd(200.3, 16.7, 75.9, 0.5) pt3dadd(201.4, 17.3, 75.2, 0.5) pt3dadd(202.1, 17.9, 74.6, 0.5) pt3dadd(203.7, 18.1, 73.7, 0.5) pt3dadd(204.4, 18.5, 73.3, 0.5) pt3dadd(205.4, 18.4, 72.7, 0.5) pt3dadd(207.3, 18.6, 71.6, 0.5) pt3dadd(208.1, 20, 70.7, 0.5) pt3dadd(208.8, 20.7, 70.1, 0.5) pt3dadd(209.2, 21.8, 69.4, 0.5) pt3dadd(209.7, 22.7, 68.8, 0.5) pt3dadd(210.2, 23.5, 68.2, 0.5) pt3dadd(210.7, 24.4, 67.6, 0.5) pt3dadd(211.4, 25.4, 66.9, 0.5) pt3dadd(212.1, 26.2, 66.3, 0.5) pt3dadd(213.9, 28.4, 64.6, 0.5) pt3dadd(214.6, 29.2, 63.9, 0.5) pt3dadd(214.6, 30.5, 63.2, 0.5) pt3dadd(215, 31.9, 62.3, 0.5) pt3dadd(215.4, 32.7, 61.7, 0.5) pt3dadd(215.5, 33.8, 61, 0.5) pt3dadd(216.4, 35.1, 60, 0.5) pt3dadd(217.3, 35.8, 59.3, 0.5) pt3dadd(218.1, 36.6, 58.6, 0.5) pt3dadd(219.4, 37.4, 57.6, 0.5) pt3dadd(220.3, 37.7, 57, 0.5) pt3dadd(221.3, 37, 56.3, 0.5) pt3dadd(222.2, 36.6, 55.7, 0.5) pt3dadd(223.6, 36.5, 54.8, 0.5) pt3dadd(224.8, 36, 53.9, 0.5) pt3dadd(225.6, 36, 53.4, 0.5) pt3dadd(226.8, 36.2, 52.7, 0.5) pt3dadd(227.6, 36.2, 52.2, 0.5) pt3dadd(228.3, 36.6, 51.6, 0.5) pt3dadd(229.1, 36.6, 51.1, 0.5) pt3dadd(230.9, 35.8, 49.9, 0.5) pt3dadd(232.5, 34.3, 48.5, 0.5) pt3dadd(232.9, 33.7, 48, 0.5) pt3dadd(234.5, 31.5, 46.2, 0.5) pt3dadd(235.9, 30.2, 44.9, 0.5) pt3dadd(236.8, 29.2, 44.1, 0.5) pt3dadd(238.5, 28.2, 42.8, 0.5) pt3dadd(239.2, 27.2, 42, 0.5) pt3dadd(240.6, 25.6, 40.6, 0.5) pt3dadd(241.2, 24.5, 39.7, 0.5) pt3dadd(241.6, 23.7, 39.1, 0.5) pt3dadd(242.6, 22, 37.8, 0.5) pt3dadd(243.5, 20.2, 36.4, 0.5) pt3dadd(243.7, 19.2, 35.7, 0.5) pt3dadd(243.7, 18.2, 35.1, 0.5) pt3dadd(243.9, 17.1, 34.3, 0.5) pt3dadd(244.8, 15.3, 32.9, 0.5) pt3dadd(245.7, 14.4, 32.1, 0.5) pt3dadd(246.8, 13.5, 31.1, 0.5) pt3dadd(247.7, 13, 30.3, 0.5) pt3dadd(249.2, 12.5, 29.3, 0.5) pt3dadd(250, 12.5, 28.7, 0.5) pt3dadd(252.8, 11.9, 26.7, 0.5) pt3dadd(254.4, 11.4, 25.6, 0.5) pt3dadd(255.2, 10.8, 24.9, 0.5) pt3dadd(256.3, 10.3, 24, 0.5) } apic[24] {pt3dclear() pt3dadd(172.3, -2.7, 96, 0.5) pt3dadd(173.2, -2.5, 96.4, 0.5) pt3dadd(174.3, -1.9, 96.9, 0.5) pt3dadd(175.4, -1.6, 97.3, 0.5) pt3dadd(176.7, -1.3, 97.8, 0.5) pt3dadd(177.7, -0.6, 98.2, 0.5) pt3dadd(178.4, -0.3, 98.4, 0.5) pt3dadd(179, 0.4, 98.7, 0.5) pt3dadd(180.1, 1.1, 99.2, 0.5) pt3dadd(180.7, 1.7, 99.5, 0.5) pt3dadd(181.7, 2.3, 99.9, 0.5) pt3dadd(184.6, 3.4, 101, 0.5) pt3dadd(185.4, 3.4, 101.3, 0.5) pt3dadd(186.4, 3.9, 101.7, 0.5) pt3dadd(187.3, 4.4, 102.1, 0.5) pt3dadd(188.7, 5.4, 102.9, 0.5) pt3dadd(189.6, 6.1, 103.5, 0.5) pt3dadd(190.3, 6.9, 104, 0.5) pt3dadd(191.2, 7.5, 104.5, 0.5) pt3dadd(191.9, 8.4, 105.1, 0.5) pt3dadd(192.7, 9, 105.8, 0.5) pt3dadd(194.1, 9.7, 106.7, 0.5) pt3dadd(194.8, 10.4, 107.4, 0.5) pt3dadd(195.9, 11, 108.2, 0.5) pt3dadd(196.6, 11.6, 109, 0.5) pt3dadd(198, 13.5, 110.9, 0.5) pt3dadd(199.2, 14.2, 112.2, 0.5) pt3dadd(200, 14.4, 113, 0.5) pt3dadd(201.3, 15.2, 114.6, 0.5) pt3dadd(202.1, 15.5, 115.6, 0.5) pt3dadd(203.9, 16.1, 117.7, 0.5) pt3dadd(204.8, 16.1, 118.9, 0.5) pt3dadd(205.5, 16.4, 120, 0.5) pt3dadd(206.4, 16.7, 121.4, 0.5) pt3dadd(208.2, 16.9, 124.9, 0.5) pt3dadd(209.3, 17.1, 127.5, 0.5) pt3dadd(209.9, 16.6, 129.6, 0.5) pt3dadd(210.5, 16.2, 131.9, 0.5) pt3dadd(211.5, 15.7, 135.4, 0.5) pt3dadd(212.3, 15.7, 138, 0.5) pt3dadd(213.1, 15.1, 141.3, 0.5) pt3dadd(213.9, 14.7, 144.8, 0.5) pt3dadd(215, 14.6, 148.8, 0.5) pt3dadd(215.8, 14.2, 152.7, 0.5) pt3dadd(216.6, 14.1, 156, 0.5) } dend_5[7] {pt3dclear() pt3dadd(140.2, -16, 36, 2.1) pt3dadd(141, -15.9, 37.1, 2.1) pt3dadd(141.6, -16.4, 38.2, 2.1) pt3dadd(142.5, -16.4, 39.5, 2.1) pt3dadd(143.3, -16.9, 40.9, 2.1) pt3dadd(144.3, -17.3, 42.7, 2.1) pt3dadd(145.3, -17.4, 44.4, 2.1) pt3dadd(146.6, -17.9, 46.6, 2.1) pt3dadd(147.3, -18.3, 48, 2.1) pt3dadd(148.4, -18.4, 50.1, 2.1) pt3dadd(150, -18.2, 52.9, 2.1) pt3dadd(151, -17.9, 54.7, 2.1) pt3dadd(152, -18, 56.3, 2.1) pt3dadd(154.3, -18.2, 60, 2.1) pt3dadd(156.6, -18.4, 63.7, 2.1) pt3dadd(160.9, -18.7, 70.2, 2.1) pt3dadd(162, -19.3, 72, 2.1) } apic[25] {pt3dclear() pt3dadd(162, -19.3, 72, 2.1) pt3dadd(160.9, -19.8, 73.6, 0.5) pt3dadd(160.7, -21, 75.3, 0.5) pt3dadd(160.6, -22.1, 76.8, 0.5) pt3dadd(160.8, -25.6, 81.1, 0.5) pt3dadd(160.3, -26.5, 82.3, 0.5) pt3dadd(159.6, -27, 83.3, 0.5) pt3dadd(159.1, -28, 84.5, 0.5) pt3dadd(158.1, -28.9, 85.9, 0.5) pt3dadd(157.6, -29.6, 86.8, 0.5) pt3dadd(157.5, -30.4, 87.7, 0.5) pt3dadd(156.9, -32.4, 89.7, 0.5) pt3dadd(156.3, -33.1, 90.5, 0.5) pt3dadd(155.2, -34.7, 92.2, 0.5) pt3dadd(154.7, -35.6, 93.1, 0.5) pt3dadd(154.6, -36.5, 93.8, 0.5) pt3dadd(154.2, -37.4, 94.6, 0.5) pt3dadd(153.6, -38, 95.2, 0.5) pt3dadd(152.7, -38.9, 96.1, 0.5) pt3dadd(151.7, -40.2, 97.3, 0.5) pt3dadd(150.7, -41.7, 98.4, 0.5) pt3dadd(150.3, -42.5, 99, 0.5) pt3dadd(150.2, -43.4, 99.5, 0.5) pt3dadd(149.1, -44.3, 100.3, 0.5) pt3dadd(148.3, -44.8, 100.8, 0.5) pt3dadd(147, -45.1, 101.4, 0.5) pt3dadd(145.9, -46, 102.1, 0.5) pt3dadd(144.6, -46.4, 102.7, 0.5) pt3dadd(143.9, -46.8, 103, 0.5) pt3dadd(142.6, -47.8, 103.6, 0.5) pt3dadd(141.8, -48.1, 103.9, 0.5) pt3dadd(139.8, -49.3, 104.6, 0.5) pt3dadd(138.1, -51.1, 105.2, 0.5) pt3dadd(137.6, -51.8, 105.4, 0.5) pt3dadd(137.1, -52.9, 105.6, 0.5) pt3dadd(137, -53.8, 105.8, 0.5) pt3dadd(136.6, -54.7, 105.9, 0.5) pt3dadd(136.5, -55.7, 106.1, 0.5) pt3dadd(137, -58.8, 106.3, 0.5) pt3dadd(137.3, -60.1, 106.4, 0.5) pt3dadd(137.5, -61, 106.4, 0.5) pt3dadd(137.9, -62.3, 106.4, 0.5) pt3dadd(138.1, -63.2, 106.4, 0.5) pt3dadd(139.3, -64.5, 106.4, 0.5) pt3dadd(140.1, -65.8, 106.3, 0.5) pt3dadd(141, -68, 106.1, 0.5) pt3dadd(141.4, -68.9, 105.9, 0.5) } } proc shape3d_8() { apic[25] { pt3dadd(141.7, -69.8, 105.8, 0.5) pt3dadd(142, -71.4, 105.6, 0.5) pt3dadd(141.9, -72.6, 105.3, 0.5) pt3dadd(141.4, -73.7, 105.1, 0.5) pt3dadd(141.4, -75, 104.8, 0.5) pt3dadd(140.9, -76.5, 104.5, 0.5) pt3dadd(140.8, -77.3, 104.3, 0.5) pt3dadd(140.3, -78.4, 104, 0.5) pt3dadd(139.2, -80.1, 103.4, 0.5) pt3dadd(138.7, -80.8, 103.1, 0.5) pt3dadd(138.6, -81.8, 102.8, 0.5) pt3dadd(137.9, -85, 101.8, 0.5) pt3dadd(137.3, -85.9, 101.4, 0.5) pt3dadd(136.8, -87.3, 100.9, 0.5) pt3dadd(135.9, -88.9, 100.2, 0.5) pt3dadd(135.4, -90, 99.7, 0.5) pt3dadd(135.3, -91.1, 99.3, 0.5) pt3dadd(135.5, -93.4, 98.3, 0.5) pt3dadd(135.4, -94.8, 97.7, 0.5) pt3dadd(134.7, -97.4, 96.5, 0.5) pt3dadd(134.1, -98.5, 95.9, 0.5) pt3dadd(133.6, -99.3, 95.5, 0.5) pt3dadd(133.2, -100.1, 95.1, 0.5) pt3dadd(133.1, -101.3, 94.5, 0.5) pt3dadd(132.4, -104.4, 93, 0.5) pt3dadd(131.7, -105.2, 92.5, 0.5) pt3dadd(130.5, -106.1, 91.7, 0.5) pt3dadd(128.9, -106.4, 91, 0.5) pt3dadd(128, -106.7, 90.5, 0.5) pt3dadd(127.1, -106.6, 90, 0.5) } dend_5[8] {pt3dclear() pt3dadd(162, -19.3, 72, 2.1) pt3dadd(162.9, -19.3, 73.3, 2.1) pt3dadd(163.7, -19.4, 74.2, 2.1) pt3dadd(165.6, -20, 76.1, 2.1) pt3dadd(167.3, -20.5, 77.3, 2.1) pt3dadd(168.4, -20.5, 78, 2.1) } apic[26] {pt3dclear() pt3dadd(168.4, -20.5, 78, 2.1) pt3dadd(168.8, -19.5, 78.6, 0.5) pt3dadd(169.3, -18.9, 79, 0.5) pt3dadd(170.1, -17.6, 79.8, 0.5) pt3dadd(171.3, -16, 80.9, 0.5) pt3dadd(174, -13, 82.9, 0.5) pt3dadd(174.4, -11.9, 83.4, 0.5) pt3dadd(175.2, -10.9, 84, 0.5) pt3dadd(175.6, -10.2, 84.4, 0.5) pt3dadd(176.4, -8.6, 85.2, 0.5) pt3dadd(176.8, -7.7, 85.6, 0.5) pt3dadd(177.2, -7, 86, 0.5) pt3dadd(178.4, -5.3, 86.8, 0.5) pt3dadd(178.8, -4.6, 87.1, 0.5) pt3dadd(180.1, -3.9, 87.7, 0.5) pt3dadd(181.5, -3, 88.4, 0.5) pt3dadd(182.3, -2.5, 88.7, 0.5) pt3dadd(183.9, -0.8, 89.6, 0.5) pt3dadd(184.5, 0, 89.9, 0.5) pt3dadd(185.9, 1.2, 90.5, 0.5) pt3dadd(186.6, 1.9, 90.8, 0.5) pt3dadd(187.4, 2.6, 91.2, 0.5) pt3dadd(188.5, 3, 91.5, 0.5) pt3dadd(189.4, 3.5, 91.8, 0.5) pt3dadd(191.3, 4.3, 92.4, 0.5) pt3dadd(192.3, 5.1, 92.8, 0.5) pt3dadd(193.4, 5.9, 93.1, 0.5) pt3dadd(194, 6.8, 93.4, 0.5) pt3dadd(195.6, 8.8, 94, 0.5) pt3dadd(196.8, 10, 94.4, 0.5) pt3dadd(198.6, 11.4, 94.8, 0.5) pt3dadd(199.7, 11.7, 95, 0.5) pt3dadd(202.2, 12.6, 95.5, 0.5) pt3dadd(202.6, 13.2, 95.7, 0.5) pt3dadd(203.5, 14, 95.8, 0.5) pt3dadd(204.3, 14.6, 96, 0.5) pt3dadd(205.3, 14.9, 96.1, 0.5) pt3dadd(206.2, 15.6, 96.3, 0.5) pt3dadd(207.1, 16.1, 96.4, 0.5) pt3dadd(208.2, 17.3, 96.6, 0.5) pt3dadd(209.2, 18, 96.8, 0.5) pt3dadd(210.9, 19.8, 97, 0.5) pt3dadd(211.4, 20.4, 97, 0.5) pt3dadd(212.1, 21.1, 97.1, 0.5) pt3dadd(213.3, 21.9, 97.2, 0.5) pt3dadd(214.2, 22.8, 97.3, 0.5) pt3dadd(215.8, 23.6, 97.4, 0.5) pt3dadd(217.5, 24.2, 97.4, 0.5) pt3dadd(218.3, 25, 97.5, 0.5) pt3dadd(218.8, 25.7, 97.5, 0.5) pt3dadd(219.6, 26.5, 97.5, 0.5) pt3dadd(220.6, 27.1, 97.5, 0.5) pt3dadd(222.2, 28.2, 97.5, 0.5) pt3dadd(223.3, 28.8, 97.5, 0.5) pt3dadd(224, 30, 97.4, 0.5) pt3dadd(224.4, 31.1, 97.4, 0.5) pt3dadd(225.1, 32.3, 97.3, 0.5) pt3dadd(225.8, 32.9, 97.3, 0.5) pt3dadd(226.5, 33.7, 97.2, 0.5) pt3dadd(228.4, 37.1, 96.9, 0.5) pt3dadd(228.9, 38.1, 96.8, 0.5) pt3dadd(228.9, 38.9, 96.7, 0.5) pt3dadd(229.7, 40.1, 96.6, 0.5) pt3dadd(231.6, 42.8, 96.2, 0.5) pt3dadd(232.2, 43.4, 96.1, 0.5) pt3dadd(232.8, 44, 95.9, 0.5) pt3dadd(234.3, 44.7, 95.7, 0.5) pt3dadd(235.4, 45.6, 95.5, 0.5) pt3dadd(236.5, 47.1, 95.2, 0.5) pt3dadd(236.6, 48.1, 95, 0.5) pt3dadd(237, 48.9, 94.8, 0.5) pt3dadd(238, 50.8, 94.4, 0.5) pt3dadd(239.5, 52, 94, 0.5) pt3dadd(240.5, 52.6, 93.8, 0.5) pt3dadd(241.9, 52.8, 93.4, 0.5) pt3dadd(242.8, 53.4, 93.2, 0.5) pt3dadd(243.4, 54.1, 93, 0.5) pt3dadd(244, 54.9, 92.7, 0.5) pt3dadd(244.4, 55.7, 92.5, 0.5) pt3dadd(245.2, 56.4, 92.2, 0.5) pt3dadd(247.1, 57.4, 91.7, 0.5) pt3dadd(248.4, 57.7, 91.3, 0.5) pt3dadd(249.4, 57.9, 91, 0.5) pt3dadd(251.5, 57.8, 90.4, 0.5) pt3dadd(252.8, 58.4, 90, 0.5) } dend_5[9] {pt3dclear() pt3dadd(168.4, -20.5, 78, 2.1) pt3dadd(169.6, -20.5, 78.5, 2.1) pt3dadd(170.5, -20.9, 78.8, 2.1) pt3dadd(171.7, -21, 79, 2.1) pt3dadd(172.6, -20.7, 79.1, 2.1) pt3dadd(173.7, -20.8, 79, 2.1) pt3dadd(175.2, -21.3, 78.7, 2) pt3dadd(176.4, -22.7, 78.2, 2) pt3dadd(177.1, -23.7, 77.8, 2) pt3dadd(178.1, -23.8, 77.5, 2) pt3dadd(180.4, -23.6, 76.8, 2) pt3dadd(181.6, -23.4, 76.4, 2) pt3dadd(183, -23.5, 76.2, 2) pt3dadd(185.1, -24, 76, 2) pt3dadd(186.1, -24.5, 76.1, 2) pt3dadd(186.9, -24.5, 76.3, 2) pt3dadd(188.8, -25, 77.1, 2) pt3dadd(190.1, -25.1, 78, 2) } apic[27] {pt3dclear() pt3dadd(190.1, -25.1, 78, 2) pt3dadd(190.5, -24.2, 78.8, 0.5) pt3dadd(190.5, -23.3, 79.8, 0.5) pt3dadd(190.9, -22.2, 81.3, 0.5) pt3dadd(191.6, -21.5, 82.8, 0.5) pt3dadd(192.5, -20.7, 84.6, 0.5) pt3dadd(193.4, -20.5, 86.1, 0.5) pt3dadd(194.5, -20.5, 87.8, 0.5) pt3dadd(195.3, -20.6, 88.8, 0.5) pt3dadd(196.5, -20.7, 90, 0.5) } apic[28] {pt3dclear() pt3dadd(196.5, -20.7, 90, 0.5) pt3dadd(197.3, -20.4, 90.1, 0.5) pt3dadd(198.5, -20.1, 90.3, 0.5) pt3dadd(200.5, -20, 90.4, 0.5) pt3dadd(204.7, -20.2, 90.6, 0.5) pt3dadd(207.3, -20.1, 90.5, 0.5) pt3dadd(208.2, -20.1, 90.5, 0.5) pt3dadd(208.9, -20.6, 90.4, 0.5) pt3dadd(209.9, -21, 90.3, 0.5) pt3dadd(211.2, -21.5, 90.2, 0.5) pt3dadd(212.2, -22, 90.1, 0.5) pt3dadd(213.1, -22, 89.9, 0.5) pt3dadd(214.5, -22.5, 89.7, 0.5) pt3dadd(215.4, -22.6, 89.5, 0.5) pt3dadd(219.8, -22.8, 88.6, 0.5) pt3dadd(221.6, -23.8, 88, 0.5) pt3dadd(222.3, -24.4, 87.7, 0.5) pt3dadd(223.3, -25.5, 87.3, 0.5) pt3dadd(224.1, -26, 86.9, 0.5) pt3dadd(224.9, -26, 86.7, 0.5) pt3dadd(229.3, -26.3, 85, 0.5) pt3dadd(230.1, -27.2, 84.5, 0.5) pt3dadd(231.7, -28.6, 83.6, 0.5) pt3dadd(233.4, -29.1, 82.7, 0.5) pt3dadd(236.8, -29, 81, 0.5) pt3dadd(238.1, -28.8, 80.3, 0.5) pt3dadd(239.1, -28.8, 79.7, 0.5) pt3dadd(241.1, -29.5, 78.5, 0.5) pt3dadd(242.2, -30.1, 77.7, 0.5) pt3dadd(242.9, -30.5, 77.2, 0.5) pt3dadd(244.1, -30.6, 76.5, 0.5) pt3dadd(246.8, -31.2, 74.7, 0.5) pt3dadd(247.5, -31.6, 74.1, 0.5) pt3dadd(248.4, -32.2, 73.4, 0.5) pt3dadd(249.4, -32.7, 72.7, 0.5) pt3dadd(250.2, -33.1, 72, 0.5) pt3dadd(251.1, -33.2, 71.4, 0.5) pt3dadd(254.6, -33.1, 68.8, 0.5) pt3dadd(255.6, -33.2, 68, 0.5) pt3dadd(256.6, -32.9, 67.2, 0.5) pt3dadd(257.6, -33, 66.5, 0.5) pt3dadd(258.5, -32.3, 65.5, 0.5) pt3dadd(259.3, -31.7, 64.7, 0.5) pt3dadd(260.6, -31.1, 63.5, 0.5) pt3dadd(261, -30.3, 62.8, 0.5) pt3dadd(261.9, -30, 62, 0.5) pt3dadd(262.9, -29.2, 60.9, 0.5) pt3dadd(263.8, -28.7, 60, 0.5) pt3dadd(264.7, -28.2, 59.1, 0.5) pt3dadd(265.9, -27.6, 57.9, 0.5) pt3dadd(266.7, -27.3, 57.2, 0.5) } } proc shape3d_9() { apic[28] { pt3dadd(267.7, -26.5, 56, 0.5) pt3dadd(268.6, -25.7, 55, 0.5) pt3dadd(269.3, -24.9, 54, 0.5) pt3dadd(270.1, -24.6, 53.3, 0.5) pt3dadd(270.8, -24.3, 52.5, 0.5) pt3dadd(273, -23.1, 50.3, 0.5) pt3dadd(274, -22.8, 49.4, 0.5) pt3dadd(275.4, -22.6, 48.1, 0.5) pt3dadd(276.4, -22.6, 47.1, 0.5) pt3dadd(277.6, -22.4, 45.9, 0.5) pt3dadd(278.4, -22.4, 45.2, 0.5) pt3dadd(279.8, -22.2, 43.9, 0.5) pt3dadd(280.8, -21.9, 42.9, 0.5) pt3dadd(283.5, -21.4, 40.2, 0.5) pt3dadd(284.7, -20.8, 38.8, 0.5) pt3dadd(285.6, -20.6, 37.9, 0.5) pt3dadd(286.9, -20.7, 36.6, 0.5) pt3dadd(288.8, -20.5, 34.6, 0.5) pt3dadd(289.6, -20.2, 33.7, 0.5) pt3dadd(291, -19.6, 32.1, 0.5) pt3dadd(292.4, -19.4, 30.6, 0.5) pt3dadd(297.2, -19.1, 25.1, 0.5) pt3dadd(297.9, -19.5, 24.1, 0.5) pt3dadd(298.7, -19.6, 23.2, 0.5) pt3dadd(300.3, -20.1, 21.1, 0.5) pt3dadd(301.5, -20.2, 19.6, 0.5) pt3dadd(302.5, -20.6, 18.2, 0.5) pt3dadd(303.3, -20.7, 17.2, 0.5) pt3dadd(305.4, -20.8, 14.4, 0.5) pt3dadd(307.3, -20.8, 12, 0.5) } apic[29] {pt3dclear() pt3dadd(196.5, -20.7, 90, 0.5) pt3dadd(196.5, -21.6, 91.4, 0.5) pt3dadd(196.4, -22.6, 93, 0.5) pt3dadd(197, -23.4, 94.9, 0.5) pt3dadd(197.1, -24.2, 96.5, 0.5) pt3dadd(197.8, -25.4, 99.3, 0.5) pt3dadd(198.1, -26.2, 101.1, 0.5) pt3dadd(199.2, -27.4, 104.4, 0.5) pt3dadd(199.9, -27.8, 106.1, 0.5) pt3dadd(200.5, -28.7, 108.5, 0.5) pt3dadd(200.5, -29.6, 110.2, 0.5) pt3dadd(201.3, -30.6, 112.8, 0.5) pt3dadd(202.4, -31.1, 115, 0.5) pt3dadd(203.1, -31.5, 116.5, 0.5) pt3dadd(204.8, -32.8, 120, 0.5) pt3dadd(205.2, -33.5, 121.2, 0.5) pt3dadd(205.8, -34.1, 122.3, 0.5) pt3dadd(205.8, -34.9, 123.6, 0.5) pt3dadd(206.1, -35.8, 124.8, 0.5) pt3dadd(206.7, -36.3, 126, 0.5) pt3dadd(207.3, -37.2, 127.3, 0.5) pt3dadd(207.7, -38.1, 128.6, 0.5) pt3dadd(208.3, -38.9, 129.8, 0.5) pt3dadd(208.6, -39.9, 131.1, 0.5) pt3dadd(209, -43.1, 134.9, 0.5) pt3dadd(209.3, -44.2, 136.1, 0.5) pt3dadd(209.8, -46, 138.1, 0.5) pt3dadd(210.4, -46.5, 138.9, 0.5) pt3dadd(211.9, -47.6, 140.8, 0.5) pt3dadd(213.4, -48.1, 142.3, 0.5) pt3dadd(214.1, -48.8, 143.2, 0.5) pt3dadd(214.9, -49.4, 144.1, 0.5) pt3dadd(217, -50.8, 146.3, 0.5) pt3dadd(218, -50.9, 147, 0.5) pt3dadd(218.3, -51.7, 147.7, 0.5) pt3dadd(219.3, -52.2, 148.6, 0.5) pt3dadd(220.4, -52.2, 149.4, 0.5) pt3dadd(221.4, -52.7, 150.1, 0.5) pt3dadd(223, -52.8, 151.2, 0.5) pt3dadd(223.9, -53.3, 151.8, 0.5) pt3dadd(224.8, -53.3, 152.4, 0.5) pt3dadd(227.1, -53.9, 153.8, 0.5) pt3dadd(228.6, -54.9, 154.7, 0.5) pt3dadd(230.5, -57.1, 156.1, 0.5) pt3dadd(231.2, -57.5, 156.5, 0.5) pt3dadd(232.4, -57.6, 157, 0.5) pt3dadd(233.8, -58.1, 157.6, 0.5) pt3dadd(235, -58.2, 158, 0.5) pt3dadd(235.6, -58.8, 158.3, 0.5) pt3dadd(236.3, -60.1, 158.8, 0.5) pt3dadd(237.5, -61, 159.2, 0.5) pt3dadd(239.7, -61.1, 159.7, 0.5) pt3dadd(242.7, -62.1, 160.3, 0.5) pt3dadd(243.5, -63.2, 160.5, 0.5) pt3dadd(244.8, -63.3, 160.7, 0.5) pt3dadd(245.9, -63.7, 160.8, 0.5) pt3dadd(246.9, -63.8, 160.8, 0.5) pt3dadd(247.9, -63.5, 160.9, 0.5) pt3dadd(248.7, -63.3, 160.9, 0.5) pt3dadd(249.7, -63.3, 161, 0.5) pt3dadd(251.7, -64.3, 160.9, 0.5) pt3dadd(252.6, -64.4, 160.9, 0.5) pt3dadd(256.7, -64.7, 160.5, 0.5) pt3dadd(259.5, -65.2, 160.1, 0.5) pt3dadd(260.1, -65.7, 160, 0.5) pt3dadd(261.1, -65.8, 159.8, 0.5) pt3dadd(261.9, -66.3, 159.6, 0.5) pt3dadd(262.8, -66.3, 159.4, 0.5) pt3dadd(265.7, -66.9, 158.7, 0.5) pt3dadd(266.8, -67.4, 158.4, 0.5) pt3dadd(267.6, -67.4, 158.1, 0.5) pt3dadd(271.6, -67.3, 156.8, 0.5) pt3dadd(272.7, -66.9, 156.4, 0.5) pt3dadd(273.8, -66.7, 155.9, 0.5) pt3dadd(275, -66.8, 155.5, 0.5) pt3dadd(276.9, -67.4, 154.6, 0.5) pt3dadd(277.5, -68, 154.2, 0.5) pt3dadd(278.2, -68.4, 153.9, 0.5) pt3dadd(279.5, -69, 153.2, 0.5) pt3dadd(280.6, -69, 152.6, 0.5) pt3dadd(281.3, -69.5, 152.2, 0.5) pt3dadd(282.1, -69.5, 151.8, 0.5) pt3dadd(284.7, -69.5, 150.5, 0.5) pt3dadd(285.8, -69.6, 149.9, 0.5) pt3dadd(286.7, -70.1, 149.3, 0.5) pt3dadd(287.5, -70.5, 148.8, 0.5) pt3dadd(288.7, -70.6, 148.1, 0.5) pt3dadd(292.8, -70.8, 145.5, 0.5) pt3dadd(296, -71.5, 143.4, 0.5) pt3dadd(296.8, -72, 142.8, 0.5) pt3dadd(297.7, -73.1, 141.8, 0.5) pt3dadd(298.4, -73.7, 141.1, 0.5) pt3dadd(299.3, -74.2, 140.4, 0.5) pt3dadd(300.2, -74.3, 139.8, 0.5) pt3dadd(300.5, -75.1, 139.1, 0.5) pt3dadd(301.4, -76.1, 138.1, 0.5) pt3dadd(301.9, -76.9, 137.4, 0.5) pt3dadd(303.8, -80.4, 134.4, 0.5) pt3dadd(304.6, -81.3, 133.4, 0.5) pt3dadd(305.4, -81.7, 132.7, 0.5) pt3dadd(306.1, -82.2, 132, 0.5) } dend_5[10] {pt3dclear() pt3dadd(190.1, -25.1, 78, 2) pt3dadd(191, -25.3, 78.8, 2) pt3dadd(192.5, -25.8, 80.3, 2) pt3dadd(193.8, -25.9, 81.5, 2) pt3dadd(195.6, -26, 83.2, 2) pt3dadd(196.5, -26.3, 84, 2) } apic[30] {pt3dclear() pt3dadd(196.5, -26.3, 84, 2) pt3dadd(196.3, -27.2, 84.6, 0.5) pt3dadd(196.7, -28, 85.3, 0.5) pt3dadd(196.9, -29.3, 86.2, 0.5) pt3dadd(196.4, -30, 86.8, 0.5) pt3dadd(195.9, -31, 87.5, 0.5) pt3dadd(195, -33.1, 88.9, 0.5) pt3dadd(195, -34, 89.5, 0.5) pt3dadd(194.3, -36, 90.8, 0.5) pt3dadd(192.9, -37.6, 92.1, 0.5) pt3dadd(192.8, -38.4, 92.6, 0.5) pt3dadd(193.1, -39.6, 93.3, 0.5) pt3dadd(193.4, -40.7, 94, 0.5) pt3dadd(193.6, -42, 94.8, 0.5) pt3dadd(193.2, -43.4, 95.6, 0.5) pt3dadd(193.1, -44.3, 96.1, 0.5) pt3dadd(193.3, -47.3, 97.8, 0.5) pt3dadd(193.9, -48.5, 98.5, 0.5) pt3dadd(194.8, -49.7, 99.4, 0.5) pt3dadd(196, -50.6, 100.2, 0.5) pt3dadd(197.1, -51.6, 101, 0.5) pt3dadd(197.8, -52, 101.5, 0.5) pt3dadd(197.7, -53, 102, 0.5) pt3dadd(198.1, -53.9, 102.6, 0.5) pt3dadd(199.2, -55.1, 103.5, 0.5) pt3dadd(200.5, -56.2, 104.4, 0.5) pt3dadd(201, -56.9, 105, 0.5) pt3dadd(201.6, -58.2, 105.8, 0.5) pt3dadd(201.9, -59.2, 106.4, 0.5) pt3dadd(201.8, -60.1, 106.9, 0.5) pt3dadd(203.3, -60.6, 107.9, 0.5) pt3dadd(203.9, -61.6, 108.6, 0.5) pt3dadd(204.1, -62.5, 109.1, 0.5) pt3dadd(204.7, -63.7, 109.9, 0.5) pt3dadd(204.6, -64.8, 110.6, 0.5) pt3dadd(204.8, -66.4, 111.7, 0.5) pt3dadd(205.2, -67.1, 112.2, 0.5) pt3dadd(205.1, -68.2, 113, 0.5) pt3dadd(205.8, -70.3, 114.5, 0.5) pt3dadd(207.1, -72.2, 116.1, 0.5) pt3dadd(207, -73.3, 116.8, 0.5) pt3dadd(207.7, -75.9, 118.9, 0.5) pt3dadd(209.1, -76.2, 120, 0.5) pt3dadd(210.1, -76.7, 120.9, 0.5) pt3dadd(211.1, -76.8, 121.7, 0.5) pt3dadd(211.8, -78.3, 123.1, 0.5) pt3dadd(212.1, -79.1, 123.9, 0.5) pt3dadd(212, -79.9, 124.7, 0.5) pt3dadd(212.8, -80.5, 125.6, 0.5) pt3dadd(213.7, -80.9, 126.6, 0.5) pt3dadd(214.3, -81.5, 127.4, 0.5) pt3dadd(215, -82.4, 128.6, 0.5) pt3dadd(215.3, -83.3, 129.5, 0.5) pt3dadd(216, -84.3, 130.9, 0.5) pt3dadd(216.9, -84.8, 132, 0.5) pt3dadd(218.1, -85.3, 133.5, 0.5) pt3dadd(219.2, -86.2, 135.2, 0.5) pt3dadd(219.5, -87.3, 136.4, 0.5) pt3dadd(220.5, -88.1, 138, 0.5) } dend_5[11] {pt3dclear() pt3dadd(196.5, -26.3, 84, 2) pt3dadd(197.4, -26.4, 84.8, 2) pt3dadd(198.2, -26.5, 85.5, 2) pt3dadd(199.3, -26.2, 86.4, 2) } } proc shape3d_10() { dend_5[11] { pt3dadd(200.2, -26.3, 87.2, 2) pt3dadd(201.1, -26.8, 88, 2) pt3dadd(201.9, -27.3, 88.8, 2) pt3dadd(203.7, -27.2, 90, 2) } apic[31] {pt3dclear() pt3dadd(203.7, -27.2, 90, 2) pt3dadd(204.8, -26.7, 90.8, 0.5) pt3dadd(205.5, -26.1, 91.5, 0.5) pt3dadd(205.8, -25.3, 92.1, 0.5) pt3dadd(206.2, -24.4, 92.8, 0.5) pt3dadd(206.9, -23.6, 93.5, 0.5) pt3dadd(207.6, -23, 94.1, 0.5) pt3dadd(208.6, -22.8, 94.8, 0.5) pt3dadd(209.3, -22.2, 95.4, 0.5) pt3dadd(211.1, -21, 96.9, 0.5) pt3dadd(212.2, -20.8, 97.6, 0.5) pt3dadd(213.2, -20.8, 98.2, 0.5) pt3dadd(214.9, -20.6, 99.3, 0.5) pt3dadd(216, -20.4, 100, 0.5) pt3dadd(216.8, -20.4, 100.5, 0.5) pt3dadd(217.8, -20.9, 101.2, 0.5) pt3dadd(218.7, -20.9, 101.7, 0.5) pt3dadd(219.7, -21.4, 102.4, 0.5) pt3dadd(220.5, -21.5, 102.9, 0.5) pt3dadd(222.5, -21.2, 104.1, 0.5) pt3dadd(223.6, -20.5, 104.8, 0.5) pt3dadd(224.7, -20.3, 105.4, 0.5) pt3dadd(225.5, -20.3, 105.9, 0.5) pt3dadd(227.2, -20.1, 106.8, 0.5) pt3dadd(228.4, -19.9, 107.5, 0.5) pt3dadd(230, -20, 108.4, 0.5) pt3dadd(233.4, -19.8, 110.2, 0.5) pt3dadd(236.5, -19.1, 111.8, 0.5) pt3dadd(237.2, -18.4, 112.3, 0.5) pt3dadd(238.1, -17.8, 112.9, 0.5) pt3dadd(239.5, -16.6, 113.8, 0.5) pt3dadd(240.4, -16.7, 114.2, 0.5) pt3dadd(241.3, -16.4, 114.7, 0.5) pt3dadd(242.4, -16.5, 115.2, 0.5) pt3dadd(243.9, -16.7, 115.9, 0.5) pt3dadd(245.6, -16.5, 116.7, 0.5) pt3dadd(248.1, -16.3, 117.8, 0.5) pt3dadd(248.9, -16, 118.2, 0.5) pt3dadd(250.7, -15.8, 119, 0.5) pt3dadd(251.6, -15.6, 119.4, 0.5) pt3dadd(252.9, -15.6, 120, 0.5) pt3dadd(254, -15.7, 120.4, 0.5) pt3dadd(254.8, -15.4, 120.8, 0.5) pt3dadd(255.7, -15.1, 121.2, 0.5) pt3dadd(256.3, -14.5, 121.6, 0.5) pt3dadd(257.8, -13.2, 122.4, 0.5) pt3dadd(258.7, -13, 122.7, 0.5) pt3dadd(259.9, -12.7, 123.2, 0.5) pt3dadd(261.3, -13.4, 123.8, 0.5) pt3dadd(263.9, -14.8, 124.9, 0.5) pt3dadd(264.7, -14.9, 125.2, 0.5) pt3dadd(267, -14.3, 126.1, 0.5) pt3dadd(267.8, -13.7, 126.4, 0.5) pt3dadd(268.6, -13.8, 126.7, 0.5) pt3dadd(269.2, -14.2, 126.9, 0.5) pt3dadd(270.4, -14.7, 127.3, 0.5) pt3dadd(271.5, -14.7, 127.7, 0.5) pt3dadd(272.4, -15.3, 128, 0.5) pt3dadd(273.9, -15.8, 128.5, 0.5) pt3dadd(275.2, -14.9, 129, 0.5) pt3dadd(276.5, -14.7, 129.4, 0.5) pt3dadd(277.5, -14.7, 129.7, 0.5) pt3dadd(280.9, -15.3, 130.7, 0.5) pt3dadd(281.7, -15.4, 130.9, 0.5) pt3dadd(282.8, -16.7, 131.4, 0.5) pt3dadd(283.8, -17.6, 131.7, 0.5) pt3dadd(284.4, -18.2, 131.9, 0.5) pt3dadd(285.1, -18.6, 132.2, 0.5) pt3dadd(285.4, -19.8, 132.4, 0.5) pt3dadd(285.9, -20.8, 132.7, 0.5) pt3dadd(286.9, -21.3, 133, 0.5) pt3dadd(287.8, -21.4, 133.2, 0.5) pt3dadd(288.7, -21.8, 133.4, 0.5) pt3dadd(289.6, -21.9, 133.6, 0.5) pt3dadd(290.4, -22.3, 133.8, 0.5) pt3dadd(291.6, -23.6, 134.2, 0.5) pt3dadd(292.8, -24.6, 134.5, 0.5) pt3dadd(293.5, -25.1, 134.7, 0.5) pt3dadd(294.2, -25.7, 134.9, 0.5) pt3dadd(295, -26.2, 135.1, 0.5) pt3dadd(295.9, -26.2, 135.2, 0.5) pt3dadd(296.7, -26.8, 135.4, 0.5) pt3dadd(297, -27.7, 135.6, 0.5) pt3dadd(297.8, -30.2, 136, 0.5) pt3dadd(298.5, -31.2, 136.2, 0.5) pt3dadd(300.2, -32.6, 136.6, 0.5) pt3dadd(302.3, -34, 137, 0.5) pt3dadd(303.4, -34.1, 137.1, 0.5) pt3dadd(304.4, -34.6, 137.3, 0.5) pt3dadd(305.7, -34.7, 137.4, 0.5) pt3dadd(306.9, -34.4, 137.6, 0.5) pt3dadd(308.1, -33.9, 137.8, 0.5) pt3dadd(309.2, -33.6, 137.9, 0.5) pt3dadd(310, -33.3, 138, 0.5) } dend_5[12] {pt3dclear() pt3dadd(203.7, -27.2, 90, 2) pt3dadd(204.8, -27.2, 90.4, 2) pt3dadd(205.9, -27.7, 90.3, 2) pt3dadd(207, -27.4, 90.1, 2) pt3dadd(208.6, -27.5, 90, 2) } apic[32] {pt3dclear() pt3dadd(208.6, -27.5, 90, 2) pt3dadd(209.2, -28.3, 89.3, 0.5) pt3dadd(209.1, -29.1, 88.7, 0.5) pt3dadd(209.4, -30.1, 87.8, 0.5) pt3dadd(209.3, -30.9, 87.2, 0.5) pt3dadd(209.8, -34.4, 84.4, 0.5) pt3dadd(210.8, -34.8, 83.5, 0.5) pt3dadd(212.8, -35.4, 81.8, 0.5) pt3dadd(214.7, -35.9, 80.1, 0.5) pt3dadd(215.3, -36.7, 79.2, 0.5) pt3dadd(215.9, -37.7, 78.2, 0.5) pt3dadd(216.8, -38.2, 77.3, 0.5) pt3dadd(217.6, -39.1, 76.2, 0.5) pt3dadd(218.6, -39.6, 75.2, 0.5) pt3dadd(219.2, -40.2, 74.5, 0.5) pt3dadd(219.2, -41, 73.6, 0.5) pt3dadd(219.9, -41.6, 72.8, 0.5) pt3dadd(220.8, -42, 71.9, 0.5) pt3dadd(221.6, -42.1, 71.1, 0.5) pt3dadd(223.2, -42.6, 69.5, 0.5) pt3dadd(223.9, -43.5, 68.4, 0.5) pt3dadd(224.8, -43.9, 67.4, 0.5) pt3dadd(225.7, -44, 66.5, 0.5) pt3dadd(226.7, -44.5, 65.4, 0.5) pt3dadd(227.4, -45, 64.5, 0.5) pt3dadd(228.2, -46.1, 63.1, 0.5) pt3dadd(229.1, -47.1, 61.9, 0.5) pt3dadd(230, -48.6, 60, 0.5) pt3dadd(230.7, -49.2, 59, 0.5) pt3dadd(231.7, -49.7, 57.9, 0.5) pt3dadd(232.5, -49.7, 57.1, 0.5) pt3dadd(236.9, -50.4, 52.5, 0.5) pt3dadd(239.2, -51, 50, 0.5) pt3dadd(240, -50.3, 49, 0.5) pt3dadd(241, -50.1, 47.9, 0.5) pt3dadd(243, -49.9, 45.9, 0.5) pt3dadd(244.8, -49.7, 44, 0.5) pt3dadd(247.5, -48.8, 41.1, 0.5) pt3dadd(248.3, -48.5, 40.2, 0.5) pt3dadd(249.1, -48.6, 39.4, 0.5) pt3dadd(253.5, -48.5, 34.8, 0.5) pt3dadd(256.7, -48.1, 31.6, 0.5) pt3dadd(261.7, -48.4, 26.4, 0.5) pt3dadd(265.6, -48.3, 22.4, 0.5) pt3dadd(266.3, -47.8, 21.5, 0.5) pt3dadd(267, -47.2, 20.5, 0.5) pt3dadd(267.8, -46.9, 19.6, 0.5) pt3dadd(268.5, -46.5, 18.7, 0.5) pt3dadd(269.3, -46.6, 17.9, 0.5) pt3dadd(270.2, -46.3, 16.9, 0.5) pt3dadd(271.2, -46.4, 15.9, 0.5) pt3dadd(274.6, -45.9, 12.3, 0.5) pt3dadd(275.1, -46.7, 11.3, 0.5) pt3dadd(274.7, -46.1, 10.4, 0.5) pt3dadd(274.2, -44.5, 8.7, 0.5) pt3dadd(275, -45, 7.7, 0.5) pt3dadd(276.9, -45.6, 5.6, 0.5) pt3dadd(277.6, -46, 4.8, 0.5) pt3dadd(278.6, -45.6, 3.5, 0.5) pt3dadd(279.4, -45.2, 2.7, 0.5) pt3dadd(280.5, -44.9, 1.4, 0.5) pt3dadd(281.5, -44.3, 0.2, 0.5) pt3dadd(282.4, -44.4, -0.8, 0.5) pt3dadd(283.7, -44.2, -2.1, 0.5) pt3dadd(284.3, -44.7, -3, 0.5) pt3dadd(285.7, -45.3, -4.7, 0.5) pt3dadd(286.9, -46, -6.1, 0.5) pt3dadd(287.6, -47, -7.5, 0.5) pt3dadd(288.6, -47.4, -8.7, 0.5) pt3dadd(290, -47.5, -10.2, 0.5) pt3dadd(291.7, -47.3, -12, 0.5) pt3dadd(292.7, -47.4, -13.1, 0.5) pt3dadd(293.6, -47.1, -14.1, 0.5) pt3dadd(294.4, -47.1, -15, 0.5) pt3dadd(295.1, -46.8, -15.9, 0.5) pt3dadd(295.9, -46.1, -17, 0.5) pt3dadd(296.6, -45.2, -18.3, 0.5) pt3dadd(298.1, -43.7, -20.6, 0.5) pt3dadd(299.2, -43.2, -22.1, 0.5) pt3dadd(300.1, -42.8, -23, 0.5) pt3dadd(302.3, -41.7, -25.8, 0.5) pt3dadd(304.4, -40.6, -28.5, 0.5) pt3dadd(305.3, -39.7, -30, 0.5) } dend_5[13] {pt3dclear() pt3dadd(208.6, -27.5, 90, 2) pt3dadd(209.6, -27.4, 90.2, 2) pt3dadd(210.7, -27.8, 90.5, 2) pt3dadd(211.7, -27.9, 90.9, 2) pt3dadd(212.8, -27.6, 91.2, 2) pt3dadd(213.7, -27.6, 91.6, 2) pt3dadd(215, -27.9, 92.1, 1.2) pt3dadd(217.4, -28.1, 93.1, 1.2) pt3dadd(218.1, -28.6, 93.5, 1.2) pt3dadd(218.9, -29.1, 93.8, 1.2) pt3dadd(219.8, -29.1, 94.2, 1.2) pt3dadd(222.6, -28.9, 95.2, 1.2) pt3dadd(223.7, -28.7, 95.5, 1.2) pt3dadd(224.5, -28.5, 95.7, 1.2) } } proc shape3d_11() { dend_5[13] { pt3dadd(225.8, -28.5, 96, 1.2) } dend_5[14] {pt3dclear() pt3dadd(225.8, -28.5, 96, 1.2) pt3dadd(226.2, -27.6, 96.2, 1.2) pt3dadd(226.6, -26.5, 96.3, 1.2) pt3dadd(227.7, -26.2, 96.3, 1.2) pt3dadd(228.5, -25.9, 96.3, 1.2) pt3dadd(229.3, -25.9, 96.3, 1.2) pt3dadd(234.1, -25.9, 95.8, 1.2) pt3dadd(235, -26, 95.7, 1.2) pt3dadd(235.7, -26.4, 95.8, 1.2) pt3dadd(237.2, -25.7, 96, 1.2) } apic[33] {pt3dclear() pt3dadd(237.2, -25.7, 96, 1.2) pt3dadd(238.1, -26.4, 96.5, 0.5) pt3dadd(238, -27.2, 96.9, 0.5) pt3dadd(238.3, -28.1, 97.5, 0.5) pt3dadd(238.2, -29, 98.1, 0.5) pt3dadd(238.6, -30.6, 99.2, 0.5) pt3dadd(239.3, -31.5, 100, 0.5) pt3dadd(240, -32.3, 100.9, 0.5) pt3dadd(240.3, -33.1, 101.6, 0.5) pt3dadd(240.2, -34.2, 102.5, 0.5) pt3dadd(240.6, -37.5, 105.5, 0.5) pt3dadd(241.1, -38.4, 106.4, 0.5) pt3dadd(241.7, -38.8, 107.2, 0.5) pt3dadd(241.7, -39.6, 108, 0.5) pt3dadd(241.2, -40.4, 108.9, 0.5) pt3dadd(241.5, -41.3, 109.8, 0.5) pt3dadd(242.9, -42.2, 111.3, 0.5) pt3dadd(243.2, -43.3, 112.4, 0.5) pt3dadd(243.5, -44.5, 113.5, 0.5) pt3dadd(243.4, -45.3, 114.3, 0.5) pt3dadd(243.6, -50, 118.1, 0.5) pt3dadd(244.3, -50.7, 118.8, 0.5) pt3dadd(244.9, -51.3, 119.4, 0.5) pt3dadd(245.5, -52.1, 120, 0.5) pt3dadd(245.9, -53.1, 120.7, 0.5) pt3dadd(246.6, -53.7, 121.2, 0.5) pt3dadd(246.9, -54.6, 121.8, 0.5) pt3dadd(246.8, -55.6, 122.4, 0.5) pt3dadd(247.1, -56.4, 122.9, 0.5) pt3dadd(247.6, -57.5, 123.6, 0.5) pt3dadd(248, -58.5, 124.3, 0.5) pt3dadd(248.6, -59.5, 125, 0.5) pt3dadd(249, -60.4, 125.6, 0.5) pt3dadd(250, -60.5, 126.1, 0.5) pt3dadd(250.8, -60.9, 126.7, 0.5) pt3dadd(251.7, -61.9, 127.4, 0.5) pt3dadd(252.6, -62.4, 128.1, 0.5) pt3dadd(253.5, -62.5, 128.6, 0.5) pt3dadd(254, -63.3, 129.2, 0.5) pt3dadd(254.8, -63.5, 129.6, 0.5) pt3dadd(255.6, -64, 130.2, 0.5) pt3dadd(257.3, -64.5, 131.2, 0.5) pt3dadd(258.2, -65, 131.8, 0.5) pt3dadd(259, -65, 132.2, 0.5) pt3dadd(260.7, -65.5, 133.3, 0.5) pt3dadd(261.7, -65.7, 133.8, 0.5) pt3dadd(262.5, -66.1, 134.3, 0.5) pt3dadd(263.2, -66.2, 134.7, 0.5) pt3dadd(264.2, -66.7, 135.3, 0.5) pt3dadd(264.8, -67.6, 135.9, 0.5) pt3dadd(265.7, -68.1, 136.5, 0.5) pt3dadd(266.7, -68.6, 137.1, 0.5) pt3dadd(267.1, -69.6, 137.7, 0.5) pt3dadd(267.3, -70.6, 138.2, 0.5) pt3dadd(268.1, -70.6, 138.6, 0.5) pt3dadd(269.1, -71.2, 139.2, 0.5) pt3dadd(269.9, -71.2, 139.6, 0.5) pt3dadd(270.6, -71.7, 140, 0.5) pt3dadd(271.8, -73.1, 141, 0.5) pt3dadd(272.5, -74.1, 141.6, 0.5) pt3dadd(273.6, -74.2, 142.1, 0.5) pt3dadd(274.6, -74.6, 142.7, 0.5) pt3dadd(275.5, -74.7, 143.1, 0.5) pt3dadd(276.2, -75.1, 143.5, 0.5) pt3dadd(276.8, -75.6, 143.9, 0.5) pt3dadd(278.6, -76.7, 144.9, 0.5) pt3dadd(278.8, -77.6, 145.3, 0.5) pt3dadd(279.3, -80.5, 146.6, 0.5) pt3dadd(279.5, -81.9, 147.2, 0.5) pt3dadd(279.9, -82.7, 147.6, 0.5) pt3dadd(280.5, -83.3, 148, 0.5) pt3dadd(281.2, -83.7, 148.3, 0.5) pt3dadd(282, -84.8, 148.9, 0.5) pt3dadd(282.9, -85.6, 149.4, 0.5) pt3dadd(284.2, -86.5, 150, 0.5) } dend_5[15] {pt3dclear() pt3dadd(237.2, -25.7, 96, 1.2) pt3dadd(238.4, -25.6, 96.3, 1.2) pt3dadd(239.4, -25.4, 96.6, 1.2) pt3dadd(241.7, -24.9, 97.8, 1.2) pt3dadd(242.6, -24.6, 98.4, 1.2) pt3dadd(245, -24.4, 100.3, 1.2) pt3dadd(246.5, -25, 101.9, 1.2) pt3dadd(247.6, -25.1, 103.1, 1.2) pt3dadd(250.1, -24.9, 106, 1.2) pt3dadd(251.1, -24.2, 107.6, 1.2) pt3dadd(252.2, -23.9, 109.1, 1.2) pt3dadd(253, -23.5, 110.3, 1.2) pt3dadd(254, -23.3, 111.9, 1.2) pt3dadd(255.1, -23.3, 113.5, 1.2) pt3dadd(256.4, -23.9, 115.7, 1.2) pt3dadd(257.2, -23.5, 117.1, 1.2) pt3dadd(257.9, -22.9, 118.6, 1.2) pt3dadd(258.8, -22.6, 120.2, 1.2) pt3dadd(260.7, -22.4, 123.4, 1.2) pt3dadd(264.3, -22, 129.8, 1.2) pt3dadd(266.3, -21, 133.7, 1.2) pt3dadd(267.1, -20.4, 135.6, 1.2) pt3dadd(268.2, -20.2, 137.6, 1.2) pt3dadd(269, -19.9, 139.2, 1.2) pt3dadd(270, -19.3, 141.1, 1.2) pt3dadd(270.9, -19.1, 142.9, 1.2) pt3dadd(271.9, -19.1, 144.5, 1.2) pt3dadd(272.9, -18.9, 146.4, 1.2) pt3dadd(273.7, -18.6, 147.9, 1.2) pt3dadd(275.2, -18.7, 150.3, 1.2) pt3dadd(276.1, -18.4, 152, 1.2) pt3dadd(277, -18.4, 153.5, 1.2) pt3dadd(278.1, -18.9, 155.3, 1.2) pt3dadd(279.5, -19, 157.5, 1.2) pt3dadd(283.3, -18.3, 163, 1.2) pt3dadd(284.1, -17.7, 164.3, 1.2) pt3dadd(284.8, -17.3, 165.3, 1.2) pt3dadd(285.9, -17, 166.6, 1.2) pt3dadd(287.6, -16.5, 168.6, 1.2) pt3dadd(288.7, -16.2, 169.7, 1.2) pt3dadd(289.6, -16.1, 170.6, 1.2) pt3dadd(290.4, -16.2, 171.2, 1.2) pt3dadd(292.9, -15.7, 173, 1.2) pt3dadd(293.9, -15.4, 173.6, 1.2) pt3dadd(295.6, -15.2, 174.3, 1.2) pt3dadd(296.6, -14.5, 174.6, 1.2) pt3dadd(297.7, -14.3, 174.8, 1.2) pt3dadd(298.8, -14.3, 174.8, 1.2) pt3dadd(301.5, -14.5, 174.4, 1.2) pt3dadd(302.5, -14.6, 174, 1.2) } apic[34] {pt3dclear() pt3dadd(302.5, -14.6, 174, 1.2) pt3dadd(302.3, -13.5, 174.4, 0.5) pt3dadd(301.9, -12.7, 174.6, 0.5) pt3dadd(301.9, -11.7, 174.9, 0.5) pt3dadd(302.3, -10.9, 175.1, 0.5) pt3dadd(302.7, -10, 175.4, 0.5) pt3dadd(303.1, -8.8, 175.6, 0.5) pt3dadd(303.1, -8, 175.8, 0.5) pt3dadd(302.9, -5.8, 176.1, 0.5) pt3dadd(302.9, -4.7, 176.2, 0.5) pt3dadd(302.8, -3.9, 176.3, 0.5) pt3dadd(303.1, -2.8, 176.4, 0.5) pt3dadd(304, 0, 176.7, 0.5) pt3dadd(304.6, 1.2, 176.8, 0.5) pt3dadd(305, 2, 176.8, 0.5) pt3dadd(305.6, 3.9, 176.9, 0.5) pt3dadd(306.6, 8.3, 177.2, 0.5) pt3dadd(307, 9.3, 177.3, 0.5) pt3dadd(307.7, 9.9, 177.4, 0.5) pt3dadd(307.8, 11.6, 177.6, 0.5) pt3dadd(307.6, 14.5, 178.1, 0.5) pt3dadd(307.7, 15.7, 178.3, 0.5) pt3dadd(307.9, 20.3, 179.5, 0.5) pt3dadd(307.5, 21.6, 180, 0.5) pt3dadd(307.5, 22.7, 180.4, 0.5) pt3dadd(308.2, 27.7, 182.3, 0.5) pt3dadd(308.7, 29, 182.9, 0.5) pt3dadd(308.7, 30.2, 183.3, 0.5) pt3dadd(308.5, 32, 184, 0.5) pt3dadd(308.5, 33.5, 184.6, 0.5) pt3dadd(308.9, 34.3, 184.9, 0.5) pt3dadd(309, 35.1, 185.2, 0.5) pt3dadd(308.6, 36, 185.6, 0.5) pt3dadd(308.7, 36.9, 186, 0.5) pt3dadd(309.4, 41.2, 187.7, 0.5) pt3dadd(310, 41.8, 188.1, 0.5) pt3dadd(310.7, 42.8, 188.6, 0.5) pt3dadd(311.5, 43.5, 189, 0.5) pt3dadd(312.2, 44.7, 189.6, 0.5) pt3dadd(312.2, 46.2, 190.3, 0.5) pt3dadd(312.3, 47.5, 190.9, 0.5) pt3dadd(312.9, 50.3, 192.2, 0.5) pt3dadd(313.7, 51.3, 192.8, 0.5) pt3dadd(314, 52.1, 193.2, 0.5) pt3dadd(314.8, 52.4, 193.6, 0.5) pt3dadd(316.8, 53.8, 194.9, 0.5) pt3dadd(318.8, 55.2, 196.2, 0.5) pt3dadd(319.4, 55.8, 196.7, 0.5) pt3dadd(320.3, 56.3, 197.2, 0.5) pt3dadd(321.2, 57.4, 198, 0.5) } dend_5[16] {pt3dclear() pt3dadd(302.5, -14.6, 174, 1.2) pt3dadd(303.4, -14.8, 173.4, 1.2) pt3dadd(304.5, -14.5, 172.7, 1.2) pt3dadd(305.5, -14.6, 172.1, 1.2) pt3dadd(307.8, -14.1, 170.5, 1.2) pt3dadd(308.7, -13.8, 169.7, 1.2) pt3dadd(309.5, -13.9, 169.1, 1.2) pt3dadd(311.5, -14.9, 167.3, 1.2) pt3dadd(312.5, -15.4, 166.4, 1.2) pt3dadd(315.4, -16.3, 163.7, 1.2) pt3dadd(316.3, -15.7, 162.6, 1.2) pt3dadd(317.2, -15.4, 161.8, 1.2) pt3dadd(318.4, -15.5, 160.7, 1.2) pt3dadd(319.7, -16, 159.3, 1.2) } } proc shape3d_12() { dend_5[16] { pt3dadd(321.2, -15.7, 157.9, 1.2) pt3dadd(322.1, -15.3, 156.9, 1.2) pt3dadd(323.1, -14.6, 155.7, 1.2) pt3dadd(324.2, -13.9, 154.4, 1.2) pt3dadd(325.7, -13.2, 152.8, 1.2) pt3dadd(327.1, -13.3, 151.4, 1.2) pt3dadd(329.8, -14.3, 148.6, 1.2) pt3dadd(330.7, -14.4, 147.7, 1.2) pt3dadd(331.8, -14.8, 146.5, 1.2) pt3dadd(333.2, -14.9, 145.2, 1.2) pt3dadd(334.2, -14.3, 144.1, 1.2) pt3dadd(335.5, -13.7, 142.7, 1.2) pt3dadd(336.4, -13.5, 141.9, 1.2) pt3dadd(337.5, -12.6, 140.7, 1.2) pt3dadd(338.3, -12.3, 139.9, 1.2) pt3dadd(338.9, -11.7, 139.2, 1.2) pt3dadd(339.9, -10.6, 138, 1.2) } dend_5[17] {pt3dclear() pt3dadd(339.9, -10.6, 138, 1.2) pt3dadd(340.8, -10.5, 137.3, 0.5) pt3dadd(341.6, -10.5, 136.7, 0.5) pt3dadd(342.6, -11, 135.9, 0.5) pt3dadd(344.2, -12, 134.5, 0.5) pt3dadd(345, -12.8, 133.8, 0.5) pt3dadd(345.8, -12.9, 133.3, 0.5) pt3dadd(347.5, -12.6, 132.4, 0.5) pt3dadd(348.5, -12.3, 132, 0.5) } dend_5[18] {pt3dclear() pt3dadd(348.5, -12.3, 132, 0.5) pt3dadd(381.2, -1.6, 150, 0.5) } dend_5[19] {pt3dclear() pt3dadd(381.2, -1.6, 150, 0.5) pt3dadd(382.9, -0.9, 150.1, 0.2) pt3dadd(383.5, -2, 150.2, 0.2) pt3dadd(384.2, -2.6, 150.2, 0.2) pt3dadd(384.7, -3.2, 150.2, 0.2) pt3dadd(385.4, -3.8, 150.3, 0.2) pt3dadd(386.5, -4.4, 150.3, 0.2) pt3dadd(387.7, -4.5, 150.3, 0.2) pt3dadd(389.4, -3.8, 150.3, 0.2) pt3dadd(390.6, -3.8, 150.2, 0.2) pt3dadd(394, -3.7, 150.1, 0.2) pt3dadd(395.2, -3.8, 150, 0.2) pt3dadd(397, -4.3, 149.8, 0.2) pt3dadd(398.2, -4.4, 149.7, 0.2) pt3dadd(400.8, -4.2, 149.4, 0.2) pt3dadd(401.6, -4.2, 149.3, 0.2) pt3dadd(403.5, -4, 149, 0.2) pt3dadd(404.4, -4.1, 148.8, 0.2) pt3dadd(405.4, -5, 148.6, 0.2) pt3dadd(406.1, -5.5, 148.4, 0.2) pt3dadd(406.8, -6.1, 148.2, 0.2) pt3dadd(407.7, -6.5, 148, 0.2) pt3dadd(408.5, -6.6, 147.8, 0.2) pt3dadd(410.7, -7.1, 147.2, 0.2) pt3dadd(411.4, -7.6, 147, 0.2) pt3dadd(412, -8.3, 146.7, 0.2) pt3dadd(412.8, -9.6, 146.2, 0.2) pt3dadd(413.6, -10.1, 145.9, 0.2) pt3dadd(414.2, -10.6, 145.7, 0.2) pt3dadd(415.2, -10.7, 145.3, 0.2) pt3dadd(416.1, -11.1, 145, 0.2) pt3dadd(416.8, -11.6, 144.7, 0.2) pt3dadd(417.3, -13, 144.1, 0.2) pt3dadd(418, -13.5, 143.7, 0.2) pt3dadd(419.5, -14, 143.1, 0.2) pt3dadd(420.2, -14.5, 142.7, 0.2) pt3dadd(421, -14.5, 142.3, 0.2) pt3dadd(422.7, -15.1, 141.4, 0.2) pt3dadd(423.1, -16, 141, 0.2) pt3dadd(423.7, -16.9, 140.4, 0.2) pt3dadd(424.3, -17.5, 139.9, 0.2) pt3dadd(424.8, -18.4, 139.4, 0.2) pt3dadd(425.1, -19.2, 138.9, 0.2) pt3dadd(425.7, -20.6, 138, 0.2) } dend_5[20] {pt3dclear() pt3dadd(381.2, -1.6, 150, 0.5) pt3dadd(382.7, -0.9, 150.1, 0.2) pt3dadd(383.7, -0.2, 150.1, 0.2) pt3dadd(385.2, 0.7, 149.9, 0.2) pt3dadd(386.9, 1.6, 149.7, 0.2) pt3dadd(387.6, 2.2, 149.7, 0.2) pt3dadd(388.9, 2.7, 149.8, 0.2) pt3dadd(390.1, 3, 150, 0.2) } dend_5[21] {pt3dclear() pt3dadd(390.1, 3, 150, 0.2) pt3dadd(390.2, 3.8, 150.5, 0.2) pt3dadd(389.9, 5.3, 151.8, 0.2) pt3dadd(390, 6.1, 152.7, 0.2) pt3dadd(390.4, 8.1, 155.6, 0.2) pt3dadd(390.8, 10.1, 158.9, 0.2) pt3dadd(390.5, 11, 160.7, 0.2) pt3dadd(390.6, 11.8, 162.2, 0.2) pt3dadd(391.5, 14.8, 168.1, 0.2) pt3dadd(392.8, 16.5, 172, 0.2) pt3dadd(393.6, 17.3, 174, 0.2) pt3dadd(393.7, 18.3, 175.6, 0.2) pt3dadd(394, 19.2, 177, 0.2) pt3dadd(394.9, 20.8, 179.2, 0.2) pt3dadd(395.5, 21.2, 180, 0.2) pt3dadd(395.6, 22.1, 180.8, 0.2) pt3dadd(396.2, 26.3, 184.5, 0.2) pt3dadd(398.8, 30.6, 188.7, 0.2) pt3dadd(399.2, 31.5, 189.5, 0.2) pt3dadd(399.3, 32.6, 190.4, 0.2) pt3dadd(400.3, 34.7, 192.2, 0.2) pt3dadd(401.2, 36.1, 193.5, 0.2) pt3dadd(401.5, 37.2, 194.3, 0.2) pt3dadd(402.3, 38.1, 195.2, 0.2) pt3dadd(402.7, 39.2, 196, 0.2) pt3dadd(402.8, 41.3, 197.5, 0.2) pt3dadd(403.3, 42.4, 198.3, 0.2) pt3dadd(403.8, 43.9, 199.4, 0.2) pt3dadd(404.3, 45.1, 200.2, 0.2) pt3dadd(405.7, 47.2, 201.8, 0.2) pt3dadd(406.1, 47.9, 202.3, 0.2) pt3dadd(406.8, 48.4, 202.9, 0.2) pt3dadd(409.2, 50.5, 204.7, 0.2) pt3dadd(409.9, 51.5, 205.4, 0.2) pt3dadd(410.7, 52.8, 206.2, 0.2) pt3dadd(410.7, 54.2, 206.9, 0.2) pt3dadd(411.4, 59.1, 209.2, 0.2) pt3dadd(411.4, 60, 209.6, 0.2) pt3dadd(412.4, 61, 210.2, 0.2) pt3dadd(413.4, 62.1, 210.8, 0.2) pt3dadd(413.8, 62.9, 211.1, 0.2) pt3dadd(413.8, 63.7, 211.4, 0.2) pt3dadd(413.5, 64.9, 211.9, 0.2) pt3dadd(413.2, 66.9, 212.6, 0.2) pt3dadd(412.9, 67.9, 212.9, 0.2) pt3dadd(412.6, 69.4, 213.4, 0.2) pt3dadd(412.2, 70.2, 213.6, 0.2) pt3dadd(412, 72.1, 214.1, 0.2) pt3dadd(411, 72.9, 214.4, 0.2) pt3dadd(410.6, 74, 214.6, 0.2) pt3dadd(410.3, 74.9, 214.8, 0.2) pt3dadd(410.4, 75.7, 215, 0.2) pt3dadd(410.8, 76.7, 215.2, 0.2) pt3dadd(411.3, 77.4, 215.3, 0.2) pt3dadd(411.7, 79.3, 215.6, 0.2) pt3dadd(411.8, 80.7, 215.7, 0.2) pt3dadd(412, 84.7, 216, 0.2) pt3dadd(412.4, 85.5, 216, 0.2) pt3dadd(412.9, 86.4, 216, 0.2) } dend_5[22] {pt3dclear() pt3dadd(390.1, 3, 150, 0.2) pt3dadd(391.2, 3, 150, 0.2) pt3dadd(392, 3.9, 150, 0.2) pt3dadd(392.9, 5.1, 150, 0.2) pt3dadd(393.3, 6.2, 150, 0.2) pt3dadd(394.8, 7, 150, 0.2) pt3dadd(396.1, 8.1, 150, 0.2) pt3dadd(397.1, 9.1, 150, 0.2) pt3dadd(398.4, 10.4, 150, 0.2) pt3dadd(399.2, 10.7, 150, 0.2) pt3dadd(400.4, 11.8, 150, 0.2) pt3dadd(401.4, 12.5, 150, 0.2) pt3dadd(402.4, 13.6, 150, 0.2) pt3dadd(402.7, 14.6, 150, 0.2) pt3dadd(403.8, 16.1, 150, 0.2) pt3dadd(404.9, 17.9, 150, 0.2) pt3dadd(405.7, 18.6, 150, 0.2) pt3dadd(407.2, 19, 150, 0.2) pt3dadd(408.8, 19.6, 150, 0.2) pt3dadd(410.3, 19.8, 150, 0.2) pt3dadd(411.3, 20.1, 150, 0.2) pt3dadd(412.2, 20.4, 150, 0.2) pt3dadd(413.3, 21.2, 150, 0.2) pt3dadd(413.6, 22, 150, 0.2) pt3dadd(414.3, 22.8, 150, 0.2) pt3dadd(414.8, 23.5, 150, 0.2) pt3dadd(416.3, 25.3, 150, 0.2) pt3dadd(418.5, 27.7, 150, 0.2) pt3dadd(419, 28.7, 150, 0.2) pt3dadd(419.9, 29.4, 150, 0.2) pt3dadd(420.4, 30.2, 150, 0.2) pt3dadd(420.7, 31, 150, 0.2) pt3dadd(421.6, 32.6, 150, 0.2) pt3dadd(422.9, 33.8, 150, 0.2) pt3dadd(423.7, 35, 150, 0.2) pt3dadd(425.2, 36.3, 150, 0.2) pt3dadd(428, 39.2, 150, 0.2) pt3dadd(428.8, 40.8, 150, 0.2) pt3dadd(430.1, 42.1, 150, 0.2) pt3dadd(431.4, 43.7, 150, 0.2) pt3dadd(432.6, 44.9, 150, 0.2) pt3dadd(433.3, 45.6, 150, 0.2) pt3dadd(434.2, 46.2, 150, 0.2) pt3dadd(435.4, 47.1, 150, 0.2) pt3dadd(437.4, 48.2, 150, 0.2) pt3dadd(437.9, 48.8, 150, 0.2) pt3dadd(439.4, 50, 150, 0.2) pt3dadd(440.7, 50.7, 150, 0.2) pt3dadd(443.1, 51.9, 150, 0.2) pt3dadd(444, 52.4, 150, 0.2) pt3dadd(444.7, 52.8, 150, 0.2) pt3dadd(445.5, 53.4, 150, 0.2) pt3dadd(446.4, 54.2, 150, 0.2) pt3dadd(446.4, 55, 150, 0.2) pt3dadd(447.1, 58.5, 150, 0.2) pt3dadd(447.5, 59.5, 150, 0.2) pt3dadd(447.6, 60.3, 150, 0.2) pt3dadd(447.1, 61.7, 150, 0.2) pt3dadd(447.2, 62.5, 150, 0.2) pt3dadd(447.8, 66.2, 150, 0.2) pt3dadd(448.7, 67, 150, 0.2) } } proc shape3d_13() { dend_5[22] { pt3dadd(449.1, 67.8, 150, 0.2) pt3dadd(448.7, 69.7, 150, 0.2) pt3dadd(448.4, 70.9, 150, 0.2) pt3dadd(448.5, 72.1, 150, 0.2) pt3dadd(449.1, 74.2, 150, 0.2) pt3dadd(449.9, 75.7, 150, 0.2) pt3dadd(450, 76.8, 150, 0.2) pt3dadd(450.2, 80.9, 150, 0.2) pt3dadd(450.5, 85.9, 150, 0.2) pt3dadd(450, 87.2, 150, 0.2) pt3dadd(449, 88.4, 150, 0.2) } dend_5[23] {pt3dclear() pt3dadd(348.5, -12.3, 132, 0.5) pt3dadd(349.2, -13.4, 132.9, 0.5) pt3dadd(349.5, -14.3, 135.1, 0.5) pt3dadd(350.1, -15.1, 138.6, 0.5) pt3dadd(351.2, -16, 144.9, 0.5) pt3dadd(352.2, -16.4, 150, 0.5) } dend_5[24] {pt3dclear() pt3dadd(339.9, -10.6, 138, 1.2) pt3dadd(340.3, -9.9, 137.1, 1.2) pt3dadd(341, -9.1, 136, 1.2) pt3dadd(341.7, -8.4, 135.1, 1.2) pt3dadd(342.5, -7.7, 134, 1.2) pt3dadd(342.9, -6.9, 133, 1.2) pt3dadd(343.3, -6.2, 132.1, 1.2) pt3dadd(344.7, -4.3, 129.7, 1.2) pt3dadd(345.4, -4, 128.9, 1.2) pt3dadd(346.2, -3.7, 128, 1.2) pt3dadd(347.1, -3.8, 127.1, 1.2) pt3dadd(349.6, -3.5, 124.5, 1.2) pt3dadd(350.9, -2.8, 123, 1.2) pt3dadd(351.3, -1.9, 122.1, 1.2) pt3dadd(351.7, -1, 121.2, 1.2) pt3dadd(352.7, -0.1, 120, 1.2) pt3dadd(353.1, 0.9, 119.1, 1.2) pt3dadd(354.1, 2.2, 117.9, 1.2) pt3dadd(355, 2.6, 117.3, 1.2) pt3dadd(355.8, 3.5, 116.6, 1.2) pt3dadd(356.2, 4.4, 116.1, 1.2) pt3dadd(356.3, 5.5, 115.6, 1.2) pt3dadd(355.6, 7.2, 114.9, 1.2) pt3dadd(355.2, 8.3, 114.5, 1.2) pt3dadd(355.2, 9.5, 114.2, 1.1) pt3dadd(355.3, 10.6, 114, 1.1) pt3dadd(355.7, 11.4, 113.8, 1.1) pt3dadd(356.1, 12.7, 113.7, 1.1) pt3dadd(356.2, 14.1, 113.6, 1.1) pt3dadd(355.7, 14.9, 113.5, 1.1) pt3dadd(355.4, 15.8, 113.5, 1.1) pt3dadd(355.5, 16.8, 113.6, 1.1) pt3dadd(356.4, 18.9, 113.8, 1.1) pt3dadd(356.8, 19.8, 113.9, 1.1) pt3dadd(357.3, 21.6, 114.3, 1.1) pt3dadd(356.8, 22.3, 114.5, 1.1) pt3dadd(356.5, 23.7, 114.8, 1.1) pt3dadd(356.2, 24.7, 115.1, 1.1) pt3dadd(356.3, 25.5, 115.3, 1.1) pt3dadd(356.8, 29.1, 116.4, 1.1) pt3dadd(357.3, 30, 116.8, 1.1) pt3dadd(357.9, 31.1, 117.2, 1.1) pt3dadd(359.4, 34.2, 118.5, 1.1) pt3dadd(359.4, 35.2, 118.9, 1.1) pt3dadd(359.8, 36.1, 119.3, 1.1) pt3dadd(359.9, 37.1, 119.6, 1.1) pt3dadd(360, 38, 120, 1.1) pt3dadd(360.4, 38.9, 120.4, 1.1) pt3dadd(360.8, 40.6, 121.1, 1.1) pt3dadd(361.2, 41.5, 121.6, 1.1) pt3dadd(361.6, 43, 122.4, 1.1) pt3dadd(361.6, 43.7, 122.8, 1.1) pt3dadd(362.1, 44.9, 123.6, 1.1) pt3dadd(362.2, 45.8, 124.1, 1.1) pt3dadd(362.7, 46.5, 124.6, 1.1) pt3dadd(363.6, 47.1, 125.3, 1.1) pt3dadd(364.5, 47.5, 126, 1.1) pt3dadd(364.9, 48.2, 126.6, 1.1) pt3dadd(365.3, 50.6, 128.2, 1.1) pt3dadd(365.7, 51.4, 128.9, 1.1) pt3dadd(366.2, 52.7, 129.8, 1.1) pt3dadd(366.7, 53.4, 130.5, 1.1) pt3dadd(367.4, 53.8, 131, 1.1) pt3dadd(368.3, 55.2, 132.3, 1.1) pt3dadd(369.1, 56.2, 133.2, 1.1) pt3dadd(369.2, 57.2, 133.9, 1.1) pt3dadd(369.8, 61.4, 136.9, 1.1) pt3dadd(370.5, 62.4, 137.7, 1.1) pt3dadd(371.7, 64, 139, 1.1) pt3dadd(373.1, 65.5, 140.3, 1.1) pt3dadd(373.9, 66.4, 140.9, 1.1) pt3dadd(374.7, 67, 141.5, 1.1) pt3dadd(375.7, 68.2, 142.2, 1.1) pt3dadd(376, 68.9, 142.6, 1.1) pt3dadd(376.8, 70.2, 143.2, 1.1) pt3dadd(376.9, 71.4, 143.7, 1.1) pt3dadd(377.6, 72.3, 144, 1.1) } dend_5[25] {pt3dclear() pt3dadd(377.6, 72.3, 144, 1.1) pt3dadd(376.8, 71.9, 144.3, 1.1) pt3dadd(376.9, 73.4, 144.7, 1.1) pt3dadd(377.6, 74.7, 145.1, 1.1) pt3dadd(378, 75.5, 145.4, 1.1) pt3dadd(378.8, 78, 146.1, 1.1) pt3dadd(379.5, 79, 146.5, 1.1) pt3dadd(380.5, 81.5, 147.2, 1.1) pt3dadd(380.9, 82.3, 147.4, 1.1) pt3dadd(381, 83.5, 147.7, 1.1) pt3dadd(380.7, 84.5, 148, 1.1) pt3dadd(380.7, 85.5, 148.3, 1.1) pt3dadd(381.7, 87.3, 148.8, 1.1) pt3dadd(382, 88.1, 149, 1.1) pt3dadd(382.5, 88.8, 149.2, 1.1) pt3dadd(383.3, 89.8, 149.5, 1.1) pt3dadd(383.4, 90.7, 149.7, 1.1) pt3dadd(383.6, 94.7, 150.6, 1.1) pt3dadd(384.3, 95.8, 150.9, 1.1) pt3dadd(385.4, 98.1, 151.4, 1.1) pt3dadd(386, 98.9, 151.6, 1.1) pt3dadd(386.7, 99.6, 151.9, 1.1) pt3dadd(387.2, 100.4, 152, 1.1) pt3dadd(388.2, 102.5, 152.5, 0.6) pt3dadd(388.7, 104.9, 153, 0.6) pt3dadd(388.6, 107, 153.3, 0.6) pt3dadd(388.3, 108, 153.5, 0.6) pt3dadd(388.4, 109, 153.7, 0.6) pt3dadd(388.7, 109.9, 153.9, 0.6) pt3dadd(388.8, 110.9, 154, 0.6) pt3dadd(389.2, 111.9, 154.2, 0.6) pt3dadd(390, 112.7, 154.4, 0.6) pt3dadd(391.1, 113.3, 154.6, 0.6) pt3dadd(392.1, 114.3, 154.8, 0.6) pt3dadd(393.1, 115.4, 155, 0.6) pt3dadd(393.7, 116.1, 155.2, 0.6) pt3dadd(394.4, 116.9, 155.3, 0.6) pt3dadd(394.9, 118.1, 155.5, 0.6) pt3dadd(395.4, 119, 155.6, 0.6) pt3dadd(395.9, 119.7, 155.8, 0.6) pt3dadd(397.2, 120.7, 156, 0.6) pt3dadd(398.3, 121.7, 156.2, 0.6) pt3dadd(398.9, 122.5, 156.3, 0.6) pt3dadd(399.9, 123.5, 156.4, 0.6) pt3dadd(400.6, 124.4, 156.6, 0.6) pt3dadd(401.3, 125.5, 156.7, 0.6) pt3dadd(401.6, 126.6, 156.8, 0.6) pt3dadd(401.7, 127.5, 156.9, 0.6) pt3dadd(402.3, 130.5, 157.2, 0.6) pt3dadd(403.3, 131.2, 157.3, 0.6) pt3dadd(404, 131.7, 157.4, 0.6) pt3dadd(404.9, 132.4, 157.5, 0.6) pt3dadd(406.2, 133.4, 157.6, 0.6) pt3dadd(407.3, 134, 157.7, 0.6) pt3dadd(408.1, 134.8, 157.8, 0.6) pt3dadd(409, 135.6, 157.9, 0.6) pt3dadd(409.7, 136.3, 157.9, 0.6) pt3dadd(410, 137.1, 158, 0.6) pt3dadd(410.1, 138.3, 158.1, 0.6) pt3dadd(410.5, 139.6, 158.1, 0.6) pt3dadd(411.4, 141.7, 158.2, 0.6) pt3dadd(413.4, 144.3, 158.4, 0.6) pt3dadd(414.2, 145, 158.4, 0.6) pt3dadd(416.3, 147.1, 158.5, 0.6) pt3dadd(416.7, 148.1, 158.5, 0.6) pt3dadd(417.1, 148.8, 158.5, 0.6) pt3dadd(417.9, 149.8, 158.5, 0.6) pt3dadd(419.6, 151.7, 158.6, 0.6) pt3dadd(419.9, 152.6, 158.6, 0.6) pt3dadd(420.6, 153.5, 158.6, 0.6) pt3dadd(420.8, 154.2, 158.6, 0.2) pt3dadd(422.4, 155.9, 158.5, 0.2) pt3dadd(422.8, 156.9, 158.5, 0.2) pt3dadd(423.4, 158.5, 158.5, 0.2) pt3dadd(423, 159.4, 158.5, 0.2) pt3dadd(422.3, 161.6, 158.4, 0.2) pt3dadd(422, 162.4, 158.4, 0.2) pt3dadd(422.4, 164, 158.3, 0.2) pt3dadd(422.5, 165.5, 158.3, 0.2) pt3dadd(422.1, 167.8, 158.2, 0.2) pt3dadd(421.8, 168.8, 158.1, 0.2) pt3dadd(421.8, 169.8, 158.1, 0.2) pt3dadd(421.4, 170.7, 158, 0.2) pt3dadd(421.5, 171.8, 157.9, 0.2) pt3dadd(421.8, 176.5, 157.6, 0.2) pt3dadd(421.5, 178.7, 157.4, 0.2) pt3dadd(421.6, 179.7, 157.3, 0.2) pt3dadd(421.2, 180.4, 157.3, 0.2) pt3dadd(421.8, 182.3, 157.1, 0.2) pt3dadd(422.9, 186.2, 156.7, 0.2) pt3dadd(423.2, 187.4, 156.5, 0.2) pt3dadd(423.3, 188.5, 156.4, 0.2) pt3dadd(423.8, 190.4, 156.2, 0.2) pt3dadd(423.9, 191.5, 156, 0.2) pt3dadd(424.4, 192.8, 155.9, 0.2) pt3dadd(424.4, 194.5, 155.6, 0.2) pt3dadd(424.1, 195.7, 155.5, 0.2) pt3dadd(424.2, 197.2, 155.3, 0.2) pt3dadd(424.8, 199.9, 154.9, 0.2) pt3dadd(425.3, 202.3, 154.5, 0.2) pt3dadd(425, 203.2, 154.3, 0.2) pt3dadd(424.6, 204.5, 154.1, 0.2) pt3dadd(424.7, 205.9, 153.9, 0.2) pt3dadd(425.2, 207.8, 153.5, 0.2) pt3dadd(425.6, 209.1, 153.3, 0.2) pt3dadd(426, 210, 153.1, 0.2) } } proc shape3d_14() { dend_5[25] { pt3dadd(426.4, 211.6, 152.8, 0.2) pt3dadd(426.8, 212.7, 152.6, 0.2) pt3dadd(426.9, 214.4, 152.3, 0.2) pt3dadd(426.5, 215.5, 152, 0.2) pt3dadd(426.6, 216.6, 151.8, 0.2) pt3dadd(427.2, 218.1, 151.5, 0.2) pt3dadd(427.2, 219, 151.3, 0.2) pt3dadd(427.7, 219.8, 151.1, 0.2) pt3dadd(428.7, 221, 150.8, 0.2) pt3dadd(429.6, 223, 150.3, 0.2) pt3dadd(429.3, 224.6, 149.9, 0.2) pt3dadd(429.3, 225.4, 149.7, 0.2) pt3dadd(429.9, 229.6, 148.7, 0.2) pt3dadd(430.7, 230.7, 148.4, 0.2) pt3dadd(430.7, 231.5, 148.2, 0.2) pt3dadd(431.1, 232.8, 147.8, 0.2) pt3dadd(431.5, 233.5, 147.6, 0.2) pt3dadd(431.6, 234.6, 147.3, 0.2) pt3dadd(432, 235.4, 147.1, 0.2) pt3dadd(432.4, 236.3, 146.8, 0.2) pt3dadd(432.8, 237.6, 146.5, 0.2) pt3dadd(433.7, 239.6, 145.8, 0.2) pt3dadd(433.8, 240.5, 145.6, 0.2) pt3dadd(434.2, 241.7, 145.2, 0.2) pt3dadd(434.6, 242.6, 144.9, 0.2) pt3dadd(435.1, 244, 144.5, 0.2) pt3dadd(435.8, 245.6, 144, 0.2) } dend_5[26] {pt3dclear() pt3dadd(377.6, 72.3, 144, 1.1) pt3dadd(378.4, 72.1, 144.2, 1.1) pt3dadd(379.1, 71.7, 144.5, 1.1) pt3dadd(380.1, 71.2, 144.8, 1.1) pt3dadd(381.1, 70.7, 145.1, 1.1) pt3dadd(382.4, 70.6, 145.5, 1.1) pt3dadd(384.5, 71.2, 146, 1.1) pt3dadd(384.8, 72, 146.2, 1.1) pt3dadd(386.6, 71.9, 146.6, 0.6) pt3dadd(388.1, 71.3, 147, 0.6) pt3dadd(389.2, 71.2, 147.2, 0.6) pt3dadd(390.4, 71.4, 147.5, 0.6) pt3dadd(391.5, 71.4, 147.7, 0.6) pt3dadd(395.1, 71.5, 148.3, 0.6) pt3dadd(397, 72.3, 148.6, 0.6) pt3dadd(398, 72.6, 148.8, 0.6) pt3dadd(399, 72.6, 148.9, 0.6) pt3dadd(401.8, 71.5, 149.3, 0.6) pt3dadd(403, 71, 149.4, 0.6) pt3dadd(403.9, 71, 149.5, 0.6) pt3dadd(407.8, 71.7, 149.8, 0.6) pt3dadd(408.5, 72.4, 149.9, 0.6) pt3dadd(409.3, 73, 149.9, 0.6) pt3dadd(408.3, 72.1, 150, 0.6) pt3dadd(409.5, 71.7, 150, 0.6) pt3dadd(410.3, 71.6, 150.1, 0.6) pt3dadd(413.6, 71.8, 150.1, 0.6) pt3dadd(414.3, 72.3, 150.1, 0.6) pt3dadd(415.4, 72.9, 150.1, 0.6) pt3dadd(416.5, 73.9, 150.1, 0.6) pt3dadd(417.3, 74.6, 150, 0.6) pt3dadd(419.4, 74.9, 149.9, 0.6) pt3dadd(421.6, 75.4, 149.8, 0.6) pt3dadd(422.5, 75.8, 149.7, 0.6) pt3dadd(423.3, 76.2, 149.7, 0.6) pt3dadd(424.6, 77.1, 149.5, 0.6) pt3dadd(425.6, 77.6, 149.4, 0.6) pt3dadd(426.5, 77.9, 149.3, 0.6) pt3dadd(427.6, 78.3, 149.2, 0.6) pt3dadd(428.7, 78.6, 149.1, 0.6) pt3dadd(430.1, 78.5, 148.9, 0.6) pt3dadd(431.3, 78.7, 148.7, 0.6) pt3dadd(432.2, 79, 148.6, 0.6) pt3dadd(433.6, 79.7, 148.3, 0.6) pt3dadd(434.6, 80.9, 148.1, 0.6) pt3dadd(435.1, 81.7, 147.9, 0.6) pt3dadd(435.9, 82.5, 147.7, 0.6) pt3dadd(436.5, 83.2, 147.5, 0.6) pt3dadd(437, 84.2, 147.3, 0.6) pt3dadd(437.4, 85.2, 147.1, 0.6) pt3dadd(438.2, 86.3, 146.8, 0.6) pt3dadd(439.6, 87.8, 146.3, 0.6) pt3dadd(440.5, 87.8, 146.1, 0.6) pt3dadd(441.3, 87.3, 145.9, 0.6) pt3dadd(442.5, 86.8, 145.6, 0.6) pt3dadd(443.3, 86.8, 145.4, 0.6) pt3dadd(444.8, 86.3, 144.9, 0.6) pt3dadd(446.2, 86.2, 144.5, 0.6) pt3dadd(447.2, 86.1, 144.2, 0.6) pt3dadd(448, 86.2, 144, 0.6) } dend_5[27] {pt3dclear() pt3dadd(225.8, -28.5, 96, 1.2) pt3dadd(226.6, -28.6, 96, 1.2) pt3dadd(227.5, -29.1, 95.7, 1.2) pt3dadd(228.6, -29.5, 95.1, 1.2) pt3dadd(229.2, -30, 94.5, 1.2) pt3dadd(230.5, -30, 93.5, 1.2) pt3dadd(231.2, -30.3, 92.8, 1.2) pt3dadd(232.6, -30.7, 91.6, 1.2) pt3dadd(233.9, -30.7, 90.7, 1.2) pt3dadd(235.7, -31.2, 90, 1.2) pt3dadd(236.6, -31.5, 90, 1.2) } apic[35] {pt3dclear() pt3dadd(236.6, -31.5, 90, 1.2) pt3dadd(236.5, -32.7, 89.7, 0.5) pt3dadd(237.1, -33.3, 89.5, 0.5) pt3dadd(237.1, -34.2, 89.3, 0.5) pt3dadd(237.8, -34.8, 89.1, 0.5) pt3dadd(238.3, -35.7, 88.9, 0.5) pt3dadd(239.6, -36.1, 88.6, 0.5) pt3dadd(240.4, -36.5, 88.4, 0.5) pt3dadd(240.9, -37.1, 88.3, 0.5) pt3dadd(242, -37.5, 88, 0.5) pt3dadd(242.6, -38, 87.9, 0.5) pt3dadd(242.9, -39, 87.6, 0.5) pt3dadd(243.7, -40, 87.4, 0.5) pt3dadd(244, -41.2, 87.1, 0.5) pt3dadd(244.4, -42.2, 86.9, 0.5) pt3dadd(244.8, -43.1, 86.7, 0.5) pt3dadd(245.7, -44.1, 86.5, 0.5) pt3dadd(246, -45.1, 86.3, 0.5) pt3dadd(246.8, -45.9, 86.1, 0.5) pt3dadd(247.6, -47.3, 85.8, 0.5) pt3dadd(247.9, -48.4, 85.6, 0.5) pt3dadd(247.9, -49.3, 85.5, 0.5) pt3dadd(248.3, -50.8, 85.2, 0.5) pt3dadd(248.3, -51.7, 85.1, 0.5) pt3dadd(248.7, -52.6, 84.9, 0.5) pt3dadd(248.7, -54.3, 84.6, 0.5) pt3dadd(249, -55.1, 84.5, 0.5) pt3dadd(249.7, -56, 84.4, 0.5) pt3dadd(250.6, -56.9, 84.2, 0.5) pt3dadd(251, -57.5, 84.1, 0.5) pt3dadd(251.7, -58.6, 83.9, 0.5) pt3dadd(251.7, -59.5, 83.8, 0.5) pt3dadd(252.3, -60.5, 83.6, 0.5) pt3dadd(252.7, -61.4, 83.5, 0.5) pt3dadd(252.7, -62.4, 83.4, 0.5) pt3dadd(253.4, -63.2, 83.3, 0.5) pt3dadd(253.4, -64.3, 83.2, 0.5) pt3dadd(254.1, -65.2, 83, 0.5) pt3dadd(254.8, -66.2, 82.9, 0.5) pt3dadd(255.7, -66.9, 82.8, 0.5) pt3dadd(256, -67.7, 82.7, 0.5) pt3dadd(256.4, -68.6, 82.6, 0.5) pt3dadd(257.1, -69.8, 82.5, 0.5) pt3dadd(259, -72.4, 82.3, 0.5) pt3dadd(259.7, -73.5, 82.2, 0.5) pt3dadd(260.4, -73.9, 82.2, 0.5) pt3dadd(261.1, -74.8, 82.1, 0.5) pt3dadd(262.2, -75.7, 82.1, 0.5) pt3dadd(265, -77.9, 81.9, 0.5) pt3dadd(266.7, -78.3, 81.9, 0.5) pt3dadd(267.4, -78.7, 81.9, 0.5) pt3dadd(268.3, -79.8, 81.9, 0.5) pt3dadd(269.3, -81.6, 81.9, 0.5) pt3dadd(270, -82.1, 81.9, 0.5) pt3dadd(271, -83.2, 81.9, 0.5) pt3dadd(271.9, -83.6, 81.9, 0.5) pt3dadd(272.6, -84.3, 82, 0.5) pt3dadd(273.3, -85.5, 82, 0.5) pt3dadd(273.9, -86.4, 82.1, 0.5) pt3dadd(274.3, -87.3, 82.1, 0.5) pt3dadd(275.1, -88.2, 82.2, 0.5) pt3dadd(276, -88.7, 82.2, 0.5) pt3dadd(276.8, -89.7, 82.3, 0.5) pt3dadd(276.8, -91.1, 82.4, 0.5) pt3dadd(276.4, -93.8, 82.6, 0.5) pt3dadd(276, -94.7, 82.7, 0.5) pt3dadd(276.7, -95.9, 82.9, 0.5) pt3dadd(276.7, -96.8, 83, 0.5) pt3dadd(276.3, -97.9, 83.1, 0.5) pt3dadd(276.3, -99.4, 83.3, 0.5) pt3dadd(275.9, -100.1, 83.4, 0.5) pt3dadd(275.9, -101.5, 83.6, 0.5) pt3dadd(275.9, -102.8, 83.8, 0.5) pt3dadd(275.8, -104, 84, 0.5) } dend_5[28] {pt3dclear() pt3dadd(236.6, -31.5, 90, 1.2) pt3dadd(237.4, -31.1, 90.2, 1.2) pt3dadd(238.3, -30.7, 90.5, 1.2) pt3dadd(239.4, -30.7, 90.9, 1.2) pt3dadd(240.2, -31.2, 91.3, 1.2) pt3dadd(241.1, -31.7, 91.8, 1.2) pt3dadd(242, -31.7, 92.3, 1.2) pt3dadd(244.2, -32, 93.8, 1.2) pt3dadd(245.2, -32, 94.4, 1.2) pt3dadd(246, -32, 95.1, 1.2) pt3dadd(247.2, -31.9, 96, 1.2) } apic[36] {pt3dclear() pt3dadd(247.2, -31.9, 96, 1.2) pt3dadd(247, -32.8, 96.1, 0.5) pt3dadd(247.9, -33.6, 96.3, 0.5) pt3dadd(249, -34.6, 96.5, 0.5) pt3dadd(250.2, -35, 96.6, 0.5) pt3dadd(251.2, -35.4, 96.7, 0.5) pt3dadd(252.1, -35.9, 96.8, 0.5) pt3dadd(252.8, -36.5, 96.9, 0.5) pt3dadd(252.8, -37.5, 97, 0.5) pt3dadd(253.1, -39, 97.1, 0.5) pt3dadd(253.5, -40.1, 97.2, 0.5) pt3dadd(253.8, -41.3, 97.3, 0.5) pt3dadd(254.6, -42.4, 97.4, 0.5) pt3dadd(255.4, -43.1, 97.5, 0.5) pt3dadd(256.3, -43.6, 97.6, 0.5) pt3dadd(257.5, -44.2, 97.6, 0.5) pt3dadd(259, -44.6, 97.7, 0.5) } } proc shape3d_15() { apic[36] { pt3dadd(260.2, -45.2, 97.8, 0.5) pt3dadd(261.8, -45.8, 97.8, 0.5) pt3dadd(262.8, -46.2, 97.9, 0.5) pt3dadd(264, -47.4, 97.9, 0.5) pt3dadd(265.1, -48.2, 97.9, 0.5) pt3dadd(266.2, -49.2, 97.9, 0.5) pt3dadd(267.2, -50.1, 97.9, 0.5) pt3dadd(268.9, -51.7, 97.9, 0.5) pt3dadd(270, -52.4, 97.9, 0.5) pt3dadd(272.6, -53, 97.8, 0.5) pt3dadd(276.3, -53.9, 97.6, 0.5) pt3dadd(277.2, -55.3, 97.5, 0.5) pt3dadd(277.6, -56.2, 97.4, 0.5) pt3dadd(277.2, -57.9, 97.2, 0.5) pt3dadd(276.8, -59, 97.1, 0.5) pt3dadd(277.2, -60.5, 97, 0.5) pt3dadd(278, -60.9, 96.9, 0.5) pt3dadd(278.8, -61.6, 96.8, 0.5) pt3dadd(279.7, -62.7, 96.6, 0.5) pt3dadd(280.5, -63.7, 96.4, 0.5) pt3dadd(281.2, -64.1, 96.3, 0.5) pt3dadd(282.7, -65, 96, 0.5) pt3dadd(283.7, -66.1, 95.8, 0.5) pt3dadd(284.9, -68, 95.4, 0.5) pt3dadd(285.2, -69.7, 95.1, 0.5) pt3dadd(285.2, -70.7, 94.9, 0.5) pt3dadd(284.8, -72.5, 94.5, 0.5) pt3dadd(284.8, -74.2, 94.2, 0.5) pt3dadd(285.8, -75.9, 93.7, 0.5) pt3dadd(287.9, -77.4, 93.1, 0.5) pt3dadd(288.9, -78.3, 92.7, 0.5) pt3dadd(289.4, -79.3, 92.4, 0.5) pt3dadd(290.2, -80.8, 91.9, 0.5) pt3dadd(290.2, -81.8, 91.6, 0.5) pt3dadd(290.5, -82.7, 91.3, 0.5) pt3dadd(290.5, -83.8, 91, 0.5) pt3dadd(291.2, -87.6, 89.7, 0.5) pt3dadd(292.2, -88.4, 89.3, 0.5) pt3dadd(293.1, -89.3, 88.8, 0.5) pt3dadd(293.8, -90.1, 88.4, 0.5) pt3dadd(294.7, -90.6, 88.1, 0.5) pt3dadd(295.4, -91, 87.7, 0.5) pt3dadd(296.8, -91.4, 87.2, 0.5) pt3dadd(298.1, -91.4, 86.6, 0.5) pt3dadd(299.2, -91.8, 86.2, 0.5) pt3dadd(301.3, -93.3, 85, 0.5) pt3dadd(301.6, -94.3, 84.6, 0.5) pt3dadd(301.9, -95.5, 84, 0.5) } dend_5[29] {pt3dclear() pt3dadd(247.2, -31.9, 96, 1.2) pt3dadd(248.2, -32.1, 96.8, 1.2) pt3dadd(249.3, -31.8, 97.8, 1.2) pt3dadd(250.2, -31.8, 98.5, 1.2) pt3dadd(250.9, -32.7, 99.5, 1.2) pt3dadd(252.1, -32.7, 100.6, 1.2) pt3dadd(254.2, -32.3, 102.4, 1.2) pt3dadd(255.4, -32, 103.5, 1.2) pt3dadd(256.3, -32, 104.3, 1.2) pt3dadd(259.2, -32.8, 107.1, 1.2) pt3dadd(260, -33.2, 107.9, 1.2) pt3dadd(260.8, -33.7, 108.8, 1.2) pt3dadd(261.7, -33.7, 109.6, 1.2) pt3dadd(262.9, -33.4, 110.9, 1.2) pt3dadd(263.7, -33.4, 111.7, 1.2) pt3dadd(264.7, -33, 112.7, 1.2) pt3dadd(265.6, -33, 113.6, 1.2) pt3dadd(266.4, -33.4, 114.5, 1.2) pt3dadd(268.7, -34.2, 117, 1.2) pt3dadd(270.3, -34.6, 118.8, 1.2) pt3dadd(271.4, -34.6, 120, 1.2) pt3dadd(272.6, -34.6, 121.3, 1.2) pt3dadd(273.4, -34.6, 122.3, 1.2) pt3dadd(274.2, -35, 123.5, 1.2) pt3dadd(275, -35, 124.5, 1.2) pt3dadd(279.5, -34.6, 130.8, 1.2) pt3dadd(281.7, -34.2, 134.1, 1.2) pt3dadd(282.7, -34.6, 135.6, 1.2) pt3dadd(283.5, -34.6, 136.7, 1.2) pt3dadd(287.5, -35, 141.9, 1.2) pt3dadd(288.6, -35, 143.1, 1.2) pt3dadd(289.5, -34.9, 144, 1.2) } apic[37] {pt3dclear() pt3dadd(289.5, -34.9, 144, 1.2) pt3dadd(290.2, -34.3, 145.1, 0.5) pt3dadd(291, -33.5, 146.4, 0.5) pt3dadd(291.8, -32.7, 147.8, 0.5) pt3dadd(292.4, -31.6, 149.2, 0.5) pt3dadd(292.7, -30.8, 150.2, 0.5) pt3dadd(292.7, -29.6, 151.6, 0.5) pt3dadd(293, -28.8, 152.6, 0.5) pt3dadd(293.7, -28, 153.7, 0.5) pt3dadd(294.5, -27.6, 154.8, 0.5) pt3dadd(295.3, -26.9, 155.9, 0.5) pt3dadd(296.1, -26.2, 157.1, 0.5) pt3dadd(296.9, -25.8, 158, 0.5) pt3dadd(297.2, -24.6, 159.3, 0.5) pt3dadd(297.6, -23.7, 160.3, 0.5) pt3dadd(298.6, -21.9, 162.3, 0.5) pt3dadd(299.4, -21, 163.5, 0.5) pt3dadd(300.4, -20.2, 164.6, 0.5) pt3dadd(301.5, -19.6, 165.8, 0.5) pt3dadd(302.3, -19.2, 166.5, 0.5) pt3dadd(303, -18.8, 167.2, 0.5) pt3dadd(303.7, -18, 168, 0.5) } apic[38] {pt3dclear() pt3dadd(303.7, -18, 168, 0.5) pt3dadd(303.3, -17.3, 168.6, 0.5) pt3dadd(302.4, -17, 169.3, 0.5) pt3dadd(301.9, -16.1, 170.1, 0.5) pt3dadd(301.1, -15.4, 170.8, 0.5) pt3dadd(301.1, -14.5, 171.4, 0.5) pt3dadd(301.8, -11.6, 173.2, 0.5) pt3dadd(302, -10, 174, 0.5) } apic[39] {pt3dclear() pt3dadd(302, -10, 174, 0.5) pt3dadd(301.3, -9.2, 174.7, 0.5) pt3dadd(300.6, -8.8, 175.1, 0.5) pt3dadd(299.5, -8, 176, 0.5) pt3dadd(298.8, -7.4, 176.5, 0.5) pt3dadd(298.4, -6.4, 177.1, 0.5) pt3dadd(298, -4.7, 178.2, 0.5) pt3dadd(297.6, -3, 179.3, 0.5) pt3dadd(297.2, -1.8, 180, 0.5) pt3dadd(296.9, -0.5, 180.9, 0.5) pt3dadd(296.9, 0.5, 181.5, 0.5) pt3dadd(296.5, 2.7, 183, 0.5) pt3dadd(296.5, 7.7, 186.5, 0.5) pt3dadd(296.9, 9.7, 188, 0.5) pt3dadd(297.2, 10.7, 188.8, 0.5) pt3dadd(297.2, 11.8, 189.6, 0.5) pt3dadd(296.5, 15.1, 192.2, 0.5) pt3dadd(296.5, 16.3, 193.1, 0.5) pt3dadd(296.1, 17.1, 193.8, 0.5) pt3dadd(295.6, 18, 194.6, 0.5) pt3dadd(295.6, 19, 195.3, 0.5) pt3dadd(295.1, 19.8, 196.1, 0.5) pt3dadd(294.7, 21.4, 197.4, 0.5) pt3dadd(294.7, 26, 201.1, 0.5) pt3dadd(295.1, 27.4, 202.3, 0.5) pt3dadd(294.9, 30, 204.5, 0.5) pt3dadd(294.2, 31.1, 205.6, 0.5) pt3dadd(292.6, 33.8, 208.2, 0.5) pt3dadd(292.6, 34.7, 208.9, 0.5) pt3dadd(292.6, 36, 210, 0.5) } apic[40] {pt3dclear() pt3dadd(302, -10, 174, 0.5) pt3dadd(302.1, -9.2, 174.3, 0.5) pt3dadd(302.6, -8, 174.7, 0.5) pt3dadd(302.6, -6.8, 175, 0.5) pt3dadd(302.1, -5.2, 175.5, 0.5) pt3dadd(301.6, -4.3, 175.7, 0.5) pt3dadd(301.1, -3.6, 175.9, 0.5) pt3dadd(301.1, -2.8, 176, 0.5) pt3dadd(301.5, -1.6, 176.2, 0.5) pt3dadd(301.8, -0.7, 176.3, 0.5) pt3dadd(302.2, 0, 176.5, 0.5) pt3dadd(302.6, 1, 176.6, 0.5) pt3dadd(303.5, 1.8, 176.7, 0.5) pt3dadd(303.8, 2.6, 176.8, 0.5) pt3dadd(304.2, 3.3, 176.9, 0.5) pt3dadd(304.6, 4.4, 177, 0.5) pt3dadd(304.6, 5.3, 177.1, 0.5) pt3dadd(305.4, 8.4, 177.4, 0.5) pt3dadd(306.6, 9.7, 177.6, 0.5) pt3dadd(307.6, 11.5, 177.9, 0.5) pt3dadd(307.6, 12.3, 178, 0.5) pt3dadd(307.9, 13.4, 178.2, 0.5) pt3dadd(307.3, 14.8, 178.5, 0.5) pt3dadd(306.8, 16.4, 178.8, 0.5) pt3dadd(306.8, 17.6, 179.1, 0.5) pt3dadd(307.1, 18.6, 179.4, 0.5) pt3dadd(307.5, 19.4, 179.7, 0.5) pt3dadd(307.6, 20.3, 180, 0.5) pt3dadd(308, 21.5, 180.4, 0.5) pt3dadd(308.6, 22.5, 180.8, 0.5) pt3dadd(308.6, 23.4, 181.2, 0.5) pt3dadd(308.1, 24.6, 181.6, 0.5) pt3dadd(307.7, 27.8, 182.8, 0.5) pt3dadd(308.4, 29.6, 183.5, 0.5) pt3dadd(308.7, 30.8, 184, 0.5) pt3dadd(309.3, 31.7, 184.5, 0.5) pt3dadd(309.3, 32.9, 184.9, 0.5) pt3dadd(308.9, 36.6, 186.4, 0.5) pt3dadd(308.9, 37.5, 186.8, 0.5) pt3dadd(309.3, 40.7, 188.2, 0.5) pt3dadd(309.6, 41.8, 188.7, 0.5) pt3dadd(310.1, 42.6, 189.1, 0.5) pt3dadd(310.7, 43.6, 189.6, 0.5) pt3dadd(310.7, 44.4, 190, 0.5) pt3dadd(311.1, 45.3, 190.4, 0.5) pt3dadd(311.1, 46.1, 190.8, 0.5) pt3dadd(311.5, 50.9, 193.1, 0.5) pt3dadd(312.3, 51.5, 193.7, 0.5) pt3dadd(316.1, 54.5, 196.2, 0.5) pt3dadd(317.3, 55.1, 196.9, 0.5) pt3dadd(319.2, 55.7, 198, 0.5) } apic[41] {pt3dclear() pt3dadd(303.7, -18, 168, 0.5) pt3dadd(303.5, -17.2, 168.6, 0.5) pt3dadd(303.8, -16.4, 169.3, 0.5) pt3dadd(304.5, -15.7, 169.9, 0.5) pt3dadd(305.3, -15.3, 170.5, 0.5) pt3dadd(306.2, -14.9, 171, 0.5) pt3dadd(307.3, -14.5, 171.5, 0.5) pt3dadd(308.3, -14.5, 171.9, 0.5) pt3dadd(309.2, -15, 172.2, 0.5) } } proc shape3d_16() { apic[41] { pt3dadd(310.2, -15.4, 172.4, 0.5) pt3dadd(311, -15.8, 172.6, 0.5) pt3dadd(312.8, -16.2, 172.8, 0.5) pt3dadd(314.8, -15.4, 172.8, 0.5) pt3dadd(316.3, -16.2, 172.6, 0.5) pt3dadd(316.8, -16.9, 172.4, 0.5) pt3dadd(317.6, -17.5, 172.2, 0.5) pt3dadd(319.1, -17.9, 171.7, 0.5) pt3dadd(319.8, -18.4, 171.4, 0.5) pt3dadd(320.6, -18.4, 171.1, 0.5) pt3dadd(324.5, -18, 169.1, 0.5) pt3dadd(325.4, -17.6, 168.5, 0.5) pt3dadd(326.6, -17.2, 167.6, 0.5) pt3dadd(328, -17.2, 166.7, 0.5) pt3dadd(330, -17.7, 165, 0.5) pt3dadd(330.8, -17.7, 164.3, 0.5) pt3dadd(333, -18.1, 162.4, 0.5) pt3dadd(333.8, -18.1, 161.6, 0.5) pt3dadd(337.3, -18.6, 158.1, 0.5) pt3dadd(338.9, -19.4, 156.1, 0.5) pt3dadd(339.3, -20.1, 155.1, 0.5) pt3dadd(339.6, -21.9, 153.1, 0.5) pt3dadd(340, -23, 151.6, 0.5) pt3dadd(341.2, -24.2, 149.6, 0.5) pt3dadd(342, -24.6, 148.4, 0.5) pt3dadd(343.1, -24.6, 147, 0.5) pt3dadd(344.8, -25.6, 144.5, 0.5) pt3dadd(344.8, -26.4, 143.5, 0.5) pt3dadd(345.7, -27.5, 141.6, 0.5) pt3dadd(346.6, -27.5, 140.3, 0.5) pt3dadd(348.3, -28, 138, 0.5) } dend_5[30] {pt3dclear() pt3dadd(289.5, -34.9, 144, 1.2) pt3dadd(290.4, -35.2, 144.9, 1.2) pt3dadd(291.5, -35.2, 145.8, 1.2) pt3dadd(294.5, -35.6, 148.3, 1.2) pt3dadd(295.7, -35.6, 149.3, 1.2) pt3dadd(299.5, -36, 152, 1.2) pt3dadd(300.5, -36, 152.7, 1.2) pt3dadd(305.3, -35.7, 155.7, 1.2) pt3dadd(306.1, -35.4, 156.2, 1.2) pt3dadd(307.3, -35.4, 156.9, 1.2) pt3dadd(310.3, -35, 158.6, 1.2) pt3dadd(311.5, -35, 159.2, 1.2) pt3dadd(312.4, -35.4, 159.7, 1.2) pt3dadd(313.4, -35.4, 160.2, 1.2) pt3dadd(314.2, -35.8, 160.7, 1.2) pt3dadd(317.5, -36.6, 162.5, 1.2) pt3dadd(318.9, -37, 163.2, 1.2) pt3dadd(320, -37, 163.8, 1.2) pt3dadd(321.5, -37.5, 164.6, 1.2) pt3dadd(322.3, -37.9, 165.1, 1.2) pt3dadd(324.3, -38.7, 166.2, 1.2) pt3dadd(325.5, -39.2, 166.9, 1.2) pt3dadd(326.5, -39.2, 167.5, 1.2) pt3dadd(327.4, -39.1, 168, 1.2) } dend_5[31] {pt3dclear() pt3dadd(327.4, -39.1, 168, 1.2) pt3dadd(328.5, -40.4, 169.4, 1.2) pt3dadd(329.6, -39.8, 170.4, 1.2) pt3dadd(330.1, -39, 171.2, 0.5) pt3dadd(330.9, -38, 172.3, 0.5) pt3dadd(331.5, -36.9, 173.4, 0.5) pt3dadd(331.9, -36.1, 174.2, 0.5) pt3dadd(332.5, -35.3, 175.2, 0.5) pt3dadd(333.1, -34.6, 176, 0.5) pt3dadd(334.3, -34.3, 177.2, 0.5) pt3dadd(335, -33.6, 178.2, 0.5) pt3dadd(336.2, -32.3, 180, 0.5) pt3dadd(337.2, -31.9, 181.2, 0.5) pt3dadd(337.9, -31.5, 182.1, 0.5) pt3dadd(338.9, -31.2, 183.3, 0.5) pt3dadd(340.8, -31.3, 185.4, 0.5) pt3dadd(341.5, -31.8, 186.4, 0.5) pt3dadd(342.2, -32.9, 188, 0.5) pt3dadd(342.6, -34, 189.5, 0.5) pt3dadd(343.7, -34.4, 190.9, 0.5) pt3dadd(344.6, -34.4, 192, 0.5) pt3dadd(345.2, -35.2, 193.4, 0.5) pt3dadd(346.2, -35.6, 194.7, 0.5) pt3dadd(347, -36.4, 196.2, 0.5) pt3dadd(347.7, -37.4, 198, 0.5) } dend_5[32] {pt3dclear() pt3dadd(327.4, -39.1, 168, 1.2) pt3dadd(327.9, -40.1, 168.6, 1.2) pt3dadd(328.8, -41, 169.2, 1.2) pt3dadd(329.5, -41.5, 169.5, 1.2) pt3dadd(329.8, -42.5, 170, 1.2) pt3dadd(329.8, -43.5, 170.4, 1.2) pt3dadd(330.1, -44.8, 170.8, 1.2) pt3dadd(330.5, -45.5, 171.1, 1.2) pt3dadd(331.3, -46.5, 171.5, 1.2) pt3dadd(331.6, -47.3, 171.7, 1.2) pt3dadd(332.4, -48.1, 172, 1.2) pt3dadd(334.7, -50.5, 172.8, 1.2) pt3dadd(335.4, -51.4, 173, 1.2) pt3dadd(335.4, -52.2, 173.2, 1.2) pt3dadd(335.7, -53.5, 173.5, 1.2) pt3dadd(337, -55, 173.9, 1.2) pt3dadd(337.8, -55.4, 174.1, 1.2) pt3dadd(338.9, -56.2, 174.4, 1.2) pt3dadd(340, -56.6, 174.7, 1.2) pt3dadd(340.8, -57, 175, 1.2) pt3dadd(341.2, -58.1, 175.3, 1.2) pt3dadd(342, -58.6, 175.6, 1.2) pt3dadd(343.4, -58.6, 176.1, 1.2) pt3dadd(344.2, -59, 176.4, 1.2) pt3dadd(345.2, -59.4, 176.8, 1.2) pt3dadd(345.9, -60, 177.2, 1.1) pt3dadd(346.9, -60.5, 177.7, 1.1) pt3dadd(348.5, -61.8, 178.8, 1.1) pt3dadd(349.6, -61.8, 179.4, 1.1) pt3dadd(350.3, -62.4, 180, 1.1) pt3dadd(352.1, -62.8, 183, 1.1) pt3dadd(352.7, -63.5, 185.5, 1.1) pt3dadd(353.5, -63.9, 187.7, 1.1) pt3dadd(354.6, -64.3, 190.5, 1.1) pt3dadd(355.3, -64.8, 192, 1.1) } dend_5[33] {pt3dclear() pt3dadd(355.3, -64.8, 192, 1.1) pt3dadd(355, -65.9, 195.3, 0.6) pt3dadd(355.3, -66.9, 198.7, 0.6) pt3dadd(356, -68, 203.7, 0.6) pt3dadd(357, -68.6, 208.4, 0.6) pt3dadd(357.6, -69.2, 211.9, 0.6) pt3dadd(358.9, -71.1, 221.7, 0.6) pt3dadd(358.9, -72, 225.2, 0.6) pt3dadd(359.3, -73, 229.2, 0.6) pt3dadd(360.5, -74.4, 235.2, 0.6) pt3dadd(362.4, -76.3, 240, 0.6) pt3dadd(362.8, -77.4, 240.9, 0.6) pt3dadd(362.8, -78.5, 241.7, 0.6) pt3dadd(362.4, -81.5, 244, 0.6) pt3dadd(362.4, -82.3, 244.6, 0.6) pt3dadd(363, -85.1, 246.6, 0.6) pt3dadd(363, -86.4, 247.5, 0.6) pt3dadd(363.4, -88.6, 249, 0.6) pt3dadd(363.4, -89.7, 249.7, 0.6) pt3dadd(363, -92, 251.3, 0.6) pt3dadd(363, -93.4, 252.1, 0.6) pt3dadd(362.6, -94.6, 252.9, 0.6) pt3dadd(362.9, -95.5, 253.4, 0.6) pt3dadd(363.3, -96.3, 253.9, 0.6) pt3dadd(363.8, -97, 254.4, 0.6) pt3dadd(364.1, -97.8, 254.9, 0.6) pt3dadd(364.7, -99.8, 256.1, 0.6) pt3dadd(364.7, -101.3, 256.9, 0.6) pt3dadd(364.3, -102.4, 257.6, 0.6) pt3dadd(364.3, -103.3, 258, 0.6) pt3dadd(364.7, -104.8, 258.8, 0.6) pt3dadd(365.1, -105.8, 259.3, 0.6) pt3dadd(365.8, -108.4, 260.6, 0.6) pt3dadd(365.8, -113.3, 262.8, 0.6) pt3dadd(366.1, -114.3, 263.3, 0.6) pt3dadd(366.9, -114.7, 263.6, 0.6) pt3dadd(367.7, -115.9, 264.2, 0.6) pt3dadd(368.9, -118.2, 265.2, 0.6) pt3dadd(369.3, -119.8, 265.8, 0.6) pt3dadd(370, -120.9, 266.3, 0.6) pt3dadd(370.8, -121.8, 266.7, 0.6) pt3dadd(371.5, -122.9, 267.2, 0.6) pt3dadd(371.9, -123.6, 267.4, 0.6) pt3dadd(372.8, -124, 267.8, 0.6) pt3dadd(373.2, -124.9, 268.1, 0.6) pt3dadd(374.2, -125.7, 268.5, 0.6) pt3dadd(375, -126.1, 268.7, 0.6) pt3dadd(375.7, -127.1, 269.1, 0.6) pt3dadd(376.8, -127.9, 269.5, 0.6) pt3dadd(377.8, -128.3, 269.8, 0.6) pt3dadd(378.7, -129, 270.1, 0.6) pt3dadd(378.7, -130.3, 270.4, 0.6) pt3dadd(379.3, -133.3, 271.1, 0.6) pt3dadd(379.9, -133.8, 271.3, 0.6) pt3dadd(380.2, -135.3, 271.6, 0.6) pt3dadd(380.2, -136.1, 271.8, 0.6) pt3dadd(380.7, -140.1, 272.6, 0.6) pt3dadd(381.3, -140.7, 272.7, 0.6) pt3dadd(381.9, -141.8, 272.9, 0.6) pt3dadd(382.2, -143.2, 273.2, 0.6) pt3dadd(382.5, -144.2, 273.3, 0.6) pt3dadd(383.6, -145.1, 273.5, 0.6) pt3dadd(384.8, -146.3, 273.8, 0.6) pt3dadd(385.1, -147.7, 273.9, 0.6) pt3dadd(385.1, -148.9, 274.1, 0.6) pt3dadd(385.5, -149.7, 274.2, 0.6) pt3dadd(386.3, -150.6, 274.3, 0.6) pt3dadd(387.8, -151, 274.5, 0.6) pt3dadd(388.9, -151.4, 274.6, 0.6) pt3dadd(389.7, -152.1, 274.7, 0.2) pt3dadd(389.6, -153.4, 274.8, 0.2) pt3dadd(390.1, -154.5, 274.8, 0.2) pt3dadd(390.9, -155.4, 274.9, 0.2) pt3dadd(391.7, -155.8, 275, 0.2) pt3dadd(392.5, -155.7, 275, 0.2) pt3dadd(393.4, -155.7, 275.1, 0.2) pt3dadd(394, -156.2, 275.1, 0.2) pt3dadd(395, -157.9, 275.2, 0.2) pt3dadd(396.3, -158.7, 275.2, 0.2) pt3dadd(397.2, -159.1, 275.2, 0.2) pt3dadd(397.5, -159.9, 275.3, 0.2) pt3dadd(397.1, -161.4, 275.3, 0.2) pt3dadd(396.7, -162.1, 275.3, 0.2) pt3dadd(396.7, -163.3, 275.3, 0.2) pt3dadd(397.5, -164.9, 275.3, 0.2) } } proc shape3d_17() { dend_5[33] { pt3dadd(398.6, -166, 275.3, 0.2) pt3dadd(399, -167.3, 275.2, 0.2) pt3dadd(399, -168.5, 275.2, 0.2) pt3dadd(399.7, -169.9, 275.2, 0.2) pt3dadd(400.4, -170.5, 275.1, 0.2) pt3dadd(401.2, -171, 275.1, 0.2) pt3dadd(402.2, -172.2, 275, 0.2) pt3dadd(402.2, -173.1, 275, 0.2) pt3dadd(402.5, -174.1, 274.9, 0.2) pt3dadd(402.9, -175, 274.9, 0.2) pt3dadd(404.2, -176.1, 274.8, 0.2) pt3dadd(405.1, -176.5, 274.7, 0.2) pt3dadd(406.7, -177.3, 274.6, 0.2) pt3dadd(407.9, -177.3, 274.5, 0.2) pt3dadd(408.8, -177.7, 274.4, 0.2) pt3dadd(409.8, -177.7, 274.3, 0.2) pt3dadd(411, -178.3, 274.2, 0.2) pt3dadd(411.7, -179.2, 274.1, 0.2) pt3dadd(411.7, -180.1, 274, 0.2) pt3dadd(411.2, -181.3, 273.9, 0.2) pt3dadd(411.2, -182.5, 273.8, 0.2) pt3dadd(412.3, -183.4, 273.6, 0.2) pt3dadd(413.1, -183.8, 273.5, 0.2) pt3dadd(413.7, -184.6, 273.4, 0.2) pt3dadd(414, -185.7, 273.2, 0.2) pt3dadd(414.8, -186.9, 273.1, 0.2) pt3dadd(415.2, -187.8, 273, 0.2) pt3dadd(416.2, -188.2, 272.8, 0.2) pt3dadd(417.1, -188.8, 272.7, 0.2) pt3dadd(417.9, -189.2, 272.6, 0.2) pt3dadd(418.6, -189.7, 272.5, 0.2) pt3dadd(419.7, -190.2, 272.3, 0.2) pt3dadd(421, -190.7, 272.1, 0.2) pt3dadd(422.1, -191.6, 271.9, 0.2) pt3dadd(422.6, -192.4, 271.7, 0.2) pt3dadd(423.3, -193, 271.6, 0.2) pt3dadd(423.6, -193.9, 271.5, 0.2) pt3dadd(424.3, -194.3, 271.4, 0.2) pt3dadd(427.2, -196.4, 270.8, 0.2) pt3dadd(427.9, -196.9, 270.7, 0.2) pt3dadd(428.7, -197.3, 270.5, 0.2) pt3dadd(430.5, -197.7, 270.2, 0.2) pt3dadd(433.1, -197.3, 269.8, 0.2) pt3dadd(436, -197.1, 269.3, 0.2) pt3dadd(436.4, -198.3, 269.1, 0.2) pt3dadd(437.1, -199.5, 268.8, 0.2) pt3dadd(437.9, -200.4, 268.6, 0.2) pt3dadd(439, -201.3, 268.4, 0.2) pt3dadd(439.4, -202.3, 268.2, 0.2) pt3dadd(441.4, -205.6, 267.5, 0.2) pt3dadd(441.8, -206.7, 267.3, 0.2) pt3dadd(442.5, -207.7, 267.1, 0.2) pt3dadd(443.3, -208.4, 266.9, 0.2) pt3dadd(443.9, -209, 266.7, 0.2) pt3dadd(444.8, -209.6, 266.5, 0.2) pt3dadd(445.7, -210.4, 266.3, 0.2) pt3dadd(446.5, -211.5, 266.1, 0.2) pt3dadd(447.4, -212.1, 265.9, 0.2) pt3dadd(448.3, -213.8, 265.5, 0.2) pt3dadd(449.1, -214.2, 265.3, 0.2) pt3dadd(449.8, -215.5, 265.1, 0.2) pt3dadd(450.4, -216.5, 264.9, 0.2) pt3dadd(450.4, -217.5, 264.7, 0.2) pt3dadd(450.4, -219.5, 264.3, 0.2) pt3dadd(450.9, -221.2, 264, 0.2) } dend_5[34] {pt3dclear() pt3dadd(450.9, -221.2, 264, 0.2) pt3dadd(452, -221, 264, 0.2) pt3dadd(453, -220.6, 264, 0.2) pt3dadd(454.4, -220.6, 264, 0.2) pt3dadd(455.1, -221, 264, 0.2) pt3dadd(456.1, -221.8, 264.1, 0.2) pt3dadd(456.4, -222.8, 264.1, 0.2) pt3dadd(456.8, -223.9, 264.1, 0.2) pt3dadd(457.2, -225, 264.1, 0.2) pt3dadd(457.6, -226.6, 264.2, 0.2) pt3dadd(458.4, -229.7, 264.2, 0.2) pt3dadd(458.7, -230.5, 264.2, 0.2) pt3dadd(458.7, -231.4, 264.3, 0.2) pt3dadd(459.5, -233, 264.3, 0.2) pt3dadd(460.1, -233.9, 264.3, 0.2) pt3dadd(461, -234.7, 264.3, 0.2) pt3dadd(461.8, -235.2, 264.3, 0.2) pt3dadd(462.6, -235.8, 264.4, 0.2) pt3dadd(463.4, -236.4, 264.4, 0.2) pt3dadd(464.2, -237, 264.4, 0.2) pt3dadd(464.6, -237.9, 264.4, 0.2) pt3dadd(464.9, -238.7, 264.4, 0.2) pt3dadd(465.4, -240.5, 264.4, 0.2) pt3dadd(466.5, -242.8, 264.4, 0.2) pt3dadd(467.2, -243.4, 264.4, 0.2) pt3dadd(468.4, -243.9, 264.4, 0.2) pt3dadd(470.3, -244.8, 264.3, 0.2) pt3dadd(471.1, -245.8, 264.3, 0.2) pt3dadd(471.5, -247.1, 264.2, 0.2) pt3dadd(472.2, -248.9, 264.1, 0.2) pt3dadd(472.8, -249.5, 264.1, 0.2) pt3dadd(473.4, -251, 264, 0.2) } dend_5[35] {pt3dclear() pt3dadd(450.9, -221.2, 264, 0.2) pt3dadd(451.2, -222.4, 263.5, 0.2) pt3dadd(451.6, -223.5, 263.1, 0.2) pt3dadd(452.2, -224.5, 262.7, 0.2) pt3dadd(453.1, -225.4, 262.3, 0.2) pt3dadd(453.7, -226.5, 261.9, 0.2) pt3dadd(454.5, -227.4, 261.4, 0.2) pt3dadd(454.9, -228.5, 261, 0.2) pt3dadd(455.3, -229.7, 260.6, 0.2) pt3dadd(455.6, -232.4, 259.5, 0.2) pt3dadd(454.9, -233.9, 258.9, 0.2) pt3dadd(455.3, -234.8, 258.5, 0.2) pt3dadd(456.3, -235.8, 257.9, 0.2) pt3dadd(456.8, -236.6, 257.4, 0.2) pt3dadd(457.1, -237.5, 256.9, 0.2) pt3dadd(457.1, -238.6, 256.4, 0.2) pt3dadd(457.4, -240.4, 255.3, 0.2) pt3dadd(457.9, -241.4, 254.7, 0.2) pt3dadd(457.9, -242.6, 254, 0.2) pt3dadd(458.2, -243.9, 253, 0.2) pt3dadd(458.4, -245.4, 252, 0.2) } dend_5[36] {pt3dclear() pt3dadd(355.3, -64.8, 192, 1.1) pt3dadd(356.3, -65, 193, 1.1) pt3dadd(357.4, -65, 193.7, 1.1) pt3dadd(358.1, -64.7, 194.4, 1.1) pt3dadd(360.1, -64, 195.7, 1.1) pt3dadd(362, -63.7, 197.1, 1.1) pt3dadd(363, -63.5, 198, 1.1) } dend_5[37] {pt3dclear() pt3dadd(363, -63.5, 198, 1.1) pt3dadd(364.7, -62.5, 200.9, 0.6) pt3dadd(365.4, -63, 202.2, 0.6) pt3dadd(366.2, -63.4, 203.7, 0.6) pt3dadd(367.1, -63.4, 205.4, 0.6) pt3dadd(369.3, -63.1, 209.7, 0.6) pt3dadd(370.1, -63.1, 211.3, 0.6) pt3dadd(374.1, -62.7, 219.6, 0.6) pt3dadd(375, -62.3, 221.6, 0.6) pt3dadd(375.9, -61.9, 223.7, 0.6) pt3dadd(376.7, -61.6, 225.6, 0.6) pt3dadd(379.2, -60.2, 230.9, 0.6) pt3dadd(380.1, -59.8, 232.7, 0.6) pt3dadd(380.9, -59.4, 234.1, 0.6) pt3dadd(382.4, -59.1, 236.4, 0.6) pt3dadd(383.5, -59.1, 237.7, 0.6) pt3dadd(385.6, -59.7, 240, 0.6) pt3dadd(386.5, -59.9, 240.7, 0.6) pt3dadd(387.5, -59.9, 241.5, 0.6) pt3dadd(391.2, -59.2, 244.3, 0.6) pt3dadd(392.1, -59.2, 245, 0.6) pt3dadd(392.8, -58.8, 245.6, 0.6) pt3dadd(393.9, -58.5, 246.3, 0.6) pt3dadd(395.2, -58.5, 247.2, 0.6) pt3dadd(400.1, -58.5, 250.2, 0.6) pt3dadd(402.3, -58.1, 251.5, 0.6) pt3dadd(404.2, -57.8, 252.6, 0.6) pt3dadd(408.8, -57.8, 255.1, 0.6) pt3dadd(410.6, -58.9, 256.2, 0.2) pt3dadd(411.7, -58.7, 256.7, 0.2) pt3dadd(413, -58.7, 257.4, 0.2) pt3dadd(415.2, -59.1, 258.5, 0.2) pt3dadd(416.6, -59.1, 259.2, 0.2) pt3dadd(419.7, -58.8, 260.7, 0.2) pt3dadd(420.9, -58.1, 261.4, 0.2) pt3dadd(423.1, -55.5, 263.1, 0.2) pt3dadd(423.8, -54.7, 263.7, 0.2) pt3dadd(424.5, -54.2, 264.1, 0.2) pt3dadd(427.5, -53.1, 265.8, 0.2) pt3dadd(428.3, -53.1, 266.2, 0.2) pt3dadd(431.5, -52.7, 268, 0.2) pt3dadd(432.5, -51.9, 268.7, 0.2) pt3dadd(434.2, -50.4, 270.1, 0.2) pt3dadd(435.3, -49.9, 270.8, 0.2) pt3dadd(436.1, -49.1, 271.5, 0.2) pt3dadd(437, -48.4, 272.3, 0.2) pt3dadd(437.8, -48.1, 272.8, 0.2) pt3dadd(439.2, -47.7, 273.8, 0.2) pt3dadd(440.1, -47.7, 274.4, 0.2) pt3dadd(441.4, -47.7, 275.3, 0.2) pt3dadd(442.3, -47.5, 276, 0.2) } dend_5[38] {pt3dclear() pt3dadd(442.3, -47.5, 276, 0.2) pt3dadd(443.6, -46.2, 277.4, 0.2) pt3dadd(444, -45.4, 278, 0.2) pt3dadd(444.8, -45.1, 278.7, 0.2) pt3dadd(446.4, -44.1, 280.2, 0.2) pt3dadd(447.5, -43.3, 281.4, 0.2) pt3dadd(449.5, -41.7, 283.6, 0.2) pt3dadd(449.5, -40.8, 284.3, 0.2) pt3dadd(450, -40, 285.2, 0.2) pt3dadd(450.6, -38.8, 286.3, 0.2) pt3dadd(450.9, -37.8, 287.2, 0.2) pt3dadd(450.4, -36.7, 288.2, 0.2) pt3dadd(450.4, -35.6, 289.2, 0.2) pt3dadd(450.7, -32.8, 291.5, 0.2) pt3dadd(451.7, -31.5, 292.8, 0.2) pt3dadd(452.8, -30.7, 293.9, 0.2) pt3dadd(453.9, -29.5, 295.3, 0.2) pt3dadd(453.9, -28.7, 295.9, 0.2) pt3dadd(453.9, -24.4, 299, 0.2) pt3dadd(454.1, -23, 300, 0.2) pt3dadd(454.1, -21.5, 300.9, 0.2) pt3dadd(454.8, -19.6, 302.2, 0.2) pt3dadd(455.2, -18, 303.2, 0.2) pt3dadd(455.2, -17.2, 303.7, 0.2) } } proc shape3d_18() { dend_5[38] { pt3dadd(455.7, -16.4, 304.3, 0.2) pt3dadd(456, -15.5, 304.8, 0.2) pt3dadd(456.6, -14.8, 305.4, 0.2) pt3dadd(458, -14.1, 306.3, 0.2) pt3dadd(459.3, -13.8, 307, 0.2) pt3dadd(460.1, -13.8, 307.5, 0.2) pt3dadd(461.3, -14.2, 308.1, 0.2) pt3dadd(462, -15.3, 308.9, 0.2) pt3dadd(464.4, -18.6, 310.9, 0.2) pt3dadd(465.2, -19.6, 311.5, 0.2) pt3dadd(466.8, -21.6, 312.7, 0.2) pt3dadd(467.8, -23.6, 313.8, 0.2) pt3dadd(468.3, -24.6, 314.2, 0.2) pt3dadd(468.7, -25.5, 314.7, 0.2) pt3dadd(469.2, -26.3, 315.1, 0.2) pt3dadd(471.2, -30, 316.8, 0.2) pt3dadd(471.9, -30.9, 317.2, 0.2) pt3dadd(472.9, -31.8, 317.7, 0.2) pt3dadd(473.7, -32.2, 318, 0.2) pt3dadd(474.5, -32.2, 318.3, 0.2) pt3dadd(477, -32.7, 319.2, 0.2) pt3dadd(477.7, -33.7, 319.7, 0.2) pt3dadd(478.8, -36.4, 320.6, 0.2) pt3dadd(479.2, -37.6, 321, 0.2) pt3dadd(480.3, -41.4, 322.2, 0.2) pt3dadd(480.6, -42.3, 322.4, 0.2) pt3dadd(480.6, -43.1, 322.6, 0.2) pt3dadd(481.4, -44.6, 323.1, 0.2) pt3dadd(481.9, -45.4, 323.3, 0.2) pt3dadd(482.3, -46.9, 323.7, 0.2) pt3dadd(483.1, -49.8, 324.5, 0.2) pt3dadd(483.1, -52, 325, 0.2) pt3dadd(483.4, -56.4, 325.9, 0.2) pt3dadd(483.4, -58.2, 326.2, 0.2) pt3dadd(483.8, -63.2, 327.1, 0.2) pt3dadd(484.1, -64.1, 327.2, 0.2) pt3dadd(484.4, -66, 327.5, 0.2) pt3dadd(484.4, -67.2, 327.7, 0.2) pt3dadd(484, -69.1, 328, 0.2) pt3dadd(484, -70.8, 328.2, 0.2) pt3dadd(483.6, -73.8, 328.5, 0.2) pt3dadd(483.6, -74.8, 328.6, 0.2) pt3dadd(483.9, -78.2, 329, 0.2) pt3dadd(484.3, -79.2, 329.1, 0.2) pt3dadd(484.6, -80.4, 329.2, 0.2) pt3dadd(484.6, -81.2, 329.3, 0.2) pt3dadd(485, -82.3, 329.4, 0.2) pt3dadd(485.4, -83.3, 329.4, 0.2) pt3dadd(485.4, -84.8, 329.5, 0.2) pt3dadd(485.7, -86.2, 329.6, 0.2) pt3dadd(485.7, -87.2, 329.7, 0.2) pt3dadd(485.7, -91.8, 330, 0.2) pt3dadd(485.9, -92.8, 330, 0.2) } dend_5[39] {pt3dclear() pt3dadd(442.3, -47.5, 276, 0.2) pt3dadd(443.2, -47.8, 276.7, 0.2) pt3dadd(444.1, -48.4, 277.4, 0.2) pt3dadd(444.5, -49.3, 278.2, 0.2) pt3dadd(446, -49.3, 279.4, 0.2) pt3dadd(449.5, -49.7, 282.2, 0.2) pt3dadd(450.6, -51.2, 283.6, 0.2) pt3dadd(451.5, -51.5, 284.5, 0.2) pt3dadd(454, -51.9, 286.6, 0.2) pt3dadd(454.9, -51.4, 287.5, 0.2) pt3dadd(455.9, -51.4, 288.4, 0.2) pt3dadd(459.5, -51, 291.7, 0.2) pt3dadd(460.5, -50.4, 292.8, 0.2) pt3dadd(461.6, -49.7, 294.1, 0.2) pt3dadd(462.9, -49, 295.5, 0.2) pt3dadd(464.7, -47.7, 297.7, 0.2) pt3dadd(466.3, -46.2, 300, 0.2) pt3dadd(466.7, -45.4, 300.9, 0.2) pt3dadd(467.6, -44.8, 302.3, 0.2) pt3dadd(467.6, -42.7, 305.8, 0.2) pt3dadd(467.9, -41.5, 308.1, 0.2) pt3dadd(468.7, -40.6, 310.5, 0.2) pt3dadd(469.8, -40.2, 313.1, 0.2) pt3dadd(471.3, -40.2, 316.5, 0.2) pt3dadd(473, -40.7, 320.8, 0.2) pt3dadd(473.8, -40.4, 323.1, 0.2) pt3dadd(475.2, -39.3, 327.5, 0.2) pt3dadd(476, -37.8, 332, 0.2) pt3dadd(476.3, -36.2, 336.2, 0.2) pt3dadd(476.9, -35.4, 338.9, 0.2) pt3dadd(477.3, -34.2, 341.9, 0.2) pt3dadd(478, -33.3, 344.7, 0.2) pt3dadd(478, -32.5, 346.6, 0.2) pt3dadd(478.4, -31.7, 348.7, 0.2) pt3dadd(479.8, -29.1, 354.9, 0.2) pt3dadd(480.6, -28.2, 357, 0.2) pt3dadd(482, -26.9, 360, 0.2) pt3dadd(481.3, -28.4, 362.2, 0.2) pt3dadd(482.3, -27.2, 364.1, 0.2) pt3dadd(482.7, -26.1, 365.6, 0.2) pt3dadd(483, -25, 366.9, 0.2) pt3dadd(483, -23.8, 368.3, 0.2) pt3dadd(482.6, -19.4, 372.9, 0.2) pt3dadd(482.1, -18.7, 373.8, 0.2) pt3dadd(481.2, -17.6, 375, 0.2) pt3dadd(480.8, -16.1, 376.3, 0.2) pt3dadd(480.8, -14.9, 377.3, 0.2) pt3dadd(480.3, -10.1, 380.7, 0.2) pt3dadd(479.9, -9.1, 381.3, 0.2) pt3dadd(478.9, -8.4, 382, 0.2) pt3dadd(478.5, -7.6, 382.4, 0.2) pt3dadd(477.7, -5.2, 383.6, 0.2) pt3dadd(477.7, -3.4, 384.3, 0.2) pt3dadd(477.1, -0.2, 385.3, 0.2) pt3dadd(477.1, 0.9, 385.5, 0.2) pt3dadd(476.7, 2.1, 385.8, 0.2) pt3dadd(475.7, 3.2, 386, 0.2) pt3dadd(474.8, 4.2, 386.2, 0.2) pt3dadd(473.9, 4.9, 386.3, 0.2) pt3dadd(473.5, 5.9, 386.3, 0.2) pt3dadd(473, 7.7, 386.3, 0.2) pt3dadd(473, 8.9, 386.3, 0.2) pt3dadd(472.6, 13.2, 385.7, 0.2) pt3dadd(472.6, 15.1, 385.3, 0.2) pt3dadd(472.1, 16.1, 385, 0.2) pt3dadd(471.7, 17.8, 384.5, 0.2) pt3dadd(471.7, 19.1, 384, 0.2) pt3dadd(471.3, 21.3, 383.2, 0.2) pt3dadd(471.3, 22.4, 382.7, 0.2) pt3dadd(471.3, 27, 380.4, 0.2) pt3dadd(470.9, 29.3, 379.1, 0.2) pt3dadd(471.3, 30.9, 378, 0.2) } dend_5[40] {pt3dclear() pt3dadd(363, -63.5, 198, 1.1) pt3dadd(362.2, -64.9, 199.4, 1.1) pt3dadd(362.5, -66.6, 201, 1.1) pt3dadd(363.5, -67, 202, 1.1) pt3dadd(365.5, -68.1, 204.3, 1.1) pt3dadd(366, -69.3, 205.5, 1.1) pt3dadd(366, -70.3, 206.6, 1.1) pt3dadd(365.5, -71.3, 207.7, 1.1) pt3dadd(365.1, -72, 208.6, 1.1) pt3dadd(365.1, -72.9, 209.5, 1.1) pt3dadd(364.7, -74.7, 211.4, 1.1) pt3dadd(364.7, -75.8, 212.6, 1.1) pt3dadd(365.1, -77, 213.8, 1.1) pt3dadd(365.5, -78.1, 215, 1.1) pt3dadd(366.2, -78.9, 216.1, 1.1) pt3dadd(367.1, -78.9, 217, 1.1) pt3dadd(368.4, -79.3, 218.3, 1.1) pt3dadd(369.5, -79.3, 219.4, 1.1) pt3dadd(370.3, -79.7, 220.3, 1.1) pt3dadd(371.5, -81, 221.9, 1.1) pt3dadd(371.8, -81.8, 222.7, 1.1) pt3dadd(372.4, -82.3, 223.4, 1.1) pt3dadd(373.2, -83.2, 224.4, 1.1) pt3dadd(373.8, -83.7, 225.1, 1.1) pt3dadd(374.5, -84.1, 225.7, 1.1) pt3dadd(375.6, -84.1, 226.6, 1.1) pt3dadd(376.7, -83.8, 227.4, 1.1) pt3dadd(377.6, -83.7, 228, 1.1) } dend_5[41] {pt3dclear() pt3dadd(377.6, -83.7, 228, 1.1) pt3dadd(377.1, -84.6, 228.8, 0.6) pt3dadd(377.1, -85.8, 229.7, 0.6) pt3dadd(377.8, -87.7, 230.9, 0.6) pt3dadd(379.3, -88.1, 231.6, 0.6) pt3dadd(380.2, -88.1, 232, 0.6) pt3dadd(382.1, -89.1, 232.8, 0.6) pt3dadd(383.6, -89.7, 233.3, 0.6) pt3dadd(387.6, -89.7, 234.7, 0.6) pt3dadd(388.6, -90.1, 235.1, 0.6) pt3dadd(389.5, -90.9, 235.7, 0.6) pt3dadd(390.1, -91.4, 236.2, 0.6) pt3dadd(390.9, -91.8, 236.7, 0.6) pt3dadd(392.4, -91.8, 237.8, 0.6) pt3dadd(394.7, -92, 240, 0.6) pt3dadd(394.7, -92.9, 241.1, 0.6) pt3dadd(395.9, -94, 244, 0.6) pt3dadd(399.8, -94.3, 253.6, 0.6) pt3dadd(400.5, -94.7, 255.7, 0.6) pt3dadd(401.7, -94.7, 258.7, 0.6) pt3dadd(403.5, -94.7, 262.5, 0.6) pt3dadd(404.3, -95.1, 264, 0.6) } dend_5[42] {pt3dclear() pt3dadd(404.3, -95.1, 264, 0.6) pt3dadd(405.1, -95.7, 265.7, 0.2) pt3dadd(406.3, -95.9, 267.8, 0.2) pt3dadd(407.5, -95.9, 269.7, 0.2) pt3dadd(409.4, -96.3, 272.6, 0.2) pt3dadd(410.7, -97.2, 275, 0.2) pt3dadd(411.5, -98, 276.6, 0.2) pt3dadd(412.2, -98.4, 277.7, 0.2) pt3dadd(413.6, -99.4, 280.1, 0.2) pt3dadd(414.4, -99.4, 281.3, 0.2) pt3dadd(415.2, -99.9, 282.6, 0.2) pt3dadd(415.8, -100.5, 283.8, 0.2) pt3dadd(416.3, -101.3, 285.2, 0.2) pt3dadd(418.7, -104.5, 291.1, 0.2) pt3dadd(419.7, -105, 292.8, 0.2) pt3dadd(421.6, -105.5, 296, 0.2) pt3dadd(422.4, -105.9, 297.5, 0.2) pt3dadd(423.6, -106.7, 300, 0.2) pt3dadd(424.7, -107.1, 302.2, 0.2) pt3dadd(425.5, -107.1, 303.8, 0.2) pt3dadd(425.9, -108, 306, 0.2) pt3dadd(426.9, -108.5, 308.5, 0.2) pt3dadd(427.9, -108.5, 310.7, 0.2) pt3dadd(428.7, -108.9, 312.9, 0.2) pt3dadd(429.5, -109.3, 314.9, 0.2) } } proc shape3d_19() { dend_5[42] { pt3dadd(429.8, -111.1, 319.6, 0.2) pt3dadd(429.3, -112.1, 322.5, 0.2) pt3dadd(430.2, -113.1, 326, 0.2) pt3dadd(431.1, -113.1, 328.3, 0.2) pt3dadd(432, -113.6, 330.9, 0.2) pt3dadd(433.3, -114.8, 335.7, 0.2) pt3dadd(434.2, -115.9, 339.5, 0.2) pt3dadd(434.9, -116.4, 341.5, 0.2) pt3dadd(435.5, -117, 343.6, 0.2) pt3dadd(437.2, -118.2, 348.7, 0.2) pt3dadd(437.9, -118.2, 350.6, 0.2) pt3dadd(438.7, -118.6, 352.6, 0.2) pt3dadd(439.5, -119.2, 354.8, 0.2) pt3dadd(440.3, -120.2, 357.4, 0.2) pt3dadd(440.8, -121.4, 360, 0.2) pt3dadd(441.4, -122.2, 361.9, 0.2) pt3dadd(441.8, -123.1, 363.5, 0.2) pt3dadd(442.1, -124.1, 365.3, 0.2) pt3dadd(442.8, -125.2, 367.3, 0.2) pt3dadd(444, -125.2, 369, 0.2) pt3dadd(447.3, -126, 373.5, 0.2) pt3dadd(448.4, -127, 375.2, 0.2) pt3dadd(449.1, -127.5, 376.1, 0.2) pt3dadd(449.7, -127.9, 377, 0.2) pt3dadd(452.4, -129.1, 379.6, 0.2) pt3dadd(453.4, -129.7, 380.5, 0.2) pt3dadd(454, -130.2, 381.1, 0.2) pt3dadd(454.8, -131.1, 381.9, 0.2) pt3dadd(455.2, -132.1, 382.6, 0.2) pt3dadd(455.7, -133.1, 383.2, 0.2) pt3dadd(456.6, -134.4, 384, 0.2) } dend_5[43] {pt3dclear() pt3dadd(404.3, -95.1, 264, 0.6) pt3dadd(404.5, -96.3, 265.4, 0.2) pt3dadd(404.5, -97, 266.3, 0.2) pt3dadd(405.2, -98.2, 267.8, 0.2) pt3dadd(405.5, -99.4, 269.3, 0.2) pt3dadd(405.9, -100.4, 270.6, 0.2) pt3dadd(406.7, -100.8, 271.7, 0.2) pt3dadd(407.5, -101.4, 272.9, 0.2) pt3dadd(408.3, -102.2, 274.2, 0.2) pt3dadd(409.2, -103.2, 275.7, 0.2) pt3dadd(409.7, -104.3, 277.1, 0.2) pt3dadd(410.1, -105.4, 278.4, 0.2) pt3dadd(411.5, -106.2, 280.3, 0.2) pt3dadd(413, -106.7, 282.2, 0.2) pt3dadd(413.7, -107.1, 283.1, 0.2) pt3dadd(414.5, -107.7, 284.3, 0.2) pt3dadd(415.2, -108.8, 285.8, 0.2) pt3dadd(415.9, -109.8, 287.2, 0.2) pt3dadd(416.4, -110.5, 288.2, 0.2) pt3dadd(417.1, -111.6, 289.7, 0.2) pt3dadd(417.9, -112.5, 291.1, 0.2) pt3dadd(418.9, -112.8, 292.4, 0.2) pt3dadd(419.8, -114.5, 294.6, 0.2) pt3dadd(420.2, -115.4, 295.8, 0.2) pt3dadd(420.6, -116.3, 296.9, 0.2) pt3dadd(421.2, -117.3, 298.3, 0.2) pt3dadd(422.1, -118.3, 300, 0.2) pt3dadd(423.3, -120, 302.4, 0.2) pt3dadd(424.7, -122.1, 305.5, 0.2) pt3dadd(425.8, -122.5, 306.9, 0.2) pt3dadd(426.4, -122.9, 307.9, 0.2) pt3dadd(427.3, -123.3, 309, 0.2) pt3dadd(428.1, -124.2, 310.5, 0.2) pt3dadd(428.1, -125.2, 311.7, 0.2) pt3dadd(428.8, -126.3, 313.3, 0.2) pt3dadd(429.7, -127.2, 314.9, 0.2) pt3dadd(430.3, -128.3, 316.4, 0.2) pt3dadd(431.2, -128.7, 317.6, 0.2) pt3dadd(432.3, -129.4, 319.2, 0.2) pt3dadd(433.3, -129.8, 320.5, 0.2) pt3dadd(434, -131.7, 323, 0.2) pt3dadd(434.3, -133.6, 325.3, 0.2) pt3dadd(435.1, -134.7, 327, 0.2) pt3dadd(436.6, -135.6, 329.2, 0.2) pt3dadd(437.6, -136.4, 330.7, 0.2) pt3dadd(439.1, -137.5, 333, 0.2) pt3dadd(439.9, -138.8, 334.9, 0.2) pt3dadd(440.3, -139.8, 336.2, 0.2) pt3dadd(441.3, -140.6, 337.8, 0.2) pt3dadd(442.4, -141, 339.2, 0.2) pt3dadd(444.1, -141.9, 341.5, 0.2) pt3dadd(444.4, -143, 342.9, 0.2) pt3dadd(444.4, -143.8, 343.9, 0.2) pt3dadd(444.8, -144.8, 345.2, 0.2) pt3dadd(444.8, -146, 346.7, 0.2) pt3dadd(445.1, -146.9, 347.8, 0.2) pt3dadd(445.5, -147.8, 349, 0.2) pt3dadd(446.9, -148.7, 351, 0.2) pt3dadd(448, -149.7, 352.8, 0.2) pt3dadd(448.9, -150.3, 354.1, 0.2) pt3dadd(449.5, -151.2, 355.4, 0.2) pt3dadd(450, -152.2, 356.7, 0.2) pt3dadd(450, -153.2, 357.9, 0.2) pt3dadd(450.7, -154.9, 360, 0.2) pt3dadd(451.8, -156.6, 362.4, 0.2) pt3dadd(452.2, -157.3, 363.3, 0.2) pt3dadd(452.9, -157.9, 364.3, 0.2) pt3dadd(453.6, -158.7, 365.4, 0.2) pt3dadd(453.9, -159.5, 366.3, 0.2) pt3dadd(454.8, -160.1, 367.4, 0.2) pt3dadd(455.5, -160.7, 368.3, 0.2) pt3dadd(456.3, -161.6, 369.5, 0.2) pt3dadd(457.2, -162, 370.5, 0.2) pt3dadd(458.2, -162.6, 371.5, 0.2) pt3dadd(459.1, -162.6, 372.3, 0.2) pt3dadd(460.1, -163, 373.3, 0.2) pt3dadd(460.9, -163, 373.9, 0.2) pt3dadd(465.6, -163, 377.8, 0.2) pt3dadd(467.1, -162.6, 379, 0.2) pt3dadd(468, -162.6, 379.7, 0.2) pt3dadd(470.4, -163.1, 381.5, 0.2) pt3dadd(471.2, -164, 382.4, 0.2) pt3dadd(472.3, -165.7, 383.8, 0.2) pt3dadd(473.4, -167.6, 385.3, 0.2) pt3dadd(473.8, -168.7, 386.1, 0.2) pt3dadd(474.7, -171, 387.7, 0.2) pt3dadd(474.7, -171.8, 388.2, 0.2) pt3dadd(475.3, -172.8, 389, 0.2) pt3dadd(476.1, -174.1, 390, 0.2) } dend_5[44] {pt3dclear() pt3dadd(377.6, -83.7, 228, 1.1) pt3dadd(378.5, -84.6, 228.3, 1.1) pt3dadd(379.3, -84.6, 228.1, 1.1) pt3dadd(380.1, -85, 227.7, 1.1) pt3dadd(380.9, -85, 227.1, 1.1) pt3dadd(381.7, -84.6, 226.4, 1.1) pt3dadd(382.7, -84.6, 225.3, 1.1) pt3dadd(383.6, -85, 224.4, 1.1) pt3dadd(385.6, -85.4, 222.6, 1.1) pt3dadd(386.6, -86, 222, 1.1) } dend_5[45] {pt3dclear() pt3dadd(386.6, -86, 222, 1.1) pt3dadd(387.2, -88, 221.9, 0.6) pt3dadd(388.2, -89.1, 221.9, 0.6) pt3dadd(388.6, -90.1, 222, 0.6) pt3dadd(388.9, -90.9, 222, 0.6) pt3dadd(389.3, -91.6, 222, 0.6) pt3dadd(389.7, -93.3, 222.1, 0.6) pt3dadd(388.8, -95.9, 222.3, 0.6) pt3dadd(388.8, -96.7, 222.3, 0.6) pt3dadd(389.6, -98, 222.4, 0.6) pt3dadd(390.4, -99.1, 222.4, 0.6) pt3dadd(391.3, -100.6, 222.4, 0.6) pt3dadd(392, -101.7, 222.4, 0.6) pt3dadd(392.3, -102.6, 222.3, 0.6) pt3dadd(392.6, -103.4, 222.2, 0.6) pt3dadd(393, -104.9, 222, 0.6) } dend_5[46] {pt3dclear() pt3dadd(393, -104.9, 222, 0.6) pt3dadd(393.8, -104.9, 221.7, 0.6) pt3dadd(394.5, -105.3, 221.5, 0.6) pt3dadd(395.3, -105.3, 221.2, 0.6) pt3dadd(396.3, -106.1, 220.8, 0.6) pt3dadd(397, -107.1, 220.4, 0.6) pt3dadd(398.1, -107.9, 219.9, 0.6) pt3dadd(399.1, -108.3, 219.5, 0.6) pt3dadd(401.1, -108.7, 218.8, 0.6) pt3dadd(402.5, -109.1, 218.2, 0.6) pt3dadd(403.5, -109.5, 217.8, 0.6) pt3dadd(404.2, -109.9, 217.5, 0.6) pt3dadd(404.8, -110.8, 217.1, 0.6) pt3dadd(405.6, -111.3, 216.8, 0.6) pt3dadd(406.3, -112.1, 216.4, 0.6) pt3dadd(407.1, -112.5, 216, 0.6) pt3dadd(407.9, -112.6, 215.7, 0.6) pt3dadd(408.6, -113, 215.4, 0.6) pt3dadd(409, -114, 215, 0.6) pt3dadd(409.6, -115.4, 214.4, 0.6) pt3dadd(409.9, -116.2, 214.1, 0.6) pt3dadd(411.5, -119.4, 212.7, 0.6) pt3dadd(412.3, -120, 212.3, 0.6) pt3dadd(412.9, -120.6, 211.9, 0.6) pt3dadd(413.7, -121.2, 211.6, 0.6) pt3dadd(415.6, -122.4, 210.7, 0.6) pt3dadd(416.7, -122.9, 210.2, 0.6) pt3dadd(418.6, -123.7, 209.4, 0.6) pt3dadd(419.4, -123.7, 209, 0.6) pt3dadd(420.2, -124.3, 208.6, 0.6) pt3dadd(421.1, -125.3, 208.1, 0.6) pt3dadd(423.3, -128.2, 206.6, 0.6) pt3dadd(423.7, -129.4, 206.1, 0.6) pt3dadd(424.8, -132, 204.9, 0.6) pt3dadd(425.2, -132.9, 204.5, 0.6) pt3dadd(425.6, -133.9, 204, 0.6) pt3dadd(427.1, -137.1, 202.6, 0.6) pt3dadd(427.4, -138, 202.1, 0.6) pt3dadd(429.1, -139.5, 201.2, 0.6) pt3dadd(430.2, -139.9, 200.7, 0.6) pt3dadd(431.4, -140.3, 200.2, 0.6) pt3dadd(432.2, -140.7, 199.8, 0.6) pt3dadd(432.9, -141.1, 199.5, 0.6) pt3dadd(433.7, -141.6, 199.1, 0.6) pt3dadd(434, -142.6, 198.7, 0.6) pt3dadd(434, -143.6, 198.3, 0.6) pt3dadd(434.3, -145.5, 197.5, 0.6) pt3dadd(434.6, -146.3, 197.1, 0.6) pt3dadd(435.2, -147.2, 196.7, 0.6) pt3dadd(435.7, -148.1, 196.2, 0.6) pt3dadd(437.3, -150.6, 195, 0.6) pt3dadd(439.5, -153.4, 193.6, 0.6) pt3dadd(440.4, -153.8, 193.2, 0.6) pt3dadd(441, -154.8, 192.7, 0.6) } } proc shape3d_20() { dend_5[46] { pt3dadd(441.4, -155.9, 192.3, 0.6) pt3dadd(442, -156.4, 192, 0.6) pt3dadd(442.8, -156.8, 191.6, 0.6) pt3dadd(443.6, -156.8, 191.3, 0.6) pt3dadd(445.2, -157.7, 190.6, 0.6) pt3dadd(445.5, -158.7, 190.2, 0.6) pt3dadd(446.2, -159.6, 189.7, 0.6) pt3dadd(447.5, -161, 189, 0.6) pt3dadd(448.2, -162.2, 188.5, 0.6) pt3dadd(449.1, -163, 188, 0.6) pt3dadd(449.8, -163.9, 187.6, 0.6) pt3dadd(450.5, -165.1, 187.1, 0.6) pt3dadd(451.4, -166, 186.6, 0.6) pt3dadd(452.5, -168, 185.8, 0.6) pt3dadd(452.8, -170.1, 185, 0.6) pt3dadd(453.4, -171, 184.6, 0.6) pt3dadd(454.1, -171.7, 184.3, 0.2) pt3dadd(455, -171.8, 184, 0.2) pt3dadd(455.7, -172.4, 183.6, 0.2) pt3dadd(456.5, -173.4, 183.2, 0.2) pt3dadd(456.8, -174.2, 182.9, 0.2) pt3dadd(457.1, -176.1, 182.3, 0.2) pt3dadd(457.4, -177.2, 181.9, 0.2) pt3dadd(457.4, -178.1, 181.6, 0.2) pt3dadd(458, -179, 181.2, 0.2) pt3dadd(458.4, -180.8, 180.7, 0.2) pt3dadd(458.8, -181.9, 180.3, 0.2) pt3dadd(459.7, -182.2, 180, 0.2) pt3dadd(459.3, -183, 179.7, 0.2) pt3dadd(460, -183.4, 179.5, 0.2) pt3dadd(460.4, -184.4, 179.1, 0.2) pt3dadd(460.7, -186.1, 178.6, 0.2) pt3dadd(460.7, -187, 178.3, 0.2) pt3dadd(461.1, -187.8, 178.1, 0.2) pt3dadd(461.1, -188.6, 177.8, 0.2) pt3dadd(461.5, -192.1, 176.7, 0.2) pt3dadd(461.5, -193.1, 176.4, 0.2) pt3dadd(461.9, -194.2, 176.1, 0.2) pt3dadd(462.8, -195.3, 175.6, 0.2) pt3dadd(463.5, -196.6, 175.2, 0.2) pt3dadd(463.8, -198, 174.7, 0.2) pt3dadd(463.8, -199, 174.4, 0.2) pt3dadd(464.5, -200, 174.1, 0.2) pt3dadd(464.9, -201.3, 173.6, 0.2) pt3dadd(465.8, -202.3, 173.2, 0.2) pt3dadd(466.1, -203.1, 173, 0.2) pt3dadd(467.1, -204.5, 172.5, 0.2) pt3dadd(467.9, -205.1, 172.1, 0.2) pt3dadd(468.4, -205.9, 171.9, 0.2) pt3dadd(469.2, -207, 171.4, 0.2) pt3dadd(469.6, -208.2, 171.1, 0.2) pt3dadd(470.4, -211.8, 169.9, 0.2) pt3dadd(470.7, -213, 169.6, 0.2) pt3dadd(471.1, -213.8, 169.3, 0.2) pt3dadd(471.1, -215.3, 168.9, 0.2) pt3dadd(471.4, -216.9, 168.4, 0.2) pt3dadd(471.4, -218.4, 167.9, 0.2) pt3dadd(471.9, -219.4, 167.6, 0.2) pt3dadd(472.3, -220.1, 167.3, 0.2) pt3dadd(473.3, -221.6, 166.8, 0.2) pt3dadd(473.6, -222.3, 166.5, 0.2) pt3dadd(474.4, -222.7, 166.3, 0.2) pt3dadd(474.9, -223.5, 166, 0.2) pt3dadd(475.2, -224.9, 165.6, 0.2) pt3dadd(475.5, -226, 165.2, 0.2) pt3dadd(476.2, -228, 164.6, 0.2) pt3dadd(476.7, -229, 164.3, 0.2) pt3dadd(477.7, -229.5, 164, 0.2) pt3dadd(478.4, -230.6, 163.6, 0.2) pt3dadd(479.5, -232.4, 163, 0.2) pt3dadd(479.9, -234.3, 162.4, 0.2) pt3dadd(480.3, -235.3, 162.1, 0.2) pt3dadd(481.4, -236.3, 161.7, 0.2) pt3dadd(482.1, -236.7, 161.4, 0.2) pt3dadd(484.6, -238.4, 160.6, 0.2) pt3dadd(485.4, -239.5, 160.2, 0.2) pt3dadd(486.1, -240.9, 159.7, 0.2) pt3dadd(486.4, -242, 159.4, 0.2) pt3dadd(487.6, -242.8, 159, 0.2) pt3dadd(488.4, -243.9, 158.6, 0.2) pt3dadd(489.4, -244.8, 158.3, 0.2) pt3dadd(490, -246.1, 157.9, 0.2) pt3dadd(490.5, -247.3, 157.5, 0.2) pt3dadd(491.1, -248.5, 157.1, 0.2) pt3dadd(491.5, -249.7, 156.8, 0.2) pt3dadd(491.9, -250.8, 156.5, 0.2) pt3dadd(492.7, -251.7, 156.2, 0.2) pt3dadd(492.7, -252.7, 155.9, 0.2) pt3dadd(493, -253.8, 155.6, 0.2) pt3dadd(493.3, -254.7, 155.3, 0.2) pt3dadd(494.1, -255.5, 155, 0.2) pt3dadd(495.1, -256.3, 154.7, 0.2) pt3dadd(495.5, -257.1, 154.5, 0.2) pt3dadd(495.8, -258.8, 154, 0.2) pt3dadd(496.5, -261.3, 153.3, 0.2) pt3dadd(497.3, -262.3, 153, 0.2) pt3dadd(497.7, -263, 152.8, 0.2) pt3dadd(499.1, -264.3, 152.3, 0.2) pt3dadd(499.4, -265.1, 152.1, 0.2) pt3dadd(500.5, -267, 151.6, 0.2) pt3dadd(501.6, -268.9, 151, 0.2) pt3dadd(502.1, -269.8, 150.8, 0.2) pt3dadd(502.4, -270.6, 150.6, 0.2) pt3dadd(503.1, -271.5, 150.3, 0.2) pt3dadd(503.7, -272.6, 150, 0.2) } dend_5[47] {pt3dclear() pt3dadd(393, -104.9, 222, 0.6) pt3dadd(393.5, -105.9, 222, 0.6) pt3dadd(393.8, -106.7, 222, 0.6) pt3dadd(393.8, -107.8, 222, 0.6) pt3dadd(393.3, -110.3, 222, 0.6) pt3dadd(393.3, -111.2, 222, 0.6) pt3dadd(394, -113.2, 222, 0.6) pt3dadd(394.9, -114.2, 222, 0.6) pt3dadd(395.2, -115, 222, 0.6) pt3dadd(396.2, -116.8, 222, 0.6) pt3dadd(396.3, -117.5, 222, 0.2) pt3dadd(397.1, -118, 222, 0.2) pt3dadd(397.9, -119, 222, 0.2) pt3dadd(399.4, -120.1, 222, 0.2) pt3dadd(400.4, -121, 222, 0.2) pt3dadd(402, -122.2, 222, 0.2) pt3dadd(402.8, -123.3, 222, 0.2) pt3dadd(403.2, -124.4, 222, 0.2) pt3dadd(403.5, -125.5, 222, 0.2) pt3dadd(403.8, -126.3, 222, 0.2) pt3dadd(404.6, -127.4, 222, 0.2) pt3dadd(405.3, -128.3, 222, 0.2) pt3dadd(406, -128.7, 222, 0.2) pt3dadd(406.7, -129.8, 222, 0.2) pt3dadd(407.1, -130.6, 222, 0.2) pt3dadd(407.1, -131.7, 222, 0.2) pt3dadd(407.8, -133.7, 222, 0.2) pt3dadd(407.8, -134.9, 222, 0.2) pt3dadd(408.3, -136, 222, 0.2) pt3dadd(409, -137.9, 222, 0.2) pt3dadd(409.5, -138.8, 222, 0.2) pt3dadd(410, -140.4, 222, 0.2) pt3dadd(410.3, -142.4, 222, 0.2) pt3dadd(411, -143.7, 222, 0.2) pt3dadd(411.9, -144.1, 222, 0.2) pt3dadd(412.9, -145.2, 222, 0.2) pt3dadd(414, -147, 222, 0.2) pt3dadd(414.3, -147.9, 222, 0.2) pt3dadd(415, -149.1, 222, 0.2) pt3dadd(415.6, -149.6, 222, 0.2) pt3dadd(416.4, -150.2, 222, 0.2) pt3dadd(417.7, -152.5, 222, 0.2) pt3dadd(417.7, -153.3, 222, 0.2) pt3dadd(418.5, -154.7, 222, 0.2) pt3dadd(419.2, -155.2, 222, 0.2) pt3dadd(420.1, -156.4, 222, 0.2) pt3dadd(421, -157.8, 222, 0.2) pt3dadd(421, -158.7, 222, 0.2) pt3dadd(421.8, -162.4, 222, 0.2) pt3dadd(422.9, -163.3, 222, 0.2) pt3dadd(423.4, -164, 222, 0.2) pt3dadd(423.9, -164.7, 222, 0.2) pt3dadd(424.3, -165.8, 222, 0.2) pt3dadd(425, -167.3, 222, 0.2) pt3dadd(425.3, -168.3, 222, 0.2) pt3dadd(425.3, -169.1, 222, 0.2) pt3dadd(425.6, -170.1, 222, 0.2) pt3dadd(426, -171.7, 222, 0.2) pt3dadd(426.4, -172.7, 222, 0.2) pt3dadd(427, -173.2, 222, 0.2) pt3dadd(427.3, -174.2, 222, 0.2) pt3dadd(428, -174.6, 222, 0.2) pt3dadd(428.5, -175.5, 222, 0.2) pt3dadd(430, -178.7, 222, 0.2) pt3dadd(430.4, -179.8, 222, 0.2) pt3dadd(432.2, -182.5, 222, 0.2) pt3dadd(433.8, -183.4, 222, 0.2) pt3dadd(434.5, -183.8, 222, 0.2) pt3dadd(434.9, -184.6, 222, 0.2) pt3dadd(435.7, -185.6, 222, 0.2) pt3dadd(436.4, -186.1, 222, 0.2) pt3dadd(437, -187.2, 222, 0.2) pt3dadd(437.9, -188.1, 222, 0.2) pt3dadd(438.6, -188.6, 222, 0.2) pt3dadd(439, -189.6, 222, 0.2) } dend_5[48] {pt3dclear() pt3dadd(386.6, -86, 222, 1.1) pt3dadd(387.4, -86.2, 221.3, 0.6) pt3dadd(388.2, -86.2, 220.6, 0.6) pt3dadd(388.9, -86.6, 219.9, 0.6) pt3dadd(389.8, -87, 219, 0.6) pt3dadd(390.9, -86.4, 218, 0.6) pt3dadd(391.6, -85.8, 217.2, 0.6) pt3dadd(392.7, -85.5, 216.2, 0.6) pt3dadd(393.5, -86, 215.4, 0.6) pt3dadd(394.3, -86.9, 214.3, 0.6) pt3dadd(395.5, -87.8, 213.1, 0.6) pt3dadd(397.3, -89.2, 211.1, 0.6) pt3dadd(398.4, -89.7, 210, 0.6) pt3dadd(399.4, -90.5, 208.9, 0.6) pt3dadd(400.7, -91.1, 207.6, 0.6) pt3dadd(402.1, -91.6, 206.3, 0.6) pt3dadd(403.2, -92.1, 205.3, 0.6) pt3dadd(404.3, -92.5, 204.2, 0.6) pt3dadd(405.6, -92.9, 202.9, 0.6) pt3dadd(406.7, -92.9, 201.9, 0.6) } } proc shape3d_21() { dend_5[48] { pt3dadd(407.5, -93.7, 200.8, 0.6) pt3dadd(408.3, -94.5, 199.8, 0.6) pt3dadd(409.5, -94.5, 198.6, 0.6) pt3dadd(410.3, -94.9, 197.7, 0.6) pt3dadd(411.2, -94.9, 196.8, 0.6) pt3dadd(411.9, -95.3, 196, 0.6) pt3dadd(412.8, -95.9, 195, 0.6) pt3dadd(413.4, -96.7, 193.9, 0.6) pt3dadd(414.1, -97, 193.1, 0.6) pt3dadd(415, -97, 192.1, 0.6) pt3dadd(415.8, -97.6, 191.1, 0.6) pt3dadd(416.5, -98.6, 189.8, 0.6) pt3dadd(417.4, -99, 188.8, 0.6) pt3dadd(418.4, -99, 187.6, 0.6) pt3dadd(420.4, -98.6, 185.3, 0.6) pt3dadd(421.4, -99, 184.1, 0.6) pt3dadd(421.7, -99.9, 182.9, 0.6) pt3dadd(422, -100.9, 181.6, 0.6) pt3dadd(423.3, -101.2, 180, 0.6) pt3dadd(424.1, -101.3, 179, 0.6) pt3dadd(425, -101.3, 177.7, 0.6) pt3dadd(425.8, -100.9, 176.5, 0.6) pt3dadd(427.2, -100.5, 174.5, 0.6) pt3dadd(428, -100.5, 173.4, 0.6) pt3dadd(429.1, -100.9, 171.8, 0.6) pt3dadd(429.8, -101.3, 170.6, 0.6) pt3dadd(430.7, -102.2, 168.6, 0.6) pt3dadd(432, -103.5, 165.9, 0.6) pt3dadd(432.9, -104, 164.2, 0.6) pt3dadd(434.1, -104.4, 162.2, 0.6) pt3dadd(434.9, -104.4, 160.9, 0.6) pt3dadd(435.8, -104.9, 159.3, 0.6) pt3dadd(436.4, -105.8, 157.5, 0.6) pt3dadd(436.8, -106.6, 156.1, 0.2) pt3dadd(437.5, -107.6, 154, 0.2) pt3dadd(438.2, -108.2, 152.5, 0.2) pt3dadd(438.6, -109, 151, 0.2) pt3dadd(439.4, -109, 149.6, 0.2) pt3dadd(441.4, -109.5, 146.1, 0.2) pt3dadd(442.2, -110.5, 144, 0.2) pt3dadd(443, -110.9, 142.6, 0.2) pt3dadd(444.8, -111.3, 139.5, 0.2) pt3dadd(445.7, -112.1, 137.6, 0.2) pt3dadd(446.6, -112.5, 135.9, 0.2) pt3dadd(447.3, -113.6, 133.8, 0.2) pt3dadd(447.7, -114.8, 131.9, 0.2) pt3dadd(448.5, -115.2, 130.5, 0.2) pt3dadd(449.8, -115.2, 128.6, 0.2) pt3dadd(452.4, -115.5, 124.7, 0.2) pt3dadd(453.8, -116.8, 122, 0.2) pt3dadd(454.3, -118.2, 120, 0.2) pt3dadd(455.4, -118.7, 118.3, 0.2) pt3dadd(455.7, -119.5, 117.2, 0.2) pt3dadd(456.1, -120.6, 115.7, 0.2) pt3dadd(456.1, -121.3, 114.7, 0.2) pt3dadd(456.8, -121.8, 113.4, 0.2) pt3dadd(457.6, -122.3, 112.3, 0.2) pt3dadd(458.5, -122.8, 110.9, 0.2) pt3dadd(459.5, -123.2, 109.4, 0.2) pt3dadd(460.3, -124.4, 107.6, 0.2) pt3dadd(460.3, -125.2, 106.5, 0.2) pt3dadd(460.6, -126.9, 104.3, 0.2) pt3dadd(460.6, -128, 102.8, 0.2) pt3dadd(461.2, -128.8, 101.5, 0.2) pt3dadd(463.3, -130.7, 98, 0.2) pt3dadd(464.2, -131.2, 96.7, 0.2) pt3dadd(466.8, -133.5, 92.4, 0.2) pt3dadd(466.8, -134.6, 91, 0.2) pt3dadd(467.4, -136.9, 88.1, 0.2) pt3dadd(468.9, -138.3, 85.7, 0.2) pt3dadd(470, -138.7, 84.2, 0.2) pt3dadd(470.7, -139.5, 82.9, 0.2) pt3dadd(470.7, -140.4, 81.9, 0.2) pt3dadd(471.5, -141.3, 80.6, 0.2) pt3dadd(471.9, -142.3, 79.3, 0.2) pt3dadd(472.5, -143.3, 78, 0.2) pt3dadd(472.9, -144.1, 76.9, 0.2) pt3dadd(473.7, -144.1, 76, 0.2) pt3dadd(474.6, -144.6, 74.8, 0.2) pt3dadd(475, -145.6, 73.6, 0.2) pt3dadd(476, -146, 72.5, 0.2) pt3dadd(476.8, -147.1, 71, 0.2) pt3dadd(477.6, -148, 69.6, 0.2) pt3dadd(478.4, -148, 68.7, 0.2) pt3dadd(479.2, -148.4, 67.8, 0.2) pt3dadd(480.7, -148.9, 66.1, 0.2) pt3dadd(481.5, -149.3, 65.1, 0.2) pt3dadd(483.1, -149.7, 63.4, 0.2) pt3dadd(485, -149.1, 61.4, 0.2) pt3dadd(486.2, -148.5, 60, 0.2) pt3dadd(487.1, -149.1, 59, 0.2) pt3dadd(488.1, -148.7, 58, 0.2) pt3dadd(488.8, -147.9, 56.9, 0.2) pt3dadd(489.8, -146.4, 55.2, 0.2) pt3dadd(489.8, -145.2, 53.9, 0.2) pt3dadd(490.2, -142.5, 51.5, 0.2) pt3dadd(490.5, -141.8, 50.7, 0.2) pt3dadd(490.9, -140.6, 49.6, 0.2) pt3dadd(490.5, -139.2, 48.3, 0.2) pt3dadd(490.5, -138.3, 47.5, 0.2) pt3dadd(490.8, -136, 45.5, 0.2) pt3dadd(490.8, -135.1, 44.7, 0.2) pt3dadd(491.1, -133.4, 43.3, 0.2) pt3dadd(491.1, -131.7, 41.9, 0.2) pt3dadd(490.8, -130.3, 40.7, 0.2) pt3dadd(490.4, -129.3, 39.9, 0.2) pt3dadd(490.4, -128.4, 39.2, 0.2) pt3dadd(491.1, -127.1, 38, 0.2) pt3dadd(491.1, -126, 37.1, 0.2) pt3dadd(491.9, -124.8, 36.1, 0.2) pt3dadd(493.5, -122.4, 33.9, 0.2) pt3dadd(494.5, -121.1, 32.8, 0.2) pt3dadd(494.5, -120, 32, 0.2) pt3dadd(494.1, -116.8, 29.8, 0.2) pt3dadd(493.6, -115.8, 29, 0.2) pt3dadd(493.1, -113.2, 27.3, 0.2) pt3dadd(493.5, -111, 25.9, 0.2) pt3dadd(494.1, -109.4, 24.8, 0.2) pt3dadd(494.1, -108.6, 24.3, 0.2) pt3dadd(493.6, -105.9, 22.7, 0.2) pt3dadd(493.6, -105, 22.1, 0.2) pt3dadd(493.2, -103.6, 21.3, 0.2) pt3dadd(492.8, -102.4, 20.6, 0.2) pt3dadd(492.8, -101.4, 20, 0.2) pt3dadd(492.3, -100.7, 19.6, 0.2) pt3dadd(492.3, -99.5, 18.9, 0.2) pt3dadd(491.5, -98, 18, 0.2) } dend {pt3dclear() pt3dadd(10, 0, 30, 0.7) pt3dadd(-0.6, -0.6, 30.1, 0.7) pt3dadd(-1.4, -1, 30.2, 0.7) pt3dadd(-2.4, -1.4, 30.3, 0.7) pt3dadd(-3.4, -1.4, 30.4, 0.7) pt3dadd(-4.4, -1.8, 30.5, 0.7) pt3dadd(-5.3, -1.8, 30.5, 0.7) pt3dadd(-6.2, -1.8, 30.6, 0.7) pt3dadd(-7, -2.2, 30.6, 0.7) pt3dadd(-7.9, -2.6, 30.7, 0.7) pt3dadd(-8.7, -3.6, 30.7, 0.7) pt3dadd(-9.5, -4.5, 30.7, 0.7) pt3dadd(-10.3, -4.5, 30.7, 0.7) pt3dadd(-11.1, -5.4, 30.7, 0.7) pt3dadd(-12.2, -5.4, 30.7, 0.7) pt3dadd(-13, -5.8, 30.7, 0.7) pt3dadd(-14, -6.6, 30.6, 0.7) pt3dadd(-14.8, -7.8, 30.6, 0.7) pt3dadd(-15.6, -8.2, 30.5, 0.7) pt3dadd(-16.4, -9, 30.5, 0.7) pt3dadd(-16.8, -9.8, 30.4, 0.7) pt3dadd(-17.8, -10.5, 30.3, 0.7) pt3dadd(-18.6, -11, 30.3, 0.7) pt3dadd(-19, -11.8, 30.2, 0.7) pt3dadd(-19.4, -12.6, 30.1, 0.7) pt3dadd(-20.6, -13.5, 30, 0.7) } dend[1] {pt3dclear() pt3dadd(-20.6, -13.5, 30, 0.7) pt3dadd(-20.6, -14.6, 30, 0.7) pt3dadd(-21, -15.6, 30, 0.7) pt3dadd(-21, -16.4, 30, 0.7) pt3dadd(-21.4, -17.2, 30, 0.7) pt3dadd(-21.9, -18.1, 30, 0.7) pt3dadd(-22.3, -19, 30, 0.7) pt3dadd(-22.7, -19.8, 30, 0.7) pt3dadd(-23.2, -20.6, 30, 0.7) } dend[2] {pt3dclear() pt3dadd(-23.2, -20.6, 30, 0.7) pt3dadd(-22.9, -21.5, 30, 0.7) pt3dadd(-22.9, -22.3, 30, 0.7) pt3dadd(-23.4, -23.3, 30, 0.7) pt3dadd(-23.8, -24.1, 30, 0.7) pt3dadd(-23.8, -24.9, 30, 0.7) pt3dadd(-24.2, -25.9, 30, 0.7) pt3dadd(-24.2, -26.8, 30, 0.7) pt3dadd(-25, -27.7, 30, 0.7) pt3dadd(-25.9, -28.5, 30, 0.7) pt3dadd(-26.7, -29, 30, 0.7) pt3dadd(-27.5, -29.4, 30, 0.7) pt3dadd(-27.9, -30.4, 30, 0.7) pt3dadd(-28.5, -31.3, 30, 0.7) pt3dadd(-29.3, -31.7, 30, 0.7) pt3dadd(-29.7, -32.5, 30, 0.7) pt3dadd(-30.1, -34.2, 30, 0.7) } dend[3] {pt3dclear() pt3dadd(-30.1, -34.2, 30, 0.7) pt3dadd(-30, -35.3, 30, 0.3) pt3dadd(-29.7, -36.2, 30, 0.3) pt3dadd(-30.1, -37.2, 30, 0.3) pt3dadd(-30.5, -38.1, 30, 0.3) pt3dadd(-30.9, -39.1, 30, 0.3) pt3dadd(-30.5, -40.1, 30, 0.3) pt3dadd(-30.2, -41, 30, 0.3) pt3dadd(-29.5, -42, 30, 0.3) pt3dadd(-29.1, -43.1, 30, 0.3) pt3dadd(-28.7, -44.2, 30, 0.3) pt3dadd(-28.7, -45.3, 30, 0.3) pt3dadd(-29.1, -46.4, 30.1, 0.3) pt3dadd(-30.1, -47.3, 30.1, 0.3) pt3dadd(-30.1, -48.3, 30.1, 0.3) pt3dadd(-30.1, -49.3, 30.1, 0.3) pt3dadd(-29.4, -50.5, 30.1, 0.3) pt3dadd(-29.1, -51.4, 30.1, 0.3) pt3dadd(-29.1, -52.3, 30.1, 0.3) pt3dadd(-29.1, -53.3, 30.1, 0.3) pt3dadd(-29.1, -54.4, 30.2, 0.3) } } proc shape3d_22() { dend[3] { pt3dadd(-29.1, -55.5, 30.2, 0.3) pt3dadd(-28.8, -56.4, 30.2, 0.3) pt3dadd(-28.5, -57.3, 30.2, 0.3) pt3dadd(-28.1, -58.3, 30.2, 0.3) pt3dadd(-28.1, -59.3, 30.2, 0.3) pt3dadd(-27.8, -60.1, 30.3, 0.3) pt3dadd(-27.8, -61.2, 30.3, 0.3) pt3dadd(-27.5, -62, 30.3, 0.3) pt3dadd(-27.5, -62.9, 30.3, 0.3) pt3dadd(-27.5, -63.9, 30.3, 0.3) pt3dadd(-27.1, -64.8, 30.4, 0.3) pt3dadd(-27.1, -65.8, 30.4, 0.3) pt3dadd(-26.8, -66.8, 30.4, 0.3) pt3dadd(-26.8, -67.9, 30.4, 0.3) pt3dadd(-26.8, -68.8, 30.4, 0.3) pt3dadd(-27.3, -69.5, 30.5, 0.3) pt3dadd(-27.3, -70.4, 30.5, 0.3) pt3dadd(-27.8, -71, 30.5, 0.3) pt3dadd(-28.6, -72.4, 30.5, 0.3) pt3dadd(-28.6, -73.3, 30.6, 0.3) pt3dadd(-28.6, -74.4, 30.6, 0.3) pt3dadd(-28.6, -75.4, 30.6, 0.3) pt3dadd(-28.6, -76.3, 30.6, 0.3) pt3dadd(-28.2, -77.2, 30.7, 0.3) pt3dadd(-27.9, -78.3, 30.7, 0.3) pt3dadd(-27.9, -79.2, 30.7, 0.3) pt3dadd(-28.4, -80, 30.8, 0.3) pt3dadd(-28.9, -80.9, 30.8, 0.3) pt3dadd(-29.5, -81.5, 30.8, 0.3) pt3dadd(-29.2, -82.5, 30.9, 0.3) pt3dadd(-28.9, -83.4, 30.9, 0.3) pt3dadd(-28.9, -84.4, 30.9, 0.3) pt3dadd(-28.9, -85.2, 30.9, 0.3) pt3dadd(-28.1, -85.9, 31, 0.3) pt3dadd(-28.1, -87.2, 31, 0.3) pt3dadd(-28.1, -88, 31, 0.3) pt3dadd(-28.6, -88.8, 31.1, 0.3) pt3dadd(-29.4, -89.8, 31.1, 0.3) pt3dadd(-30.3, -90.2, 31.2, 0.3) pt3dadd(-30.9, -91.2, 31.2, 0.3) pt3dadd(-32.1, -92, 31.2, 0.3) pt3dadd(-33, -93, 31.3, 0.3) pt3dadd(-34, -93.4, 31.3, 0.3) pt3dadd(-34.9, -93.8, 31.4, 0.3) pt3dadd(-35.8, -94.7, 31.4, 0.3) pt3dadd(-36.9, -95.2, 31.5, 0.3) pt3dadd(-38.1, -96.3, 31.5, 0.3) pt3dadd(-38.7, -96.9, 31.6, 0.3) pt3dadd(-39.6, -98, 31.6, 0.3) pt3dadd(-40.5, -98.4, 31.7, 0.3) pt3dadd(-41.2, -98.9, 31.7, 0.3) pt3dadd(-41.9, -99.3, 31.7, 0.3) pt3dadd(-42.9, -100.4, 31.8, 0.3) pt3dadd(-44.1, -100.9, 31.8, 0.3) pt3dadd(-44.8, -101.5, 31.9, 0.3) pt3dadd(-46.2, -102.3, 32, 0.3) pt3dadd(-47.3, -103.2, 32, 0.3) pt3dadd(-48.4, -103.2, 32.1, 0.3) pt3dadd(-49.3, -103.6, 32.1, 0.3) pt3dadd(-50.2, -104.3, 32.2, 0.3) pt3dadd(-51.4, -104.7, 32.2, 0.3) pt3dadd(-52.5, -105.7, 32.3, 0.3) pt3dadd(-53.4, -106.2, 32.3, 0.3) pt3dadd(-54.4, -106.6, 32.4, 0.3) pt3dadd(-55.4, -107, 32.4, 0.3) pt3dadd(-56.4, -107.5, 32.5, 0.3) pt3dadd(-57, -107.9, 32.5, 0.3) pt3dadd(-57.8, -108.3, 32.6, 0.3) pt3dadd(-58.6, -109.4, 32.6, 0.3) pt3dadd(-59.3, -110, 32.7, 0.3) pt3dadd(-60.2, -111.1, 32.7, 0.3) pt3dadd(-61.2, -111.5, 32.8, 0.3) pt3dadd(-62.3, -112.3, 32.9, 0.3) pt3dadd(-63.4, -113.3, 32.9, 0.3) pt3dadd(-64.2, -114.1, 33, 0.3) pt3dadd(-65.1, -115, 33, 0.3) pt3dadd(-65.5, -115.9, 33.1, 0.3) pt3dadd(-66, -116.6, 33.1, 0.3) pt3dadd(-66.5, -118, 33.2, 0.3) pt3dadd(-66.9, -118.8, 33.3, 0.3) pt3dadd(-67.8, -120.1, 33.3, 0.3) pt3dadd(-68.6, -120.7, 33.4, 0.3) pt3dadd(-69.1, -121.8, 33.5, 0.3) pt3dadd(-69.5, -122.8, 33.5, 0.3) pt3dadd(-69.5, -123.8, 33.6, 0.3) pt3dadd(-69.9, -125, 33.6, 0.3) pt3dadd(-70.4, -125.8, 33.7, 0.3) pt3dadd(-70.8, -126.6, 33.7, 0.3) pt3dadd(-71.7, -127.6, 33.8, 0.3) pt3dadd(-72.1, -128.5, 33.9, 0.3) pt3dadd(-72.1, -129.8, 33.9, 0.3) pt3dadd(-72.1, -130.8, 34, 0.3) pt3dadd(-72.1, -131.8, 34, 0.3) pt3dadd(-72.6, -132.6, 34.1, 0.3) pt3dadd(-72.6, -133.7, 34.1, 0.3) pt3dadd(-73.5, -134.7, 34.2, 0.3) pt3dadd(-74, -135.9, 34.3, 0.3) pt3dadd(-74.4, -136.8, 34.3, 0.3) pt3dadd(-74.8, -137.7, 34.4, 0.3) pt3dadd(-75.2, -138.7, 34.5, 0.3) pt3dadd(-76.2, -139.7, 34.5, 0.3) pt3dadd(-76.6, -140.8, 34.6, 0.3) pt3dadd(-76.6, -141.7, 34.6, 0.3) pt3dadd(-76.6, -142.6, 34.7, 0.3) pt3dadd(-76, -143.1, 34.7, 0.3) pt3dadd(-75.6, -143.9, 34.8, 0.3) pt3dadd(-75.3, -144.7, 34.8, 0.3) pt3dadd(-75.7, -145.6, 34.9, 0.3) pt3dadd(-76.3, -146.4, 34.9, 0.3) pt3dadd(-77.2, -147.4, 35, 0.3) pt3dadd(-77.8, -148.5, 35.1, 0.3) pt3dadd(-78.3, -149.4, 35.2, 0.3) pt3dadd(-78.7, -150.2, 35.2, 0.3) pt3dadd(-79.6, -151, 35.3, 0.3) pt3dadd(-80.1, -151.8, 35.3, 0.3) pt3dadd(-80.7, -153, 35.4, 0.3) pt3dadd(-81.6, -154.2, 35.5, 0.3) pt3dadd(-82.2, -154.7, 35.5, 0.3) pt3dadd(-83, -155, 35.6, 0.3) pt3dadd(-82.9, -155.8, 35.6, 0.3) pt3dadd(-82.9, -156.6, 35.7, 0.3) pt3dadd(-83.3, -157.8, 35.7, 0.3) pt3dadd(-83.3, -158.6, 35.8, 0.3) pt3dadd(-83.7, -159.7, 35.9, 0.3) pt3dadd(-84.2, -160.6, 35.9, 0.3) pt3dadd(-85.1, -161.8, 36, 0.3) } dend[4] {pt3dclear() pt3dadd(-30.1, -34.2, 30, 0.7) pt3dadd(-30.9, -34.3, 30, 0.3) pt3dadd(-31.8, -35.2, 30, 0.3) pt3dadd(-32.7, -35.2, 30, 0.3) pt3dadd(-33.5, -35.6, 30, 0.3) pt3dadd(-34.4, -35.6, 29.9, 0.3) pt3dadd(-35.3, -36.1, 29.9, 0.3) pt3dadd(-36.3, -36.5, 29.9, 0.3) pt3dadd(-37.4, -37.5, 29.8, 0.3) pt3dadd(-38.6, -38.1, 29.8, 0.3) pt3dadd(-39.5, -38.5, 29.7, 0.3) pt3dadd(-40.4, -38.5, 29.7, 0.3) pt3dadd(-41.8, -38.9, 29.6, 0.3) pt3dadd(-42.9, -38.9, 29.6, 0.3) pt3dadd(-43.7, -39.3, 29.5, 0.3) pt3dadd(-44.9, -39.7, 29.4, 0.3) pt3dadd(-45.8, -40.1, 29.3, 0.3) pt3dadd(-46.8, -40.5, 29.3, 0.3) pt3dadd(-48, -41.1, 29.2, 0.3) pt3dadd(-48.9, -42.2, 29, 0.3) pt3dadd(-49.6, -42.8, 28.9, 0.3) pt3dadd(-50.4, -43.6, 28.8, 0.3) pt3dadd(-51.3, -44.4, 28.7, 0.3) pt3dadd(-52.3, -44.8, 28.6, 0.3) pt3dadd(-53.4, -45.3, 28.5, 0.3) pt3dadd(-54.6, -46.1, 28.3, 0.3) pt3dadd(-55.6, -46.1, 28.2, 0.3) pt3dadd(-56.4, -46.1, 28.1, 0.3) pt3dadd(-57.4, -46.1, 27.9, 0.3) pt3dadd(-58.7, -46.1, 27.8, 0.3) pt3dadd(-60.1, -46.1, 27.6, 0.3) pt3dadd(-60.9, -46.6, 27.5, 0.3) pt3dadd(-61.7, -47, 27.3, 0.3) pt3dadd(-62.7, -47.6, 27.2, 0.3) pt3dadd(-63.7, -48, 27, 0.3) pt3dadd(-64.7, -48.9, 26.8, 0.3) pt3dadd(-65.6, -48.9, 26.6, 0.3) pt3dadd(-66.6, -49.8, 26.4, 0.3) pt3dadd(-67.4, -50.2, 26.3, 0.3) pt3dadd(-68.3, -51.1, 26, 0.3) pt3dadd(-69.1, -51.9, 25.8, 0.3) pt3dadd(-69.9, -52.7, 25.6, 0.3) pt3dadd(-70.7, -53.2, 25.5, 0.3) pt3dadd(-71.6, -54.1, 25.2, 0.3) pt3dadd(-72.6, -54.5, 25, 0.3) pt3dadd(-73.6, -55, 24.8, 0.3) pt3dadd(-74.6, -55.4, 24.6, 0.3) pt3dadd(-75.5, -55.8, 24.4, 0.3) pt3dadd(-76.5, -56.4, 24.1, 0.3) pt3dadd(-77.5, -56.9, 23.9, 0.3) pt3dadd(-78.5, -57.7, 23.6, 0.3) pt3dadd(-79.5, -58.5, 23.4, 0.3) pt3dadd(-80.5, -59.3, 23.1, 0.3) pt3dadd(-81.5, -59.3, 22.8, 0.3) pt3dadd(-82.4, -59.7, 22.6, 0.3) pt3dadd(-83.5, -60.5, 22.3, 0.3) pt3dadd(-84.5, -61.4, 22, 0.3) pt3dadd(-85.4, -62.3, 21.7, 0.3) pt3dadd(-86.4, -62.7, 21.4, 0.3) pt3dadd(-87.4, -63.1, 21.1, 0.3) pt3dadd(-88.6, -63.6, 20.8, 0.3) pt3dadd(-89.6, -63.6, 20.6, 0.3) pt3dadd(-90.5, -63.6, 20.3, 0.3) pt3dadd(-91.6, -63.6, 20, 0.3) pt3dadd(-92.7, -64, 19.7, 0.3) pt3dadd(-93.8, -64, 19.4, 0.3) pt3dadd(-94.8, -64.4, 19.1, 0.3) pt3dadd(-96.2, -64.8, 18.7, 0.3) pt3dadd(-97.2, -64.8, 18.4, 0.3) pt3dadd(-98.3, -64.5, 18.1, 0.3) pt3dadd(-99.2, -64.9, 17.9, 0.3) pt3dadd(-100.1, -65.8, 17.5, 0.3) pt3dadd(-101.2, -66.8, 17.1, 0.3) pt3dadd(-102.4, -67.7, 16.6, 0.3) } } proc shape3d_23() { dend[4] { pt3dadd(-103.2, -68.2, 16.3, 0.3) pt3dadd(-104.3, -68.6, 16, 0.3) pt3dadd(-105.6, -69, 15.6, 0.3) pt3dadd(-106.7, -69.4, 15.2, 0.3) pt3dadd(-107.7, -69.9, 14.9, 0.3) pt3dadd(-108.7, -70.8, 14.4, 0.3) pt3dadd(-109.9, -71.6, 14, 0.3) pt3dadd(-110.8, -72.4, 13.6, 0.3) pt3dadd(-111.3, -73.2, 13.3, 0.3) pt3dadd(-112.3, -73.7, 12.9, 0.3) pt3dadd(-112.7, -74.7, 12.6, 0.3) pt3dadd(-113.1, -75.6, 12.2, 0.3) pt3dadd(-113.9, -76.1, 11.9, 0.3) pt3dadd(-114.3, -77, 11.6, 0.3) pt3dadd(-114.3, -78, 11.2, 0.3) pt3dadd(-114.8, -79.6, 10.7, 0.3) pt3dadd(-114.8, -80.4, 10.4, 0.3) pt3dadd(-114.8, -81.2, 10.1, 0.3) pt3dadd(-114.8, -82.4, 9.7, 0.3) pt3dadd(-114.8, -83.8, 9.2, 0.3) pt3dadd(-114.8, -84.6, 8.9, 0.3) pt3dadd(-115.2, -85.7, 8.5, 0.3) pt3dadd(-115.6, -86.7, 8.1, 0.3) pt3dadd(-115.6, -87.6, 7.8, 0.3) pt3dadd(-116, -88.4, 7.5, 0.3) pt3dadd(-116.4, -89.8, 7, 0.3) pt3dadd(-117.3, -90.7, 6.5, 0.3) pt3dadd(-117.9, -91.6, 6.1, 0.3) pt3dadd(-118.7, -92.5, 5.6, 0.3) pt3dadd(-119.6, -93.5, 5.2, 0.3) pt3dadd(-120.5, -94.2, 4.7, 0.3) pt3dadd(-121.5, -94.6, 4.3, 0.3) pt3dadd(-122.3, -95, 4, 0.3) pt3dadd(-123.1, -95.5, 3.6, 0.3) pt3dadd(-124, -96.3, 3.2, 0.3) pt3dadd(-125, -96.7, 2.8, 0.3) pt3dadd(-125.6, -97.2, 2.4, 0.3) pt3dadd(-126.4, -97.7, 2.1, 0.3) pt3dadd(-126.8, -98.6, 1.7, 0.3) pt3dadd(-127.3, -99.6, 1.3, 0.3) pt3dadd(-128.1, -100.2, 0.9, 0.3) pt3dadd(-128.6, -101.1, 0.5, 0.3) pt3dadd(-129.5, -102, -0.1, 0.3) pt3dadd(-130.3, -102.5, -0.4, 0.3) pt3dadd(-131, -103.1, -0.8, 0.3) pt3dadd(-131.9, -103.9, -1.2, 0.3) pt3dadd(-131.9, -104.8, -1.6, 0.3) pt3dadd(-131.9, -105.7, -2, 0.3) pt3dadd(-131.9, -106.6, -2.3, 0.3) pt3dadd(-131.9, -107.6, -2.8, 0.3) pt3dadd(-132.3, -109.1, -3.4, 0.3) pt3dadd(-132.3, -110.3, -3.9, 0.3) pt3dadd(-132.3, -111.4, -4.3, 0.3) pt3dadd(-133.1, -112.4, -4.9, 0.3) pt3dadd(-134, -113.2, -5.4, 0.3) pt3dadd(-134, -114.7, -6, 0.3) pt3dadd(-134.4, -116.3, -6.7, 0.3) pt3dadd(-134.8, -117.2, -7.1, 0.3) pt3dadd(-135.6, -118.7, -7.8, 0.3) pt3dadd(-136, -119.8, -8.3, 0.3) pt3dadd(-136.9, -120.7, -8.8, 0.3) pt3dadd(-137.4, -121.6, -9.3, 0.3) pt3dadd(-137.9, -122.6, -9.7, 0.3) pt3dadd(-139.1, -123.4, -10.4, 0.2) pt3dadd(-140.1, -123.9, -10.9, 0.2) pt3dadd(-141.1, -124.3, -11.3, 0.2) pt3dadd(-142.7, -124.7, -12.1, 0.2) pt3dadd(-143.8, -125.1, -12.5, 0.2) pt3dadd(-144.3, -125.9, -13, 0.2) pt3dadd(-145.1, -126.3, -13.4, 0.2) pt3dadd(-146, -127.2, -13.9, 0.2) pt3dadd(-146.4, -128.1, -14.3, 0.2) pt3dadd(-147.1, -129, -14.8, 0.2) pt3dadd(-148, -129.5, -15.3, 0.2) pt3dadd(-149.1, -130.5, -15.9, 0.2) pt3dadd(-149.9, -130.9, -16.3, 0.2) pt3dadd(-150.7, -131.7, -16.8, 0.2) pt3dadd(-151.6, -132.7, -17.4, 0.2) pt3dadd(-151.6, -133.6, -17.8, 0.2) pt3dadd(-152.4, -134.5, -18.3, 0.2) pt3dadd(-153.3, -135.4, -18.9, 0.2) pt3dadd(-154.4, -135.9, -19.4, 0.2) pt3dadd(-155.4, -136.3, -19.9, 0.2) pt3dadd(-156.4, -137.2, -20.5, 0.2) pt3dadd(-157.4, -137.6, -21, 0.2) pt3dadd(-158.3, -138, -21.5, 0.2) pt3dadd(-159.4, -139.1, -22.1, 0.2) pt3dadd(-160.1, -139.5, -22.5, 0.2) pt3dadd(-161.2, -140.4, -23.1, 0.2) pt3dadd(-162.2, -141.5, -23.8, 0.2) pt3dadd(-163.3, -141.9, -24.3, 0.2) pt3dadd(-164.2, -142.7, -24.9, 0.2) pt3dadd(-165, -143.7, -25.4, 0.2) pt3dadd(-165.4, -144.7, -25.9, 0.2) pt3dadd(-166.4, -145.5, -26.5, 0.2) pt3dadd(-167.3, -145.5, -26.9, 0.2) pt3dadd(-168.5, -145.5, -27.4, 0.2) pt3dadd(-169.4, -145.5, -27.8, 0.2) pt3dadd(-170.6, -145.1, -28.4, 0.2) pt3dadd(-171, -144.3, -28.8, 0.2) pt3dadd(-172.2, -144, -29.3, 0.2) pt3dadd(-173.5, -143.3, -30, 0.2) } dend[5] {pt3dclear() pt3dadd(-23.2, -20.6, 30, 0.7) pt3dadd(-24, -20.9, 30, 0.7) pt3dadd(-24.9, -20.9, 29.8, 0.7) pt3dadd(-25.7, -20.9, 29.6, 0.7) pt3dadd(-26.6, -21.3, 29.2, 0.7) pt3dadd(-27.7, -21.7, 28.7, 0.7) pt3dadd(-28.2, -22.5, 28.2, 0.7) pt3dadd(-29.1, -23.7, 27.3, 0.7) pt3dadd(-29.9, -24.5, 26.4, 0.7) pt3dadd(-30.8, -25.3, 25.5, 0.7) pt3dadd(-31.7, -25.8, 24.6, 0.7) pt3dadd(-32.7, -25.8, 23.7, 0.7) pt3dadd(-33.6, -26.2, 22.8, 0.7) pt3dadd(-34.5, -26.6, 21.8, 0.7) pt3dadd(-35.5, -27, 20.8, 0.7) pt3dadd(-35.9, -27.8, 20, 0.7) pt3dadd(-36.7, -28.2, 19.2, 0.7) pt3dadd(-37.3, -29.2, 18.1, 0.7) pt3dadd(-38.1, -29.6, 17.3, 0.7) pt3dadd(-39.6, -30.5, 15.8, 0.3) pt3dadd(-40.5, -31, 15, 0.3) pt3dadd(-41.3, -31.4, 14.2, 0.3) pt3dadd(-42.2, -31.8, 13.6, 0.3) pt3dadd(-42.6, -32.6, 13, 0.3) pt3dadd(-43.6, -33.1, 12.4, 0.3) pt3dadd(-44.3, -33.6, 12, 0.3) } dend[6] {pt3dclear() pt3dadd(-44.3, -33.6, 12, 0.3) pt3dadd(-44.2, -34.7, 11.5, 0.3) pt3dadd(-44.2, -35.6, 11.1, 0.3) pt3dadd(-44.6, -36.4, 10.7, 0.3) pt3dadd(-45, -37.2, 10.3, 0.3) pt3dadd(-45.4, -38.1, 9.8, 0.3) pt3dadd(-45.4, -38.9, 9.4, 0.3) pt3dadd(-45.8, -40, 8.9, 0.3) pt3dadd(-46, -41.3, 8.3, 0.3) pt3dadd(-46.4, -42.3, 7.8, 0.3) pt3dadd(-47.3, -42.7, 7.4, 0.3) pt3dadd(-47.9, -43.7, 6.9, 0.3) pt3dadd(-48.8, -44.7, 6.3, 0.3) pt3dadd(-49.3, -45.7, 5.8, 0.3) pt3dadd(-50.3, -46.5, 5.2, 0.3) pt3dadd(-51.1, -47.3, 4.7, 0.3) pt3dadd(-52, -48.1, 4.2, 0.3) pt3dadd(-52.4, -48.9, 3.8, 0.3) pt3dadd(-52.9, -49.8, 3.3, 0.3) pt3dadd(-53.5, -50.5, 2.9, 0.3) pt3dadd(-53.9, -51.3, 2.5, 0.3) pt3dadd(-53.9, -52.2, 2.1, 0.3) pt3dadd(-54.3, -53.2, 1.7, 0.3) pt3dadd(-54.3, -54.3, 1.2, 0.3) pt3dadd(-54.7, -55.3, 0.7, 0.3) pt3dadd(-54.7, -56.1, 0.4, 0.3) pt3dadd(-55.1, -57.1, -0.1, 0.3) pt3dadd(-55.6, -57.7, -0.4, 0.3) pt3dadd(-55.6, -58.7, -0.8, 0.3) pt3dadd(-56.5, -58.8, -1.2, 0.3) pt3dadd(-56.9, -59.7, -1.7, 0.3) pt3dadd(-57.7, -60.8, -2.2, 0.3) pt3dadd(-58.1, -61.6, -2.6, 0.3) pt3dadd(-58.1, -62.5, -3, 0.3) pt3dadd(-58.5, -63.6, -3.5, 0.3) pt3dadd(-58.5, -64.9, -4.1, 0.3) pt3dadd(-58.9, -66, -4.5, 0.3) pt3dadd(-59.3, -66.8, -4.9, 0.3) pt3dadd(-59.9, -67.6, -5.3, 0.3) pt3dadd(-60.4, -68.3, -5.7, 0.3) pt3dadd(-60.8, -69.2, -6.1, 0.3) pt3dadd(-60.8, -70.1, -6.5, 0.3) pt3dadd(-61.2, -71, -6.9, 0.3) pt3dadd(-61.6, -72.1, -7.3, 0.3) pt3dadd(-62.1, -73.3, -7.9, 0.3) pt3dadd(-62.5, -74.2, -8.3, 0.3) pt3dadd(-63.5, -74.6, -8.7, 0.3) pt3dadd(-64.3, -75.8, -9.3, 0.3) pt3dadd(-65.1, -76.6, -9.7, 0.3) pt3dadd(-66, -77.5, -10.2, 0.3) pt3dadd(-66.5, -78.4, -10.7, 0.3) pt3dadd(-67, -79.4, -11.1, 0.3) pt3dadd(-67.9, -79.9, -11.5, 0.3) pt3dadd(-68.7, -80.4, -11.9, 0.3) pt3dadd(-69.6, -80.8, -12.2, 0.3) pt3dadd(-70.4, -80.8, -12.5, 0.3) pt3dadd(-71.3, -81.2, -13, 0.3) pt3dadd(-72.2, -81.8, -13.4, 0.3) pt3dadd(-72.7, -82.8, -13.8, 0.3) pt3dadd(-73.1, -83.7, -14.2, 0.3) pt3dadd(-73.5, -84.6, -14.6, 0.3) pt3dadd(-73.5, -85.6, -14.9, 0.3) pt3dadd(-73.9, -87.2, -15.5, 0.3) pt3dadd(-73.9, -88, -15.9, 0.3) pt3dadd(-74.4, -89.3, -16.4, 0.3) pt3dadd(-74.8, -90, -16.7, 0.3) pt3dadd(-75.5, -90.8, -17.1, 0.3) pt3dadd(-76.1, -91.5, -17.4, 0.3) pt3dadd(-77.3, -92.3, -17.9, 0.3) pt3dadd(-77.8, -92.9, -18.2, 0.3) pt3dadd(-78.8, -93.7, -18.7, 0.3) pt3dadd(-79.2, -94.8, -19.1, 0.3) } } proc shape3d_24() { dend[6] { pt3dadd(-80, -95.3, -19.5, 0.3) pt3dadd(-80, -96.1, -19.8, 0.3) pt3dadd(-80.9, -97, -20.2, 0.3) pt3dadd(-81.7, -98.1, -20.7, 0.3) pt3dadd(-82.7, -99.2, -21.2, 0.3) pt3dadd(-83.2, -100.2, -21.6, 0.3) pt3dadd(-83.8, -101, -21.9, 0.3) pt3dadd(-84.8, -101.8, -22.4, 0.3) pt3dadd(-85.6, -102.7, -22.8, 0.3) pt3dadd(-86.4, -103.6, -23.2, 0.3) pt3dadd(-86.9, -104.5, -23.5, 0.3) pt3dadd(-87.8, -105.5, -24, 0.3) pt3dadd(-88.8, -106.5, -24.4, 0.3) pt3dadd(-89.6, -107.4, -24.8, 0.3) pt3dadd(-90.4, -107.9, -25.1, 0.3) pt3dadd(-91.2, -108.9, -25.6, 0.3) pt3dadd(-92.3, -109.4, -26, 0.3) pt3dadd(-93.2, -109.8, -26.3, 0.3) pt3dadd(-94.1, -110.6, -26.7, 0.3) pt3dadd(-95, -111.4, -27, 0.3) pt3dadd(-96, -112.3, -27.4, 0.3) pt3dadd(-96.5, -113.1, -27.8, 0.3) pt3dadd(-97.5, -113.9, -28.2, 0.3) pt3dadd(-98.3, -114.7, -28.5, 0.3) pt3dadd(-99.2, -115.6, -28.9, 0.3) pt3dadd(-100.3, -116.7, -29.3, 0.3) pt3dadd(-101.3, -117.7, -29.8, 0.3) pt3dadd(-102.4, -118.7, -30.2, 0.3) pt3dadd(-103.2, -119.6, -30.5, 0.3) pt3dadd(-104, -120, -30.8, 0.3) pt3dadd(-104.4, -121, -31.1, 0.3) pt3dadd(-105.3, -121.4, -31.4, 0.3) pt3dadd(-106.2, -122.3, -31.7, 0.3) pt3dadd(-107.1, -123.2, -32.1, 0.3) pt3dadd(-108, -124, -32.4, 0.3) pt3dadd(-109.1, -124.4, -32.7, 0.3) pt3dadd(-110.2, -124.9, -33.1, 0.3) pt3dadd(-111.1, -125.3, -33.3, 0.3) pt3dadd(-111.5, -126.2, -33.6, 0.3) pt3dadd(-112.5, -126.7, -33.9, 0.3) pt3dadd(-113.4, -127.5, -34.2, 0.3) pt3dadd(-113.8, -128.5, -34.5, 0.3) pt3dadd(-114.1, -129.5, -34.7, 0.3) pt3dadd(-114.5, -130.5, -35, 0.3) pt3dadd(-115.4, -131.5, -35.3, 0.3) pt3dadd(-116.4, -132.4, -35.7, 0.3) pt3dadd(-117.4, -132.8, -35.9, 0.3) pt3dadd(-117.9, -133.7, -36.1, 0.3) pt3dadd(-118.8, -134.1, -36.4, 0.3) pt3dadd(-119.7, -134.9, -36.7, 0.3) pt3dadd(-120.6, -135.3, -36.9, 0.3) pt3dadd(-121, -136.1, -37.1, 0.3) pt3dadd(-122, -137, -37.4, 0.3) pt3dadd(-122.9, -137.4, -37.6, 0.3) pt3dadd(-123.9, -138.3, -37.9, 0.3) pt3dadd(-124.5, -138.9, -38.1, 0.3) pt3dadd(-125.4, -139.3, -38.3, 0.3) pt3dadd(-126.3, -139.7, -38.5, 0.3) pt3dadd(-127.3, -140.5, -38.8, 0.3) pt3dadd(-128.1, -140.9, -39, 0.3) pt3dadd(-129.1, -140.9, -39.2, 0.3) pt3dadd(-129.9, -140.9, -39.3, 0.3) pt3dadd(-130.8, -141.7, -39.6, 0.3) pt3dadd(-131.8, -142.1, -39.8, 0.3) pt3dadd(-132.2, -142.9, -39.9, 0.3) pt3dadd(-133, -143.8, -40.2, 0.3) pt3dadd(-133.4, -144.7, -40.4, 0.3) pt3dadd(-133.4, -145.5, -40.5, 0.3) pt3dadd(-133.4, -146.4, -40.7, 0.3) pt3dadd(-133.8, -147.4, -40.9, 0.3) pt3dadd(-134.3, -148.4, -41, 0.3) pt3dadd(-134.7, -149.2, -41.2, 0.3) pt3dadd(-135.1, -150.2, -41.4, 0.3) pt3dadd(-135.6, -151, -41.5, 0.3) pt3dadd(-136, -152, -41.7, 0.3) pt3dadd(-136.3, -152.9, -41.9, 0.3) pt3dadd(-136.3, -153.8, -42, 0.3) } dend[7] {pt3dclear() pt3dadd(-44.3, -33.6, 12, 0.3) pt3dadd(-45.2, -33.5, 11.8, 0.3) pt3dadd(-45.9, -34, 11.8, 0.3) pt3dadd(-46.9, -34, 11.9, 0.3) pt3dadd(-47.8, -34, 12.2, 0.3) pt3dadd(-48.7, -34.4, 12.4, 0.3) pt3dadd(-49.5, -35.3, 12.4, 0.3) pt3dadd(-50.2, -36, 12, 0.3) } dend[8] {pt3dclear() pt3dadd(-50.2, -36, 12, 0.3) pt3dadd(-50.7, -36.9, 11.4, 0.3) pt3dadd(-50.7, -37.9, 10.8, 0.3) pt3dadd(-51.1, -38.9, 10.1, 0.3) pt3dadd(-51.5, -39.8, 9.4, 0.3) pt3dadd(-51.5, -40.6, 8.8, 0.3) pt3dadd(-51.5, -41.4, 8.2, 0.3) pt3dadd(-51.9, -42.5, 7.3, 0.3) pt3dadd(-52.2, -43.3, 6.6, 0.3) pt3dadd(-52.2, -44.3, 5.7, 0.3) pt3dadd(-52.6, -45.3, 4.7, 0.3) pt3dadd(-53.1, -46.5, 3.6, 0.3) pt3dadd(-53.1, -47.3, 2.7, 0.3) pt3dadd(-53.1, -48.3, 1.8, 0.3) pt3dadd(-52.8, -49.3, 0.7, 0.3) pt3dadd(-52.8, -50.3, -0.4, 0.3) pt3dadd(-53.2, -51.1, -1.3, 0.3) pt3dadd(-52.9, -52.1, -2.5, 0.3) pt3dadd(-52.5, -53.3, -3.8, 0.3) pt3dadd(-52.5, -54.1, -4.8, 0.3) pt3dadd(-52.5, -54.9, -5.7, 0.3) pt3dadd(-52.5, -55.7, -6.7, 0.3) pt3dadd(-51.8, -56.9, -8.3, 0.3) pt3dadd(-51.4, -57.9, -9.6, 0.3) pt3dadd(-51.1, -59.1, -11.1, 0.3) pt3dadd(-51.5, -59.8, -12.2, 0.3) pt3dadd(-51.9, -60.7, -13.4, 0.3) pt3dadd(-51.6, -61.7, -14.7, 0.3) pt3dadd(-51.3, -62.7, -16, 0.3) pt3dadd(-51.3, -63.7, -17.4, 0.3) pt3dadd(-52.1, -63.9, -18.5, 0.3) pt3dadd(-51.8, -64.9, -19.9, 0.3) pt3dadd(-51.8, -65.9, -21.2, 0.3) pt3dadd(-51.2, -66.8, -22.6, 0.3) pt3dadd(-50.5, -67.2, -23.7, 0.3) pt3dadd(-49.9, -68, -25, 0.3) pt3dadd(-49.6, -69.2, -26.5, 0.3) pt3dadd(-49.2, -70.4, -28.2, 0.3) pt3dadd(-49.2, -71.2, -29.3, 0.3) pt3dadd(-49.2, -72.1, -30.5, 0.3) pt3dadd(-48.9, -73.1, -31.8, 0.3) pt3dadd(-48.5, -74.1, -33.2, 0.3) pt3dadd(-48.5, -74.9, -34.2, 0.3) pt3dadd(-48.5, -75.9, -35.4, 0.3) pt3dadd(-48.5, -76.8, -36.6, 0.3) pt3dadd(-48.9, -77.7, -37.9, 0.3) pt3dadd(-49.8, -78.7, -39.5, 0.3) pt3dadd(-50.8, -79.6, -41, 0.3) pt3dadd(-51.9, -80, -42.5, 0.3) pt3dadd(-52.9, -80.5, -43.8, 0.3) pt3dadd(-54.1, -80.9, -45.3, 0.3) pt3dadd(-54.5, -81.9, -46.5, 0.3) pt3dadd(-55.5, -82.3, -47.7, 0.3) pt3dadd(-56.4, -82.7, -48.7, 0.3) pt3dadd(-57.3, -83.1, -49.7, 0.3) pt3dadd(-58.1, -83.1, -50.6, 0.3) pt3dadd(-59.6, -84, -52.3, 0.3) pt3dadd(-60.5, -84.4, -53.3, 0.3) pt3dadd(-61.3, -84.8, -54.1, 0.3) pt3dadd(-62.2, -86, -55.5, 0.3) pt3dadd(-62.6, -86.8, -56.3, 0.3) pt3dadd(-63.5, -88.1, -57.6, 0.3) pt3dadd(-64.4, -89.2, -58.7, 0.3) pt3dadd(-64.8, -90.1, -59.4, 0.3) pt3dadd(-65.3, -90.8, -60, 0.3) pt3dadd(-65.8, -92.1, -60.9, 0.3) pt3dadd(-66.4, -93.2, -61.7, 0.3) pt3dadd(-66.8, -94, -62.3, 0.3) pt3dadd(-67.7, -95.5, -63.4, 0.3) pt3dadd(-68.8, -97, -64.5, 0.3) pt3dadd(-69.6, -98.1, -65.4, 0.3) pt3dadd(-70.6, -99.1, -66.2, 0.3) pt3dadd(-71.1, -99.8, -66.7, 0.3) pt3dadd(-71.7, -100.8, -67.4, 0.3) pt3dadd(-72.8, -102, -68.3, 0.3) pt3dadd(-73.6, -102.4, -68.9, 0.3) pt3dadd(-74.5, -103.5, -69.6, 0.3) pt3dadd(-75.8, -104.7, -70.6, 0.3) pt3dadd(-77.4, -106.3, -71.8, 0.3) pt3dadd(-77.8, -107.1, -72.3, 0.3) pt3dadd(-78.6, -107.8, -72.8, 0.3) pt3dadd(-79.5, -109.5, -73.7, 0.3) pt3dadd(-80, -110.5, -74.3, 0.3) pt3dadd(-80.5, -111.8, -74.9, 0.3) pt3dadd(-80.5, -113.1, -75.5, 0.3) pt3dadd(-81.2, -114.3, -76.1, 0.3) pt3dadd(-81.6, -115.1, -76.5, 0.3) pt3dadd(-82, -116.3, -77, 0.3) pt3dadd(-83, -117.1, -77.5, 0.3) pt3dadd(-83.6, -118.2, -78, 0.3) pt3dadd(-84.6, -119.7, -78.7, 0.3) pt3dadd(-85.1, -121.1, -79.2, 0.3) pt3dadd(-85.5, -122.1, -79.6, 0.3) pt3dadd(-85.9, -123, -79.9, 0.3) pt3dadd(-86.4, -123.9, -80.2, 0.3) pt3dadd(-87.5, -124.9, -80.7, 0.3) pt3dadd(-88.7, -125.9, -81.1, 0.3) pt3dadd(-89.6, -126.4, -81.5, 0.3) pt3dadd(-90.5, -127, -81.7, 0.3) pt3dadd(-91.5, -127.9, -82, 0.3) pt3dadd(-92.5, -129, -82.4, 0.3) pt3dadd(-93, -129.8, -82.6, 0.3) pt3dadd(-94.3, -130.6, -82.9, 0.3) pt3dadd(-95.2, -131.1, -83.1, 0.3) pt3dadd(-96.2, -131.5, -83.3, 0.3) pt3dadd(-96.9, -132, -83.4, 0.3) pt3dadd(-98, -132.8, -83.6, 0.3) pt3dadd(-98.9, -133.7, -83.7, 0.3) pt3dadd(-99.8, -134.8, -83.9, 0.3) pt3dadd(-100.3, -136.2, -84, 0.3) } dend[9] {pt3dclear() pt3dadd(-50.2, -36, 12, 0.3) pt3dadd(-51.3, -35.8, 11.3, 0.3) pt3dadd(-52.2, -35.8, 10.6, 0.3) pt3dadd(-53.1, -35.8, 9.9, 0.3) pt3dadd(-53.9, -36.2, 9.1, 0.3) } } proc shape3d_25() { dend[9] { pt3dadd(-54.8, -36.6, 8.2, 0.3) pt3dadd(-55.8, -36.6, 7.1, 0.3) pt3dadd(-56.9, -36.6, 5.9, 0.3) pt3dadd(-57.7, -37, 4.9, 0.3) pt3dadd(-59.3, -37.7, 2.8, 0.3) pt3dadd(-60.8, -37.8, 1, 0.3) pt3dadd(-61.7, -38.2, -0.4, 0.3) pt3dadd(-62.7, -38.6, -1.8, 0.3) pt3dadd(-63.2, -39.5, -3.1, 0.3) pt3dadd(-64, -39.9, -4.4, 0.3) pt3dadd(-65.1, -40.8, -6.2, 0.3) pt3dadd(-66, -41.3, -7.5, 0.3) pt3dadd(-67.2, -41.7, -9.1, 0.3) pt3dadd(-68.2, -42.1, -10.4, 0.3) pt3dadd(-69.1, -42.9, -11.9, 0.3) pt3dadd(-70, -43.3, -13, 0.3) pt3dadd(-70.8, -44.1, -14.3, 0.3) pt3dadd(-71.7, -44.1, -15.2, 0.3) pt3dadd(-72.6, -44.1, -16, 0.3) pt3dadd(-73.8, -43.8, -17.1, 0.3) pt3dadd(-75, -44, -18, 0.3) } dend[10] {pt3dclear() pt3dadd(-75, -44, -18, 0.3) pt3dadd(-75.7, -44.5, -18.7, 0.3) pt3dadd(-76.7, -44.9, -19.5, 0.3) pt3dadd(-77.5, -44.9, -20.1, 0.3) pt3dadd(-78.3, -44.9, -20.8, 0.3) pt3dadd(-79.1, -44.9, -21.3, 0.3) pt3dadd(-80, -44.9, -22, 0.3) pt3dadd(-80.8, -45.4, -22.7, 0.3) pt3dadd(-81.7, -45.5, -23.3, 0.3) pt3dadd(-82.6, -45.5, -24, 0.3) pt3dadd(-83.7, -46.4, -24.9, 0.3) pt3dadd(-84.5, -46.8, -25.5, 0.3) pt3dadd(-85.3, -47.2, -26.1, 0.3) pt3dadd(-86.2, -47.2, -26.7, 0.3) pt3dadd(-87, -47.6, -27.3, 0.3) pt3dadd(-88.1, -48, -28.1, 0.3) pt3dadd(-89.2, -48, -28.7, 0.3) pt3dadd(-90.2, -48.4, -29.4, 0.3) pt3dadd(-91.3, -48.9, -30.2, 0.3) pt3dadd(-92.5, -49.3, -30.9, 0.3) pt3dadd(-93.4, -49.7, -31.5, 0.3) pt3dadd(-94.4, -49.7, -32.1, 0.3) pt3dadd(-95.3, -49.7, -32.7, 0.3) pt3dadd(-96.3, -49.7, -33.2, 0.3) pt3dadd(-97.3, -50.1, -33.9, 0.3) pt3dadd(-98.3, -50.5, -34.5, 0.3) pt3dadd(-99.2, -50.5, -35, 0.3) pt3dadd(-100.2, -50.9, -35.6, 0.3) pt3dadd(-101.3, -50.9, -36.3, 0.3) pt3dadd(-102.4, -50.9, -36.9, 0.3) pt3dadd(-103.5, -50.9, -37.5, 0.3) pt3dadd(-104.7, -50.9, -38.2, 0.3) pt3dadd(-105.6, -51.4, -38.9, 0.3) pt3dadd(-106.7, -51.8, -39.5, 0.3) pt3dadd(-107.9, -51.8, -40.2, 0.3) pt3dadd(-108.7, -52.2, -40.8, 0.3) pt3dadd(-109.6, -52.2, -41.3, 0.3) pt3dadd(-110.7, -52.2, -41.9, 0.3) pt3dadd(-111.7, -52.2, -42.6, 0.3) pt3dadd(-112.6, -52.2, -43.1, 0.3) pt3dadd(-113.8, -52.2, -43.8, 0.3) pt3dadd(-115.1, -52.6, -44.7, 0.3) pt3dadd(-116, -53, -45.3, 0.3) pt3dadd(-116.9, -53, -45.9, 0.3) pt3dadd(-117.9, -52.7, -46.5, 0.3) pt3dadd(-118.7, -52.7, -47.1, 0.3) pt3dadd(-119.7, -52.4, -47.8, 0.3) pt3dadd(-120.5, -52.4, -48.3, 0.3) pt3dadd(-121.5, -52.4, -49, 0.3) pt3dadd(-122.4, -52.1, -49.7, 0.3) pt3dadd(-123.5, -52.1, -50.4, 0.3) pt3dadd(-124.4, -51.7, -51.2, 0.3) pt3dadd(-125.5, -51.7, -51.9, 0.3) pt3dadd(-126.4, -51.7, -52.6, 0.3) pt3dadd(-127.4, -51.7, -53.4, 0.3) pt3dadd(-128.3, -51.7, -54.1, 0.3) pt3dadd(-129.5, -52.1, -55, 0.3) pt3dadd(-130.3, -52.5, -55.8, 0.3) pt3dadd(-131.3, -52.5, -56.6, 0.3) pt3dadd(-132.4, -52.5, -57.6, 0.3) pt3dadd(-133.4, -52.9, -58.4, 0.3) pt3dadd(-134.2, -52.9, -59.1, 0.3) pt3dadd(-135.1, -53.3, -60, 0.3) pt3dadd(-136.1, -53.3, -60.9, 0.3) pt3dadd(-137.1, -53, -61.9, 0.3) pt3dadd(-137.9, -53, -62.6, 0.3) pt3dadd(-138.9, -53, -63.6, 0.3) pt3dadd(-139.7, -53, -64.4, 0.3) pt3dadd(-140.8, -53, -65.5, 0.3) pt3dadd(-141.8, -53, -66.4, 0.3) pt3dadd(-142.6, -53, -67.2, 0.3) pt3dadd(-143.4, -53.4, -68.2, 0.3) pt3dadd(-144.2, -53.4, -69, 0.3) pt3dadd(-145.1, -53.8, -70, 0.3) pt3dadd(-145.9, -53.5, -71, 0.3) pt3dadd(-146.8, -53.2, -72, 0.3) pt3dadd(-147.7, -52.9, -73, 0.3) pt3dadd(-148.5, -52.9, -73.9, 0.3) pt3dadd(-149.4, -52.5, -74.9, 0.3) pt3dadd(-150.2, -52.2, -76, 0.3) pt3dadd(-151.1, -52.2, -77, 0.3) pt3dadd(-152.2, -51.7, -78.4, 0.2) pt3dadd(-153.2, -52.2, -79.7, 0.2) pt3dadd(-154.1, -52.2, -80.8, 0.2) pt3dadd(-155.3, -52.1, -82.2, 0.2) pt3dadd(-156.2, -52.5, -83.5, 0.2) pt3dadd(-157, -52.9, -84.6, 0.2) pt3dadd(-157.4, -53.9, -86, 0.2) pt3dadd(-158.3, -54.7, -87.5, 0.2) pt3dadd(-159.3, -54.7, -88.7, 0.2) pt3dadd(-160.2, -54.7, -89.9, 0.2) pt3dadd(-161.1, -54.7, -91.1, 0.2) pt3dadd(-162, -55.1, -92.4, 0.2) pt3dadd(-162.8, -55.5, -93.5, 0.2) pt3dadd(-163.7, -55.9, -94.8, 0.2) pt3dadd(-164.6, -56.3, -96.1, 0.2) pt3dadd(-165.4, -56.3, -97.2, 0.2) pt3dadd(-166.2, -56.7, -98.6, 0.2) pt3dadd(-167.1, -57.1, -99.9, 0.2) pt3dadd(-168.4, -57.9, -102, 0.2) } dend[11] {pt3dclear() pt3dadd(-75, -44, -18, 0.3) pt3dadd(-75.8, -43.7, -18.5, 0.3) pt3dadd(-76.7, -43.3, -19.1, 0.3) pt3dadd(-77.7, -43, -19.7, 0.3) pt3dadd(-78.7, -43, -20.3, 0.3) pt3dadd(-79.6, -43, -20.8, 0.3) pt3dadd(-80.4, -43.4, -21.3, 0.3) pt3dadd(-81.2, -43.4, -21.8, 0.3) pt3dadd(-82, -43.8, -22.3, 0.3) pt3dadd(-82.8, -43.8, -22.7, 0.3) pt3dadd(-84, -43.8, -23.4, 0.3) pt3dadd(-84.8, -43.8, -23.8, 0.3) pt3dadd(-85.7, -43.8, -24.3, 0.3) pt3dadd(-86.5, -43.8, -24.7, 0.3) pt3dadd(-87.5, -43.8, -25.2, 0.3) pt3dadd(-88.4, -43.8, -25.7, 0.3) pt3dadd(-89.6, -44.2, -26.4, 0.3) pt3dadd(-91, -44.7, -27.1, 0.3) pt3dadd(-92.4, -44.7, -27.8, 0.3) pt3dadd(-94, -45.1, -28.6, 0.3) pt3dadd(-94.9, -45.5, -29.1, 0.3) pt3dadd(-95.9, -45.5, -29.6, 0.3) pt3dadd(-96.8, -45.9, -30, 0.3) pt3dadd(-97.8, -45.9, -30.5, 0.3) pt3dadd(-98.6, -46.3, -30.9, 0.3) pt3dadd(-99.6, -46.7, -31.4, 0.3) pt3dadd(-100.4, -47.1, -31.7, 0.3) pt3dadd(-101.3, -47.5, -32.2, 0.3) pt3dadd(-102.3, -47.9, -32.6, 0.3) pt3dadd(-103.2, -47.9, -33, 0.3) pt3dadd(-104.3, -48.3, -33.5, 0.3) pt3dadd(-105.2, -48.3, -33.9, 0.3) pt3dadd(-106.2, -48.7, -34.3, 0.3) pt3dadd(-107.1, -48.7, -34.7, 0.3) pt3dadd(-108, -48.3, -35.1, 0.3) pt3dadd(-109.2, -48, -35.5, 0.3) pt3dadd(-110.1, -47.7, -35.9, 0.3) pt3dadd(-111, -47.7, -36.2, 0.3) pt3dadd(-111.9, -47.7, -36.5, 0.3) pt3dadd(-112.8, -47.7, -36.9, 0.3) pt3dadd(-113.8, -47.7, -37.2, 0.3) pt3dadd(-114.7, -47.7, -37.5, 0.3) pt3dadd(-115.7, -48.1, -37.9, 0.3) pt3dadd(-116.7, -48.5, -38.3, 0.3) pt3dadd(-117.7, -48.5, -38.6, 0.3) pt3dadd(-118.7, -48.9, -38.9, 0.3) pt3dadd(-119.9, -48.9, -39.3, 0.3) pt3dadd(-120.7, -49.3, -39.5, 0.3) pt3dadd(-121.8, -49.3, -39.9, 0.3) pt3dadd(-122.9, -49.7, -40.2, 0.3) pt3dadd(-124.7, -49.7, -40.7, 0.3) pt3dadd(-125.9, -49.7, -41, 0.3) pt3dadd(-126.8, -49.7, -41.2, 0.3) pt3dadd(-127.9, -49.7, -41.5, 0.3) pt3dadd(-128.9, -50.1, -41.8, 0.3) pt3dadd(-129.9, -50.1, -42, 0.3) pt3dadd(-130.7, -50.5, -42.2, 0.3) pt3dadd(-131.7, -50.5, -42.4, 0.3) pt3dadd(-132.6, -50.9, -42.6, 0.3) pt3dadd(-133.5, -51.3, -42.8, 0.3) pt3dadd(-134.4, -51.7, -43, 0.3) pt3dadd(-135.3, -52.1, -43.2, 0.3) pt3dadd(-136.2, -52.9, -43.4, 0.3) pt3dadd(-137.1, -53.3, -43.6, 0.3) pt3dadd(-137.9, -53.7, -43.8, 0.3) pt3dadd(-138.8, -54.1, -43.9, 0.3) pt3dadd(-139.7, -54.5, -44.1, 0.3) pt3dadd(-140.7, -55.3, -44.3, 0.3) pt3dadd(-141.7, -55.3, -44.4, 0.3) pt3dadd(-142.7, -56.4, -44.6, 0.3) pt3dadd(-143.6, -56.9, -44.7, 0.3) pt3dadd(-144.5, -57.4, -44.8, 0.3) pt3dadd(-145.4, -57.8, -44.9, 0.3) pt3dadd(-146.3, -58.7, -45.1, 0.3) pt3dadd(-147.4, -59.5, -45.2, 0.3) pt3dadd(-148.2, -60, -45.3, 0.3) pt3dadd(-149.2, -60.9, -45.4, 0.2) pt3dadd(-150.3, -60.9, -45.4, 0.2) pt3dadd(-151.2, -61.4, -45.5, 0.2) } } proc shape3d_26() { dend[11] { pt3dadd(-152.3, -61.9, -45.5, 0.2) pt3dadd(-153.3, -62.3, -45.6, 0.2) pt3dadd(-154.3, -62.7, -45.6, 0.2) pt3dadd(-155.4, -63.1, -45.6, 0.2) pt3dadd(-156.4, -63.5, -45.6, 0.2) pt3dadd(-157.4, -64.4, -45.6, 0.2) pt3dadd(-158.3, -65.4, -45.6, 0.2) pt3dadd(-158.9, -66.4, -45.6, 0.2) pt3dadd(-159.4, -67.2, -45.6, 0.2) pt3dadd(-160.4, -68.1, -45.5, 0.2) pt3dadd(-161.4, -69.7, -45.4, 0.2) pt3dadd(-162.3, -71, -45.3, 0.2) pt3dadd(-162.7, -72, -45.2, 0.2) pt3dadd(-163.2, -72.9, -45.2, 0.2) pt3dadd(-163.7, -74, -45, 0.2) pt3dadd(-164.7, -74.9, -44.9, 0.2) pt3dadd(-165.3, -75.6, -44.8, 0.2) pt3dadd(-165.8, -76.7, -44.7, 0.2) pt3dadd(-166.2, -77.6, -44.5, 0.2) pt3dadd(-167, -78.8, -44.3, 0.2) pt3dadd(-167.5, -79.9, -44.2, 0.2) pt3dadd(-168, -80.8, -44, 0.2) pt3dadd(-168.4, -81.7, -43.8, 0.2) pt3dadd(-169.4, -82.4, -43.6, 0.2) pt3dadd(-169.8, -83.2, -43.4, 0.2) pt3dadd(-170.6, -83.6, -43.3, 0.2) pt3dadd(-171.4, -84.5, -43, 0.2) pt3dadd(-171.9, -85.2, -42.9, 0.2) pt3dadd(-172.9, -86.7, -42.5, 0.2) pt3dadd(-173.4, -87.6, -42.2, 0.2) pt3dadd(-173.8, -88.5, -42, 0.2) } dend[12] {pt3dclear() pt3dadd(-20.6, -13.5, 30, 0.7) pt3dadd(-21.5, -14, 29.7, 0.7) pt3dadd(-22.3, -14.8, 29.3, 0.7) pt3dadd(-23.1, -15.2, 28.9, 0.7) pt3dadd(-24, -15.6, 28.4, 0.7) pt3dadd(-24.9, -15.6, 27.9, 0.7) pt3dadd(-25.8, -15.4, 27.3, 0.7) pt3dadd(-26.7, -15.4, 26.8, 0.7) pt3dadd(-27.6, -15.2, 26.2, 0.7) pt3dadd(-28.5, -15.2, 25.7, 0.7) pt3dadd(-29.5, -15.2, 25.1, 0.7) pt3dadd(-30.3, -15.2, 24.6, 0.7) pt3dadd(-31.6, -15.5, 24, 0.7) } dend[13] {pt3dclear() pt3dadd(-31.6, -15.5, 24, 0.7) pt3dadd(-32.5, -16.5, 24.2, 0.3) pt3dadd(-33.3, -16.5, 24.8, 0.3) pt3dadd(-34.1, -17.3, 26, 0.3) pt3dadd(-35, -17.7, 27.2, 0.3) pt3dadd(-35.8, -17.7, 28.1, 0.3) pt3dadd(-36.6, -17.7, 29, 0.3) pt3dadd(-37.5, -17.7, 29.7, 0.3) pt3dadd(-38.9, -18.6, 30, 0.3) } dend[14] {pt3dclear() pt3dadd(-38.9, -18.6, 30, 0.3) pt3dadd(-39.7, -19, 29.7, 0.3) pt3dadd(-40.2, -19.8, 29.3, 0.3) pt3dadd(-41.1, -20.6, 28.7, 0.3) pt3dadd(-42.1, -21.6, 27.9, 0.3) pt3dadd(-42.9, -22.1, 27.3, 0.3) pt3dadd(-43.7, -22.5, 26.7, 0.3) pt3dadd(-44.5, -22.9, 26, 0.3) pt3dadd(-45.7, -23.3, 25.1, 0.3) pt3dadd(-46.5, -23.3, 24.4, 0.3) pt3dadd(-47.6, -23.7, 23.5, 0.3) pt3dadd(-48.5, -24.1, 22.7, 0.3) pt3dadd(-49.5, -25.2, 21.4, 0.3) pt3dadd(-50.4, -26, 20.4, 0.3) pt3dadd(-50.8, -26.8, 19.6, 0.3) pt3dadd(-51.7, -27.6, 18.6, 0.3) pt3dadd(-52.8, -27.6, 17.7, 0.3) pt3dadd(-54.1, -28, 16.7, 0.3) pt3dadd(-54.9, -28.5, 15.9, 0.3) pt3dadd(-55.9, -28.9, 15.2, 0.3) pt3dadd(-56.8, -28.9, 14.6, 0.3) pt3dadd(-57.8, -29.3, 13.9, 0.3) pt3dadd(-58.9, -29.7, 13.2, 0.3) pt3dadd(-59.8, -29.7, 12.8, 0.3) pt3dadd(-61.4, -30.6, 12, 0.3) } dend[15] {pt3dclear() pt3dadd(-61.4, -30.6, 12, 0.3) pt3dadd(-61.8, -31.8, 11.4, 0.3) pt3dadd(-62.6, -32.3, 11, 0.3) pt3dadd(-63.5, -32.7, 10.5, 0.3) pt3dadd(-64.3, -33.2, 10.1, 0.3) pt3dadd(-65.1, -33.6, 9.7, 0.3) pt3dadd(-65.6, -34.4, 9.2, 0.3) pt3dadd(-66.4, -34.8, 8.8, 0.3) pt3dadd(-67.4, -35.2, 8.3, 0.3) pt3dadd(-68.3, -35.6, 7.8, 0.3) pt3dadd(-69.2, -36, 7.4, 0.3) pt3dadd(-70.1, -36.5, 6.9, 0.3) pt3dadd(-70.7, -37.4, 6.4, 0.3) pt3dadd(-71.5, -38.3, 5.8, 0.3) pt3dadd(-72, -39.1, 5.4, 0.3) pt3dadd(-72.4, -40, 4.9, 0.3) pt3dadd(-73.3, -40.5, 4.4, 0.3) pt3dadd(-74, -41.2, 3.9, 0.3) pt3dadd(-74.5, -42, 3.5, 0.3) pt3dadd(-75.3, -42.9, 2.9, 0.3) pt3dadd(-76.2, -43.3, 2.5, 0.3) pt3dadd(-77.7, -43.8, 1.7, 0.3) pt3dadd(-78.2, -44.7, 1.2, 0.3) pt3dadd(-79.1, -45.2, 0.8, 0.3) pt3dadd(-79.5, -46.1, 0.3, 0.3) pt3dadd(-80.3, -46.6, -0.2, 0.3) pt3dadd(-80.7, -47.5, -0.6, 0.3) pt3dadd(-81.5, -48.5, -1.3, 0.3) pt3dadd(-81.9, -49.3, -1.7, 0.3) pt3dadd(-82.8, -49.7, -2.1, 0.3) pt3dadd(-82.8, -50.5, -2.5, 0.3) pt3dadd(-83.6, -51, -2.9, 0.3) pt3dadd(-84.4, -51.8, -3.5, 0.3) pt3dadd(-85.3, -52.3, -4, 0.3) pt3dadd(-86.2, -52.8, -4.5, 0.3) pt3dadd(-87, -53.2, -4.9, 0.3) pt3dadd(-88.2, -54, -5.6, 0.3) pt3dadd(-89.1, -54, -6, 0.3) pt3dadd(-90, -54.4, -6.4, 0.3) pt3dadd(-91.1, -54.4, -7, 0.3) pt3dadd(-92, -54.8, -7.4, 0.3) pt3dadd(-93, -55.2, -7.9, 0.3) pt3dadd(-94, -55.6, -8.5, 0.3) pt3dadd(-95, -56, -8.9, 0.3) pt3dadd(-95.9, -57.1, -9.6, 0.3) pt3dadd(-96.7, -57.9, -10.1, 0.3) pt3dadd(-97.2, -58.7, -10.6, 0.3) pt3dadd(-98.2, -59.1, -11.1, 0.3) pt3dadd(-99.2, -60, -11.7, 0.3) pt3dadd(-99.6, -60.8, -12.1, 0.3) pt3dadd(-100, -61.7, -12.6, 0.3) pt3dadd(-101, -62.1, -13.1, 0.3) pt3dadd(-101.8, -63.1, -13.7, 0.3) pt3dadd(-102.8, -63.9, -14.3, 0.3) pt3dadd(-103.2, -64.8, -14.7, 0.3) pt3dadd(-104, -65.6, -15.2, 0.3) pt3dadd(-104.9, -66, -15.7, 0.3) pt3dadd(-105.9, -66.5, -16.2, 0.3) pt3dadd(-106.9, -66.9, -16.7, 0.3) pt3dadd(-107.8, -66.9, -17.1, 0.3) pt3dadd(-108.7, -67.3, -17.5, 0.3) pt3dadd(-109.6, -67.7, -18, 0.3) pt3dadd(-110.7, -68.1, -18.5, 0.3) pt3dadd(-111.7, -68.6, -19, 0.3) pt3dadd(-112.7, -69.4, -19.6, 0.3) pt3dadd(-113.6, -69.9, -20.1, 0.3) pt3dadd(-114.5, -70.7, -20.6, 0.3) pt3dadd(-115.5, -71.2, -21.1, 0.3) pt3dadd(-116.4, -71.6, -21.6, 0.3) pt3dadd(-117.2, -72, -22, 0.3) pt3dadd(-117.8, -73, -22.5, 0.3) pt3dadd(-118.6, -73.5, -22.9, 0.3) pt3dadd(-119.1, -74.3, -23.3, 0.3) pt3dadd(-120, -74.3, -23.7, 0.3) pt3dadd(-120.7, -74.8, -24.1, 0.3) pt3dadd(-121.6, -75.2, -24.5, 0.3) pt3dadd(-122.7, -75.6, -25, 0.3) pt3dadd(-123.7, -76, -25.5, 0.3) pt3dadd(-124.9, -76.4, -26, 0.3) pt3dadd(-126, -76.8, -26.6, 0.3) pt3dadd(-126.9, -77.3, -27, 0.3) pt3dadd(-127.4, -78.2, -27.4, 0.3) pt3dadd(-128.3, -78.6, -27.8, 0.3) pt3dadd(-129.2, -79, -28.3, 0.3) pt3dadd(-130.2, -79.4, -28.7, 0.3) pt3dadd(-131.1, -79.9, -29.2, 0.3) pt3dadd(-132, -80.8, -29.7, 0.3) pt3dadd(-132.8, -81.6, -30.2, 0.3) pt3dadd(-133.6, -82.1, -30.6, 0.3) pt3dadd(-134.1, -83, -31, 0.3) pt3dadd(-134.6, -83.9, -31.4, 0.3) pt3dadd(-135.5, -84.8, -31.9, 0.3) pt3dadd(-135.9, -85.6, -32.3, 0.3) pt3dadd(-137, -86, -32.8, 0.3) pt3dadd(-137.9, -87.2, -33.4, 0.3) pt3dadd(-138.7, -88, -33.8, 0.3) pt3dadd(-139.2, -89.1, -34.3, 0.3) pt3dadd(-140.2, -90, -34.9, 0.3) pt3dadd(-141.2, -90.4, -35.3, 0.3) pt3dadd(-142.2, -90.8, -35.7, 0.3) pt3dadd(-143.1, -91.2, -36.1, 0.3) pt3dadd(-144.1, -91.6, -36.5, 0.3) pt3dadd(-145.1, -92.6, -37.1, 0.3) pt3dadd(-146.2, -93.5, -37.6, 0.3) pt3dadd(-147.1, -94, -38, 0.3) pt3dadd(-148, -94.8, -38.4, 0.3) pt3dadd(-148.9, -95.2, -38.8, 0.3) pt3dadd(-150.2, -96, -39.4, 0.2) pt3dadd(-151.2, -96.7, -39.8, 0.2) pt3dadd(-152.1, -97.2, -40.2, 0.2) pt3dadd(-153, -98, -40.6, 0.2) pt3dadd(-153.9, -98.8, -41.1, 0.2) pt3dadd(-154.4, -99.7, -41.4, 0.2) pt3dadd(-155.2, -100.2, -41.8, 0.2) pt3dadd(-156.3, -100.6, -42.2, 0.2) pt3dadd(-157.4, -101.1, -42.6, 0.2) pt3dadd(-158.4, -101.5, -43, 0.2) pt3dadd(-159.7, -101.9, -43.4, 0.2) pt3dadd(-160.6, -102.8, -43.9, 0.2) pt3dadd(-161.4, -103.9, -44.3, 0.2) pt3dadd(-161.8, -104.8, -44.7, 0.2) pt3dadd(-162.2, -105.9, -45, 0.2) } } proc shape3d_27() { dend[15] { pt3dadd(-162.6, -106.7, -45.3, 0.2) pt3dadd(-163, -107.9, -45.7, 0.2) pt3dadd(-163.5, -108.7, -46.1, 0.2) pt3dadd(-163.5, -109.6, -46.3, 0.2) pt3dadd(-163.5, -110.7, -46.7, 0.2) pt3dadd(-164, -111.9, -47.1, 0.2) pt3dadd(-164, -112.7, -47.3, 0.2) pt3dadd(-164.8, -113.6, -47.7, 0.2) pt3dadd(-165.5, -114.3, -48, 0.2) } dend[16] {pt3dclear() pt3dadd(-61.4, -30.6, 12, 0.3) pt3dadd(-62.7, -30.5, 11.7, 0.3) pt3dadd(-63.6, -30.5, 11.6, 0.3) pt3dadd(-64.6, -30.5, 11.4, 0.3) pt3dadd(-65.6, -30.9, 11.2, 0.3) pt3dadd(-67.2, -31.8, 10.8, 0.3) pt3dadd(-67.9, -32.4, 10.7, 0.3) pt3dadd(-68.4, -33.3, 10.5, 0.3) pt3dadd(-69.7, -33.9, 10.2, 0.3) pt3dadd(-70.5, -34.3, 10.1, 0.3) pt3dadd(-71.5, -35.2, 9.8, 0.3) pt3dadd(-72.4, -35.6, 9.7, 0.3) pt3dadd(-73.7, -36, 9.4, 0.3) pt3dadd(-75.3, -36.9, 9.2, 0.3) pt3dadd(-76.3, -36.9, 9, 0.3) pt3dadd(-77.2, -37.3, 8.9, 0.3) pt3dadd(-78.2, -37.3, 8.7, 0.3) pt3dadd(-79.2, -37.7, 8.5, 0.3) pt3dadd(-80, -37.7, 8.4, 0.3) pt3dadd(-81, -37.7, 8.3, 0.3) pt3dadd(-81.9, -37.7, 8.2, 0.3) pt3dadd(-83.1, -38.1, 8, 0.3) pt3dadd(-84.2, -38.7, 7.8, 0.3) pt3dadd(-85.2, -39.1, 7.7, 0.3) pt3dadd(-86.4, -39.1, 7.6, 0.3) pt3dadd(-87.7, -39.1, 7.4, 0.3) pt3dadd(-88.9, -39.1, 7.3, 0.3) pt3dadd(-90, -38.8, 7.2, 0.3) pt3dadd(-91, -38.5, 7, 0.3) pt3dadd(-91.8, -38.1, 7, 0.3) pt3dadd(-93.2, -38.5, 6.8, 0.3) pt3dadd(-94, -38.9, 6.7, 0.3) pt3dadd(-94.9, -39.4, 6.6, 0.3) pt3dadd(-96.2, -39.8, 6.5, 0.3) pt3dadd(-97.4, -40.2, 6.4, 0.3) pt3dadd(-98.6, -40.6, 6.3, 0.3) pt3dadd(-99.7, -41, 6.3, 0.3) pt3dadd(-100.8, -41.9, 6.2, 0.3) pt3dadd(-102, -42.5, 6.1, 0.3) pt3dadd(-103.5, -43.5, 6, 0.3) pt3dadd(-104.4, -44.9, 6, 0.3) pt3dadd(-105.5, -45.3, 5.9, 0.3) pt3dadd(-107.1, -46.2, 5.9, 0.3) pt3dadd(-108.4, -47.2, 5.8, 0.3) pt3dadd(-109.5, -48.1, 5.8, 0.3) pt3dadd(-110.7, -48.5, 5.8, 0.3) pt3dadd(-111.5, -48.9, 5.8, 0.3) pt3dadd(-112.8, -49.7, 5.8, 0.3) pt3dadd(-113.5, -50.5, 5.8, 0.3) pt3dadd(-114.1, -50.9, 5.8, 0.3) pt3dadd(-115, -51.4, 5.9, 0.3) pt3dadd(-115.9, -51.4, 5.9, 0.3) pt3dadd(-116.9, -51.4, 5.9, 0.3) pt3dadd(-118.3, -51.8, 6, 0.3) pt3dadd(-119.2, -52.2, 6, 0.3) pt3dadd(-120.3, -52.7, 6.1, 0.3) pt3dadd(-121.6, -53.6, 6.2, 0.3) pt3dadd(-122.4, -54.1, 6.2, 0.3) pt3dadd(-123.5, -54.5, 6.3, 0.3) pt3dadd(-124.9, -55.7, 6.5, 0.3) pt3dadd(-125.9, -56.1, 6.6, 0.3) pt3dadd(-127.5, -57.1, 6.7, 0.3) pt3dadd(-128.6, -57.6, 6.9, 0.3) pt3dadd(-129.8, -58, 7, 0.3) pt3dadd(-130.9, -58.4, 7.1, 0.3) pt3dadd(-131.9, -58.8, 7.3, 0.3) pt3dadd(-132.9, -59.2, 7.4, 0.3) pt3dadd(-133.7, -59.6, 7.5, 0.3) pt3dadd(-134.6, -59.6, 7.7, 0.3) pt3dadd(-135.2, -60.1, 7.8, 0.3) pt3dadd(-136.3, -60.5, 8, 0.3) pt3dadd(-137.5, -60.9, 8.2, 0.3) pt3dadd(-138.6, -60.9, 8.4, 0.3) pt3dadd(-139.7, -60.9, 8.6, 0.3) pt3dadd(-140.9, -61.3, 8.8, 0.3) pt3dadd(-141.5, -61.7, 8.9, 0.3) pt3dadd(-142.9, -62.5, 9.3, 0.3) pt3dadd(-143.8, -62.9, 9.5, 0.3) pt3dadd(-144.7, -63.9, 9.7, 0.3) pt3dadd(-145.8, -64.3, 10, 0.3) pt3dadd(-146.8, -64.7, 10.3, 0.3) pt3dadd(-148.2, -65.5, 10.6, 0.2) pt3dadd(-149, -65.8, 10.8, 0.2) pt3dadd(-149.8, -66.6, 11.2, 0.2) pt3dadd(-150.6, -67, 11.4, 0.2) pt3dadd(-151.1, -68, 11.7, 0.2) pt3dadd(-151.7, -68.9, 12, 0.2) pt3dadd(-152.8, -69.3, 12.3, 0.2) pt3dadd(-153.8, -69.7, 12.7, 0.2) pt3dadd(-154.6, -70.2, 12.9, 0.2) pt3dadd(-155.9, -70.6, 13.4, 0.2) pt3dadd(-157, -70.6, 13.7, 0.2) pt3dadd(-158, -71.4, 14.1, 0.2) pt3dadd(-159.1, -71.9, 14.5, 0.2) pt3dadd(-160.2, -72.7, 15, 0.2) pt3dadd(-161.3, -73.2, 15.4, 0.2) pt3dadd(-162.3, -74.1, 15.9, 0.2) pt3dadd(-162.7, -75.1, 16.3, 0.2) pt3dadd(-163.3, -75.9, 16.7, 0.2) pt3dadd(-163.7, -76.9, 17.1, 0.2) pt3dadd(-163.7, -78.2, 17.7, 0.2) pt3dadd(-163.9, -79, 18, 0.2) } dend[17] {pt3dclear() pt3dadd(-38.9, -18.6, 30, 0.3) pt3dadd(-39.9, -18.5, 29.5, 0.3) pt3dadd(-41.7, -19, 28.3, 0.3) pt3dadd(-42.9, -19.4, 27.1, 0.3) pt3dadd(-43.8, -19.4, 26, 0.3) pt3dadd(-44.8, -19.4, 24.8, 0.3) pt3dadd(-45.8, -19.4, 23.4, 0.3) pt3dadd(-46.7, -19.8, 21.9, 0.3) pt3dadd(-47.6, -19.8, 20.5, 0.3) pt3dadd(-48.2, -20.2, 19.1, 0.3) pt3dadd(-49.2, -21.2, 16.7, 0.3) pt3dadd(-50.1, -22, 14.4, 0.3) pt3dadd(-51, -22, 12.4, 0.3) pt3dadd(-52, -22, 10.4, 0.3) pt3dadd(-52.9, -22, 8.6, 0.3) pt3dadd(-53.7, -22, 6.6, 0.3) pt3dadd(-54.9, -22.4, 3.9, 0.3) pt3dadd(-56.1, -22.9, 1, 0.3) pt3dadd(-57, -22.9, -1.3, 0.3) pt3dadd(-58.1, -22.9, -3.7, 0.3) pt3dadd(-59, -23.4, -6.3, 0.3) pt3dadd(-60.2, -23.5, -9.1, 0.3) pt3dadd(-61.3, -23.9, -11.8, 0.3) pt3dadd(-62.8, -24.3, -15.6, 0.3) pt3dadd(-64.3, -24.9, -19.2, 0.3) pt3dadd(-65, -25.4, -21.1, 0.3) pt3dadd(-66, -25.4, -23.1, 0.3) pt3dadd(-67.1, -25.4, -25.5, 0.3) pt3dadd(-68.3, -25.4, -27.9, 0.3) pt3dadd(-69.2, -25.9, -29.8, 0.3) pt3dadd(-70.1, -26.3, -31.7, 0.3) pt3dadd(-71.2, -26.3, -33.5, 0.3) pt3dadd(-72.1, -26.3, -35.1, 0.3) pt3dadd(-73, -26.3, -36.4, 0.3) pt3dadd(-74.1, -26.8, -38.1, 0.3) pt3dadd(-74.9, -27.2, -39.2, 0.3) pt3dadd(-75.6, -27.7, -40.1, 0.3) pt3dadd(-76.5, -27.7, -41, 0.3) pt3dadd(-77.6, -28.1, -42, 0.3) } dend[18] {pt3dclear() pt3dadd(-77.6, -28.1, -42, 0.3) pt3dadd(-78.4, -28.2, -42.5, 0.3) pt3dadd(-78.9, -29.1, -43.2, 0.3) pt3dadd(-79.9, -29.6, -43.9, 0.3) pt3dadd(-80.8, -30.4, -44.7, 0.3) pt3dadd(-81.6, -31.4, -45.4, 0.3) pt3dadd(-82.3, -31.9, -45.9, 0.3) pt3dadd(-83.3, -32.7, -46.7, 0.3) pt3dadd(-84.4, -32.7, -47.2, 0.3) pt3dadd(-85.3, -33.2, -47.8, 0.3) pt3dadd(-86, -33.7, -48.3, 0.3) pt3dadd(-86.9, -34.2, -48.8, 0.3) pt3dadd(-88.4, -35.3, -49.7, 0.3) pt3dadd(-89.4, -36.1, -50.4, 0.3) pt3dadd(-90.4, -36.1, -50.8, 0.3) pt3dadd(-91.6, -36.6, -51.4, 0.3) pt3dadd(-92.4, -36.6, -51.7, 0.3) pt3dadd(-93.5, -36.6, -52.2, 0.3) pt3dadd(-94.8, -37, -52.7, 0.3) pt3dadd(-95.7, -37, -53, 0.3) pt3dadd(-96.9, -37.4, -53.5, 0.3) pt3dadd(-98, -37.9, -53.9, 0.3) pt3dadd(-98.4, -38.7, -54.2, 0.3) pt3dadd(-99.2, -38.7, -54.4, 0.3) pt3dadd(-100, -39.6, -54.8, 0.3) pt3dadd(-100.9, -40.5, -55.2, 0.3) pt3dadd(-101.9, -40.9, -55.4, 0.3) pt3dadd(-102.5, -41.6, -55.7, 0.3) pt3dadd(-103.8, -42.9, -56.1, 0.3) pt3dadd(-104.8, -43.9, -56.4, 0.3) pt3dadd(-105.7, -44.9, -56.6, 0.3) pt3dadd(-107.4, -45.4, -56.9, 0.3) pt3dadd(-108.2, -46, -57, 0.3) pt3dadd(-109, -46.5, -57.1, 0.3) pt3dadd(-110.2, -47.3, -57.2, 0.3) pt3dadd(-111, -47.7, -57.3, 0.3) pt3dadd(-112.4, -48.1, -57.4, 0.3) pt3dadd(-113.1, -48.6, -57.4, 0.3) pt3dadd(-114.1, -49, -57.5, 0.3) pt3dadd(-115, -49, -57.5, 0.3) pt3dadd(-116.1, -49.4, -57.5, 0.3) pt3dadd(-117, -49.8, -57.5, 0.3) pt3dadd(-117.9, -50.7, -57.4, 0.3) pt3dadd(-118.7, -50.7, -57.4, 0.3) pt3dadd(-119.6, -51.1, -57.3, 0.3) pt3dadd(-120.7, -51.1, -57.2, 0.3) pt3dadd(-122.2, -50.8, -57, 0.3) pt3dadd(-123.3, -50.5, -56.8, 0.3) pt3dadd(-124.7, -50.1, -56.6, 0.3) pt3dadd(-126, -49.8, -56.4, 0.3) } } proc shape3d_28() { dend[18] { pt3dadd(-127.1, -49.8, -56.1, 0.3) pt3dadd(-128.2, -49.2, -55.9, 0.3) pt3dadd(-129.1, -48.9, -55.6, 0.3) pt3dadd(-129.9, -48.5, -55.4, 0.3) pt3dadd(-131, -48.5, -55.1, 0.3) pt3dadd(-132, -48.5, -54.8, 0.3) pt3dadd(-133.3, -48.9, -54.4, 0.3) pt3dadd(-134.4, -48.9, -54, 0.3) pt3dadd(-135.1, -49.5, -53.7, 0.3) pt3dadd(-136.1, -49.9, -53.3, 0.3) pt3dadd(-137.1, -50.3, -52.9, 0.3) pt3dadd(-137.9, -50.7, -52.5, 0.3) pt3dadd(-138.9, -51.1, -52.1, 0.3) pt3dadd(-139.6, -51.7, -51.7, 0.3) pt3dadd(-140.5, -52.1, -51.2, 0.3) pt3dadd(-141.6, -52.5, -50.6, 0.3) pt3dadd(-142.5, -52.5, -50.2, 0.3) pt3dadd(-143.4, -52.5, -49.8, 0.3) pt3dadd(-144.2, -52.5, -49.3, 0.3) pt3dadd(-145.2, -52.9, -48.7, 0.3) pt3dadd(-146.2, -52.9, -48.2, 0.3) pt3dadd(-147.4, -52.9, -47.5, 0.3) pt3dadd(-149.1, -52.5, -46.4, 0.3) pt3dadd(-150.2, -52.5, -45.7, 0.3) pt3dadd(-151.2, -52.9, -45, 0.3) pt3dadd(-152.5, -53.3, -44.1, 0.2) pt3dadd(-153.7, -53.3, -43.2, 0.2) pt3dadd(-154.5, -53, -42.6, 0.2) pt3dadd(-155.8, -52.7, -41.6, 0.2) pt3dadd(-156.6, -52.7, -41, 0.2) pt3dadd(-157.6, -52.7, -40.2, 0.2) pt3dadd(-158.6, -52.7, -39.3, 0.2) pt3dadd(-159.7, -52.7, -38.5, 0.2) pt3dadd(-160.6, -52.7, -37.7, 0.2) pt3dadd(-161.5, -52.7, -36.9, 0.2) pt3dadd(-162.3, -52.7, -36.2, 0.2) pt3dadd(-163.2, -52.7, -35.4, 0.2) pt3dadd(-164.2, -52.7, -34.5, 0.2) pt3dadd(-165.2, -53.3, -33.4, 0.2) pt3dadd(-166.1, -53.7, -32.5, 0.2) pt3dadd(-166.9, -53.7, -31.7, 0.2) pt3dadd(-167.9, -53.7, -30.7, 0.2) pt3dadd(-168.7, -53.7, -29.9, 0.2) pt3dadd(-169.5, -54.1, -29, 0.2) pt3dadd(-170.3, -54.1, -28.2, 0.2) pt3dadd(-171.6, -54.1, -26.8, 0.2) pt3dadd(-173, -54.5, -25.2, 0.2) pt3dadd(-174.1, -54.5, -24, 0.2) } dend[19] {pt3dclear() pt3dadd(-77.6, -28.1, -42, 0.3) pt3dadd(-78.7, -27.8, -42.8, 0.3) pt3dadd(-79.8, -27.8, -43.5, 0.3) pt3dadd(-80.6, -27.8, -44, 0.3) pt3dadd(-81.9, -28.2, -44.8, 0.3) pt3dadd(-83.1, -28.2, -45.4, 0.3) pt3dadd(-84.1, -28.6, -45.9, 0.3) pt3dadd(-85.1, -28.6, -46.2, 0.3) pt3dadd(-86, -28.6, -46.6, 0.3) pt3dadd(-86.8, -29, -46.9, 0.3) pt3dadd(-87.9, -29, -47.2, 0.3) pt3dadd(-89.2, -30.1, -47.6, 0.3) pt3dadd(-90, -31.2, -47.9, 0.3) pt3dadd(-90.4, -32, -48, 0.3) pt3dadd(-91.2, -32.5, -48.2, 0.3) pt3dadd(-92.1, -32.9, -48.3, 0.3) pt3dadd(-93, -32.9, -48.4, 0.3) pt3dadd(-94.3, -32.9, -48.6, 0.3) pt3dadd(-95.2, -32.9, -48.7, 0.3) pt3dadd(-96.4, -32.9, -48.8, 0.3) pt3dadd(-97.6, -32.9, -48.9, 0.3) pt3dadd(-99, -33.3, -49, 0.3) pt3dadd(-99.9, -33.9, -49.1, 0.3) pt3dadd(-100.6, -34.4, -49.2, 0.3) pt3dadd(-101.6, -35.3, -49.3, 0.3) pt3dadd(-102.6, -36.2, -49.5, 0.3) pt3dadd(-103.5, -36.6, -49.6, 0.3) pt3dadd(-104.4, -37.5, -49.8, 0.3) pt3dadd(-105.4, -37.5, -50, 0.3) pt3dadd(-106.5, -37.9, -50.3, 0.3) pt3dadd(-108.2, -38.7, -50.7, 0.3) pt3dadd(-109.1, -39.3, -51, 0.3) pt3dadd(-110.6, -40.3, -51.7, 0.3) pt3dadd(-111.8, -40.8, -52.2, 0.3) pt3dadd(-112.6, -40.8, -52.6, 0.3) pt3dadd(-113.9, -40.8, -53.2, 0.3) pt3dadd(-115, -40.8, -53.9, 0.3) pt3dadd(-116.1, -40.8, -54.6, 0.3) pt3dadd(-117.1, -41.2, -55.3, 0.3) pt3dadd(-118.2, -42, -56.3, 0.3) pt3dadd(-119.1, -42.8, -57.4, 0.3) pt3dadd(-120.2, -43.8, -58.7, 0.3) pt3dadd(-121.3, -44.4, -60, 0.3) pt3dadd(-122.3, -44.9, -61.3, 0.3) pt3dadd(-123.4, -45.3, -62.5, 0.3) pt3dadd(-124.3, -45.7, -63.7, 0.3) pt3dadd(-125.2, -46.1, -65, 0.3) pt3dadd(-125.7, -46.9, -66.1, 0.3) pt3dadd(-126.6, -47.3, -67.4, 0.3) pt3dadd(-127.1, -48.3, -68.8, 0.3) pt3dadd(-127.9, -48.7, -70, 0.3) pt3dadd(-128.3, -49.7, -71.4, 0.3) pt3dadd(-128.7, -50.7, -72.9, 0.3) pt3dadd(-129.1, -51.6, -74.3, 0.3) pt3dadd(-130, -52.5, -76.2, 0.3) pt3dadd(-130.4, -53.6, -77.9, 0.3) pt3dadd(-131.2, -54.1, -79.2, 0.3) pt3dadd(-132.1, -54.9, -81, 0.3) pt3dadd(-133, -55.3, -82.5, 0.3) pt3dadd(-133.8, -56.2, -84.3, 0.3) pt3dadd(-134.6, -56.7, -85.7, 0.3) pt3dadd(-135.5, -57.1, -87.3, 0.3) pt3dadd(-136.4, -58, -89.2, 0.3) pt3dadd(-137.5, -58.4, -90.9, 0.3) pt3dadd(-138.3, -58.8, -92.2, 0.3) pt3dadd(-139.2, -58.8, -93.7, 0.3) pt3dadd(-140.2, -58.8, -95.1, 0.3) pt3dadd(-141.1, -58.8, -96.6, 0.3) pt3dadd(-142.3, -59.2, -98.4, 0.3) pt3dadd(-143.4, -59.2, -100, 0.3) pt3dadd(-144.2, -58.9, -101.2, 0.3) pt3dadd(-145, -58.2, -102.7, 0.3) pt3dadd(-145.8, -57.9, -104.1, 0.3) pt3dadd(-147, -57.9, -105.6, 0.3) pt3dadd(-147.8, -57.6, -106.8, 0.3) pt3dadd(-148.8, -57.5, -108.3, 0.3) pt3dadd(-149.7, -57.5, -109.4, 0.3) pt3dadd(-150.7, -57.7, -110.8, 0.2) pt3dadd(-151.8, -58.2, -112.4, 0.2) pt3dadd(-152.9, -57.8, -113.8, 0.2) pt3dadd(-153.8, -57.8, -114.9, 0.2) pt3dadd(-154.9, -58.3, -116.3, 0.2) pt3dadd(-155.9, -58.7, -117.5, 0.2) pt3dadd(-157, -58.9, -118.8, 0.2) pt3dadd(-158.1, -58.3, -120, 0.2) pt3dadd(-159, -58.8, -121.1, 0.2) pt3dadd(-159.8, -59.7, -122.2, 0.2) pt3dadd(-160.4, -60.9, -123.4, 0.2) pt3dadd(-161.3, -61.9, -124.7, 0.2) pt3dadd(-162.3, -62.7, -125.8, 0.2) pt3dadd(-163.3, -62.7, -126.6, 0.2) pt3dadd(-164.2, -62.7, -127.4, 0.2) pt3dadd(-165.3, -62.4, -128.2, 0.2) pt3dadd(-166.3, -62.1, -129, 0.2) pt3dadd(-167.4, -61.7, -129.8, 0.2) pt3dadd(-168.2, -61.7, -130.3, 0.2) pt3dadd(-169.4, -61.7, -131, 0.2) pt3dadd(-171, -61.1, -132, 0.2) } dend[20] {pt3dclear() pt3dadd(-31.6, -15.5, 24, 0.7) pt3dadd(-32.3, -14.8, 23.2, 0.3) pt3dadd(-33.3, -14.4, 22.3, 0.3) pt3dadd(-33.8, -13.8, 21.6, 0.3) pt3dadd(-34.8, -13.4, 20.7, 0.3) pt3dadd(-35.7, -12.4, 19.5, 0.3) pt3dadd(-36.6, -11.8, 18.4, 0.3) pt3dadd(-37.5, -11.1, 17.3, 0.3) pt3dadd(-38.3, -10.4, 16.3, 0.3) pt3dadd(-39.3, -9.7, 15.1, 0.3) pt3dadd(-40.2, -8.9, 13.8, 0.3) pt3dadd(-41.3, -8.2, 12.5, 0.3) pt3dadd(-42.4, -7.9, 11.3, 0.3) pt3dadd(-43.2, -7.8, 10.4, 0.3) pt3dadd(-44.5, -7.4, 8.9, 0.3) pt3dadd(-45.7, -7, 7.5, 0.3) pt3dadd(-46.7, -6.2, 6.1, 0.3) pt3dadd(-47.5, -6.2, 5.2, 0.3) pt3dadd(-48.4, -5.6, 3.9, 0.3) pt3dadd(-49.3, -5.6, 2.8, 0.3) pt3dadd(-50.4, -5.4, 1.6, 0.3) pt3dadd(-51.3, -5.4, 0.6, 0.3) pt3dadd(-52.4, -5.3, -0.7, 0.3) pt3dadd(-52.9, -4.6, -1.6, 0.3) pt3dadd(-54.1, -3.8, -3.4, 0.3) pt3dadd(-55.1, -3.1, -4.8, 0.3) pt3dadd(-56, -2.2, -6.3, 0.3) pt3dadd(-56.5, -1.4, -7.3, 0.3) pt3dadd(-57.3, -0.6, -8.7, 0.3) pt3dadd(-58.7, -0.2, -10.3, 0.3) pt3dadd(-59.8, -0.2, -11.6, 0.3) pt3dadd(-60.7, 0.1, -12.7, 0.3) pt3dadd(-61.7, 0.1, -13.8, 0.3) pt3dadd(-62.5, 0.1, -14.7, 0.3) pt3dadd(-63.6, 0.1, -15.9, 0.3) pt3dadd(-64.6, 0.4, -17.1, 0.3) pt3dadd(-65.4, 1.1, -18.2, 0.3) pt3dadd(-66.6, 1.5, -19.6, 0.3) pt3dadd(-67.4, 2.2, -20.7, 0.3) pt3dadd(-68.4, 2.6, -21.7, 0.3) pt3dadd(-69.2, 3, -22.6, 0.3) pt3dadd(-70.2, 3.7, -23.9, 0.3) pt3dadd(-71, 4.3, -24.8, 0.3) pt3dadd(-71.8, 4.6, -25.7, 0.3) pt3dadd(-72.7, 5, -26.5, 0.3) pt3dadd(-73.6, 5.3, -27.4, 0.3) pt3dadd(-74.4, 5.6, -28.2, 0.3) pt3dadd(-75.5, 5.6, -29.1, 0.3) pt3dadd(-76.6, 5.8, -30, 0.3) } dend[21] {pt3dclear() pt3dadd(-76.6, 5.8, -30, 0.3) pt3dadd(-77.7, 6.4, -31.2, 0.3) pt3dadd(-78.8, 6.7, -32.2, 0.3) pt3dadd(-79.8, 6.7, -33.2, 0.3) pt3dadd(-80.6, 6.7, -34, 0.3) } } proc shape3d_29() { dend[21] { pt3dadd(-81.6, 6.7, -34.9, 0.3) pt3dadd(-82.4, 6.3, -35.8, 0.3) pt3dadd(-82.9, 5.4, -36.8, 0.3) pt3dadd(-84, 5.4, -37.8, 0.3) pt3dadd(-84.8, 5.4, -38.6, 0.3) pt3dadd(-86, 5.4, -39.7, 0.3) pt3dadd(-87.2, 5.8, -40.9, 0.3) pt3dadd(-88.6, 5.8, -42.2, 0.3) pt3dadd(-89.6, 5.8, -43.1, 0.3) pt3dadd(-90.4, 5.8, -43.8, 0.3) pt3dadd(-91.4, 5.8, -44.8, 0.3) pt3dadd(-92.4, 5.8, -45.7, 0.3) pt3dadd(-93.4, 5.8, -46.6, 0.3) pt3dadd(-94.2, 5.8, -47.3, 0.3) pt3dadd(-95.2, 6.2, -48.3, 0.3) pt3dadd(-96, 6.9, -49.3, 0.3) pt3dadd(-96.8, 7.8, -50.4, 0.3) pt3dadd(-98, 8.5, -51.5, 0.3) pt3dadd(-99, 9.1, -52.6, 0.3) pt3dadd(-100, 9.8, -53.7, 0.3) pt3dadd(-100.8, 10.5, -54.5, 0.3) pt3dadd(-101.6, 10.5, -55.2, 0.3) pt3dadd(-102.6, 10.8, -56.1, 0.3) pt3dadd(-103.7, 10.8, -57, 0.3) pt3dadd(-104.5, 10.8, -57.7, 0.3) pt3dadd(-105.3, 10.8, -58.3, 0.3) pt3dadd(-106.2, 11.1, -59.1, 0.3) pt3dadd(-105.3, 11.8, -60, 0.3) pt3dadd(-106.3, 11.9, -60.8, 0.3) pt3dadd(-107.2, 12.2, -61.6, 0.3) pt3dadd(-108.2, 12.6, -62.3, 0.3) pt3dadd(-109, 12.6, -63, 0.3) pt3dadd(-109.9, 12.2, -63.7, 0.3) pt3dadd(-110.7, 11.8, -64.4, 0.3) pt3dadd(-111.6, 11.8, -65.1, 0.3) pt3dadd(-112.7, 11.8, -65.9, 0.3) pt3dadd(-113.5, 11.8, -66.5, 0.3) pt3dadd(-114.6, 12.1, -67.2, 0.3) pt3dadd(-115.5, 12.4, -67.9, 0.3) pt3dadd(-116.4, 12.8, -68.6, 0.3) pt3dadd(-117.4, 13.5, -69.4, 0.3) pt3dadd(-118.7, 13.8, -70.3, 0.3) pt3dadd(-119.9, 14.2, -71.2, 0.3) pt3dadd(-121.1, 14.2, -71.9, 0.3) pt3dadd(-122.1, 14.2, -72.5, 0.3) pt3dadd(-122.6, 14.8, -73.1, 0.3) pt3dadd(-123.6, 14.8, -73.7, 0.3) pt3dadd(-124.4, 15.1, -74.2, 0.3) pt3dadd(-125.6, 15.1, -75, 0.3) pt3dadd(-126.9, 15.1, -75.7, 0.3) pt3dadd(-128, 15.1, -76.4, 0.3) pt3dadd(-128.8, 14.7, -76.9, 0.3) pt3dadd(-129.7, 13.8, -77.6, 0.3) pt3dadd(-130.6, 13.8, -78.1, 0.3) pt3dadd(-131.5, 13.8, -78.6, 0.3) pt3dadd(-132.5, 13.4, -79.2, 0.3) pt3dadd(-133.7, 13.4, -79.8, 0.3) pt3dadd(-134.7, 13.4, -80.3, 0.3) pt3dadd(-135.5, 13.4, -80.8, 0.3) pt3dadd(-136.4, 13, -81.3, 0.3) pt3dadd(-137.5, 13, -81.9, 0.3) pt3dadd(-138.6, 13, -82.4, 0.3) pt3dadd(-139.8, 13.4, -83, 0.3) pt3dadd(-141.4, 13.7, -83.8, 0.3) pt3dadd(-142.3, 13.7, -84.2, 0.3) pt3dadd(-143.5, 13.7, -84.8, 0.3) pt3dadd(-144.5, 13.7, -85.3, 0.3) pt3dadd(-145.7, 13.8, -85.8, 0.2) pt3dadd(-146.4, 13.4, -86.2, 0.2) pt3dadd(-147.2, 13, -86.6, 0.2) pt3dadd(-148.2, 13, -87, 0.2) pt3dadd(-149, 13.6, -87.5, 0.2) pt3dadd(-149.8, 13.6, -87.8, 0.2) pt3dadd(-149.8, 14.4, -88.2, 0.2) pt3dadd(-150.7, 14.8, -88.6, 0.2) pt3dadd(-151.5, 15.4, -89, 0.2) pt3dadd(-152.3, 15.8, -89.4, 0.2) pt3dadd(-153.4, 16.1, -89.8, 0.2) pt3dadd(-154.5, 16.1, -90.3, 0.2) pt3dadd(-155.2, 15.7, -90.6, 0.2) pt3dadd(-156.3, 15.7, -91, 0.2) pt3dadd(-157.1, 15.2, -91.4, 0.2) pt3dadd(-158.1, 14.8, -91.8, 0.2) pt3dadd(-159, 14, -92.2, 0.2) pt3dadd(-159.8, 13.2, -92.7, 0.2) pt3dadd(-160.2, 12.4, -93, 0.2) pt3dadd(-160.6, 11.4, -93.4, 0.2) pt3dadd(-161.5, 10.6, -93.8, 0.2) pt3dadd(-161.9, 9.7, -94.2, 0.2) pt3dadd(-162.4, 8.8, -94.5, 0.2) pt3dadd(-163.2, 7.8, -95, 0.2) pt3dadd(-163.6, 7, -95.3, 0.2) pt3dadd(-164.5, 6.2, -95.7, 0.2) pt3dadd(-165, 5.4, -96, 0.2) } dend[22] {pt3dclear() pt3dadd(-76.6, 5.8, -30, 0.3) pt3dadd(-77.7, 6.2, -30.7, 0.3) pt3dadd(-78.6, 6.2, -31.3, 0.3) pt3dadd(-79.6, 6.2, -31.8, 0.3) pt3dadd(-80.4, 6.2, -32.3, 0.3) pt3dadd(-81.3, 5.3, -32.9, 0.3) pt3dadd(-82.3, 4.9, -33.5, 0.3) pt3dadd(-83.2, 4.5, -33.9, 0.3) pt3dadd(-84, 4.5, -34.3, 0.3) pt3dadd(-84.8, 4.5, -34.6, 0.3) pt3dadd(-86, 4.5, -35.1, 0.3) pt3dadd(-87, 4.5, -35.5, 0.3) pt3dadd(-88, 4.8, -35.8, 0.3) pt3dadd(-89, 4.8, -36.1, 0.3) pt3dadd(-90.4, 4.8, -36.5, 0.3) pt3dadd(-92, 4.8, -36.9, 0.3) pt3dadd(-92.9, 4.8, -37.2, 0.3) pt3dadd(-93.7, 4.8, -37.3, 0.3) pt3dadd(-95, 5.6, -37.6, 0.3) pt3dadd(-96.2, 6, -37.7, 0.3) pt3dadd(-97.2, 6, -37.9, 0.3) pt3dadd(-98.4, 6, -38, 0.3) pt3dadd(-99.6, 6, -38, 0.3) pt3dadd(-100.5, 5.6, -38.1, 0.3) pt3dadd(-101.6, 4.7, -38.1, 0.3) pt3dadd(-102.5, 4.3, -38, 0.3) pt3dadd(-103.6, 4.3, -38, 0.3) pt3dadd(-104.5, 4.3, -37.9, 0.3) pt3dadd(-105.7, 4.6, -37.8, 0.3) pt3dadd(-106.7, 5.2, -37.7, 0.3) pt3dadd(-108.1, 5.5, -37.5, 0.3) pt3dadd(-109.5, 5.5, -37.2, 0.3) pt3dadd(-110.7, 5.5, -37, 0.3) pt3dadd(-111.6, 5.1, -36.8, 0.3) pt3dadd(-112.8, 4.7, -36.4, 0.3) pt3dadd(-113.7, 4.7, -36.2, 0.3) pt3dadd(-114.9, 4.3, -35.8, 0.3) pt3dadd(-115.9, 3.9, -35.5, 0.3) pt3dadd(-116.8, 3.9, -35.2, 0.3) pt3dadd(-117.9, 3.9, -34.8, 0.3) pt3dadd(-119.5, 3.7, -34.2, 0.3) pt3dadd(-120.7, 3.6, -33.7, 0.3) pt3dadd(-121.5, 3.6, -33.3, 0.3) pt3dadd(-122.4, 3.2, -32.9, 0.3) pt3dadd(-123.3, 2.7, -32.4, 0.3) pt3dadd(-123.8, 2.1, -32, 0.3) pt3dadd(-125.1, 1, -31.2, 0.3) pt3dadd(-125.7, 0.5, -30.7, 0.3) pt3dadd(-126.6, -0.4, -30.1, 0.3) pt3dadd(-127.7, -0.8, -29.4, 0.3) pt3dadd(-129, -1.2, -28.6, 0.3) pt3dadd(-129.9, -1.2, -28.1, 0.3) pt3dadd(-130.6, -1.6, -27.5, 0.3) pt3dadd(-131.5, -1.6, -27, 0.3) pt3dadd(-132.7, -1.6, -26.2, 0.3) pt3dadd(-134.1, -1, -25.1, 0.3) pt3dadd(-135, -1, -24.5, 0.3) pt3dadd(-136, -0.6, -23.7, 0.3) pt3dadd(-137.9, -1.1, -22.3, 0.3) pt3dadd(-139.1, -1.6, -21.3, 0.3) pt3dadd(-140.2, -1.6, -20.5, 0.3) pt3dadd(-141.1, -1.6, -19.7, 0.3) pt3dadd(-142.3, -2, -18.7, 0.3) pt3dadd(-143.6, -2, -17.6, 0.3) pt3dadd(-144.4, -2, -16.9, 0.3) pt3dadd(-145.4, -2, -16.1, 0.3) pt3dadd(-146.6, -2, -15, 0.3) pt3dadd(-147.5, -2.4, -14.1, 0.3) pt3dadd(-148.5, -2.4, -13.2, 0.2) pt3dadd(-149.4, -2.7, -12.3, 0.2) pt3dadd(-150.2, -3.2, -11.4, 0.2) pt3dadd(-151.4, -4.1, -10, 0.2) pt3dadd(-152.6, -4.1, -8.8, 0.2) pt3dadd(-154.2, -4.1, -7.3, 0.2) pt3dadd(-155.4, -4.1, -6.1, 0.2) pt3dadd(-156.2, -3.8, -5.2, 0.2) pt3dadd(-157.6, -3, -3.6, 0.2) pt3dadd(-158.4, -2.6, -2.6, 0.2) pt3dadd(-159.3, -1.8, -1.4, 0.2) pt3dadd(-160.2, -1.5, -0.3, 0.2) pt3dadd(-161, -1.5, 0.6, 0.2) pt3dadd(-161.9, -1.2, 1.6, 0.2) pt3dadd(-162.8, -0.9, 2.6, 0.2) pt3dadd(-163.8, -0.9, 3.7, 0.2) pt3dadd(-164.6, -0.9, 4.7, 0.2) pt3dadd(-165.8, -0.9, 6, 0.2) pt3dadd(-166.7, -0.9, 7, 0.2) pt3dadd(-167.9, -1.8, 8.8, 0.2) pt3dadd(-169, -2.2, 10.1, 0.2) pt3dadd(-170, -3.2, 11.8, 0.2) pt3dadd(-170.5, -4.2, 13.2, 0.2) pt3dadd(-171.3, -4.9, 14.4, 0.2) pt3dadd(-172.3, -5.9, 16.2, 0.2) pt3dadd(-172.7, -7, 17.7, 0.2) pt3dadd(-173.6, -8.2, 19.5, 0.2) pt3dadd(-174.1, -9.4, 21, 0.2) pt3dadd(-174.8, -10.4, 22.6, 0.2) pt3dadd(-175.4, -11, 23.7, 0.2) pt3dadd(-175.8, -12.5, 25.6, 0.2) pt3dadd(-176.2, -13.4, 26.9, 0.2) pt3dadd(-176.7, -14.3, 28.3, 0.2) pt3dadd(-177.2, -15.5, 30, 0.2) } dend[23] {pt3dclear() pt3dadd(10, 0, 30, 0.7) pt3dadd(-0.7, 1.4, 30, 0.7) pt3dadd(-2, 2.4, 30, 0.7) pt3dadd(-2.9, 3, 30, 0.7) } } proc shape3d_30() { dend[23] { pt3dadd(-3.9, 3.4, 30, 0.7) pt3dadd(-5, 4, 30, 0.7) pt3dadd(-6, 4.4, 30, 0.7) pt3dadd(-7.1, 4.8, 30, 0.7) pt3dadd(-8, 5.4, 30, 0.7) pt3dadd(-8.8, 5.8, 30, 0.7) pt3dadd(-9.8, 6.2, 30, 0.7) pt3dadd(-11, 6.2, 30, 0.7) pt3dadd(-12.2, 6.5, 30, 0.7) pt3dadd(-13.4, 6.8, 30, 0.7) pt3dadd(-14.4, 6.8, 30, 0.7) pt3dadd(-15.4, 7.1, 30, 0.7) pt3dadd(-16.3, 7.1, 30, 0.7) pt3dadd(-17.3, 7.1, 30, 0.7) pt3dadd(-18.2, 7.4, 30, 0.7) } dend[24] {pt3dclear() pt3dadd(-18.2, 7.4, 30, 0.7) pt3dadd(-19.1, 7.3, 30, 0.7) pt3dadd(-20.2, 7.3, 30, 0.7) pt3dadd(-21, 7.3, 30, 0.7) pt3dadd(-21.7, 6.5, 30, 0.7) pt3dadd(-22.2, 5.7, 30, 0.7) pt3dadd(-23, 5.1, 30, 0.7) pt3dadd(-23.4, 4.2, 30, 0.7) pt3dadd(-23.8, 3.4, 30, 0.7) pt3dadd(-24.7, 3.4, 30, 0.7) pt3dadd(-26, 2.6, 30, 0.7) pt3dadd(-27, 2.6, 30, 0.7) pt3dadd(-27.9, 2.2, 30, 0.7) pt3dadd(-28.7, 1.3, 30, 0.7) pt3dadd(-29.6, 0.5, 30, 0.7) pt3dadd(-30.6, 0.5, 30, 0.7) pt3dadd(-31.5, 0.1, 30, 0.7) pt3dadd(-32.5, 0.1, 30, 0.7) pt3dadd(-33.3, 0.1, 30, 0.7) pt3dadd(-34.1, -0.4, 30, 0.7) pt3dadd(-34.5, -1.3, 30, 0.7) pt3dadd(-35.6, -2.2, 30, 0.3) pt3dadd(-36.1, -2.8, 30, 0.3) pt3dadd(-36.5, -3.5, 30, 0.3) pt3dadd(-36.5, -4.4, 30, 0.3) pt3dadd(-37.3, -5.4, 30, 0.3) pt3dadd(-38.1, -5.9, 30, 0.3) } dend[25] {pt3dclear() pt3dadd(-38.1, -5.9, 30, 0.3) pt3dadd(-38.1, -6.8, 30, 0.3) pt3dadd(-38.5, -7.6, 30, 0.3) pt3dadd(-39.3, -8.1, 30, 0.3) pt3dadd(-40.1, -8.9, 30, 0.3) pt3dadd(-40.9, -8.9, 30, 0.3) pt3dadd(-41.8, -9.3, 30, 0.3) pt3dadd(-43, -9.3, 30, 0.3) pt3dadd(-44, -9.3, 30, 0.3) pt3dadd(-44.8, -9.3, 30, 0.3) pt3dadd(-45.6, -9.8, 30, 0.3) } dend[26] {pt3dclear() pt3dadd(-45.6, -9.8, 30, 0.3) pt3dadd(-44.7, -9.9, 30, 0.3) pt3dadd(-45.1, -11, 29.8, 0.3) pt3dadd(-46.1, -11.8, 29.6, 0.3) pt3dadd(-47, -12.2, 29.3, 0.3) pt3dadd(-48, -12.6, 28.9, 0.3) pt3dadd(-49.2, -12.6, 28.3, 0.3) pt3dadd(-50.2, -13, 27.8, 0.3) pt3dadd(-51.3, -13.4, 27.1, 0.3) pt3dadd(-51.9, -13.9, 26.6, 0.3) pt3dadd(-52.9, -14.3, 25.8, 0.3) pt3dadd(-53.9, -14.3, 25, 0.3) pt3dadd(-54.8, -14.3, 24.3, 0.3) pt3dadd(-55.7, -14.3, 23.5, 0.3) pt3dadd(-56.5, -14.3, 22.7, 0.3) pt3dadd(-57.6, -14.3, 21.6, 0.3) pt3dadd(-58.4, -14.3, 20.8, 0.3) pt3dadd(-59.3, -14.7, 19.7, 0.3) pt3dadd(-60.3, -14.7, 18.6, 0.3) pt3dadd(-61.1, -15.2, 17.5, 0.3) pt3dadd(-62, -15.6, 16.3, 0.3) pt3dadd(-62.8, -16, 15.1, 0.3) pt3dadd(-63.7, -16.9, 13.5, 0.3) pt3dadd(-64.6, -16.9, 12.3, 0.3) pt3dadd(-65.4, -16.9, 11.2, 0.3) pt3dadd(-66.2, -17.3, 10, 0.3) pt3dadd(-67, -17.7, 8.7, 0.3) pt3dadd(-67.9, -18.2, 7.2, 0.3) pt3dadd(-68.5, -18.8, 5.9, 0.3) pt3dadd(-69.4, -19.2, 4.5, 0.3) pt3dadd(-70.3, -19.6, 3, 0.3) pt3dadd(-71.2, -20, 1.5, 0.3) pt3dadd(-72.1, -20.5, -0.2, 0.3) pt3dadd(-73.2, -20.9, -2, 0.3) pt3dadd(-74.3, -21.3, -3.9, 0.3) pt3dadd(-75.8, -21.7, -6.5, 0.3) pt3dadd(-76.8, -21.7, -8.1, 0.3) pt3dadd(-77.6, -22.1, -9.6, 0.3) pt3dadd(-78.5, -22.1, -11.2, 0.3) pt3dadd(-79.5, -22.5, -12.9, 0.3) pt3dadd(-80.4, -22.9, -14.6, 0.3) pt3dadd(-81.5, -23.3, -16.6, 0.3) pt3dadd(-82.4, -23.3, -18.1, 0.3) pt3dadd(-83.5, -23.3, -20, 0.3) pt3dadd(-84.4, -23.7, -21.7, 0.3) pt3dadd(-85.4, -23.7, -23.4, 0.3) pt3dadd(-86.6, -24.1, -25.5, 0.3) pt3dadd(-87.7, -24.6, -27.5, 0.3) pt3dadd(-88.8, -25.1, -29.4, 0.3) pt3dadd(-89.6, -25.5, -30.8, 0.3) pt3dadd(-90.4, -26.3, -32.7, 0.3) pt3dadd(-91.2, -26.8, -34.3, 0.3) pt3dadd(-91.8, -27.7, -35.9, 0.3) pt3dadd(-92.6, -28.1, -37.3, 0.3) pt3dadd(-93.6, -29.1, -39.5, 0.3) pt3dadd(-94.8, -29.6, -41.4, 0.3) pt3dadd(-95.5, -30, -42.6, 0.3) pt3dadd(-96.4, -30, -43.8, 0.3) pt3dadd(-97.4, -30, -45.3, 0.3) pt3dadd(-98.4, -30, -46.6, 0.3) pt3dadd(-99.3, -30, -47.9, 0.3) pt3dadd(-100.2, -30.4, -49.1, 0.3) pt3dadd(-101.1, -30.4, -50.2, 0.3) pt3dadd(-102, -30.9, -51.5, 0.3) pt3dadd(-103, -31.3, -52.8, 0.3) pt3dadd(-103.9, -31.3, -53.8, 0.3) pt3dadd(-105.1, -31.3, -55.1, 0.3) pt3dadd(-106.1, -31.7, -56.2, 0.3) pt3dadd(-107.1, -32.1, -57.3, 0.3) pt3dadd(-108.3, -32.5, -58.3, 0.3) pt3dadd(-109.1, -32.9, -59.2, 0.3) pt3dadd(-110.2, -33.1, -60, 0.3) pt3dadd(-111.9, -33.6, -61.3, 0.3) pt3dadd(-112.3, -34.9, -62.3, 0.3) pt3dadd(-112.3, -35.7, -62.9, 0.3) pt3dadd(-113.3, -36.6, -63.9, 0.3) pt3dadd(-114.1, -37, -64.5, 0.3) pt3dadd(-114.7, -37.7, -65.1, 0.3) pt3dadd(-115.6, -38.8, -66.1, 0.3) pt3dadd(-116.5, -39.7, -67, 0.3) pt3dadd(-116.5, -40.5, -67.5, 0.3) pt3dadd(-117, -41.1, -68.1, 0.3) pt3dadd(-117.4, -42.3, -68.9, 0.3) pt3dadd(-117.8, -43.2, -69.5, 0.3) pt3dadd(-118.2, -44.2, -70.3, 0.3) pt3dadd(-118.6, -45.1, -70.9, 0.3) pt3dadd(-119.2, -46, -71.6, 0.3) pt3dadd(-120.1, -47.1, -72.5, 0.3) pt3dadd(-120.6, -48, -73.1, 0.3) pt3dadd(-121.1, -48.9, -73.7, 0.3) pt3dadd(-122.1, -49.7, -74.5, 0.3) pt3dadd(-123.2, -50.4, -75.2, 0.3) pt3dadd(-124.3, -51.2, -76, 0.3) pt3dadd(-125.1, -51.2, -76.4, 0.3) pt3dadd(-126.4, -52.1, -77.3, 0.3) pt3dadd(-127.1, -52.5, -77.8, 0.3) pt3dadd(-127.8, -53.5, -78.4, 0.3) pt3dadd(-128.7, -54.5, -79, 0.3) pt3dadd(-129.1, -55.7, -79.7, 0.3) pt3dadd(-129.5, -56.9, -80.3, 0.3) pt3dadd(-129.9, -58, -80.8, 0.3) pt3dadd(-130.7, -59, -81.5, 0.3) pt3dadd(-131.7, -59.8, -82, 0.3) pt3dadd(-132.7, -60.7, -82.6, 0.3) pt3dadd(-133.4, -61.7, -83.1, 0.3) pt3dadd(-134.6, -62.2, -83.6, 0.3) pt3dadd(-135.2, -62.8, -84, 0.3) pt3dadd(-136.2, -63.7, -84.5, 0.3) pt3dadd(-137.1, -63.7, -84.8, 0.3) pt3dadd(-137.9, -64.2, -85.2, 0.3) pt3dadd(-139.1, -64.2, -85.6, 0.3) pt3dadd(-140.1, -64.6, -85.9, 0.3) pt3dadd(-141.1, -64.6, -86.3, 0.3) pt3dadd(-142.3, -65.2, -86.6, 0.2) pt3dadd(-143.4, -65.6, -87, 0.2) pt3dadd(-144.3, -66, -87.3, 0.2) pt3dadd(-145.2, -66, -87.5, 0.2) pt3dadd(-146.3, -66.4, -87.8, 0.2) pt3dadd(-147.3, -66.4, -88, 0.2) pt3dadd(-148.1, -66.4, -88.2, 0.2) pt3dadd(-149, -66.4, -88.4, 0.2) pt3dadd(-150, -66.4, -88.6, 0.2) pt3dadd(-150.9, -66.8, -88.8, 0.2) pt3dadd(-151.7, -67.2, -89, 0.2) pt3dadd(-153.3, -67.2, -89.2, 0.2) pt3dadd(-154.5, -67.2, -89.4, 0.2) pt3dadd(-155.8, -67.6, -89.6, 0.2) pt3dadd(-156.6, -67.6, -89.7, 0.2) pt3dadd(-157.7, -68, -89.8, 0.2) pt3dadd(-158.7, -68.4, -89.9, 0.2) pt3dadd(-159.8, -68.8, -90, 0.2) pt3dadd(-160.6, -68.9, -90, 0.2) } dend[27] {pt3dclear() pt3dadd(-45.6, -9.8, 30, 0.3) pt3dadd(-46.8, -9.2, 30.2, 0.3) pt3dadd(-47.7, -9.2, 30.6, 0.3) pt3dadd(-48.5, -9.2, 31.1, 0.3) pt3dadd(-49.4, -9.2, 31.8, 0.3) pt3dadd(-50.3, -9.6, 32.7, 0.3) pt3dadd(-51.2, -10, 33.7, 0.3) pt3dadd(-52, -10.5, 34.9, 0.3) pt3dadd(-52.8, -11.4, 36.5, 0.3) pt3dadd(-53.7, -11.8, 38, 0.3) pt3dadd(-54.6, -12.2, 39.5, 0.3) pt3dadd(-55.6, -12.6, 41.2, 0.3) pt3dadd(-56.8, -12.6, 43.2, 0.3) pt3dadd(-58, -12.6, 45.3, 0.3) pt3dadd(-59.4, -12.6, 47.7, 0.3) } } proc shape3d_31() { dend[27] { pt3dadd(-60.4, -13, 49.5, 0.3) pt3dadd(-61.6, -13.4, 51.5, 0.3) pt3dadd(-62.6, -13.8, 53.2, 0.3) pt3dadd(-63.6, -14.2, 54.9, 0.3) pt3dadd(-64.4, -14.2, 55.9, 0.3) pt3dadd(-65.5, -14.2, 57.2, 0.3) pt3dadd(-66.4, -14.6, 58.4, 0.3) pt3dadd(-67.3, -15.1, 59.3, 0.3) pt3dadd(-68.2, -15.5, 60, 0.3) pt3dadd(-69.1, -16, 60.7, 0.3) pt3dadd(-69.9, -16.4, 61.2, 0.3) pt3dadd(-70.8, -16.8, 61.8, 0.3) pt3dadd(-71.7, -17.7, 62.7, 0.3) pt3dadd(-72.8, -18.5, 63.5, 0.3) pt3dadd(-74.4, -19, 64.6, 0.3) pt3dadd(-75.4, -19.5, 65.2, 0.3) pt3dadd(-76.2, -19.9, 65.7, 0.3) pt3dadd(-77.3, -20.3, 66.4, 0.3) pt3dadd(-78.4, -20.3, 67, 0.3) pt3dadd(-79.5, -20.7, 67.7, 0.3) pt3dadd(-81.1, -20.7, 68.5, 0.3) pt3dadd(-82, -20.7, 69.1, 0.3) pt3dadd(-83, -21.1, 69.6, 0.3) pt3dadd(-84, -21.5, 70.2, 0.3) pt3dadd(-84.8, -21.9, 70.7, 0.3) pt3dadd(-85.6, -21.9, 71.1, 0.3) pt3dadd(-86.7, -21.9, 71.6, 0.3) pt3dadd(-87.4, -22.3, 72, 0.3) pt3dadd(-88.4, -22.3, 72.5, 0.3) pt3dadd(-89.5, -22.3, 73, 0.3) pt3dadd(-90.4, -22.7, 73.5, 0.3) pt3dadd(-91.7, -23.1, 74.1, 0.3) pt3dadd(-92.8, -23.1, 74.6, 0.3) pt3dadd(-93.6, -23.1, 74.9, 0.3) pt3dadd(-94.5, -23.5, 75.4, 0.3) pt3dadd(-95.6, -24, 75.9, 0.3) pt3dadd(-96.9, -24, 76.4, 0.3) pt3dadd(-97.7, -24, 76.7, 0.3) pt3dadd(-98.8, -24.5, 77.2, 0.3) pt3dadd(-99.9, -24.5, 77.6, 0.3) pt3dadd(-101.2, -24.5, 78.1, 0.3) pt3dadd(-102.4, -24.9, 78.6, 0.3) pt3dadd(-103.2, -24.9, 78.9, 0.3) pt3dadd(-104.3, -25.3, 79.3, 0.3) pt3dadd(-105.2, -25.3, 79.6, 0.3) pt3dadd(-106, -25.7, 79.9, 0.3) pt3dadd(-107.1, -26.1, 80.3, 0.3) pt3dadd(-108.4, -26.9, 80.8, 0.3) pt3dadd(-109.3, -26.9, 81, 0.3) pt3dadd(-110.1, -26.9, 81.3, 0.3) pt3dadd(-111.1, -26.9, 81.5, 0.3) pt3dadd(-112.3, -26.5, 81.9, 0.3) pt3dadd(-113.2, -26.5, 82.2, 0.3) pt3dadd(-114.2, -26.9, 82.4, 0.3) pt3dadd(-115.2, -26.9, 82.7, 0.3) pt3dadd(-115.9, -27.3, 82.9, 0.3) pt3dadd(-116.9, -27.7, 83.1, 0.3) pt3dadd(-117.9, -28.1, 83.4, 0.3) pt3dadd(-118.7, -28.6, 83.6, 0.3) pt3dadd(-119.6, -29, 83.8, 0.3) pt3dadd(-120.5, -29.4, 84, 0.3) pt3dadd(-121.4, -29.4, 84.2, 0.3) pt3dadd(-122.3, -29.9, 84.4, 0.3) pt3dadd(-123.2, -30.7, 84.6, 0.3) pt3dadd(-124.2, -31.1, 84.7, 0.3) pt3dadd(-125.3, -31.7, 84.9, 0.3) pt3dadd(-126.2, -31.9, 85.1, 0.3) pt3dadd(-127.1, -31.9, 85.2, 0.3) pt3dadd(-128.1, -32.3, 85.3, 0.3) pt3dadd(-128.9, -32.3, 85.4, 0.3) pt3dadd(-129.8, -33.1, 85.6, 0.3) pt3dadd(-130.8, -33.6, 85.7, 0.3) pt3dadd(-132, -34.4, 85.8, 0.3) pt3dadd(-132.9, -34.8, 85.9, 0.3) pt3dadd(-133.3, -35.6, 86, 0.3) pt3dadd(-134.3, -36.4, 86, 0.3) pt3dadd(-134.7, -37.3, 86.1, 0.3) pt3dadd(-135.6, -38.1, 86.1, 0.3) pt3dadd(-136.1, -39.1, 86.2, 0.3) pt3dadd(-136.9, -40, 86.2, 0.3) pt3dadd(-137.4, -41, 86.2, 0.3) pt3dadd(-138.3, -41.6, 86.2, 0.3) pt3dadd(-139.4, -42.5, 86.2, 0.3) pt3dadd(-140.4, -43.3, 86.2, 0.3) pt3dadd(-141.2, -43.7, 86.1, 0.3) pt3dadd(-142.3, -44.1, 86.1, 0.3) pt3dadd(-143.4, -44.7, 86, 0.3) pt3dadd(-144.3, -45.1, 86, 0.3) pt3dadd(-145.5, -45.1, 85.9, 0.3) pt3dadd(-146.5, -45.1, 85.8, 0.3) pt3dadd(-147.3, -45.5, 85.7, 0.3) pt3dadd(-148.2, -45.9, 85.6, 0.3) pt3dadd(-149.1, -45.9, 85.5, 0.3) pt3dadd(-150.2, -45.6, 85.4, 0.3) pt3dadd(-151.7, -45.6, 85.2, 0.3) pt3dadd(-152.6, -46.4, 85, 0.3) pt3dadd(-153.4, -46.4, 84.9, 0.3) pt3dadd(-154.2, -47, 84.7, 0.2) pt3dadd(-155.4, -47.7, 84.5, 0.2) pt3dadd(-156.2, -47.7, 84.3, 0.2) pt3dadd(-157.1, -48.2, 84.1, 0.2) pt3dadd(-158, -48.6, 83.9, 0.2) pt3dadd(-158.8, -48.6, 83.8, 0.2) pt3dadd(-159.8, -49, 83.6, 0.2) pt3dadd(-160.8, -49.4, 83.3, 0.2) pt3dadd(-161.8, -49.4, 83.1, 0.2) pt3dadd(-163, -49.8, 82.8, 0.2) pt3dadd(-163.8, -50.7, 82.4, 0.2) pt3dadd(-164.8, -51.7, 82.1, 0.2) pt3dadd(-165.7, -52.5, 81.7, 0.2) pt3dadd(-166.1, -53.3, 81.5, 0.2) pt3dadd(-166.1, -54.2, 81.2, 0.2) pt3dadd(-167.1, -54.7, 80.8, 0.2) pt3dadd(-167.9, -55.1, 80.6, 0.2) pt3dadd(-169, -55.6, 80.2, 0.2) pt3dadd(-169.8, -56.4, 79.8, 0.2) pt3dadd(-170.7, -56.8, 79.4, 0.2) pt3dadd(-171.7, -57.2, 79.1, 0.2) pt3dadd(-172.7, -58, 78.6, 0.2) pt3dadd(-174, -58.7, 78, 0.2) } dend[28] {pt3dclear() pt3dadd(-38.1, -5.9, 30, 0.3) pt3dadd(-39.1, -6.1, 30, 0.3) pt3dadd(-39.9, -5.8, 30, 0.3) pt3dadd(-40.7, -5.4, 30, 0.3) pt3dadd(-41.6, -5.4, 30, 0.3) pt3dadd(-42.5, -5.4, 30, 0.3) pt3dadd(-43.5, -5.4, 30, 0.3) pt3dadd(-44.4, -5.4, 30, 0.3) pt3dadd(-45.3, -5.4, 30, 0.3) pt3dadd(-46.1, -5.4, 30, 0.3) pt3dadd(-47, -5.4, 30, 0.3) pt3dadd(-47.9, -5, 30, 0.3) pt3dadd(-49, -4.7, 30, 0.3) pt3dadd(-49.9, -4.7, 30, 0.3) pt3dadd(-50.9, -4.4, 30, 0.3) pt3dadd(-51.7, -4.4, 30, 0.3) pt3dadd(-52.6, -4.4, 30, 0.3) pt3dadd(-53.5, -4.4, 30, 0.3) pt3dadd(-54.3, -4.4, 30, 0.3) pt3dadd(-55.2, -4.1, 30, 0.3) pt3dadd(-56, -4.1, 30, 0.3) pt3dadd(-57.2, -4.2, 30, 0.3) pt3dadd(-58.1, -3.8, 30, 0.3) pt3dadd(-58.9, -3.8, 30, 0.3) pt3dadd(-59.8, -3.3, 30, 0.3) pt3dadd(-60.9, -3, 30, 0.3) pt3dadd(-61.7, -3, 30, 0.3) pt3dadd(-63.1, -2.6, 30, 0.3) pt3dadd(-63.9, -2.6, 30, 0.3) pt3dadd(-64.8, -2.2, 30, 0.3) pt3dadd(-66, -2.2, 30, 0.3) pt3dadd(-67.2, -2.2, 30, 0.3) pt3dadd(-68, -2.2, 30, 0.3) pt3dadd(-68.8, -1.9, 30, 0.3) pt3dadd(-70, -1.6, 30, 0.3) pt3dadd(-71.3, -1.4, 30, 0.3) pt3dadd(-72.3, -1.1, 30, 0.3) pt3dadd(-73.2, -1.1, 30, 0.3) pt3dadd(-74.2, -1.1, 30, 0.3) pt3dadd(-75.3, -1.1, 30, 0.3) pt3dadd(-76.4, -1.1, 30, 0.3) pt3dadd(-77.5, -1.1, 30, 0.3) pt3dadd(-78.3, -1.1, 30, 0.3) pt3dadd(-79.2, -1.1, 30, 0.3) pt3dadd(-80.7, -1.1, 30, 0.3) pt3dadd(-82, -0.8, 30, 0.3) pt3dadd(-83, -0.8, 30, 0.3) pt3dadd(-84.1, -0.8, 30, 0.3) pt3dadd(-84.9, -0.8, 30, 0.3) pt3dadd(-85.8, -0.5, 30, 0.3) pt3dadd(-86.8, -0.5, 30, 0.3) pt3dadd(-87.7, -0.5, 30, 0.3) pt3dadd(-88.8, -0.5, 30, 0.3) pt3dadd(-89.6, -0.6, 30, 0.3) pt3dadd(-90.6, -0.2, 30, 0.3) pt3dadd(-91.5, -0.2, 30, 0.3) pt3dadd(-93.2, -0.2, 30, 0.3) pt3dadd(-94, -0.2, 30, 0.3) pt3dadd(-95.6, 0.1, 30, 0.3) pt3dadd(-96.5, 0.4, 30, 0.3) pt3dadd(-97.5, 0.4, 30, 0.3) pt3dadd(-98.7, 0.4, 30, 0.3) pt3dadd(-99.7, 0.4, 30, 0.3) pt3dadd(-100.8, 0, 30, 0.3) pt3dadd(-101.6, 0.3, 30, 0.3) pt3dadd(-102.9, 0.3, 30, 0.3) pt3dadd(-104, 0.3, 30, 0.3) pt3dadd(-105.1, 0.3, 30, 0.3) pt3dadd(-106.2, 0.3, 30, 0.3) pt3dadd(-107.3, 0.3, 30, 0.3) pt3dadd(-108.1, 0.6, 30, 0.3) pt3dadd(-109.5, 0.6, 30, 0.3) pt3dadd(-110.5, 1, 30, 0.3) pt3dadd(-111.3, 1.3, 30, 0.3) pt3dadd(-112.3, 1.6, 30, 0.3) pt3dadd(-113.2, 2.2, 30, 0.3) pt3dadd(-114.1, 2.2, 30, 0.3) pt3dadd(-115.5, 2.2, 30, 0.3) pt3dadd(-116.6, 2.2, 30, 0.3) pt3dadd(-117.4, 2.2, 30, 0.3) } } proc shape3d_32() { dend[28] { pt3dadd(-118.6, 2.2, 30, 0.3) pt3dadd(-119.6, 2.2, 30, 0.3) pt3dadd(-121.3, 2.6, 30, 0.3) pt3dadd(-122.1, 2.6, 30, 0.3) pt3dadd(-123.1, 2.9, 30, 0.3) pt3dadd(-124.3, 2.9, 30, 0.3) pt3dadd(-125.5, 3.3, 30, 0.3) pt3dadd(-126.4, 3.6, 30, 0.3) pt3dadd(-127.3, 3.9, 30, 0.3) pt3dadd(-128.8, 3.9, 30, 0.3) pt3dadd(-129.9, 3.9, 30, 0.3) pt3dadd(-130.9, 3.9, 30, 0.3) pt3dadd(-131.9, 3.9, 30, 0.3) pt3dadd(-132.8, 3.9, 30, 0.3) pt3dadd(-133.8, 4.2, 30, 0.3) pt3dadd(-134.7, 4.6, 30, 0.3) pt3dadd(-135.1, 5.3, 30, 0.3) pt3dadd(-135.9, 5.7, 30, 0.3) pt3dadd(-136.3, 6.4, 30, 0.3) pt3dadd(-137.1, 6.7, 30, 0.3) pt3dadd(-138.2, 7, 30, 0.3) pt3dadd(-139.1, 7.4, 30, 0.3) pt3dadd(-139.9, 8, 30, 0.3) pt3dadd(-140.7, 8.6, 30, 0.3) pt3dadd(-141.8, 9.4, 30, 0.3) pt3dadd(-142.6, 9.4, 30, 0.3) pt3dadd(-143.6, 10.1, 30, 0.3) pt3dadd(-144.5, 10.1, 30, 0.3) pt3dadd(-146.3, 10.2, 30, 0.2) pt3dadd(-147.5, 10, 30, 0.2) pt3dadd(-148.7, 10.7, 30, 0.2) pt3dadd(-149.5, 11, 30, 0.2) pt3dadd(-150.6, 11, 30, 0.2) pt3dadd(-151.6, 11, 30, 0.2) pt3dadd(-152.7, 10.6, 30, 0.2) pt3dadd(-153.6, 10.6, 30, 0.2) pt3dadd(-154.7, 10.2, 30, 0.2) pt3dadd(-155.7, 10.2, 30, 0.2) pt3dadd(-156.5, 10.6, 30, 0.2) pt3dadd(-157.5, 10.6, 30, 0.2) pt3dadd(-158.6, 10.6, 30, 0.2) pt3dadd(-159.8, 10.2, 30, 0.2) } dend[29] {pt3dclear() pt3dadd(-18.2, 7.4, 30, 0.7) pt3dadd(-19.2, 7.5, 30, 0.7) pt3dadd(-19.6, 8.2, 30, 0.7) pt3dadd(-20.4, 8.6, 30, 0.7) pt3dadd(-21.3, 8.9, 30, 0.7) pt3dadd(-22.1, 8.9, 30, 0.7) pt3dadd(-22.9, 8.9, 30, 0.7) pt3dadd(-23.9, 9.4, 30, 0.7) } dend[30] {pt3dclear() pt3dadd(-23.9, 9.4, 30, 0.7) pt3dadd(-25.2, 9.7, 30, 0.7) pt3dadd(-26.1, 10.5, 30, 0.7) pt3dadd(-27.1, 11, 30, 0.7) pt3dadd(-27.5, 11.7, 30, 0.7) pt3dadd(-28, 12.5, 30, 0.7) pt3dadd(-28.4, 13.6, 30, 0.7) pt3dadd(-29.3, 14.2, 30, 0.7) pt3dadd(-29.7, 15.3, 30, 0.7) pt3dadd(-30.3, 16.6, 30, 0.7) } dend[31] {pt3dclear() pt3dadd(-30.3, 16.6, 30, 0.7) pt3dadd(-29.7, 17.8, 30.1, 0.7) pt3dadd(-28.9, 18.4, 30.2, 0.7) pt3dadd(-28.6, 19.6, 30.4, 0.7) pt3dadd(-28.3, 20.5, 30.7, 0.7) pt3dadd(-28.5, 22.1, 31.2, 0.3) pt3dadd(-28.1, 22.9, 31.6, 0.3) pt3dadd(-28.1, 23.7, 32, 0.3) pt3dadd(-28.5, 24.5, 32.4, 0.3) pt3dadd(-28.5, 25.5, 33, 0.3) pt3dadd(-28.5, 26.4, 33.5, 0.3) pt3dadd(-29, 27.3, 34.2, 0.3) pt3dadd(-29.5, 28.1, 34.8, 0.3) pt3dadd(-29.9, 28.9, 35.4, 0.3) pt3dadd(-29.9, 29.7, 36, 0.3) pt3dadd(-29.9, 30.6, 36.7, 0.3) pt3dadd(-30.4, 31.3, 37.4, 0.3) pt3dadd(-30.8, 32.1, 38.1, 0.3) pt3dadd(-30.8, 33.3, 39.1, 0.3) pt3dadd(-31.3, 34.1, 39.9, 0.3) pt3dadd(-32.5, 35, 41.2, 0.3) pt3dadd(-32.9, 36.3, 42.5, 0.3) pt3dadd(-32.9, 37.2, 43.3, 0.3) pt3dadd(-32.9, 38.4, 44.4, 0.3) pt3dadd(-32.9, 39.7, 45.7, 0.3) pt3dadd(-32.9, 40.5, 46.4, 0.3) pt3dadd(-33.3, 41.6, 47.4, 0.3) pt3dadd(-33.7, 42.3, 48.2, 0.3) pt3dadd(-34.1, 43.3, 49.2, 0.3) pt3dadd(-34.1, 44.4, 50.2, 0.3) pt3dadd(-34.5, 45.4, 51.2, 0.3) pt3dadd(-34.9, 46.1, 51.9, 0.3) pt3dadd(-35.3, 47, 52.7, 0.3) pt3dadd(-35.8, 47.8, 53.5, 0.3) pt3dadd(-35.8, 48.8, 54.3, 0.3) pt3dadd(-36.2, 50.1, 55.4, 0.3) pt3dadd(-36.6, 51, 56.1, 0.3) pt3dadd(-36.6, 51.9, 56.7, 0.3) pt3dadd(-36.6, 52.9, 57.4, 0.3) pt3dadd(-37, 53.7, 57.9, 0.3) pt3dadd(-37, 54.9, 58.7, 0.3) pt3dadd(-37.4, 55.9, 59.3, 0.3) pt3dadd(-38.2, 57.3, 60, 0.3) pt3dadd(-38.7, 58.1, 60.4, 0.3) pt3dadd(-39.7, 59.3, 61.1, 0.3) pt3dadd(-40.2, 59.9, 61.4, 0.3) pt3dadd(-40.6, 60.6, 61.8, 0.3) pt3dadd(-41.5, 61.1, 62.2, 0.3) pt3dadd(-42.1, 62.5, 62.8, 0.3) pt3dadd(-42.9, 63.2, 63.3, 0.3) pt3dadd(-43.7, 64.3, 63.9, 0.3) pt3dadd(-44.1, 65.2, 64.3, 0.3) pt3dadd(-44.1, 66, 64.6, 0.3) pt3dadd(-44.5, 66.7, 64.9, 0.3) pt3dadd(-44.9, 67.7, 65.4, 0.3) pt3dadd(-45.5, 69, 66, 0.3) pt3dadd(-45.9, 69.9, 66.3, 0.3) pt3dadd(-46.7, 70.6, 66.8, 0.3) pt3dadd(-47.2, 71.5, 67.2, 0.3) pt3dadd(-47.6, 72.3, 67.5, 0.3) pt3dadd(-48.5, 72.3, 67.9, 0.3) pt3dadd(-49.9, 73.3, 68.6, 0.3) pt3dadd(-50.9, 74, 69, 0.3) pt3dadd(-51.8, 74.3, 69.4, 0.3) pt3dadd(-52.7, 74.9, 69.8, 0.3) pt3dadd(-53.7, 75.2, 70.2, 0.3) pt3dadd(-54.8, 75.6, 70.6, 0.3) pt3dadd(-55.7, 75.6, 71, 0.3) pt3dadd(-56.7, 75.9, 71.4, 0.3) pt3dadd(-57.6, 76.2, 71.7, 0.3) pt3dadd(-58.6, 76.6, 72.1, 0.3) pt3dadd(-59.7, 76.9, 72.6, 0.3) pt3dadd(-60.6, 76.9, 72.9, 0.3) pt3dadd(-61.7, 76.9, 73.3, 0.3) pt3dadd(-62.6, 76.5, 73.6, 0.3) pt3dadd(-63.5, 76, 74, 0.3) pt3dadd(-64.4, 76, 74.3, 0.3) pt3dadd(-65.3, 75.6, 74.6, 0.3) pt3dadd(-66.3, 75.6, 75, 0.3) pt3dadd(-67.2, 75.6, 75.3, 0.3) pt3dadd(-68.2, 75.6, 75.6, 0.3) pt3dadd(-69, 76, 75.9, 0.3) pt3dadd(-70, 76, 76.3, 0.3) pt3dadd(-70.9, 76, 76.6, 0.3) pt3dadd(-71.8, 76.3, 76.9, 0.3) pt3dadd(-72.6, 76.6, 77.1, 0.3) pt3dadd(-73.6, 76.9, 77.5, 0.3) pt3dadd(-74.5, 76.9, 77.8, 0.3) pt3dadd(-75.6, 76.9, 78.1, 0.3) pt3dadd(-76.5, 76.9, 78.4, 0.3) pt3dadd(-77.4, 76.9, 78.7, 0.3) pt3dadd(-78.3, 76.9, 79, 0.3) pt3dadd(-79.4, 76.8, 79.3, 0.3) pt3dadd(-80.8, 77.1, 79.7, 0.3) pt3dadd(-81.8, 77.4, 80, 0.3) pt3dadd(-82.6, 77.4, 80.3, 0.3) pt3dadd(-83.5, 77.4, 80.5, 0.3) pt3dadd(-83.9, 78.4, 80.8, 0.3) pt3dadd(-84.7, 79, 81.1, 0.3) pt3dadd(-85.5, 80, 81.5, 0.3) pt3dadd(-86.4, 80.3, 81.7, 0.3) pt3dadd(-87.3, 80.6, 82, 0.3) pt3dadd(-88.1, 80.6, 82.2, 0.3) pt3dadd(-88.9, 80.6, 82.4, 0.3) pt3dadd(-90, 81.2, 82.8, 0.3) pt3dadd(-90.9, 81.6, 83, 0.3) pt3dadd(-91.8, 81.6, 83.2, 0.3) pt3dadd(-92.8, 82, 83.5, 0.3) pt3dadd(-93.2, 82.6, 83.7, 0.3) pt3dadd(-94, 83.2, 83.9, 0.3) pt3dadd(-94.5, 84, 84.2, 0.3) pt3dadd(-95.6, 84.9, 84.5, 0.3) pt3dadd(-96.7, 85.6, 84.8, 0.3) pt3dadd(-97.2, 86.3, 85, 0.3) pt3dadd(-98.1, 86.6, 85.2, 0.3) pt3dadd(-98.9, 87, 85.4, 0.3) pt3dadd(-99.9, 87.6, 85.7, 0.3) pt3dadd(-100.7, 88.3, 85.9, 0.3) pt3dadd(-102, 89, 86.2, 0.3) pt3dadd(-102.4, 89.8, 86.4, 0.3) pt3dadd(-102.8, 90.6, 86.5, 0.3) pt3dadd(-103.8, 91.2, 86.8, 0.3) pt3dadd(-104.7, 91.2, 86.9, 0.3) pt3dadd(-105.5, 91.6, 87.1, 0.3) pt3dadd(-106.6, 92, 87.3, 0.3) pt3dadd(-107.4, 93, 87.5, 0.3) pt3dadd(-108.6, 93.8, 87.8, 0.3) pt3dadd(-109.7, 94.5, 88, 0.3) pt3dadd(-110.6, 95.6, 88.2, 0.3) pt3dadd(-111.1, 96.4, 88.4, 0.3) pt3dadd(-111.5, 97.1, 88.5, 0.3) pt3dadd(-111.9, 98, 88.6, 0.3) pt3dadd(-112.7, 98.8, 88.8, 0.3) pt3dadd(-113.9, 99.9, 89, 0.3) pt3dadd(-114.5, 100.6, 89.1, 0.3) pt3dadd(-115.1, 101.3, 89.3, 0.3) pt3dadd(-115.7, 102, 89.4, 0.3) pt3dadd(-116.7, 102.6, 89.5, 0.3) pt3dadd(-117.1, 103.3, 89.6, 0.3) pt3dadd(-118, 104.3, 89.7, 0.3) } } proc shape3d_33() { dend[31] { pt3dadd(-118.4, 105, 89.8, 0.3) pt3dadd(-119.2, 105.3, 89.9, 0.3) pt3dadd(-120.2, 105.8, 90, 0.3) } dend[32] {pt3dclear() pt3dadd(-30.3, 16.6, 30, 0.7) pt3dadd(-31, 17.6, 30.1, 0.3) pt3dadd(-31.8, 18.4, 30.2, 0.3) pt3dadd(-32.7, 19.1, 30.5, 0.3) pt3dadd(-33.1, 20, 30.8, 0.3) pt3dadd(-33.5, 20.9, 31.2, 0.3) pt3dadd(-33.9, 21.8, 31.7, 0.3) pt3dadd(-33.9, 23, 32.3, 0.3) pt3dadd(-34.3, 24.5, 33.3, 0.3) pt3dadd(-34.7, 25.3, 33.9, 0.3) pt3dadd(-34.7, 26.2, 34.6, 0.3) pt3dadd(-34.7, 27.2, 35.4, 0.3) pt3dadd(-34.7, 28, 36.1, 0.3) pt3dadd(-35.1, 28.7, 36.8, 0.3) pt3dadd(-35.5, 29.5, 37.7, 0.3) pt3dadd(-35.5, 30.4, 38.5, 0.3) pt3dadd(-35.5, 31.9, 40, 0.3) pt3dadd(-35.9, 33.4, 41.7, 0.3) pt3dadd(-35.9, 34.8, 43.2, 0.3) pt3dadd(-35.9, 35.6, 44.1, 0.3) pt3dadd(-35.9, 36.9, 45.7, 0.3) pt3dadd(-36.3, 38.5, 47.6, 0.3) pt3dadd(-36.3, 39.6, 48.9, 0.3) pt3dadd(-36.7, 40.5, 50.2, 0.3) pt3dadd(-36.7, 41.6, 51.4, 0.3) pt3dadd(-37.2, 42.2, 52.4, 0.3) pt3dadd(-37.2, 43.7, 54.2, 0.3) pt3dadd(-37.2, 44.5, 55.2, 0.3) pt3dadd(-37.6, 45.4, 56.4, 0.3) pt3dadd(-37.6, 46.4, 57.6, 0.3) pt3dadd(-38, 47.3, 58.8, 0.3) pt3dadd(-38.6, 48.1, 60, 0.3) pt3dadd(-38.7, 49.2, 61.4, 0.3) pt3dadd(-38.7, 50.1, 62.9, 0.3) pt3dadd(-38.7, 51.3, 65.4, 0.3) pt3dadd(-38.7, 52.1, 67.2, 0.3) pt3dadd(-38.7, 52.9, 69, 0.3) pt3dadd(-38.7, 53.7, 71.2, 0.3) pt3dadd(-39.2, 54.6, 73.6, 0.3) pt3dadd(-40.1, 55.5, 76.5, 0.3) pt3dadd(-40.1, 56.5, 78.8, 0.3) pt3dadd(-40.9, 57.2, 80.8, 0.3) pt3dadd(-40.9, 58, 82.1, 0.3) pt3dadd(-41.7, 59.3, 84, 0.3) } dend[33] {pt3dclear() pt3dadd(-41.7, 59.3, 84, 0.3) pt3dadd(-42.1, 60.4, 85.5, 0.3) pt3dadd(-42.1, 61.7, 87.1, 0.3) pt3dadd(-42.5, 62.6, 88.3, 0.3) pt3dadd(-42.5, 63.5, 89.3, 0.3) pt3dadd(-42.5, 64.7, 90.7, 0.3) pt3dadd(-42.9, 66, 92.2, 0.3) pt3dadd(-42.9, 67.2, 93.5, 0.3) pt3dadd(-42.9, 68.1, 94.4, 0.3) pt3dadd(-42.9, 69.6, 96, 0.3) pt3dadd(-43.3, 71.1, 97.4, 0.3) pt3dadd(-43.7, 72.4, 98.7, 0.3) pt3dadd(-43.7, 73.2, 99.4, 0.3) pt3dadd(-43.7, 74, 100.1, 0.3) pt3dadd(-43.4, 75.1, 101.1, 0.3) pt3dadd(-43.4, 76, 101.8, 0.3) pt3dadd(-43.1, 77, 102.7, 0.3) pt3dadd(-43.1, 78, 103.4, 0.3) pt3dadd(-43.1, 79.3, 104.4, 0.3) pt3dadd(-43.6, 80.4, 105.3, 0.3) pt3dadd(-43.6, 81.2, 105.8, 0.3) pt3dadd(-43.6, 82.1, 106.4, 0.3) pt3dadd(-42.9, 83, 107.1, 0.3) pt3dadd(-42.5, 84.5, 108.1, 0.3) pt3dadd(-42.2, 85.9, 108.9, 0.3) pt3dadd(-41.9, 87, 109.6, 0.3) pt3dadd(-41.9, 88, 110.1, 0.3) pt3dadd(-41.9, 89.2, 110.7, 0.3) pt3dadd(-42.3, 90.5, 111.3, 0.3) pt3dadd(-42.7, 91.9, 111.9, 0.3) pt3dadd(-42.7, 92.8, 112.3, 0.3) pt3dadd(-43.1, 94, 112.8, 0.3) pt3dadd(-43.5, 95.2, 113.2, 0.3) pt3dadd(-44, 96, 113.6, 0.3) pt3dadd(-44, 96.8, 113.8, 0.3) pt3dadd(-44, 97.9, 114.1, 0.3) pt3dadd(-44.4, 98.8, 114.4, 0.3) pt3dadd(-44.4, 99.8, 114.6, 0.3) pt3dadd(-44.4, 100.7, 114.8, 0.3) pt3dadd(-44.4, 101.6, 115, 0.3) pt3dadd(-44.4, 102.8, 115.2, 0.3) pt3dadd(-44.1, 104.1, 115.4, 0.3) pt3dadd(-42.9, 105.9, 115.7, 0.3) pt3dadd(-42.9, 106.7, 115.7, 0.3) pt3dadd(-42.6, 107.5, 115.8, 0.3) pt3dadd(-43, 108.9, 115.9, 0.3) pt3dadd(-43.5, 109.7, 115.9, 0.3) pt3dadd(-43.5, 110.5, 115.9, 0.3) pt3dadd(-44, 111.6, 115.9, 0.3) pt3dadd(-44.5, 112.4, 115.8, 0.3) pt3dadd(-45.1, 113.4, 115.8, 0.3) pt3dadd(-45.6, 114.3, 115.7, 0.3) pt3dadd(-45.6, 115.8, 115.5, 0.3) pt3dadd(-46.1, 117.1, 115.3, 0.3) pt3dadd(-46.1, 118.6, 115.1, 0.3) pt3dadd(-46.5, 119.5, 114.9, 0.3) pt3dadd(-46.5, 120.7, 114.6, 0.3) pt3dadd(-46.5, 121.7, 114.4, 0.3) pt3dadd(-46.5, 122.6, 114.2, 0.3) pt3dadd(-46.9, 123.7, 113.9, 0.3) pt3dadd(-47.3, 125.1, 113.5, 0.3) pt3dadd(-47.3, 126.2, 113.1, 0.3) pt3dadd(-47.8, 127.2, 112.7, 0.3) pt3dadd(-48.5, 128.7, 112.1, 0.3) pt3dadd(-48.5, 129.6, 111.8, 0.3) pt3dadd(-48.9, 130.3, 111.5, 0.3) pt3dadd(-48.9, 131.3, 111.1, 0.3) pt3dadd(-48.9, 132.5, 110.5, 0.3) pt3dadd(-48.9, 133.7, 110, 0.3) pt3dadd(-49.4, 135.5, 109.1, 0.3) pt3dadd(-49.8, 136.4, 108.6, 0.3) pt3dadd(-49.8, 137.3, 108.1, 0.3) pt3dadd(-50.3, 137.9, 107.7, 0.3) pt3dadd(-50.8, 139.3, 106.9, 0.3) pt3dadd(-51.4, 139.9, 106.4, 0.3) pt3dadd(-52.2, 140.6, 105.8, 0.3) pt3dadd(-52.7, 141.2, 105.3, 0.3) pt3dadd(-53.7, 142.1, 104.5, 0.3) pt3dadd(-54.5, 143.1, 103.7, 0.3) pt3dadd(-55.1, 144.7, 102.6, 0.3) pt3dadd(-55.6, 145.4, 102, 0.3) pt3dadd(-56, 146.1, 101.4, 0.3) pt3dadd(-56, 147.5, 100.4, 0.3) pt3dadd(-56.5, 148.5, 99.6, 0.3) pt3dadd(-56.5, 149.4, 98.9, 0.3) pt3dadd(-56.5, 150.2, 98.3, 0.3) pt3dadd(-56.9, 151.3, 97.4, 0.3) pt3dadd(-57.4, 152, 96.7, 0.3) pt3dadd(-58.3, 152.6, 95.9, 0.3) pt3dadd(-59.3, 154.2, 94.4, 0.3) pt3dadd(-59.9, 154.9, 93.6, 0.3) pt3dadd(-60.7, 155.6, 92.7, 0.3) pt3dadd(-61.7, 156.3, 91.6, 0.3) pt3dadd(-62.8, 157, 90.5, 0.3) pt3dadd(-63.6, 157.8, 89.4, 0.3) pt3dadd(-64.8, 158.6, 88.2, 0.3) pt3dadd(-65.7, 159.4, 87, 0.3) pt3dadd(-66.1, 160.1, 86.2, 0.3) pt3dadd(-67.1, 160.9, 85, 0.3) pt3dadd(-67.5, 161.8, 84, 0.3) } dend[34] {pt3dclear() pt3dadd(-41.7, 59.3, 84, 0.3) pt3dadd(-42.7, 60.1, 84.1, 0.3) pt3dadd(-43.9, 60.4, 83, 0.3) pt3dadd(-44.7, 61, 81.6, 0.3) pt3dadd(-45.6, 61.3, 79.8, 0.3) pt3dadd(-46.5, 62.1, 77.3, 0.3) pt3dadd(-47.5, 62.7, 74.4, 0.3) pt3dadd(-48.3, 63.1, 72.1, 0.3) pt3dadd(-48.8, 63.7, 70, 0.3) pt3dadd(-49.2, 64.5, 67.8, 0.3) pt3dadd(-50.1, 65.4, 64.8, 0.3) pt3dadd(-51, 66.1, 62.7, 0.3) pt3dadd(-51.9, 66.4, 61.3, 0.3) pt3dadd(-52.7, 67.1, 60.3, 0.3) pt3dadd(-53.2, 67.7, 60, 0.3) pt3dadd(-53.6, 68.6, 59.9, 0.3) pt3dadd(-54.1, 69.7, 59.8, 0.3) pt3dadd(-54.9, 70.6, 59.6, 0.3) pt3dadd(-55.7, 71.2, 59.5, 0.3) pt3dadd(-56.7, 72, 59.4, 0.3) pt3dadd(-57.6, 72.8, 59.3, 0.3) pt3dadd(-58.5, 74, 59.1, 0.3) pt3dadd(-59.5, 74.8, 59, 0.3) pt3dadd(-60.5, 75.3, 58.8, 0.3) pt3dadd(-60.9, 76.1, 58.8, 0.3) pt3dadd(-62, 76.8, 58.6, 0.3) pt3dadd(-62.9, 78, 58.5, 0.3) pt3dadd(-63.3, 78.7, 58.5, 0.3) pt3dadd(-64.3, 79.4, 58.4, 0.3) pt3dadd(-64.8, 80.2, 58.3, 0.3) pt3dadd(-65.7, 81, 58.2, 0.3) pt3dadd(-66.8, 81.7, 58.2, 0.3) pt3dadd(-67.6, 82, 58.1, 0.3) pt3dadd(-68.7, 82.9, 58, 0.3) pt3dadd(-69.2, 83.6, 58, 0.3) pt3dadd(-69.6, 84.3, 58, 0.3) pt3dadd(-70.2, 85, 58, 0.3) pt3dadd(-70.8, 85.6, 58, 0.3) pt3dadd(-71.2, 86.4, 57.9, 0.3) pt3dadd(-72.4, 86.7, 57.9, 0.3) pt3dadd(-73.6, 87, 58, 0.3) pt3dadd(-74.7, 87.3, 58, 0.3) pt3dadd(-75.2, 88, 58, 0.3) pt3dadd(-76.3, 88.8, 58.1, 0.3) pt3dadd(-76.7, 89.6, 58.1, 0.3) pt3dadd(-77.7, 89.6, 58.2, 0.3) pt3dadd(-78.7, 90, 58.2, 0.3) pt3dadd(-80, 90, 58.3, 0.3) pt3dadd(-80.9, 90.7, 58.5, 0.3) pt3dadd(-81.8, 91.4, 58.6, 0.3) pt3dadd(-82.4, 92.1, 58.7, 0.3) pt3dadd(-83.2, 92.8, 58.8, 0.3) pt3dadd(-84.3, 93.6, 59, 0.3) } } proc shape3d_34() { dend[34] { pt3dadd(-84.7, 94.4, 59.2, 0.3) pt3dadd(-85.1, 95.2, 59.4, 0.3) pt3dadd(-85.9, 95.9, 59.6, 0.3) pt3dadd(-86.4, 96.6, 59.7, 0.3) pt3dadd(-87.2, 97.6, 60, 0.3) pt3dadd(-87.6, 98.4, 60.2, 0.3) pt3dadd(-88.4, 98.8, 60.4, 0.3) pt3dadd(-88.8, 99.5, 60.6, 0.3) pt3dadd(-89.3, 100.2, 60.8, 0.3) pt3dadd(-89.7, 101.2, 61, 0.3) pt3dadd(-90.7, 102, 61.3, 0.3) pt3dadd(-91.1, 102.8, 61.5, 0.3) pt3dadd(-91.6, 103.6, 61.7, 0.3) pt3dadd(-92.7, 104, 62, 0.3) pt3dadd(-93.6, 104.4, 62.2, 0.3) pt3dadd(-94.7, 105.2, 62.5, 0.3) pt3dadd(-95.8, 105.9, 62.8, 0.3) pt3dadd(-96.8, 106.5, 63, 0.3) pt3dadd(-97.7, 107.1, 63.3, 0.3) pt3dadd(-98.5, 107.5, 63.4, 0.3) pt3dadd(-99.4, 108.3, 63.7, 0.3) pt3dadd(-100.4, 108.7, 63.9, 0.3) pt3dadd(-101.3, 108.7, 64.1, 0.3) pt3dadd(-102.2, 109, 64.3, 0.3) pt3dadd(-103, 109, 64.5, 0.3) pt3dadd(-103.8, 109, 64.7, 0.3) pt3dadd(-104.6, 109, 64.8, 0.3) pt3dadd(-105.4, 109, 65, 0.3) pt3dadd(-106.3, 109.3, 65.2, 0.3) pt3dadd(-107.3, 109.3, 65.4, 0.3) pt3dadd(-108.3, 109.3, 65.6, 0.3) pt3dadd(-109.5, 109.3, 65.9, 0.3) pt3dadd(-110.5, 109.3, 66.1, 0.3) pt3dadd(-111.5, 108.9, 66.4, 0.3) pt3dadd(-112.6, 108.9, 66.6, 0.3) pt3dadd(-113.5, 109.2, 66.8, 0.3) pt3dadd(-114.4, 109.5, 67, 0.3) pt3dadd(-115.3, 109.5, 67.2, 0.3) pt3dadd(-116.2, 109.9, 67.4, 0.3) pt3dadd(-117.1, 109.9, 67.6, 0.3) pt3dadd(-117.9, 109.5, 67.8, 0.3) pt3dadd(-118.7, 109.5, 68, 0.3) pt3dadd(-120.1, 109.5, 68.3, 0.3) pt3dadd(-121.1, 109.5, 68.6, 0.3) pt3dadd(-122.3, 109.5, 68.9, 0.3) pt3dadd(-123.3, 109.5, 69.1, 0.3) pt3dadd(-124.1, 109.5, 69.3, 0.3) pt3dadd(-125.1, 109.5, 69.5, 0.3) pt3dadd(-125.9, 109.5, 69.7, 0.3) pt3dadd(-127.3, 109.5, 70, 0.3) pt3dadd(-128.3, 109.5, 70.3, 0.3) pt3dadd(-129.6, 109.8, 70.6, 0.3) pt3dadd(-130.5, 110.5, 70.9, 0.3) pt3dadd(-131.4, 111.1, 71.1, 0.3) pt3dadd(-132.2, 111.5, 71.4, 0.3) pt3dadd(-133.1, 111.5, 71.6, 0.3) pt3dadd(-133.9, 111.5, 71.8, 0.3) pt3dadd(-134.8, 111.8, 72, 0.3) pt3dadd(-136.4, 111.8, 72.5, 0.2) pt3dadd(-137.7, 111.8, 72.8, 0.2) pt3dadd(-138.9, 111.8, 73.1, 0.2) pt3dadd(-139.8, 111.4, 73.4, 0.2) pt3dadd(-140.7, 111.8, 73.7, 0.2) pt3dadd(-142.1, 112.9, 74.1, 0.2) pt3dadd(-143.1, 113.5, 74.5, 0.2) pt3dadd(-144.4, 113.5, 74.8, 0.2) pt3dadd(-145.5, 113.5, 75.2, 0.2) pt3dadd(-146.4, 113.5, 75.4, 0.2) pt3dadd(-146.9, 114.2, 75.7, 0.2) pt3dadd(-147.3, 115.1, 76, 0.2) pt3dadd(-147.8, 115.9, 76.2, 0.2) pt3dadd(-148.2, 116.7, 76.5, 0.2) pt3dadd(-148.7, 117.5, 76.8, 0.2) pt3dadd(-149.3, 118.2, 77.1, 0.2) pt3dadd(-149.8, 119.1, 77.4, 0.2) pt3dadd(-150.4, 119.9, 77.7, 0.2) pt3dadd(-151.4, 120.9, 78.2, 0.2) pt3dadd(-152.1, 121.4, 78.4, 0.2) pt3dadd(-153, 122, 78.8, 0.2) pt3dadd(-154.1, 122.7, 79.2, 0.2) pt3dadd(-154.5, 123.6, 79.6, 0.2) pt3dadd(-155.4, 124.6, 80, 0.2) pt3dadd(-155.9, 125.4, 80.4, 0.2) pt3dadd(-157.2, 126.1, 80.9, 0.2) pt3dadd(-158.2, 126.7, 81.3, 0.2) pt3dadd(-159.2, 127.1, 81.7, 0.2) pt3dadd(-160.2, 127.7, 82.1, 0.2) pt3dadd(-161.1, 128, 82.5, 0.2) pt3dadd(-162, 128.7, 82.9, 0.2) pt3dadd(-162.8, 129.5, 83.3, 0.2) pt3dadd(-163.2, 130.2, 83.7, 0.2) pt3dadd(-164, 130.5, 84, 0.2) } dend[35] {pt3dclear() pt3dadd(-23.9, 9.4, 30, 0.7) pt3dadd(-24.1, 10.4, 30, 0.7) pt3dadd(-24.5, 11.3, 30, 0.7) pt3dadd(-24.9, 12.2, 30, 0.7) pt3dadd(-25.4, 12.9, 30, 0.7) pt3dadd(-25.9, 13.6, 30, 0.7) pt3dadd(-27.3, 14.2, 30, 0.7) pt3dadd(-28.4, 14.6, 30, 0.7) pt3dadd(-29.2, 14.9, 30, 0.7) pt3dadd(-30.2, 15.4, 30, 0.7) } dend[36] {pt3dclear() pt3dadd(-30.2, 15.4, 30, 0.7) pt3dadd(-31.3, 15.3, 30, 0.3) pt3dadd(-32.1, 15.6, 30, 0.3) pt3dadd(-33, 16.2, 30, 0.3) pt3dadd(-34, 16.6, 30, 0.3) pt3dadd(-34.9, 16.6, 30, 0.3) pt3dadd(-35.9, 16.9, 30, 0.3) pt3dadd(-36.8, 16.9, 30, 0.3) pt3dadd(-37.7, 16.9, 30, 0.3) pt3dadd(-38.5, 17.2, 30, 0.3) pt3dadd(-39.6, 17.2, 30, 0.3) pt3dadd(-40.5, 16.8, 30, 0.3) pt3dadd(-41.3, 16.8, 30, 0.3) pt3dadd(-42.5, 16.4, 30, 0.3) pt3dadd(-43.7, 16, 30, 0.3) pt3dadd(-45.3, 16, 30, 0.3) pt3dadd(-46.1, 15.5, 30, 0.3) pt3dadd(-47.3, 15, 30, 0.3) pt3dadd(-48.1, 15, 30, 0.3) pt3dadd(-49.1, 14.6, 30, 0.3) pt3dadd(-49.9, 14.6, 30, 0.3) pt3dadd(-50.9, 14.6, 30, 0.3) pt3dadd(-51.9, 14.6, 30, 0.3) pt3dadd(-52.9, 14.2, 30, 0.3) pt3dadd(-54.1, 14.2, 30, 0.3) pt3dadd(-55.3, 14.2, 30, 0.3) pt3dadd(-56.3, 14.2, 30, 0.3) pt3dadd(-57.1, 14.6, 30, 0.3) pt3dadd(-58.5, 14.6, 30, 0.3) pt3dadd(-59.3, 15, 30, 0.3) pt3dadd(-60.3, 15.3, 30, 0.3) pt3dadd(-61.3, 15.6, 30, 0.3) pt3dadd(-62.4, 15.6, 30, 0.3) pt3dadd(-63.2, 15.9, 30, 0.3) pt3dadd(-64.4, 15.9, 30, 0.3) pt3dadd(-65.3, 16.3, 30, 0.3) pt3dadd(-66.4, 16.7, 30, 0.3) pt3dadd(-67.3, 17, 30, 0.3) pt3dadd(-68.3, 17.4, 30, 0.3) pt3dadd(-69.5, 17.7, 30, 0.3) pt3dadd(-70.5, 17.7, 30, 0.3) pt3dadd(-71.5, 17.7, 30, 0.3) pt3dadd(-72.5, 17.7, 30, 0.3) pt3dadd(-73.6, 17.7, 30, 0.3) pt3dadd(-74.5, 17.7, 30, 0.3) pt3dadd(-75.6, 17.3, 30, 0.3) pt3dadd(-76.7, 17.7, 30, 0.3) pt3dadd(-77.6, 18, 30, 0.3) pt3dadd(-78.4, 18.1, 30, 0.3) } dend[37] {pt3dclear() pt3dadd(-78.4, 18.1, 30, 0.3) pt3dadd(-79.6, 17.4, 30, 0.3) pt3dadd(-80.8, 17, 30, 0.3) pt3dadd(-81.7, 16.6, 30, 0.3) pt3dadd(-82.6, 16.2, 30, 0.3) pt3dadd(-83.5, 16.2, 30, 0.3) pt3dadd(-84.4, 16.2, 30, 0.3) pt3dadd(-85.2, 16.2, 30, 0.3) pt3dadd(-86.1, 15.8, 30, 0.3) pt3dadd(-86.9, 15, 30, 0.3) pt3dadd(-88.1, 14.9, 30, 0.3) } dend[38] {pt3dclear() pt3dadd(-88.1, 14.9, 30, 0.3) pt3dadd(-88.9, 14.4, 30, 0.3) pt3dadd(-89.3, 13.6, 30, 0.3) pt3dadd(-89.7, 12.8, 30, 0.3) pt3dadd(-90.6, 12.3, 30, 0.3) pt3dadd(-91.6, 11.9, 30, 0.3) pt3dadd(-92.8, 11.9, 30, 0.3) pt3dadd(-93.8, 11.9, 30, 0.3) pt3dadd(-94.8, 11.9, 30.1, 0.3) pt3dadd(-95.6, 11.5, 30.1, 0.3) pt3dadd(-96.5, 11.1, 30.1, 0.3) pt3dadd(-97.3, 10.7, 30.1, 0.3) pt3dadd(-98.3, 10.2, 30.1, 0.3) pt3dadd(-99.2, 9.7, 30.1, 0.3) pt3dadd(-100.1, 9.3, 30.2, 0.3) pt3dadd(-101.1, 9.3, 30.2, 0.3) pt3dadd(-102, 8.9, 30.2, 0.3) pt3dadd(-102.9, 8.5, 30.2, 0.3) pt3dadd(-104, 8.1, 30.3, 0.3) pt3dadd(-104.7, 7.6, 30.3, 0.3) pt3dadd(-105.7, 7.2, 30.3, 0.3) pt3dadd(-106.1, 6.4, 30.4, 0.3) pt3dadd(-107, 6, 30.4, 0.3) pt3dadd(-108.3, 5.6, 30.5, 0.3) pt3dadd(-109.1, 5, 30.5, 0.3) pt3dadd(-110.1, 4.2, 30.5, 0.3) pt3dadd(-111.1, 3.8, 30.6, 0.3) pt3dadd(-111.8, 3.3, 30.6, 0.3) pt3dadd(-112.7, 2.4, 30.7, 0.3) pt3dadd(-113.7, 1.9, 30.7, 0.3) pt3dadd(-114.6, 1.4, 30.8, 0.3) pt3dadd(-115.5, 0.6, 30.8, 0.3) pt3dadd(-116.5, 0.2, 30.9, 0.3) pt3dadd(-118.2, -0.6, 31, 0.3) pt3dadd(-119.1, -1.1, 31, 0.3) pt3dadd(-120.2, -1.5, 31.1, 0.3) pt3dadd(-121.1, -1.9, 31.2, 0.3) pt3dadd(-122.3, -2.8, 31.2, 0.3) } } proc shape3d_35() { dend[38] { pt3dadd(-123.4, -3.2, 31.3, 0.3) pt3dadd(-124.4, -3.6, 31.4, 0.3) pt3dadd(-125.7, -3.6, 31.5, 0.3) pt3dadd(-126.7, -4.1, 31.5, 0.3) pt3dadd(-127.5, -5, 31.6, 0.3) pt3dadd(-128, -5.8, 31.7, 0.3) pt3dadd(-128.4, -6.7, 31.7, 0.3) pt3dadd(-129.8, -7.2, 31.8, 0.3) pt3dadd(-130.7, -8, 31.9, 0.3) pt3dadd(-131.5, -8.4, 32, 0.3) pt3dadd(-132.3, -8.8, 32, 0.3) pt3dadd(-132.8, -9.7, 32.1, 0.3) pt3dadd(-133.7, -10.2, 32.2, 0.3) pt3dadd(-134.2, -11, 32.3, 0.3) pt3dadd(-135.1, -11, 32.3, 0.3) pt3dadd(-136.1, -11.4, 32.4, 0.3) pt3dadd(-137.1, -11.8, 32.5, 0.3) pt3dadd(-138.6, -12.2, 32.6, 0.3) pt3dadd(-139.8, -12.6, 32.7, 0.3) pt3dadd(-140.8, -13, 32.8, 0.3) pt3dadd(-141.9, -13, 32.9, 0.3) pt3dadd(-143.1, -13.4, 33, 0.3) pt3dadd(-144, -14.3, 33.1, 0.3) pt3dadd(-144.9, -14.7, 33.1, 0.3) pt3dadd(-145.7, -15.1, 33.2, 0.3) pt3dadd(-146.1, -15.9, 33.3, 0.3) pt3dadd(-147, -16.8, 33.4, 0.3) pt3dadd(-147.8, -17.7, 33.5, 0.3) pt3dadd(-148.7, -18.1, 33.6, 0.3) pt3dadd(-149.6, -18.5, 33.7, 0.3) pt3dadd(-150.1, -19.2, 33.7, 0.2) pt3dadd(-151, -19.3, 33.8, 0.2) pt3dadd(-152.1, -19.7, 33.9, 0.2) pt3dadd(-152.9, -19.7, 34, 0.2) pt3dadd(-153.7, -19.7, 34.1, 0.2) pt3dadd(-154.6, -19.7, 34.1, 0.2) pt3dadd(-155.4, -20.1, 34.2, 0.2) pt3dadd(-156.3, -20.1, 34.3, 0.2) pt3dadd(-157.4, -20.5, 34.4, 0.2) pt3dadd(-158.3, -20.9, 34.5, 0.2) pt3dadd(-159.4, -21.3, 34.6, 0.2) pt3dadd(-159.8, -22.1, 34.7, 0.2) pt3dadd(-160.6, -22.9, 34.8, 0.2) pt3dadd(-161.1, -24, 34.9, 0.2) pt3dadd(-161.5, -24.9, 35, 0.2) pt3dadd(-161.5, -26.1, 35.1, 0.2) pt3dadd(-161.5, -26.9, 35.1, 0.2) pt3dadd(-161.9, -27.8, 35.2, 0.2) pt3dadd(-162.3, -28.8, 35.3, 0.2) pt3dadd(-162.3, -29.7, 35.4, 0.2) pt3dadd(-162.7, -30.5, 35.5, 0.2) pt3dadd(-163.1, -31.4, 35.6, 0.2) pt3dadd(-163.5, -32.5, 35.7, 0.2) pt3dadd(-163.9, -33.3, 35.8, 0.2) pt3dadd(-164.4, -34.3, 35.9, 0.2) pt3dadd(-165.2, -35.6, 36, 0.2) } dend[39] {pt3dclear() pt3dadd(-88.1, 14.9, 30, 0.3) pt3dadd(-89.1, 14.5, 30, 0.3) pt3dadd(-90.2, 14.8, 30, 0.3) pt3dadd(-91.1, 14.8, 30, 0.3) pt3dadd(-92.2, 15.1, 30, 0.3) pt3dadd(-93.1, 15.6, 30, 0.3) pt3dadd(-93.9, 15.6, 30, 0.3) pt3dadd(-95.4, 15.6, 30.1, 0.3) pt3dadd(-96.5, 15.6, 30.1, 0.3) pt3dadd(-97.5, 15.6, 30.1, 0.3) pt3dadd(-98.6, 15.9, 30.1, 0.3) pt3dadd(-99.9, 15.9, 30.2, 0.3) pt3dadd(-100.9, 15.9, 30.2, 0.3) pt3dadd(-102, 16.4, 30.3, 0.3) pt3dadd(-103.6, 16.4, 30.3, 0.3) pt3dadd(-104.4, 16.4, 30.3, 0.3) pt3dadd(-105.2, 16.4, 30.4, 0.3) pt3dadd(-106.4, 16.7, 30.4, 0.3) pt3dadd(-107.5, 17.2, 30.5, 0.3) pt3dadd(-108.7, 17.5, 30.5, 0.3) pt3dadd(-110.3, 17.8, 30.6, 0.3) pt3dadd(-111.4, 17.8, 30.7, 0.3) pt3dadd(-113, 17.8, 30.8, 0.3) pt3dadd(-113.9, 17.8, 30.8, 0.3) pt3dadd(-114.9, 18.2, 30.9, 0.3) pt3dadd(-115.9, 18.2, 30.9, 0.3) pt3dadd(-116.7, 18.6, 31, 0.3) pt3dadd(-117.8, 18.6, 31.1, 0.3) pt3dadd(-118.6, 18.9, 31.1, 0.3) pt3dadd(-119.4, 18.9, 31.2, 0.3) pt3dadd(-120.4, 18.9, 31.2, 0.3) pt3dadd(-121.9, 18.3, 31.4, 0.3) pt3dadd(-122.7, 17.8, 31.4, 0.3) pt3dadd(-123.9, 17.4, 31.5, 0.3) pt3dadd(-125.6, 17.4, 31.7, 0.3) pt3dadd(-126.7, 17.4, 31.7, 0.3) pt3dadd(-128, 17, 31.8, 0.3) pt3dadd(-129.1, 17, 31.9, 0.3) pt3dadd(-130.3, 17.4, 32, 0.3) pt3dadd(-131.4, 17.7, 32.1, 0.3) pt3dadd(-132.2, 17.7, 32.2, 0.3) pt3dadd(-133.1, 17.7, 32.3, 0.3) pt3dadd(-134.2, 18, 32.4, 0.3) pt3dadd(-135, 18.3, 32.5, 0.3) pt3dadd(-136.3, 18.6, 32.6, 0.3) pt3dadd(-137.4, 18.6, 32.7, 0.3) pt3dadd(-138.7, 18.7, 32.8, 0.3) pt3dadd(-139.6, 18.2, 32.9, 0.3) pt3dadd(-141.5, 17.2, 33.1, 0.3) pt3dadd(-142.4, 16.8, 33.2, 0.3) pt3dadd(-143.5, 16.4, 33.3, 0.3) pt3dadd(-144.5, 16.4, 33.4, 0.3) pt3dadd(-145.8, 16.7, 33.6, 0.2) pt3dadd(-146.6, 16.4, 33.6, 0.2) pt3dadd(-147.4, 16.4, 33.7, 0.2) pt3dadd(-148.4, 17, 33.8, 0.2) pt3dadd(-149.5, 17.4, 34, 0.2) pt3dadd(-150.6, 17.7, 34.1, 0.2) pt3dadd(-151.6, 17.7, 34.2, 0.2) pt3dadd(-152.6, 17.7, 34.3, 0.2) pt3dadd(-153.8, 17.7, 34.4, 0.2) pt3dadd(-154.8, 18, 34.5, 0.2) pt3dadd(-155.8, 18.3, 34.6, 0.2) pt3dadd(-156.7, 18.3, 34.7, 0.2) pt3dadd(-157.6, 18.3, 34.8, 0.2) pt3dadd(-158.4, 18.3, 34.9, 0.2) pt3dadd(-159.4, 18.3, 35, 0.2) pt3dadd(-160.4, 17.8, 35.1, 0.2) pt3dadd(-161.2, 17.4, 35.2, 0.2) pt3dadd(-162.2, 17.4, 35.3, 0.2) pt3dadd(-163.1, 17.4, 35.4, 0.2) pt3dadd(-164.2, 17.7, 35.6, 0.2) pt3dadd(-165.2, 17.7, 35.7, 0.2) pt3dadd(-166.3, 17.2, 35.8, 0.2) pt3dadd(-167.1, 16.8, 35.9, 0.2) pt3dadd(-167.9, 16.3, 36, 0.2) } dend[40] {pt3dclear() pt3dadd(-78.4, 18.1, 30, 0.3) pt3dadd(-79.2, 18.5, 30, 0.3) pt3dadd(-80.1, 19, 30, 0.3) pt3dadd(-81, 19.7, 29.9, 0.3) pt3dadd(-81.8, 19.7, 29.9, 0.3) pt3dadd(-82.8, 20, 29.8, 0.3) pt3dadd(-83.2, 20.7, 29.8, 0.3) pt3dadd(-84.1, 21.3, 29.7, 0.3) pt3dadd(-84.5, 22.1, 29.6, 0.3) pt3dadd(-84.9, 22.9, 29.5, 0.3) pt3dadd(-84.9, 23.9, 29.3, 0.3) pt3dadd(-85.3, 24.8, 29.2, 0.3) pt3dadd(-85.7, 25.7, 29, 0.3) pt3dadd(-86.2, 26.3, 28.9, 0.3) pt3dadd(-87.2, 26.6, 28.7, 0.3) pt3dadd(-87.6, 27.3, 28.5, 0.3) pt3dadd(-88.1, 28, 28.4, 0.3) pt3dadd(-88.5, 28.9, 28.2, 0.3) pt3dadd(-89.4, 29.6, 27.9, 0.3) pt3dadd(-90.4, 30.3, 27.6, 0.3) pt3dadd(-91.2, 30.6, 27.4, 0.3) pt3dadd(-92.1, 30.9, 27.1, 0.3) pt3dadd(-93.2, 31.7, 26.7, 0.3) pt3dadd(-94.1, 32.5, 26.4, 0.3) pt3dadd(-94.9, 33.1, 26, 0.3) pt3dadd(-96, 33.8, 25.6, 0.3) pt3dadd(-97.1, 34.1, 25.2, 0.3) pt3dadd(-97.9, 34.9, 24.8, 0.3) pt3dadd(-98.8, 35.7, 24.4, 0.3) pt3dadd(-99.6, 36.1, 24, 0.3) pt3dadd(-100.4, 36.5, 23.7, 0.3) pt3dadd(-101.7, 36.5, 23.2, 0.3) pt3dadd(-102.7, 36.8, 22.7, 0.3) pt3dadd(-103.5, 37.7, 22.2, 0.3) pt3dadd(-103.5, 38.9, 21.7, 0.3) pt3dadd(-104.1, 40.1, 21.1, 0.3) pt3dadd(-104.6, 40.8, 20.7, 0.3) pt3dadd(-105.6, 41.1, 20.2, 0.3) pt3dadd(-107.2, 41.4, 19.4, 0.3) pt3dadd(-108.9, 41.4, 18.5, 0.3) pt3dadd(-109.9, 41.4, 18, 0.3) pt3dadd(-110.7, 41.4, 17.6, 0.3) pt3dadd(-111.5, 41.9, 17.1, 0.3) pt3dadd(-112, 42.6, 16.6, 0.3) pt3dadd(-112.8, 43, 16.1, 0.3) pt3dadd(-114.2, 43.4, 15.4, 0.3) pt3dadd(-115, 43.7, 14.9, 0.3) pt3dadd(-115.9, 44.1, 14.3, 0.3) pt3dadd(-117, 44.5, 13.6, 0.3) pt3dadd(-118, 45.6, 12.8, 0.3) pt3dadd(-118.5, 46.5, 12.2, 0.3) pt3dadd(-120.1, 46.8, 11.2, 0.3) pt3dadd(-121.1, 46.8, 10.6, 0.3) pt3dadd(-121.9, 47.1, 10, 0.3) pt3dadd(-122.8, 47.7, 9.3, 0.3) pt3dadd(-123.9, 48.5, 8.5, 0.3) pt3dadd(-125.1, 48.9, 7.6, 0.3) pt3dadd(-125.8, 49.3, 7.1, 0.3) pt3dadd(-127.3, 49.7, 6.1, 0.3) pt3dadd(-128.3, 50, 5.3, 0.3) pt3dadd(-129.7, 50, 4.4, 0.3) pt3dadd(-130.6, 50, 3.8, 0.3) pt3dadd(-131.4, 50.9, 3, 0.3) pt3dadd(-132.3, 51.3, 2.3, 0.3) pt3dadd(-133.1, 51.3, 1.7, 0.3) pt3dadd(-133.9, 51.3, 1.1, 0.3) pt3dadd(-135.1, 51.6, 0.3, 0.3) pt3dadd(-136.8, 51.6, -1, 0.3) } } proc shape3d_36() { dend[40] { pt3dadd(-137.9, 51.6, -1.7, 0.3) pt3dadd(-138.7, 51.6, -2.4, 0.3) pt3dadd(-139.9, 51.5, -3.2, 0.2) pt3dadd(-141, 51, -4.1, 0.2) pt3dadd(-141.9, 52, -5, 0.2) pt3dadd(-142.7, 52.7, -5.8, 0.2) pt3dadd(-143.5, 53.3, -6.7, 0.2) pt3dadd(-144.1, 54.4, -7.6, 0.2) pt3dadd(-144.6, 55.1, -8.2, 0.2) pt3dadd(-145.5, 55.1, -8.9, 0.2) pt3dadd(-146.4, 55.1, -9.6, 0.2) pt3dadd(-147.3, 55.1, -10.3, 0.2) pt3dadd(-148.2, 54.7, -11.1, 0.2) pt3dadd(-149, 54.7, -11.7, 0.2) pt3dadd(-149.9, 55.1, -12.4, 0.2) pt3dadd(-150.8, 55.7, -13.3, 0.2) pt3dadd(-151.7, 56.1, -14, 0.2) pt3dadd(-152.6, 56.5, -14.8, 0.2) pt3dadd(-153.7, 56.5, -15.6, 0.2) pt3dadd(-154.6, 56.5, -16.4, 0.2) pt3dadd(-155.6, 56.5, -17.1, 0.2) pt3dadd(-156.7, 56.5, -18, 0.2) pt3dadd(-157.8, 56.5, -18.9, 0.2) pt3dadd(-158.7, 56.5, -19.6, 0.2) pt3dadd(-159.7, 56.8, -20.4, 0.2) pt3dadd(-160.2, 57.6, -21.1, 0.2) pt3dadd(-161, 58.3, -22, 0.2) pt3dadd(-162, 58.6, -22.8, 0.2) pt3dadd(-163.1, 59.7, -24, 0.2) } dend[41] {pt3dclear() pt3dadd(-30.2, 15.4, 30, 0.7) pt3dadd(-31.4, 14.6, 30.1, 0.3) pt3dadd(-32.2, 14.3, 30.2, 0.3) pt3dadd(-33, 13.9, 30.3, 0.3) pt3dadd(-33.9, 13.9, 30.5, 0.3) pt3dadd(-34.9, 13.5, 30.8, 0.3) pt3dadd(-35.7, 13.5, 31.1, 0.3) pt3dadd(-36.7, 13.1, 31.5, 0.3) pt3dadd(-37.7, 13.1, 32, 0.3) pt3dadd(-38.6, 12.3, 32.6, 0.3) pt3dadd(-39.6, 11.9, 33.2, 0.3) pt3dadd(-40.4, 11.5, 33.7, 0.3) pt3dadd(-41.3, 11.5, 34.2, 0.3) pt3dadd(-42.1, 11.1, 34.9, 0.3) pt3dadd(-42.9, 11.1, 35.4, 0.3) pt3dadd(-43.7, 11.1, 36, 0.3) pt3dadd(-44.8, 10.6, 36.9, 0.3) pt3dadd(-46, 10.6, 37.9, 0.3) pt3dadd(-46.9, 10.1, 38.7, 0.3) pt3dadd(-47.9, 9.7, 39.7, 0.3) pt3dadd(-48.7, 9.3, 40.5, 0.3) pt3dadd(-49.5, 8.9, 41.3, 0.3) pt3dadd(-50.3, 8.5, 42.1, 0.3) pt3dadd(-51.1, 8.1, 42.9, 0.3) pt3dadd(-51.9, 7.7, 43.8, 0.3) pt3dadd(-52.7, 7.3, 44.7, 0.3) pt3dadd(-53.6, 7.2, 45.5, 0.3) pt3dadd(-54.4, 6.7, 46.4, 0.3) pt3dadd(-55.2, 6.3, 47.3, 0.3) pt3dadd(-56.1, 5.5, 48.5, 0.3) pt3dadd(-56.9, 5, 49.4, 0.3) pt3dadd(-57.3, 4.2, 50.3, 0.3) pt3dadd(-58.1, 4.2, 51.1, 0.3) pt3dadd(-58.5, 3.4, 52, 0.3) pt3dadd(-59.5, 3.6, 53, 0.3) pt3dadd(-60.5, 3.9, 54, 0.3) pt3dadd(-61.4, 3.9, 54.9, 0.3) pt3dadd(-62.3, 4, 55.7, 0.3) pt3dadd(-63.5, 3.6, 56.9, 0.3) pt3dadd(-64.6, 3.6, 57.9, 0.3) pt3dadd(-65.7, 3.9, 59, 0.3) pt3dadd(-66.9, 3.9, 60, 0.3) pt3dadd(-67.9, 3.5, 60.9, 0.3) pt3dadd(-68.7, 3.5, 61.6, 0.3) pt3dadd(-69.6, 3.5, 62.4, 0.3) pt3dadd(-70.4, 3.5, 63.1, 0.3) pt3dadd(-71.5, 3.5, 64, 0.3) pt3dadd(-72.4, 3.5, 64.8, 0.3) pt3dadd(-73.6, 3.5, 65.9, 0.3) pt3dadd(-74.8, 3.5, 66.9, 0.3) pt3dadd(-75.6, 3.5, 67.6, 0.3) pt3dadd(-76.9, 3.5, 68.8, 0.3) pt3dadd(-77.8, 3.5, 69.6, 0.3) pt3dadd(-78.6, 3.5, 70.3, 0.3) pt3dadd(-79.3, 3.1, 71, 0.3) pt3dadd(-80.2, 2.7, 71.9, 0.3) pt3dadd(-81.2, 2.3, 72.8, 0.3) pt3dadd(-82.1, 1.9, 73.8, 0.3) pt3dadd(-82.9, 1.5, 74.6, 0.3) pt3dadd(-83.8, 1.5, 75.4, 0.3) pt3dadd(-84.8, 1.5, 76.2, 0.3) pt3dadd(-85.9, 0.7, 77.5, 0.3) pt3dadd(-86.8, 0.3, 78.5, 0.3) pt3dadd(-87.7, -0.1, 79.3, 0.3) pt3dadd(-88.9, -0.5, 80.5, 0.3) pt3dadd(-89.9, -0.5, 81.4, 0.3) pt3dadd(-90.9, -1, 82.4, 0.3) pt3dadd(-92, -1, 83.5, 0.3) pt3dadd(-92.9, -1.4, 84.4, 0.3) pt3dadd(-94.2, -1.4, 85.5, 0.3) pt3dadd(-95, -1.4, 86.3, 0.3) pt3dadd(-96, -1.4, 87.1, 0.3) pt3dadd(-96.9, -1.4, 88, 0.3) pt3dadd(-97.8, -1.8, 88.9, 0.3) pt3dadd(-98.9, -1.8, 90, 0.3) pt3dadd(-99.8, -2.2, 90.8, 0.3) pt3dadd(-100.6, -2.2, 91.6, 0.3) pt3dadd(-102.2, -2.6, 93.1, 0.3) pt3dadd(-103, -2.6, 93.8, 0.3) pt3dadd(-104, -2.6, 94.8, 0.3) pt3dadd(-105.3, -2.6, 95.9, 0.3) pt3dadd(-106.1, -2.6, 96.7, 0.3) pt3dadd(-107.1, -2.6, 97.5, 0.3) pt3dadd(-108.7, -2.6, 99.1, 0.3) pt3dadd(-109.5, -2.6, 99.8, 0.3) pt3dadd(-110.6, -3, 100.8, 0.3) pt3dadd(-111.6, -3.4, 101.8, 0.3) pt3dadd(-112.7, -3.4, 102.8, 0.3) pt3dadd(-113.7, -3.4, 103.6, 0.3) pt3dadd(-114.5, -3.4, 104.3, 0.3) pt3dadd(-115.5, -3.4, 105.2, 0.3) pt3dadd(-116.3, -3.4, 105.9, 0.3) pt3dadd(-117.4, -3.4, 106.9, 0.3) pt3dadd(-118.7, -3.4, 108, 0.3) pt3dadd(-119.3, -3.8, 108.7, 0.3) pt3dadd(-120.1, -4.2, 109.5, 0.3) pt3dadd(-121.2, -4.2, 110.4, 0.3) pt3dadd(-122.9, -4.2, 111.9, 0.3) pt3dadd(-123.9, -4.2, 112.7, 0.3) pt3dadd(-125, -4.2, 113.6, 0.3) pt3dadd(-125.8, -3.9, 114.3, 0.3) pt3dadd(-126.7, -3.9, 115.1, 0.3) pt3dadd(-127.8, -3.9, 116, 0.3) pt3dadd(-128.7, -3.9, 116.8, 0.3) pt3dadd(-129.8, -3.9, 117.6, 0.3) pt3dadd(-131, -3.9, 118.6, 0.3) pt3dadd(-131.7, -4.3, 119.3, 0.3) pt3dadd(-132.6, -4.6, 120, 0.3) pt3dadd(-133.1, -3.3, 121.1, 0.3) pt3dadd(-133.9, -3.1, 121.7, 0.3) pt3dadd(-134.7, -3.1, 122.4, 0.3) pt3dadd(-135.8, -3.1, 123.2, 0.3) pt3dadd(-136.7, -3.1, 123.9, 0.3) pt3dadd(-138, -4.2, 125.2, 0.3) pt3dadd(-138.7, -4.9, 125.9, 0.3) pt3dadd(-139.8, -5.7, 126.8, 0.3) pt3dadd(-140.7, -6.6, 127.7, 0.3) pt3dadd(-141.7, -7, 128.5, 0.3) pt3dadd(-143.1, -7.4, 129.5, 0.3) pt3dadd(-144.1, -7.4, 130.3, 0.3) pt3dadd(-145.7, -7.8, 131.4, 0.3) pt3dadd(-146.5, -8.2, 132, 0.3) pt3dadd(-147.4, -8.6, 132.7, 0.3) pt3dadd(-148.3, -9.4, 133.5, 0.3) pt3dadd(-149.2, -9.8, 134.1, 0.3) pt3dadd(-150, -9.8, 134.6, 0.3) pt3dadd(-150.8, -9.8, 135.2, 0.3) pt3dadd(-151.8, -9.8, 135.8, 0.3) pt3dadd(-152.6, -9.8, 136.3, 0.3) pt3dadd(-153.4, -9.8, 136.8, 0.3) pt3dadd(-154.3, -10.2, 137.4, 0.3) pt3dadd(-155.1, -10.2, 137.9, 0.3) pt3dadd(-156.1, -10.3, 138.5, 0.3) pt3dadd(-157.1, -10.3, 139.2, 0.3) pt3dadd(-158.6, -10.3, 140.1, 0.3) pt3dadd(-160.2, -10.7, 141, 0.3) pt3dadd(-161, -11.5, 141.7, 0.3) pt3dadd(-162.2, -11.9, 142.4, 0.3) pt3dadd(-163, -12.3, 142.9, 0.3) pt3dadd(-164.1, -12.3, 143.5, 0.3) pt3dadd(-165, -12.3, 144, 0.3) pt3dadd(-166.1, -12.7, 144.7, 0.3) pt3dadd(-167.2, -13.1, 145.3, 0.3) pt3dadd(-168.2, -13.5, 146, 0.3) pt3dadd(-169.4, -14, 146.6, 0.3) pt3dadd(-171.2, -14, 147.6, 0.3) pt3dadd(-172.7, -14.4, 148.4, 0.3) pt3dadd(-174.3, -14.9, 149.3, 0.3) pt3dadd(-175.4, -15.8, 150, 0.3) } dend[42] {pt3dclear() pt3dadd(10, 0, 30, 0.7) pt3dadd(-0.6, 1.1, 29.5, 0.7) pt3dadd(-1, 1.9, 29.1, 0.7) pt3dadd(-1.8, 2.2, 28.8, 0.7) pt3dadd(-2.9, 3, 28.4, 0.7) pt3dadd(-3.8, 4.2, 28, 0.7) pt3dadd(-4.9, 5.3, 27.6, 0.7) pt3dadd(-5.8, 6, 27.4, 0.7) pt3dadd(-6.6, 6.7, 27.3, 0.7) pt3dadd(-7.1, 7.8, 27.1, 0.7) pt3dadd(-8, 8.9, 27, 0.7) pt3dadd(-8.4, 9.8, 27, 0.7) pt3dadd(-9.2, 10.5, 27, 0.7) pt3dadd(-10.1, 11.1, 27, 0.7) pt3dadd(-11, 11.8, 27.1, 0.7) pt3dadd(-11.8, 12.2, 27.1, 0.7) pt3dadd(-12.9, 12.8, 27.3, 0.7) pt3dadd(-13.4, 13.7, 27.4, 0.7) pt3dadd(-14.2, 14.4, 27.6, 0.7) pt3dadd(-15, 15.1, 27.7, 0.7) pt3dadd(-15.4, 15.8, 27.9, 0.7) pt3dadd(-15.9, 16.5, 28.1, 0.7) } } proc shape3d_37() { dend[42] { pt3dadd(-16.3, 17.2, 28.3, 0.7) pt3dadd(-16.7, 18.3, 28.6, 0.7) pt3dadd(-17.1, 19, 28.8, 0.7) pt3dadd(-17.6, 20.2, 29.1, 0.7) pt3dadd(-17.6, 21.2, 29.4, 0.7) pt3dadd(-18, 21.9, 29.7, 0.7) pt3dadd(-18, 22.9, 30, 0.7) pt3dadd(-18.5, 24.2, 30.5, 0.7) pt3dadd(-18.9, 24.9, 30.7, 0.7) pt3dadd(-19.3, 25.9, 31.1, 0.7) pt3dadd(-19.3, 26.9, 31.5, 0.7) pt3dadd(-19.3, 28.1, 31.9, 0.7) pt3dadd(-19.7, 28.9, 32.3, 0.7) pt3dadd(-20.1, 29.6, 32.6, 0.7) pt3dadd(-20.5, 30.3, 32.9, 0.7) pt3dadd(-20.9, 31.2, 33.3, 0.7) pt3dadd(-21.4, 31.9, 33.7, 0.7) pt3dadd(-21.8, 32.9, 34.2, 0.7) pt3dadd(-21.8, 34.2, 34.7, 0.7) pt3dadd(-22.2, 35.4, 35.2, 0.7) pt3dadd(-23.4, 36.7, 36, 0.7) } dend[43] {pt3dclear() pt3dadd(-23.4, 36.7, 36, 0.7) pt3dadd(-23.4, 37.7, 35.7, 0.7) pt3dadd(-23.8, 38.5, 35.4, 0.7) pt3dadd(-24.3, 39.3, 35, 0.7) pt3dadd(-25.3, 40.1, 34.4, 0.7) pt3dadd(-25.8, 40.7, 33.9, 0.7) pt3dadd(-26.2, 41.7, 33.2, 0.7) pt3dadd(-27.2, 42.5, 32.5, 0.7) pt3dadd(-27.6, 43.2, 32, 0.7) pt3dadd(-28.5, 44.1, 31.3, 0.7) pt3dadd(-29.7, 44.9, 30.6, 0.3) pt3dadd(-30.5, 45.3, 30.3, 0.3) pt3dadd(-31.1, 46.3, 30, 0.3) } dend[44] {pt3dclear() pt3dadd(-31.1, 46.3, 30, 0.3) pt3dadd(-32.1, 46.1, 29.8, 0.3) pt3dadd(-33.4, 46.1, 29.5, 0.3) pt3dadd(-34.3, 46.4, 29.3, 0.3) pt3dadd(-35.1, 46.4, 29.1, 0.3) pt3dadd(-36, 46.4, 28.9, 0.3) pt3dadd(-37.1, 46.4, 28.7, 0.3) pt3dadd(-37.9, 46.4, 28.5, 0.3) pt3dadd(-38.9, 46.7, 28.3, 0.3) pt3dadd(-39.7, 47.4, 28.1, 0.3) pt3dadd(-41.2, 47.7, 27.8, 0.3) pt3dadd(-42.2, 47.7, 27.6, 0.3) pt3dadd(-43, 48.1, 27.4, 0.3) pt3dadd(-43.8, 48.4, 27.3, 0.3) pt3dadd(-44.9, 48.8, 27.1, 0.3) pt3dadd(-45.9, 49.2, 26.8, 0.3) pt3dadd(-46.8, 49.9, 26.6, 0.3) pt3dadd(-47.8, 50.2, 26.4, 0.3) pt3dadd(-48.7, 50.8, 26.2, 0.3) pt3dadd(-49.2, 51.5, 26.1, 0.3) pt3dadd(-50.2, 52.1, 25.9, 0.3) pt3dadd(-51.1, 52.5, 25.7, 0.3) pt3dadd(-51.5, 53.2, 25.6, 0.3) pt3dadd(-51.9, 54.1, 25.4, 0.3) pt3dadd(-52.9, 54.7, 25.2, 0.3) pt3dadd(-53.7, 55, 25, 0.3) pt3dadd(-54.7, 55.3, 24.9, 0.3) pt3dadd(-55.6, 55.7, 24.7, 0.3) pt3dadd(-56.4, 56, 24.6, 0.3) pt3dadd(-57.2, 56.3, 24.4, 0.3) pt3dadd(-57.7, 56.9, 24.3, 0.3) pt3dadd(-58.8, 56.9, 24.1, 0.3) pt3dadd(-59.6, 56.9, 24, 0.3) pt3dadd(-60.5, 57.3, 23.9, 0.3) pt3dadd(-61.5, 57.3, 23.7, 0.3) pt3dadd(-62.3, 57.3, 23.6, 0.3) pt3dadd(-63.1, 57.6, 23.5, 0.3) pt3dadd(-63.9, 58.2, 23.3, 0.3) pt3dadd(-64.8, 58.5, 23.2, 0.3) pt3dadd(-65.6, 58.5, 23.1, 0.3) pt3dadd(-66.4, 58.9, 23, 0.3) pt3dadd(-67.3, 59.2, 22.8, 0.3) pt3dadd(-68.1, 59.2, 22.7, 0.3) pt3dadd(-68.5, 59.9, 22.6, 0.3) pt3dadd(-69.4, 60.7, 22.5, 0.3) pt3dadd(-70.3, 61, 22.3, 0.3) pt3dadd(-71.2, 61, 22.2, 0.3) pt3dadd(-72.3, 61.3, 22.1, 0.3) pt3dadd(-73.2, 61.3, 22, 0.3) pt3dadd(-74.1, 61.7, 21.9, 0.3) pt3dadd(-75.2, 62, 21.7, 0.3) pt3dadd(-76, 62.3, 21.6, 0.3) pt3dadd(-77.5, 62.3, 21.5, 0.3) pt3dadd(-78.6, 62.3, 21.4, 0.3) pt3dadd(-80, 62.6, 21.2, 0.3) pt3dadd(-80.8, 62.6, 21.1, 0.3) pt3dadd(-81.9, 63, 21, 0.3) pt3dadd(-82.8, 63.3, 20.9, 0.3) pt3dadd(-83.7, 63.3, 20.8, 0.3) pt3dadd(-84.7, 63.3, 20.7, 0.3) pt3dadd(-85.8, 63.2, 20.6, 0.3) pt3dadd(-86.7, 63.5, 20.6, 0.3) pt3dadd(-87.6, 63.5, 20.5, 0.3) pt3dadd(-88.5, 63.5, 20.4, 0.3) pt3dadd(-89.4, 63.5, 20.3, 0.3) pt3dadd(-90.4, 63.5, 20.3, 0.3) pt3dadd(-91.8, 63.8, 20.2, 0.3) pt3dadd(-93.2, 63.8, 20.1, 0.3) pt3dadd(-94, 63.8, 20, 0.3) pt3dadd(-95, 63.9, 19.9, 0.3) pt3dadd(-96, 63.9, 19.9, 0.3) pt3dadd(-96.8, 63.9, 19.8, 0.3) pt3dadd(-97.6, 64.2, 19.8, 0.3) pt3dadd(-98.6, 64.2, 19.7, 0.3) pt3dadd(-99.5, 64.2, 19.7, 0.3) pt3dadd(-100.3, 65, 19.6, 0.3) pt3dadd(-101.4, 65.7, 19.5, 0.3) pt3dadd(-102.3, 66.1, 19.5, 0.3) pt3dadd(-103.2, 66.4, 19.5, 0.3) pt3dadd(-104.1, 66.4, 19.4, 0.3) pt3dadd(-105, 66.8, 19.4, 0.3) pt3dadd(-105.9, 67.5, 19.3, 0.3) pt3dadd(-106.3, 68.2, 19.3, 0.3) pt3dadd(-107.4, 68.5, 19.3, 0.3) pt3dadd(-108.5, 68.8, 19.3, 0.3) pt3dadd(-109.5, 68.8, 19.2, 0.3) pt3dadd(-110.1, 69.5, 19.2, 0.3) pt3dadd(-111.5, 69.9, 19.2, 0.3) pt3dadd(-112.3, 69.9, 19.2, 0.3) pt3dadd(-113.2, 70.7, 19.2, 0.3) pt3dadd(-114.3, 71, 19.2, 0.3) pt3dadd(-115.3, 71.3, 19.1, 0.3) pt3dadd(-116.3, 72, 19.1, 0.3) pt3dadd(-117.3, 72.7, 19.1, 0.3) pt3dadd(-117.7, 73.5, 19.1, 0.3) pt3dadd(-118.7, 73.9, 19.2, 0.3) pt3dadd(-119.9, 74.2, 19.2, 0.3) pt3dadd(-120.7, 74.2, 19.2, 0.3) pt3dadd(-121.7, 73.8, 19.2, 0.3) pt3dadd(-122.9, 74.1, 19.2, 0.3) pt3dadd(-124.1, 74.4, 19.2, 0.3) pt3dadd(-125.1, 74.4, 19.3, 0.3) pt3dadd(-126, 74.4, 19.3, 0.3) pt3dadd(-126.8, 74.4, 19.3, 0.3) pt3dadd(-127.7, 74.4, 19.3, 0.3) pt3dadd(-128.7, 74.4, 19.4, 0.3) pt3dadd(-129.7, 74.8, 19.4, 0.3) pt3dadd(-130.6, 75.1, 19.5, 0.3) pt3dadd(-131.5, 75.7, 19.5, 0.3) pt3dadd(-132.3, 76.4, 19.6, 0.3) pt3dadd(-133.3, 76.7, 19.6, 0.3) pt3dadd(-134.7, 77, 19.7, 0.3) pt3dadd(-135.7, 77, 19.8, 0.3) pt3dadd(-136.6, 77, 19.8, 0.3) pt3dadd(-137.6, 77, 19.9, 0.3) pt3dadd(-138.8, 77.3, 20, 0.3) pt3dadd(-139.7, 77.6, 20, 0.3) pt3dadd(-140.5, 77.6, 20.1, 0.3) pt3dadd(-141.5, 77.9, 20.2, 0.2) pt3dadd(-142.5, 77.8, 20.2, 0.2) pt3dadd(-143.3, 77.4, 20.3, 0.2) pt3dadd(-144.1, 77.4, 20.4, 0.2) pt3dadd(-144.9, 77.7, 20.4, 0.2) pt3dadd(-145.7, 78.4, 20.5, 0.2) pt3dadd(-146.6, 78.4, 20.6, 0.2) pt3dadd(-147.8, 78.4, 20.7, 0.2) pt3dadd(-148.6, 78.7, 20.8, 0.2) pt3dadd(-149, 79.4, 20.9, 0.2) pt3dadd(-149.4, 80.2, 21, 0.2) pt3dadd(-150.2, 80.9, 21.1, 0.2) pt3dadd(-151.1, 81.6, 21.2, 0.2) pt3dadd(-151.9, 81.6, 21.3, 0.2) pt3dadd(-152.9, 82, 21.5, 0.2) pt3dadd(-153.4, 82.6, 21.6, 0.2) pt3dadd(-154.2, 82.9, 21.7, 0.2) pt3dadd(-155.1, 83.6, 21.8, 0.2) pt3dadd(-156.2, 84, 21.9, 0.2) pt3dadd(-157.2, 84.6, 22.1, 0.2) pt3dadd(-158.4, 85, 22.3, 0.2) pt3dadd(-159.3, 85.5, 22.4, 0.2) pt3dadd(-160.5, 85.5, 22.6, 0.2) pt3dadd(-161.4, 85.5, 22.7, 0.2) pt3dadd(-162.3, 85, 22.9, 0.2) pt3dadd(-163.4, 85, 23, 0.2) pt3dadd(-164.4, 84.2, 23.3, 0.2) pt3dadd(-164.8, 83.2, 23.4, 0.2) pt3dadd(-164.8, 82.4, 23.6, 0.2) pt3dadd(-165.2, 81.6, 23.7, 0.2) pt3dadd(-165.6, 80.8, 23.9, 0.2) pt3dadd(-165.8, 80, 24, 0.2) } dend[45] {pt3dclear() pt3dadd(-31.1, 46.3, 30, 0.3) pt3dadd(-31.3, 47.2, 29.9, 0.3) pt3dadd(-31.7, 47.8, 29.9, 0.3) pt3dadd(-32.6, 48.6, 30, 0.3) pt3dadd(-32.9, 49.4, 30, 0.3) } dend[46] {pt3dclear() pt3dadd(-32.9, 49.4, 30, 0.3) pt3dadd(-33.8, 50.2, 30.1, 0.3) pt3dadd(-34.6, 50.9, 30.2, 0.3) pt3dadd(-35.5, 51.3, 30.2, 0.3) pt3dadd(-36.4, 52.1, 30.3, 0.3) pt3dadd(-37.2, 52.9, 30.4, 0.3) pt3dadd(-37.6, 53.6, 30.5, 0.3) pt3dadd(-38.5, 54.3, 30.6, 0.3) pt3dadd(-39.3, 54.9, 30.7, 0.3) pt3dadd(-40.1, 55.6, 30.8, 0.3) pt3dadd(-41, 56.2, 30.9, 0.3) } } proc shape3d_38() { dend[46] { pt3dadd(-41.8, 57.2, 31, 0.3) pt3dadd(-42.6, 57.8, 31.1, 0.3) pt3dadd(-43.7, 58.5, 31.3, 0.3) pt3dadd(-44.9, 59.2, 31.4, 0.3) pt3dadd(-45.7, 59.5, 31.5, 0.3) pt3dadd(-46.6, 59.9, 31.7, 0.3) pt3dadd(-47.5, 60.9, 31.8, 0.3) pt3dadd(-48.3, 61.6, 31.9, 0.3) pt3dadd(-49.2, 62.3, 32.1, 0.3) pt3dadd(-50.1, 63, 32.2, 0.3) pt3dadd(-50.9, 63.4, 32.3, 0.3) pt3dadd(-51.8, 64.1, 32.5, 0.3) pt3dadd(-52.7, 64.8, 32.7, 0.3) pt3dadd(-53.5, 65.6, 32.8, 0.3) pt3dadd(-54, 66.6, 33, 0.3) pt3dadd(-55.1, 67.3, 33.2, 0.3) pt3dadd(-56, 68.1, 33.4, 0.3) pt3dadd(-56.9, 68.4, 33.5, 0.3) pt3dadd(-57.8, 68.8, 33.7, 0.3) pt3dadd(-58.6, 69.5, 33.8, 0.3) pt3dadd(-59, 70.2, 34, 0.3) pt3dadd(-59.9, 70.9, 34.2, 0.3) pt3dadd(-60.9, 71.6, 34.4, 0.3) pt3dadd(-61.7, 71.9, 34.5, 0.3) pt3dadd(-62.5, 72.2, 34.7, 0.3) pt3dadd(-62.9, 73, 34.8, 0.3) pt3dadd(-63.3, 73.8, 35, 0.3) pt3dadd(-64.2, 74.4, 35.2, 0.3) pt3dadd(-65.1, 74.8, 35.4, 0.3) pt3dadd(-65.6, 75.5, 35.5, 0.3) pt3dadd(-66.4, 76.4, 35.8, 0.3) pt3dadd(-67.2, 76.4, 35.9, 0.3) pt3dadd(-68.1, 77.1, 36.1, 0.3) pt3dadd(-68.5, 78, 36.4, 0.3) pt3dadd(-69.3, 78.4, 36.5, 0.3) pt3dadd(-70.2, 78.7, 36.7, 0.3) pt3dadd(-71.1, 79.3, 36.9, 0.3) pt3dadd(-72, 80, 37.2, 0.3) pt3dadd(-72.9, 80.4, 37.4, 0.3) pt3dadd(-74, 81, 37.7, 0.3) pt3dadd(-74.8, 81.3, 37.9, 0.3) pt3dadd(-75.2, 82.3, 38.1, 0.3) pt3dadd(-76, 83.2, 38.4, 0.3) pt3dadd(-76.8, 83.9, 38.7, 0.3) pt3dadd(-77.2, 84.6, 38.8, 0.3) pt3dadd(-77.2, 85.7, 39.1, 0.3) pt3dadd(-78, 86.1, 39.3, 0.3) pt3dadd(-78.8, 86.5, 39.6, 0.3) pt3dadd(-79.2, 87.2, 39.8, 0.3) pt3dadd(-80.2, 87.9, 40, 0.3) pt3dadd(-81, 88.5, 40.3, 0.3) pt3dadd(-81.9, 89.5, 40.6, 0.3) pt3dadd(-82.3, 90.2, 40.9, 0.3) pt3dadd(-83.2, 90.8, 41.2, 0.3) pt3dadd(-83.6, 91.6, 41.4, 0.3) pt3dadd(-84.5, 92.2, 41.7, 0.3) pt3dadd(-84.9, 92.9, 41.9, 0.3) pt3dadd(-85.2, 93.7, 42.2, 0.3) pt3dadd(-86.2, 93.7, 42.4, 0.3) pt3dadd(-87, 94, 42.7, 0.3) pt3dadd(-87.4, 94.8, 42.9, 0.3) pt3dadd(-88.3, 95.4, 43.2, 0.3) pt3dadd(-89.1, 96.1, 43.5, 0.3) pt3dadd(-89.6, 96.8, 43.8, 0.3) pt3dadd(-90.4, 97.2, 44.1, 0.3) pt3dadd(-91.2, 97.8, 44.4, 0.3) pt3dadd(-91.6, 98.4, 44.6, 0.3) pt3dadd(-92, 99.2, 44.9, 0.3) pt3dadd(-92.8, 99.6, 45.2, 0.3) pt3dadd(-93.2, 100.4, 45.4, 0.3) pt3dadd(-94, 100.8, 45.7, 0.3) pt3dadd(-94.5, 101.4, 46, 0.3) pt3dadd(-95.3, 102, 46.3, 0.3) pt3dadd(-95.3, 102.9, 46.6, 0.3) pt3dadd(-96.2, 104, 47, 0.3) pt3dadd(-97.1, 104, 47.3, 0.3) pt3dadd(-98, 104.6, 47.7, 0.3) pt3dadd(-98.5, 105.4, 48, 0.3) pt3dadd(-99.9, 106.6, 48.7, 0.3) pt3dadd(-100.9, 107, 49.1, 0.3) pt3dadd(-102, 107.3, 49.5, 0.3) pt3dadd(-102.9, 107.6, 49.8, 0.3) pt3dadd(-103.3, 108.5, 50.2, 0.3) pt3dadd(-104.1, 108.8, 50.5, 0.3) pt3dadd(-105.1, 109.1, 50.9, 0.3) pt3dadd(-105.9, 109.5, 51.2, 0.3) pt3dadd(-106.7, 109.8, 51.5, 0.3) pt3dadd(-107.7, 110.2, 51.9, 0.3) pt3dadd(-109.2, 110.5, 52.5, 0.3) pt3dadd(-110.3, 110.5, 53, 0.3) pt3dadd(-111.9, 110.5, 53.6, 0.3) pt3dadd(-112.8, 110.5, 54, 0.3) pt3dadd(-113.6, 111.1, 54.4, 0.3) pt3dadd(-114, 111.9, 54.8, 0.3) pt3dadd(-114.9, 112.7, 55.2, 0.3) pt3dadd(-115.7, 113.1, 55.6, 0.3) pt3dadd(-116.7, 113.1, 56, 0.3) pt3dadd(-117.1, 113.7, 56.3, 0.3) pt3dadd(-118, 114.4, 56.8, 0.3) pt3dadd(-118.9, 114.8, 57.2, 0.3) pt3dadd(-119.4, 115.5, 57.6, 0.3) pt3dadd(-120.3, 116.3, 58.1, 0.3) pt3dadd(-121.4, 116.3, 58.6, 0.3) pt3dadd(-122.3, 116.6, 59, 0.3) pt3dadd(-123.1, 117, 59.4, 0.3) pt3dadd(-123.7, 118.1, 60, 0.3) pt3dadd(-124.7, 118.9, 60.7, 0.3) pt3dadd(-125.9, 119.2, 61.5, 0.3) pt3dadd(-126.8, 119.5, 62.2, 0.3) pt3dadd(-127.6, 119.5, 62.9, 0.3) pt3dadd(-128.4, 120.6, 64.1, 0.3) pt3dadd(-129.2, 121.3, 65.2, 0.3) pt3dadd(-129.8, 122, 66.3, 0.3) pt3dadd(-130.7, 122, 67.4, 0.3) pt3dadd(-131.5, 122.3, 68.5, 0.3) pt3dadd(-132.3, 122.7, 69.6, 0.3) pt3dadd(-133.8, 123.9, 72.4, 0.2) pt3dadd(-134.7, 124.7, 74.3, 0.2) pt3dadd(-135.5, 125.4, 75.9, 0.2) pt3dadd(-135.5, 126.4, 77.6, 0.2) pt3dadd(-135.9, 127.1, 79, 0.2) pt3dadd(-136.8, 127.5, 80.6, 0.2) pt3dadd(-137.3, 128.1, 82, 0.2) pt3dadd(-138.2, 128.4, 83.7, 0.2) pt3dadd(-138.6, 129.4, 85.7, 0.2) pt3dadd(-139, 130.1, 87.2, 0.2) pt3dadd(-139.9, 130.8, 89.5, 0.2) pt3dadd(-140.4, 131.6, 91.3, 0.2) pt3dadd(-141.4, 131.9, 93.3, 0.2) pt3dadd(-142.3, 133, 96, 0.2) } dend[47] {pt3dclear() pt3dadd(-32.9, 49.4, 30, 0.3) pt3dadd(-32.9, 50.4, 29.7, 0.3) pt3dadd(-32.9, 51.4, 29.3, 0.3) pt3dadd(-33.3, 52.7, 28.8, 0.3) pt3dadd(-33.3, 53.8, 28.4, 0.3) pt3dadd(-33.7, 54.7, 28, 0.3) pt3dadd(-33.7, 55.6, 27.6, 0.3) pt3dadd(-34.1, 56.6, 27.1, 0.3) pt3dadd(-34.5, 57.4, 26.6, 0.3) pt3dadd(-34.5, 58.6, 26, 0.3) pt3dadd(-34.5, 59.8, 25.4, 0.3) pt3dadd(-34.9, 61.2, 24.6, 0.3) pt3dadd(-35.3, 62.4, 23.8, 0.3) pt3dadd(-35.8, 63.6, 23, 0.3) pt3dadd(-36.2, 64.4, 22.5, 0.3) pt3dadd(-37.3, 65.3, 21.5, 0.3) pt3dadd(-37.3, 66.2, 20.9, 0.3) pt3dadd(-37.8, 67.1, 20.2, 0.3) pt3dadd(-37.8, 68.1, 19.5, 0.3) pt3dadd(-37.8, 69.3, 18.6, 0.3) pt3dadd(-37.8, 70.5, 17.7, 0.3) pt3dadd(-37.8, 71.9, 16.6, 0.3) pt3dadd(-38.2, 72.8, 15.8, 0.3) pt3dadd(-38.6, 74, 14.8, 0.3) pt3dadd(-39.1, 74.8, 14, 0.3) pt3dadd(-39.5, 76.2, 12.7, 0.3) pt3dadd(-39.5, 77.5, 11.6, 0.3) pt3dadd(-39.9, 78.4, 10.7, 0.3) pt3dadd(-40.4, 79.3, 9.8, 0.3) pt3dadd(-40.8, 80.2, 8.9, 0.3) pt3dadd(-41.2, 81, 8, 0.3) pt3dadd(-41.7, 82.1, 6.8, 0.3) pt3dadd(-42.1, 83.3, 5.6, 0.3) pt3dadd(-42.5, 84.5, 4.3, 0.3) pt3dadd(-42.9, 85.4, 3.3, 0.3) pt3dadd(-43.3, 86.3, 2.3, 0.3) pt3dadd(-43.4, 87.3, 1.2, 0.3) pt3dadd(-43.4, 88.4, 0, 0.3) pt3dadd(-44, 89.5, -1.3, 0.3) pt3dadd(-44.9, 90.3, -2.6, 0.3) pt3dadd(-45.3, 91, -3.5, 0.3) pt3dadd(-45.8, 92, -4.9, 0.3) pt3dadd(-46.3, 92.8, -5.9, 0.3) pt3dadd(-46.8, 93.5, -6.9, 0.3) pt3dadd(-46.8, 94.4, -8, 0.3) pt3dadd(-46.8, 96, -9.9, 0.3) pt3dadd(-46.8, 97.2, -11.3, 0.3) pt3dadd(-46.8, 98.9, -13.4, 0.3) pt3dadd(-46.8, 100, -14.7, 0.3) pt3dadd(-46.8, 100.8, -15.7, 0.3) pt3dadd(-46.8, 101.7, -16.9, 0.3) pt3dadd(-47.7, 103.2, -19.1, 0.3) pt3dadd(-48.2, 104.2, -20.6, 0.3) pt3dadd(-48.2, 105.1, -21.7, 0.3) pt3dadd(-48.2, 106.1, -23.1, 0.3) pt3dadd(-48.6, 107.2, -24.7, 0.3) pt3dadd(-48.6, 108.6, -26.5, 0.3) pt3dadd(-48.6, 109.5, -27.8, 0.3) pt3dadd(-48.6, 110.5, -29.1, 0.3) pt3dadd(-49, 111.4, -30.4, 0.3) pt3dadd(-49, 112.4, -31.9, 0.3) pt3dadd(-49.5, 113.5, -33.5, 0.3) pt3dadd(-50, 114.3, -34.8, 0.3) pt3dadd(-50.9, 115.3, -36.8, 0.3) pt3dadd(-51.9, 116.6, -39.1, 0.3) pt3dadd(-52.5, 117.4, -40.5, 0.3) pt3dadd(-53.3, 117.9, -42, 0.3) } dend[48] {pt3dclear() pt3dadd(-23.4, 36.7, 36, 0.7) pt3dadd(-24.1, 37.1, 37.5, 0.7) pt3dadd(-25.1, 37.9, 41, 0.7) } } proc shape3d_39() { dend[48] { pt3dadd(-25.9, 38.5, 44.9, 0.7) pt3dadd(-26.3, 39.3, 48.6, 0.7) pt3dadd(-27.3, 39.7, 53.9, 0.7) pt3dadd(-28.2, 40.1, 60, 0.7) pt3dadd(-29.1, 40.1, 68.6, 0.7) pt3dadd(-30.1, 40.1, 84.3, 0.7) pt3dadd(-30.9, 41.1, 103.5, 0.7) pt3dadd(-32, 42, 114, 0.7) } dend[49] {pt3dclear() pt3dadd(-32, 42, 114, 0.7) pt3dadd(-32.8, 42.1, 114.8, 0.3) pt3dadd(-33.7, 41.7, 115.7, 0.3) pt3dadd(-34.6, 42.1, 116.6, 0.3) pt3dadd(-35.7, 42.3, 117.4, 0.3) pt3dadd(-36.1, 43.3, 118, 0.3) pt3dadd(-37, 43.6, 118.5, 0.3) pt3dadd(-37.8, 44.2, 118.9, 0.3) pt3dadd(-38.6, 44.6, 119.2, 0.3) pt3dadd(-39, 45.6, 119.5, 0.3) pt3dadd(-39.4, 46.3, 119.7, 0.3) pt3dadd(-39.4, 47.1, 119.8, 0.3) pt3dadd(-40.4, 47.5, 119.8, 0.3) pt3dadd(-41.2, 47.8, 119.9, 0.3) pt3dadd(-42, 48.8, 119.8, 0.3) pt3dadd(-43.3, 49.1, 119.7, 0.3) pt3dadd(-44.1, 49.4, 119.5, 0.3) pt3dadd(-45, 49.4, 119.4, 0.3) pt3dadd(-46.1, 49.7, 119.1, 0.3) pt3dadd(-47, 49.7, 118.9, 0.3) pt3dadd(-48.1, 50.1, 118.6, 0.3) pt3dadd(-48.9, 50.7, 118.4, 0.3) pt3dadd(-49.7, 50.7, 118.1, 0.3) pt3dadd(-50.5, 51, 117.9, 0.3) pt3dadd(-51.1, 51.7, 117.7, 0.3) pt3dadd(-52.1, 52.1, 117.4, 0.3) pt3dadd(-52.6, 52.9, 117.1, 0.3) pt3dadd(-53.4, 53.9, 116.8, 0.3) pt3dadd(-53.8, 54.6, 116.7, 0.3) pt3dadd(-54.8, 55.3, 116.5, 0.3) pt3dadd(-55.6, 55.6, 116.4, 0.3) pt3dadd(-56.5, 55.6, 116.3, 0.3) pt3dadd(-57.3, 55.6, 116.2, 0.3) pt3dadd(-58.2, 55.6, 116.2, 0.3) pt3dadd(-59.2, 55.6, 116.3, 0.3) pt3dadd(-60.1, 55.6, 116.4, 0.3) pt3dadd(-61.1, 55.9, 116.6, 0.3) pt3dadd(-62.3, 56.2, 116.9, 0.3) pt3dadd(-63.1, 56.2, 117.2, 0.3) pt3dadd(-64.1, 56.2, 117.6, 0.3) pt3dadd(-64.9, 56.2, 118, 0.3) pt3dadd(-65.8, 56.5, 118.5, 0.3) pt3dadd(-66.8, 56.5, 119.3, 0.3) pt3dadd(-67.7, 56.9, 120, 0.3) pt3dadd(-68.6, 57.5, 120.9, 0.3) pt3dadd(-69.4, 57.5, 121.6, 0.3) pt3dadd(-70.4, 57.1, 122.5, 0.3) pt3dadd(-71.5, 56.3, 123.6, 0.3) pt3dadd(-72.3, 55.9, 124.4, 0.3) pt3dadd(-73.2, 55.9, 125.1, 0.3) pt3dadd(-74.4, 55.9, 126.2, 0.3) pt3dadd(-75.5, 55.9, 127.1, 0.3) pt3dadd(-76.9, 55.9, 128.3, 0.3) pt3dadd(-78.1, 56.2, 129.3, 0.3) pt3dadd(-79.2, 56.5, 130.3, 0.3) pt3dadd(-80.3, 57.3, 131.4, 0.3) pt3dadd(-81.2, 57.3, 132.1, 0.3) pt3dadd(-82.2, 57.7, 133, 0.3) pt3dadd(-83.1, 57.7, 133.8, 0.3) pt3dadd(-84, 58, 134.6, 0.3) pt3dadd(-84.8, 58, 135.3, 0.3) pt3dadd(-85.7, 58.3, 136.1, 0.3) pt3dadd(-86.5, 58.3, 136.8, 0.3) pt3dadd(-87.4, 58.6, 137.5, 0.3) pt3dadd(-88.4, 58.7, 138.3, 0.3) pt3dadd(-89.6, 58.7, 139.4, 0.3) pt3dadd(-90.7, 58.7, 140.3, 0.3) pt3dadd(-91.8, 58.3, 141.3, 0.3) pt3dadd(-93, 58.7, 142.3, 0.3) pt3dadd(-93.9, 59, 143.1, 0.3) pt3dadd(-94.7, 59, 143.8, 0.3) pt3dadd(-95.6, 59, 144.6, 0.3) pt3dadd(-96.8, 59.7, 145.7, 0.3) pt3dadd(-97.6, 60, 146.4, 0.3) pt3dadd(-98.4, 60.3, 147.1, 0.3) pt3dadd(-99.2, 60.9, 148.1, 0.3) pt3dadd(-100.4, 60.9, 149.1, 0.3) pt3dadd(-101.3, 61.3, 149.8, 0.3) pt3dadd(-102.1, 61.6, 150.6, 0.3) pt3dadd(-103.1, 61.9, 151.4, 0.3) pt3dadd(-103.9, 61.9, 152.1, 0.3) pt3dadd(-105, 62.3, 153.1, 0.3) pt3dadd(-106.3, 62.7, 154.3, 0.3) pt3dadd(-108, 63.5, 155.9, 0.3) pt3dadd(-108.9, 63.8, 156.6, 0.3) pt3dadd(-109.8, 64.1, 157.4, 0.3) pt3dadd(-110.7, 64.1, 158.2, 0.3) pt3dadd(-111.9, 64.4, 159.2, 0.3) pt3dadd(-112.8, 64.8, 160.1, 0.3) pt3dadd(-113.9, 65.1, 161, 0.3) pt3dadd(-114.7, 65.4, 161.7, 0.3) pt3dadd(-115.6, 66.1, 162.7, 0.3) pt3dadd(-116.5, 66.4, 163.5, 0.3) pt3dadd(-117.7, 66.8, 164.6, 0.3) pt3dadd(-118.5, 66.8, 165.3, 0.3) pt3dadd(-119.7, 67.4, 166.4, 0.3) pt3dadd(-120.7, 67.8, 167.4, 0.3) pt3dadd(-121.8, 68.1, 168.3, 0.3) pt3dadd(-122.7, 68.4, 169.1, 0.3) pt3dadd(-123.5, 68.4, 169.8, 0.3) pt3dadd(-124.3, 68, 170.5, 0.3) pt3dadd(-125, 67.6, 171.2, 0.3) pt3dadd(-126, 67.6, 172.1, 0.3) pt3dadd(-126.9, 67.2, 172.9, 0.3) pt3dadd(-127.8, 66.8, 173.8, 0.3) pt3dadd(-128.7, 66, 174.8, 0.3) pt3dadd(-129.6, 65.6, 175.7, 0.3) pt3dadd(-130.5, 65.2, 176.5, 0.3) pt3dadd(-131.5, 64.8, 177.5, 0.3) pt3dadd(-132.7, 65.1, 178.5, 0.3) pt3dadd(-133.5, 65.4, 179.2, 0.3) pt3dadd(-134.3, 65.4, 180, 0.3) pt3dadd(-135.1, 65.4, 180.7, 0.3) pt3dadd(-136, 65, 181.5, 0.3) pt3dadd(-136.9, 65, 182.3, 0.3) pt3dadd(-137.8, 65, 183, 0.3) pt3dadd(-138.7, 64.6, 183.9, 0.3) pt3dadd(-139.9, 64.9, 185, 0.3) pt3dadd(-141.6, 65.2, 186.5, 0.3) pt3dadd(-143.1, 65.6, 187.7, 0.2) pt3dadd(-142, 65.7, 188.6, 0.2) pt3dadd(-143.1, 65.7, 189.5, 0.2) pt3dadd(-144, 65.3, 190.4, 0.2) pt3dadd(-145.1, 64.9, 191.4, 0.2) pt3dadd(-146.1, 64.5, 192.3, 0.2) pt3dadd(-147.1, 64.5, 193.2, 0.2) pt3dadd(-148, 64.8, 194, 0.2) pt3dadd(-149, 65.6, 195.1, 0.2) pt3dadd(-149.8, 66.4, 196.1, 0.2) pt3dadd(-150.7, 66.9, 197, 0.2) pt3dadd(-152, 67.2, 198.1, 0.2) pt3dadd(-153.1, 67.2, 199.1, 0.2) pt3dadd(-154.2, 67.2, 200, 0.2) pt3dadd(-155.1, 68, 201, 0.2) pt3dadd(-156.2, 68.6, 202.1, 0.2) pt3dadd(-157.3, 68.9, 203.1, 0.2) pt3dadd(-158.3, 68.9, 204, 0.2) pt3dadd(-159.2, 68.9, 204.7, 0.2) pt3dadd(-160.1, 68.9, 205.5, 0.2) pt3dadd(-161, 68.5, 206.4, 0.2) pt3dadd(-161.8, 68.5, 207.1, 0.2) pt3dadd(-162.7, 68.5, 207.9, 0.2) pt3dadd(-163.6, 68.5, 208.6, 0.2) pt3dadd(-165.1, 68, 210, 0.2) } dend[50] {pt3dclear() pt3dadd(-32, 42, 114, 0.7) pt3dadd(-32.1, 43.2, 114.6, 0.3) pt3dadd(-32.5, 44.1, 115, 0.3) pt3dadd(-32.9, 44.8, 115.3, 0.3) pt3dadd(-32.9, 46.1, 115.7, 0.3) pt3dadd(-33.3, 46.9, 116, 0.3) pt3dadd(-33.7, 48, 116.4, 0.3) pt3dadd(-34.1, 49.1, 116.7, 0.3) pt3dadd(-34.5, 49.8, 116.8, 0.3) pt3dadd(-34.9, 50.6, 117, 0.3) pt3dadd(-35.3, 51.9, 117.3, 0.3) pt3dadd(-35.3, 52.7, 117.4, 0.3) pt3dadd(-35.7, 53.4, 117.5, 0.3) pt3dadd(-36.1, 54.7, 117.7, 0.3) pt3dadd(-36.5, 56, 117.8, 0.3) pt3dadd(-36.9, 57, 117.9, 0.3) pt3dadd(-37.7, 58.3, 117.9, 0.3) pt3dadd(-38.1, 59.3, 118, 0.3) pt3dadd(-38.5, 60.3, 118, 0.3) pt3dadd(-39, 61.1, 118, 0.3) pt3dadd(-39.4, 62.1, 118, 0.3) pt3dadd(-39.4, 63.3, 117.9, 0.3) pt3dadd(-39.9, 64.4, 117.9, 0.3) pt3dadd(-40.9, 65.2, 117.9, 0.3) pt3dadd(-41.8, 66, 117.8, 0.3) pt3dadd(-42.2, 66.8, 117.8, 0.3) pt3dadd(-42.7, 67.6, 117.7, 0.3) pt3dadd(-42.7, 68.4, 117.7, 0.3) pt3dadd(-43.2, 69.2, 117.7, 0.3) pt3dadd(-43.2, 70, 117.6, 0.3) pt3dadd(-43.7, 71, 117.6, 0.3) pt3dadd(-44.2, 71.7, 117.5, 0.3) pt3dadd(-45.3, 72.9, 117.5, 0.3) pt3dadd(-46.1, 73.6, 117.5, 0.3) pt3dadd(-46.9, 74.3, 117.5, 0.3) pt3dadd(-47.9, 75.2, 117.5, 0.3) pt3dadd(-48.7, 76, 117.5, 0.3) pt3dadd(-49.7, 76.8, 117.5, 0.3) pt3dadd(-50.7, 77.5, 117.6, 0.3) pt3dadd(-51.2, 78.1, 117.6, 0.3) pt3dadd(-52.1, 78.9, 117.7, 0.3) pt3dadd(-52.9, 79.8, 117.9, 0.3) pt3dadd(-53.3, 80.8, 118, 0.3) pt3dadd(-53.8, 81.8, 118.2, 0.3) pt3dadd(-54.2, 82.9, 118.4, 0.3) pt3dadd(-54.6, 84.3, 118.7, 0.3) pt3dadd(-55, 85.9, 119.1, 0.3) pt3dadd(-55, 86.9, 119.4, 0.3) } } proc shape3d_40() { dend[50] { pt3dadd(-55.3, 88.8, 120, 0.3) pt3dadd(-55.3, 89.6, 120.3, 0.3) pt3dadd(-55.2, 90.5, 120.6, 0.3) pt3dadd(-55.2, 91.7, 121.1, 0.3) pt3dadd(-55.6, 92.8, 121.5, 0.3) pt3dadd(-56.1, 93.5, 121.8, 0.3) pt3dadd(-57, 93.8, 122.1, 0.3) pt3dadd(-57.6, 94.6, 122.4, 0.3) pt3dadd(-58.7, 96, 123, 0.3) pt3dadd(-58.7, 96.8, 123.3, 0.3) pt3dadd(-59.2, 97.6, 123.6, 0.3) pt3dadd(-59.6, 98.3, 123.9, 0.3) pt3dadd(-60.1, 98.9, 124.2, 0.3) pt3dadd(-60.6, 99.7, 124.5, 0.3) pt3dadd(-61.7, 101.3, 125.1, 0.3) pt3dadd(-62.3, 102.3, 125.5, 0.3) pt3dadd(-62.7, 103.3, 125.9, 0.3) pt3dadd(-63.2, 104.1, 126.2, 0.3) pt3dadd(-63.8, 105.1, 126.5, 0.3) pt3dadd(-64.4, 105.8, 126.8, 0.3) pt3dadd(-65.2, 106.4, 127.2, 0.3) pt3dadd(-65.8, 107.4, 127.5, 0.3) pt3dadd(-66.3, 108.3, 127.9, 0.3) pt3dadd(-66.7, 109, 128.1, 0.3) pt3dadd(-66.7, 109.8, 128.4, 0.3) pt3dadd(-67.2, 110.5, 128.7, 0.3) pt3dadd(-67.6, 111.2, 128.9, 0.3) pt3dadd(-68, 112.3, 129.3, 0.3) pt3dadd(-68.9, 113.6, 129.8, 0.3) pt3dadd(-69.5, 114.3, 130.1, 0.3) pt3dadd(-70.4, 115.3, 130.5, 0.3) pt3dadd(-70.8, 116.1, 130.8, 0.3) pt3dadd(-71.6, 117.1, 131.3, 0.3) pt3dadd(-72.7, 118.6, 131.8, 0.3) pt3dadd(-72.7, 119.5, 132.1, 0.3) pt3dadd(-73.2, 120.3, 132.5, 0.3) pt3dadd(-73.2, 121.1, 132.7, 0.3) pt3dadd(-73.6, 121.9, 133, 0.3) pt3dadd(-73.6, 123.1, 133.4, 0.3) pt3dadd(-73.6, 124.7, 133.9, 0.3) pt3dadd(-73.6, 126.1, 134.4, 0.3) pt3dadd(-73.6, 126.9, 134.7, 0.3) pt3dadd(-73.2, 128, 135.1, 0.3) pt3dadd(-72.9, 129.2, 135.5, 0.3) pt3dadd(-73.4, 130.6, 136, 0.3) pt3dadd(-73.8, 131.3, 136.3, 0.3) pt3dadd(-74.2, 132.5, 136.7, 0.3) pt3dadd(-74.2, 133.3, 137, 0.3) pt3dadd(-74.2, 134.3, 137.4, 0.3) pt3dadd(-74.6, 135.3, 137.8, 0.3) pt3dadd(-75, 136, 138.1, 0.3) pt3dadd(-75.4, 137.4, 138.6, 0.3) pt3dadd(-75.8, 138.3, 138.9, 0.3) pt3dadd(-76.4, 139.1, 139.3, 0.3) pt3dadd(-77.2, 139.6, 139.7, 0.3) pt3dadd(-77.7, 140.3, 140, 0.3) pt3dadd(-78.6, 140.8, 140.4, 0.3) pt3dadd(-79.4, 142.2, 141, 0.3) pt3dadd(-79.8, 143, 141.4, 0.3) pt3dadd(-80.3, 143.7, 141.7, 0.3) pt3dadd(-81.3, 144.1, 142.2, 0.3) pt3dadd(-81.8, 144.8, 142.5, 0.3) pt3dadd(-82.6, 146.3, 143.2, 0.3) pt3dadd(-83.2, 147.7, 143.8, 0.3) pt3dadd(-83.6, 148.8, 144.3, 0.3) pt3dadd(-83.6, 149.8, 144.8, 0.3) pt3dadd(-84, 150.7, 145.2, 0.3) pt3dadd(-84.9, 152.2, 145.9, 0.3) pt3dadd(-85.8, 153.2, 146.6, 0.3) pt3dadd(-86.2, 154, 147, 0.3) pt3dadd(-86.7, 154.7, 147.4, 0.3) pt3dadd(-87.1, 155.8, 147.9, 0.3) pt3dadd(-87.5, 156.5, 148.3, 0.3) pt3dadd(-88, 157.2, 148.7, 0.3) pt3dadd(-88.5, 157.9, 149.1, 0.3) pt3dadd(-88.9, 158.9, 149.6, 0.3) pt3dadd(-89.6, 159.4, 150, 0.3) } } proc basic_shape() { shape3d_1() shape3d_2() shape3d_3() shape3d_4() shape3d_5() shape3d_6() shape3d_7() shape3d_8() shape3d_9() shape3d_10() shape3d_11() shape3d_12() shape3d_13() shape3d_14() shape3d_15() shape3d_16() shape3d_17() shape3d_18() shape3d_19() shape3d_20() shape3d_21() shape3d_22() shape3d_23() shape3d_24() shape3d_25() shape3d_26() shape3d_27() shape3d_28() shape3d_29() shape3d_30() shape3d_31() shape3d_32() shape3d_33() shape3d_34() shape3d_35() shape3d_36() shape3d_37() shape3d_38() shape3d_39() shape3d_40() } proc geom() { } proc geom_nseg() { } access soma celldef()