/* Purk2M0.p from Erik De Schutter converted to NEURON format by */
/* neuroConstruct 0.4 */
/* Modified to prepare for implementation of De Schutter & Bower */
/* (1994) active model of the Purkinje cell 28.5.2004 */
create soma
nDendrites = 1599
create dend[nDendrites]
proc topol_extra_0(){
connect dend[0](0), soma(0.5)
connect dend[1](0), dend[0](1)
connect dend[2](0), dend[1](1)
connect dend[3](0), dend[2](1)
connect dend[4](0), dend[3](1)
connect dend[5](0), dend[4](1)
connect dend[6](0), dend[5](1)
connect dend[7](0), dend[6](1)
connect dend[8](0), dend[7](1)
connect dend[9](0), dend[8](1)
connect dend[10](0), dend[9](1)
connect dend[11](0), dend[10](1)
connect dend[12](0), dend[11](1)
connect dend[13](0), dend[12](1)
connect dend[14](0), dend[13](1)
connect dend[15](0), dend[14](1)
connect dend[16](0), dend[15](1)
connect dend[17](0), dend[16](1)
connect dend[18](0), dend[17](1)
connect dend[19](0), dend[18](1)
connect dend[20](0), dend[19](1)
connect dend[21](0), dend[20](1)
connect dend[22](0), dend[21](1)
connect dend[23](0), dend[22](1)
connect dend[24](0), dend[23](1)
connect dend[25](0), dend[24](1)
connect dend[26](0), dend[25](1)
connect dend[27](0), dend[26](1)
connect dend[28](0), dend[27](1)
connect dend[29](0), dend[28](1)
connect dend[30](0), dend[8](1)
connect dend[31](0), dend[30](1)
connect dend[32](0), dend[31](1)
connect dend[33](0), dend[32](1)
connect dend[34](0), dend[33](1)
connect dend[35](0), dend[34](1)
connect dend[36](0), dend[35](1)
connect dend[37](0), dend[36](1)
connect dend[38](0), dend[37](1)
connect dend[39](0), dend[38](1)
connect dend[40](0), dend[39](1)
connect dend[41](0), dend[40](1)
connect dend[42](0), dend[41](1)
connect dend[43](0), dend[42](1)
connect dend[44](0), dend[43](1)
connect dend[45](0), dend[44](1)
connect dend[46](0), dend[45](1)
connect dend[47](0), dend[46](1)
connect dend[48](0), dend[47](1)
connect dend[49](0), dend[48](1)
connect dend[50](0), dend[49](1)
connect dend[51](0), dend[50](1)
connect dend[52](0), dend[36](1)
connect dend[53](0), dend[52](1)
connect dend[54](0), dend[53](1)
connect dend[55](0), dend[54](1)
connect dend[56](0), dend[55](1)
connect dend[57](0), dend[56](1)
connect dend[58](0), dend[57](1)
connect dend[59](0), dend[58](1)
connect dend[60](0), dend[59](1)
connect dend[61](0), dend[60](1)
connect dend[62](0), dend[61](1)
connect dend[63](0), dend[62](1)
connect dend[64](0), dend[63](1)
connect dend[65](0), dend[64](1)
connect dend[66](0), dend[65](1)
connect dend[67](0), dend[66](1)
connect dend[68](0), dend[67](1)
connect dend[69](0), dend[1](1)
connect dend[70](0), dend[69](1)
connect dend[71](0), dend[70](1)
connect dend[72](0), dend[71](1)
connect dend[73](0), dend[72](1)
connect dend[74](0), dend[73](1)
connect dend[75](0), dend[74](1)
connect dend[76](0), dend[74](1)
connect dend[77](0), dend[76](1)
connect dend[78](0), dend[76](1)
connect dend[79](0), dend[78](1)
connect dend[80](0), dend[78](1)
connect dend[81](0), dend[80](1)
connect dend[82](0), dend[81](1)
connect dend[83](0), dend[81](1)
connect dend[84](0), dend[83](1)
connect dend[85](0), dend[84](1)
connect dend[86](0), dend[84](1)
connect dend[87](0), dend[86](1)
connect dend[88](0), dend[87](1)
connect dend[89](0), dend[80](1)
connect dend[90](0), dend[89](1)
connect dend[91](0), dend[90](1)
connect dend[92](0), dend[73](1)
connect dend[93](0), dend[92](1)
connect dend[94](0), dend[93](1)
connect dend[95](0), dend[94](1)
connect dend[96](0), dend[95](1)
connect dend[97](0), dend[94](1)
connect dend[98](0), dend[97](1)
connect dend[99](0), dend[98](1)
}
proc topol_extra_1(){
connect dend[100](0), dend[72](1)
connect dend[101](0), dend[100](1)
connect dend[102](0), dend[101](1)
connect dend[103](0), dend[101](1)
connect dend[104](0), dend[103](1)
connect dend[105](0), dend[104](1)
connect dend[106](0), dend[105](1)
connect dend[107](0), dend[106](1)
connect dend[108](0), dend[100](1)
connect dend[109](0), dend[108](1)
connect dend[110](0), dend[109](1)
connect dend[111](0), dend[110](1)
connect dend[112](0), dend[111](1)
connect dend[113](0), dend[112](1)
connect dend[114](0), dend[2](1)
connect dend[115](0), dend[114](1)
connect dend[116](0), dend[115](1)
connect dend[117](0), dend[116](1)
connect dend[118](0), dend[117](1)
connect dend[119](0), dend[118](1)
connect dend[120](0), dend[119](1)
connect dend[121](0), dend[120](1)
connect dend[122](0), dend[119](1)
connect dend[123](0), dend[122](1)
connect dend[124](0), dend[123](1)
connect dend[125](0), dend[118](1)
connect dend[126](0), dend[125](1)
connect dend[127](0), dend[126](1)
connect dend[128](0), dend[127](1)
connect dend[129](0), dend[115](1)
connect dend[130](0), dend[129](1)
connect dend[131](0), dend[130](1)
connect dend[132](0), dend[131](1)
connect dend[133](0), dend[129](1)
connect dend[134](0), dend[133](1)
connect dend[135](0), dend[134](1)
connect dend[136](0), dend[135](1)
connect dend[137](0), dend[136](1)
connect dend[138](0), dend[137](1)
connect dend[139](0), dend[138](1)
connect dend[140](0), dend[138](1)
connect dend[141](0), dend[140](1)
connect dend[142](0), dend[136](1)
connect dend[143](0), dend[142](1)
connect dend[144](0), dend[133](1)
connect dend[145](0), dend[144](1)
connect dend[146](0), dend[145](1)
connect dend[147](0), dend[146](1)
connect dend[148](0), dend[147](1)
connect dend[149](0), dend[148](1)
connect dend[150](0), dend[149](1)
connect dend[151](0), dend[150](1)
connect dend[152](0), dend[151](1)
connect dend[153](0), dend[152](1)
connect dend[154](0), dend[152](1)
connect dend[155](0), dend[154](1)
connect dend[156](0), dend[155](1)
connect dend[157](0), dend[156](1)
connect dend[158](0), dend[157](1)
connect dend[159](0), dend[157](1)
connect dend[160](0), dend[159](1)
connect dend[161](0), dend[160](1)
connect dend[162](0), dend[160](1)
connect dend[163](0), dend[156](1)
connect dend[164](0), dend[163](1)
connect dend[165](0), dend[164](1)
connect dend[166](0), dend[164](1)
connect dend[167](0), dend[166](1)
connect dend[168](0), dend[167](1)
connect dend[169](0), dend[167](1)
connect dend[170](0), dend[169](1)
connect dend[171](0), dend[155](1)
connect dend[172](0), dend[151](1)
connect dend[173](0), dend[172](1)
connect dend[174](0), dend[173](1)
connect dend[175](0), dend[174](1)
connect dend[176](0), dend[175](1)
connect dend[177](0), dend[176](1)
connect dend[178](0), dend[176](1)
connect dend[179](0), dend[172](1)
connect dend[180](0), dend[179](1)
connect dend[181](0), dend[180](1)
connect dend[182](0), dend[181](1)
connect dend[183](0), dend[182](1)
connect dend[184](0), dend[183](1)
connect dend[185](0), dend[184](1)
connect dend[186](0), dend[185](1)
connect dend[187](0), dend[184](1)
connect dend[188](0), dend[187](1)
connect dend[189](0), dend[182](1)
connect dend[190](0), dend[189](1)
connect dend[191](0), dend[189](1)
connect dend[192](0), dend[191](1)
connect dend[193](0), dend[191](1)
connect dend[194](0), dend[193](1)
connect dend[195](0), dend[193](1)
connect dend[196](0), dend[181](1)
connect dend[197](0), dend[196](1)
connect dend[198](0), dend[197](1)
connect dend[199](0), dend[196](1)
}
proc topol_extra_2(){
connect dend[200](0), dend[199](1)
connect dend[201](0), dend[200](1)
connect dend[202](0), dend[201](1)
connect dend[203](0), dend[180](1)
connect dend[204](0), dend[203](1)
connect dend[205](0), dend[204](1)
connect dend[206](0), dend[205](1)
connect dend[207](0), dend[206](1)
connect dend[208](0), dend[207](1)
connect dend[209](0), dend[208](1)
connect dend[210](0), dend[209](1)
connect dend[211](0), dend[209](1)
connect dend[212](0), dend[207](1)
connect dend[213](0), dend[212](1)
connect dend[214](0), dend[213](1)
connect dend[215](0), dend[204](1)
connect dend[216](0), dend[215](1)
connect dend[217](0), dend[150](1)
connect dend[218](0), dend[217](1)
connect dend[219](0), dend[218](1)
connect dend[220](0), dend[218](1)
connect dend[221](0), dend[220](1)
connect dend[222](0), dend[221](1)
connect dend[223](0), dend[221](1)
connect dend[224](0), dend[223](1)
connect dend[225](0), dend[220](1)
connect dend[226](0), dend[225](1)
connect dend[227](0), dend[226](1)
connect dend[228](0), dend[227](1)
connect dend[229](0), dend[226](1)
connect dend[230](0), dend[229](1)
connect dend[231](0), dend[225](1)
connect dend[232](0), dend[147](1)
connect dend[233](0), dend[232](1)
connect dend[234](0), dend[233](1)
connect dend[235](0), dend[234](1)
connect dend[236](0), dend[235](1)
connect dend[237](0), dend[236](1)
connect dend[238](0), dend[237](1)
connect dend[239](0), dend[238](1)
connect dend[240](0), dend[239](1)
connect dend[241](0), dend[240](1)
connect dend[242](0), dend[238](1)
connect dend[243](0), dend[242](1)
connect dend[244](0), dend[243](1)
connect dend[245](0), dend[244](1)
connect dend[246](0), dend[245](1)
connect dend[247](0), dend[245](1)
connect dend[248](0), dend[247](1)
connect dend[249](0), dend[247](1)
connect dend[250](0), dend[249](1)
connect dend[251](0), dend[242](1)
connect dend[252](0), dend[251](1)
connect dend[253](0), dend[252](1)
connect dend[254](0), dend[253](1)
connect dend[255](0), dend[254](1)
connect dend[256](0), dend[255](1)
connect dend[257](0), dend[256](1)
connect dend[258](0), dend[257](1)
connect dend[259](0), dend[254](1)
connect dend[260](0), dend[259](1)
connect dend[261](0), dend[260](1)
connect dend[262](0), dend[260](1)
connect dend[263](0), dend[252](1)
connect dend[264](0), dend[263](1)
connect dend[265](0), dend[264](1)
connect dend[266](0), dend[265](1)
connect dend[267](0), dend[265](1)
connect dend[268](0), dend[267](1)
connect dend[269](0), dend[268](1)
connect dend[270](0), dend[264](1)
connect dend[271](0), dend[270](1)
connect dend[272](0), dend[271](1)
connect dend[273](0), dend[271](1)
connect dend[274](0), dend[251](1)
connect dend[275](0), dend[274](1)
connect dend[276](0), dend[275](1)
connect dend[277](0), dend[276](1)
connect dend[278](0), dend[277](1)
connect dend[279](0), dend[277](1)
connect dend[280](0), dend[279](1)
connect dend[281](0), dend[276](1)
connect dend[282](0), dend[281](1)
connect dend[283](0), dend[282](1)
connect dend[284](0), dend[283](1)
connect dend[285](0), dend[283](1)
connect dend[286](0), dend[285](1)
connect dend[287](0), dend[275](1)
connect dend[288](0), dend[287](1)
connect dend[289](0), dend[288](1)
connect dend[290](0), dend[289](1)
connect dend[291](0), dend[290](1)
connect dend[292](0), dend[288](1)
connect dend[293](0), dend[292](1)
connect dend[294](0), dend[293](1)
connect dend[295](0), dend[294](1)
connect dend[296](0), dend[295](1)
connect dend[297](0), dend[295](1)
connect dend[298](0), dend[294](1)
connect dend[299](0), dend[298](1)
}
proc topol_extra_3(){
connect dend[300](0), dend[5](1)
connect dend[301](0), dend[300](1)
connect dend[302](0), dend[301](1)
connect dend[303](0), dend[302](1)
connect dend[304](0), dend[302](1)
connect dend[305](0), dend[304](1)
connect dend[306](0), dend[305](1)
connect dend[307](0), dend[304](1)
connect dend[308](0), dend[307](1)
connect dend[309](0), dend[308](1)
connect dend[310](0), dend[309](1)
connect dend[311](0), dend[310](1)
connect dend[312](0), dend[311](1)
connect dend[313](0), dend[312](1)
connect dend[314](0), dend[313](1)
connect dend[315](0), dend[314](1)
connect dend[316](0), dend[313](1)
connect dend[317](0), dend[316](1)
connect dend[318](0), dend[317](1)
connect dend[319](0), dend[310](1)
connect dend[320](0), dend[319](1)
connect dend[321](0), dend[320](1)
connect dend[322](0), dend[321](1)
connect dend[323](0), dend[321](1)
connect dend[324](0), dend[323](1)
connect dend[325](0), dend[324](1)
connect dend[326](0), dend[325](1)
connect dend[327](0), dend[323](1)
connect dend[328](0), dend[327](1)
connect dend[329](0), dend[320](1)
connect dend[330](0), dend[329](1)
connect dend[331](0), dend[329](1)
connect dend[332](0), dend[331](1)
connect dend[333](0), dend[331](1)
connect dend[334](0), dend[333](1)
connect dend[335](0), dend[333](1)
connect dend[336](0), dend[335](1)
connect dend[337](0), dend[335](1)
connect dend[338](0), dend[308](1)
connect dend[339](0), dend[338](1)
connect dend[340](0), dend[339](1)
connect dend[341](0), dend[340](1)
connect dend[342](0), dend[341](1)
connect dend[343](0), dend[339](1)
connect dend[344](0), dend[343](1)
connect dend[345](0), dend[344](1)
connect dend[346](0), dend[345](1)
connect dend[347](0), dend[346](1)
connect dend[348](0), dend[347](1)
connect dend[349](0), dend[347](1)
connect dend[350](0), dend[344](1)
connect dend[351](0), dend[350](1)
connect dend[352](0), dend[350](1)
connect dend[353](0), dend[352](1)
connect dend[354](0), dend[301](1)
connect dend[355](0), dend[354](1)
connect dend[356](0), dend[355](1)
connect dend[357](0), dend[356](1)
connect dend[358](0), dend[357](1)
connect dend[359](0), dend[358](1)
connect dend[360](0), dend[359](1)
connect dend[361](0), dend[359](1)
connect dend[362](0), dend[361](1)
connect dend[363](0), dend[361](1)
connect dend[364](0), dend[357](1)
connect dend[365](0), dend[356](1)
connect dend[366](0), dend[365](1)
connect dend[367](0), dend[366](1)
connect dend[368](0), dend[365](1)
connect dend[369](0), dend[368](1)
connect dend[370](0), dend[6](1)
connect dend[371](0), dend[370](1)
connect dend[372](0), dend[371](1)
connect dend[373](0), dend[372](1)
connect dend[374](0), dend[373](1)
connect dend[375](0), dend[374](1)
connect dend[376](0), dend[374](1)
connect dend[377](0), dend[372](1)
connect dend[378](0), dend[377](1)
connect dend[379](0), dend[378](1)
connect dend[380](0), dend[378](1)
connect dend[381](0), dend[380](1)
connect dend[382](0), dend[380](1)
connect dend[383](0), dend[377](1)
connect dend[384](0), dend[383](1)
connect dend[385](0), dend[384](1)
connect dend[386](0), dend[385](1)
connect dend[387](0), dend[384](1)
connect dend[388](0), dend[387](1)
connect dend[389](0), dend[388](1)
connect dend[390](0), dend[388](1)
connect dend[391](0), dend[383](1)
connect dend[392](0), dend[391](1)
connect dend[393](0), dend[392](1)
connect dend[394](0), dend[393](1)
connect dend[395](0), dend[392](1)
connect dend[396](0), dend[395](1)
connect dend[397](0), dend[396](1)
connect dend[398](0), dend[397](1)
connect dend[399](0), dend[396](1)
}
proc topol_extra_4(){
connect dend[400](0), dend[370](1)
connect dend[401](0), dend[400](1)
connect dend[402](0), dend[401](1)
connect dend[403](0), dend[402](1)
connect dend[404](0), dend[403](1)
connect dend[405](0), dend[404](1)
connect dend[406](0), dend[405](1)
connect dend[407](0), dend[406](1)
connect dend[408](0), dend[407](1)
connect dend[409](0), dend[406](1)
connect dend[410](0), dend[409](1)
connect dend[411](0), dend[404](1)
connect dend[412](0), dend[411](1)
connect dend[413](0), dend[401](1)
connect dend[414](0), dend[413](1)
connect dend[415](0), dend[414](1)
connect dend[416](0), dend[415](1)
connect dend[417](0), dend[416](1)
connect dend[418](0), dend[417](1)
connect dend[419](0), dend[418](1)
connect dend[420](0), dend[419](1)
connect dend[421](0), dend[419](1)
connect dend[422](0), dend[421](1)
connect dend[423](0), dend[418](1)
connect dend[424](0), dend[423](1)
connect dend[425](0), dend[423](1)
connect dend[426](0), dend[417](1)
connect dend[427](0), dend[416](1)
connect dend[428](0), dend[413](1)
connect dend[429](0), dend[428](1)
connect dend[430](0), dend[429](1)
connect dend[431](0), dend[429](1)
connect dend[432](0), dend[431](1)
connect dend[433](0), dend[428](1)
connect dend[434](0), dend[433](1)
connect dend[435](0), dend[433](1)
connect dend[436](0), dend[435](1)
connect dend[437](0), dend[436](1)
connect dend[438](0), dend[437](1)
connect dend[439](0), dend[437](1)
connect dend[440](0), dend[439](1)
connect dend[441](0), dend[439](1)
connect dend[442](0), dend[441](1)
connect dend[443](0), dend[442](1)
connect dend[444](0), dend[441](1)
connect dend[445](0), dend[444](1)
connect dend[446](0), dend[445](1)
connect dend[447](0), dend[445](1)
connect dend[448](0), dend[435](1)
connect dend[449](0), dend[448](1)
connect dend[450](0), dend[449](1)
connect dend[451](0), dend[450](1)
connect dend[452](0), dend[450](1)
connect dend[453](0), dend[448](1)
connect dend[454](0), dend[453](1)
connect dend[455](0), dend[454](1)
connect dend[456](0), dend[455](1)
connect dend[457](0), dend[456](1)
connect dend[458](0), dend[457](1)
connect dend[459](0), dend[455](1)
connect dend[460](0), dend[459](1)
connect dend[461](0), dend[460](1)
connect dend[462](0), dend[461](1)
connect dend[463](0), dend[462](1)
connect dend[464](0), dend[463](1)
connect dend[465](0), dend[464](1)
connect dend[466](0), dend[465](1)
connect dend[467](0), dend[466](1)
connect dend[468](0), dend[467](1)
connect dend[469](0), dend[467](1)
connect dend[470](0), dend[464](1)
connect dend[471](0), dend[470](1)
connect dend[472](0), dend[471](1)
connect dend[473](0), dend[471](1)
connect dend[474](0), dend[473](1)
connect dend[475](0), dend[474](1)
connect dend[476](0), dend[475](1)
connect dend[477](0), dend[476](1)
connect dend[478](0), dend[476](1)
connect dend[479](0), dend[461](1)
connect dend[480](0), dend[479](1)
connect dend[481](0), dend[480](1)
connect dend[482](0), dend[481](1)
connect dend[483](0), dend[481](1)
connect dend[484](0), dend[483](1)
connect dend[485](0), dend[484](1)
connect dend[486](0), dend[479](1)
connect dend[487](0), dend[486](1)
connect dend[488](0), dend[487](1)
connect dend[489](0), dend[487](1)
connect dend[490](0), dend[460](1)
connect dend[491](0), dend[490](1)
connect dend[492](0), dend[491](1)
connect dend[493](0), dend[492](1)
connect dend[494](0), dend[492](1)
connect dend[495](0), dend[491](1)
connect dend[496](0), dend[495](1)
connect dend[497](0), dend[496](1)
connect dend[498](0), dend[497](1)
connect dend[499](0), dend[498](1)
}
proc topol_extra_5(){
connect dend[500](0), dend[499](1)
connect dend[501](0), dend[500](1)
connect dend[502](0), dend[501](1)
connect dend[503](0), dend[502](1)
connect dend[504](0), dend[503](1)
connect dend[505](0), dend[499](1)
connect dend[506](0), dend[505](1)
connect dend[507](0), dend[505](1)
connect dend[508](0), dend[507](1)
connect dend[509](0), dend[508](1)
connect dend[510](0), dend[496](1)
connect dend[511](0), dend[510](1)
connect dend[512](0), dend[511](1)
connect dend[513](0), dend[511](1)
connect dend[514](0), dend[513](1)
connect dend[515](0), dend[510](1)
connect dend[516](0), dend[515](1)
connect dend[517](0), dend[516](1)
connect dend[518](0), dend[517](1)
connect dend[519](0), dend[515](1)
connect dend[520](0), dend[519](1)
connect dend[521](0), dend[520](1)
connect dend[522](0), dend[521](1)
connect dend[523](0), dend[522](1)
connect dend[524](0), dend[523](1)
connect dend[525](0), dend[523](1)
connect dend[526](0), dend[9](1)
connect dend[527](0), dend[526](1)
connect dend[528](0), dend[527](1)
connect dend[529](0), dend[528](1)
connect dend[530](0), dend[527](1)
connect dend[531](0), dend[530](1)
connect dend[532](0), dend[530](1)
connect dend[533](0), dend[11](1)
connect dend[534](0), dend[533](1)
connect dend[535](0), dend[534](1)
connect dend[536](0), dend[535](1)
connect dend[537](0), dend[536](1)
connect dend[538](0), dend[537](1)
connect dend[539](0), dend[538](1)
connect dend[540](0), dend[539](1)
connect dend[541](0), dend[540](1)
connect dend[542](0), dend[535](1)
connect dend[543](0), dend[542](1)
connect dend[544](0), dend[543](1)
connect dend[545](0), dend[544](1)
connect dend[546](0), dend[545](1)
connect dend[547](0), dend[546](1)
connect dend[548](0), dend[546](1)
connect dend[549](0), dend[548](1)
connect dend[550](0), dend[544](1)
connect dend[551](0), dend[550](1)
connect dend[552](0), dend[551](1)
connect dend[553](0), dend[552](1)
connect dend[554](0), dend[553](1)
connect dend[555](0), dend[554](1)
connect dend[556](0), dend[555](1)
connect dend[557](0), dend[556](1)
connect dend[558](0), dend[556](1)
connect dend[559](0), dend[554](1)
connect dend[560](0), dend[559](1)
connect dend[561](0), dend[560](1)
connect dend[562](0), dend[561](1)
connect dend[563](0), dend[562](1)
connect dend[564](0), dend[560](1)
connect dend[565](0), dend[564](1)
connect dend[566](0), dend[565](1)
connect dend[567](0), dend[565](1)
connect dend[568](0), dend[567](1)
connect dend[569](0), dend[567](1)
connect dend[570](0), dend[569](1)
connect dend[571](0), dend[569](1)
connect dend[572](0), dend[553](1)
connect dend[573](0), dend[572](1)
connect dend[574](0), dend[573](1)
connect dend[575](0), dend[573](1)
connect dend[576](0), dend[575](1)
connect dend[577](0), dend[575](1)
connect dend[578](0), dend[577](1)
connect dend[579](0), dend[578](1)
connect dend[580](0), dend[579](1)
connect dend[581](0), dend[579](1)
connect dend[582](0), dend[578](1)
connect dend[583](0), dend[582](1)
connect dend[584](0), dend[583](1)
connect dend[585](0), dend[584](1)
connect dend[586](0), dend[583](1)
connect dend[587](0), dend[586](1)
connect dend[588](0), dend[551](1)
connect dend[589](0), dend[588](1)
connect dend[590](0), dend[589](1)
connect dend[591](0), dend[590](1)
connect dend[592](0), dend[591](1)
connect dend[593](0), dend[592](1)
connect dend[594](0), dend[593](1)
connect dend[595](0), dend[594](1)
connect dend[596](0), dend[595](1)
connect dend[597](0), dend[591](1)
connect dend[598](0), dend[597](1)
connect dend[599](0), dend[598](1)
}
proc topol_extra_6(){
connect dend[600](0), dend[599](1)
connect dend[601](0), dend[600](1)
connect dend[602](0), dend[601](1)
connect dend[603](0), dend[602](1)
connect dend[604](0), dend[602](1)
connect dend[605](0), dend[598](1)
connect dend[606](0), dend[605](1)
connect dend[607](0), dend[606](1)
connect dend[608](0), dend[606](1)
connect dend[609](0), dend[608](1)
connect dend[610](0), dend[609](1)
connect dend[611](0), dend[610](1)
connect dend[612](0), dend[611](1)
connect dend[613](0), dend[609](1)
connect dend[614](0), dend[613](1)
connect dend[615](0), dend[605](1)
connect dend[616](0), dend[589](1)
connect dend[617](0), dend[616](1)
connect dend[618](0), dend[617](1)
connect dend[619](0), dend[617](1)
connect dend[620](0), dend[619](1)
connect dend[621](0), dend[620](1)
connect dend[622](0), dend[621](1)
connect dend[623](0), dend[622](1)
connect dend[624](0), dend[623](1)
connect dend[625](0), dend[622](1)
connect dend[626](0), dend[625](1)
connect dend[627](0), dend[626](1)
connect dend[628](0), dend[627](1)
connect dend[629](0), dend[621](1)
connect dend[630](0), dend[629](1)
connect dend[631](0), dend[630](1)
connect dend[632](0), dend[630](1)
connect dend[633](0), dend[632](1)
connect dend[634](0), dend[633](1)
connect dend[635](0), dend[632](1)
connect dend[636](0), dend[635](1)
connect dend[637](0), dend[636](1)
connect dend[638](0), dend[636](1)
connect dend[639](0), dend[635](1)
connect dend[640](0), dend[550](1)
connect dend[641](0), dend[640](1)
connect dend[642](0), dend[641](1)
connect dend[643](0), dend[642](1)
connect dend[644](0), dend[643](1)
connect dend[645](0), dend[644](1)
connect dend[646](0), dend[644](1)
connect dend[647](0), dend[646](1)
connect dend[648](0), dend[647](1)
connect dend[649](0), dend[647](1)
connect dend[650](0), dend[649](1)
connect dend[651](0), dend[642](1)
connect dend[652](0), dend[651](1)
connect dend[653](0), dend[652](1)
connect dend[654](0), dend[652](1)
connect dend[655](0), dend[534](1)
connect dend[656](0), dend[655](1)
connect dend[657](0), dend[656](1)
connect dend[658](0), dend[657](1)
connect dend[659](0), dend[658](1)
connect dend[660](0), dend[659](1)
connect dend[661](0), dend[660](1)
connect dend[662](0), dend[657](1)
connect dend[663](0), dend[662](1)
connect dend[664](0), dend[663](1)
connect dend[665](0), dend[664](1)
connect dend[666](0), dend[665](1)
connect dend[667](0), dend[664](1)
connect dend[668](0), dend[662](1)
connect dend[669](0), dend[668](1)
connect dend[670](0), dend[668](1)
connect dend[671](0), dend[670](1)
connect dend[672](0), dend[671](1)
connect dend[673](0), dend[672](1)
connect dend[674](0), dend[673](1)
connect dend[675](0), dend[672](1)
connect dend[676](0), dend[675](1)
connect dend[677](0), dend[676](1)
connect dend[678](0), dend[676](1)
connect dend[679](0), dend[670](1)
connect dend[680](0), dend[679](1)
connect dend[681](0), dend[680](1)
connect dend[682](0), dend[681](1)
connect dend[683](0), dend[682](1)
connect dend[684](0), dend[683](1)
connect dend[685](0), dend[684](1)
connect dend[686](0), dend[685](1)
connect dend[687](0), dend[684](1)
connect dend[688](0), dend[687](1)
connect dend[689](0), dend[688](1)
connect dend[690](0), dend[689](1)
connect dend[691](0), dend[690](1)
connect dend[692](0), dend[691](1)
connect dend[693](0), dend[691](1)
connect dend[694](0), dend[693](1)
connect dend[695](0), dend[694](1)
connect dend[696](0), dend[682](1)
connect dend[697](0), dend[696](1)
connect dend[698](0), dend[696](1)
connect dend[699](0), dend[698](1)
}
proc topol_extra_7(){
connect dend[700](0), dend[699](1)
connect dend[701](0), dend[699](1)
connect dend[702](0), dend[701](1)
connect dend[703](0), dend[702](1)
connect dend[704](0), dend[703](1)
connect dend[705](0), dend[704](1)
connect dend[706](0), dend[705](1)
connect dend[707](0), dend[706](1)
connect dend[708](0), dend[706](1)
connect dend[709](0), dend[703](1)
connect dend[710](0), dend[709](1)
connect dend[711](0), dend[710](1)
connect dend[712](0), dend[710](1)
connect dend[713](0), dend[712](1)
connect dend[714](0), dend[701](1)
connect dend[715](0), dend[714](1)
connect dend[716](0), dend[13](1)
connect dend[717](0), dend[716](1)
connect dend[718](0), dend[717](1)
connect dend[719](0), dend[718](1)
connect dend[720](0), dend[719](1)
connect dend[721](0), dend[720](1)
connect dend[722](0), dend[14](1)
connect dend[723](0), dend[722](1)
connect dend[724](0), dend[723](1)
connect dend[725](0), dend[724](1)
connect dend[726](0), dend[725](1)
connect dend[727](0), dend[725](1)
connect dend[728](0), dend[727](1)
connect dend[729](0), dend[728](1)
connect dend[730](0), dend[729](1)
connect dend[731](0), dend[730](1)
connect dend[732](0), dend[731](1)
connect dend[733](0), dend[732](1)
connect dend[734](0), dend[732](1)
connect dend[735](0), dend[730](1)
connect dend[736](0), dend[735](1)
connect dend[737](0), dend[728](1)
connect dend[738](0), dend[724](1)
connect dend[739](0), dend[738](1)
connect dend[740](0), dend[739](1)
connect dend[741](0), dend[740](1)
connect dend[742](0), dend[740](1)
connect dend[743](0), dend[739](1)
connect dend[744](0), dend[738](1)
connect dend[745](0), dend[744](1)
connect dend[746](0), dend[745](1)
connect dend[747](0), dend[16](1)
connect dend[748](0), dend[747](1)
connect dend[749](0), dend[748](1)
connect dend[750](0), dend[749](1)
connect dend[751](0), dend[750](1)
connect dend[752](0), dend[750](1)
connect dend[753](0), dend[752](1)
connect dend[754](0), dend[752](1)
connect dend[755](0), dend[754](1)
connect dend[756](0), dend[754](1)
connect dend[757](0), dend[747](1)
connect dend[758](0), dend[757](1)
connect dend[759](0), dend[758](1)
connect dend[760](0), dend[759](1)
connect dend[761](0), dend[760](1)
connect dend[762](0), dend[761](1)
connect dend[763](0), dend[762](1)
connect dend[764](0), dend[763](1)
connect dend[765](0), dend[764](1)
connect dend[766](0), dend[763](1)
connect dend[767](0), dend[766](1)
connect dend[768](0), dend[767](1)
connect dend[769](0), dend[768](1)
connect dend[770](0), dend[769](1)
connect dend[771](0), dend[769](1)
connect dend[772](0), dend[767](1)
connect dend[773](0), dend[772](1)
connect dend[774](0), dend[773](1)
connect dend[775](0), dend[773](1)
connect dend[776](0), dend[759](1)
connect dend[777](0), dend[776](1)
connect dend[778](0), dend[758](1)
connect dend[779](0), dend[778](1)
connect dend[780](0), dend[779](1)
connect dend[781](0), dend[778](1)
connect dend[782](0), dend[781](1)
connect dend[783](0), dend[782](1)
connect dend[784](0), dend[782](1)
connect dend[785](0), dend[784](1)
connect dend[786](0), dend[785](1)
connect dend[787](0), dend[17](1)
connect dend[788](0), dend[787](1)
connect dend[789](0), dend[788](1)
connect dend[790](0), dend[789](1)
connect dend[791](0), dend[790](1)
connect dend[792](0), dend[791](1)
connect dend[793](0), dend[792](1)
connect dend[794](0), dend[792](1)
connect dend[795](0), dend[794](1)
connect dend[796](0), dend[795](1)
connect dend[797](0), dend[794](1)
connect dend[798](0), dend[797](1)
connect dend[799](0), dend[798](1)
}
proc topol_extra_8(){
connect dend[800](0), dend[799](1)
connect dend[801](0), dend[799](1)
connect dend[802](0), dend[801](1)
connect dend[803](0), dend[797](1)
connect dend[804](0), dend[803](1)
connect dend[805](0), dend[803](1)
connect dend[806](0), dend[805](1)
connect dend[807](0), dend[805](1)
connect dend[808](0), dend[790](1)
connect dend[809](0), dend[808](1)
connect dend[810](0), dend[787](1)
connect dend[811](0), dend[810](1)
connect dend[812](0), dend[811](1)
connect dend[813](0), dend[812](1)
connect dend[814](0), dend[813](1)
connect dend[815](0), dend[813](1)
connect dend[816](0), dend[811](1)
connect dend[817](0), dend[816](1)
connect dend[818](0), dend[817](1)
connect dend[819](0), dend[818](1)
connect dend[820](0), dend[819](1)
connect dend[821](0), dend[820](1)
connect dend[822](0), dend[821](1)
connect dend[823](0), dend[822](1)
connect dend[824](0), dend[821](1)
connect dend[825](0), dend[824](1)
connect dend[826](0), dend[825](1)
connect dend[827](0), dend[826](1)
connect dend[828](0), dend[827](1)
connect dend[829](0), dend[828](1)
connect dend[830](0), dend[828](1)
connect dend[831](0), dend[826](1)
connect dend[832](0), dend[831](1)
connect dend[833](0), dend[824](1)
connect dend[834](0), dend[833](1)
connect dend[835](0), dend[834](1)
connect dend[836](0), dend[833](1)
connect dend[837](0), dend[836](1)
connect dend[838](0), dend[837](1)
connect dend[839](0), dend[838](1)
connect dend[840](0), dend[839](1)
connect dend[841](0), dend[839](1)
connect dend[842](0), dend[841](1)
connect dend[843](0), dend[842](1)
connect dend[844](0), dend[836](1)
connect dend[845](0), dend[844](1)
connect dend[846](0), dend[845](1)
connect dend[847](0), dend[846](1)
connect dend[848](0), dend[820](1)
connect dend[849](0), dend[848](1)
connect dend[850](0), dend[848](1)
connect dend[851](0), dend[850](1)
connect dend[852](0), dend[818](1)
connect dend[853](0), dend[852](1)
connect dend[854](0), dend[816](1)
connect dend[855](0), dend[854](1)
connect dend[856](0), dend[855](1)
connect dend[857](0), dend[856](1)
connect dend[858](0), dend[856](1)
connect dend[859](0), dend[855](1)
connect dend[860](0), dend[859](1)
connect dend[861](0), dend[860](1)
connect dend[862](0), dend[861](1)
connect dend[863](0), dend[862](1)
connect dend[864](0), dend[863](1)
connect dend[865](0), dend[860](1)
connect dend[866](0), dend[865](1)
connect dend[867](0), dend[866](1)
connect dend[868](0), dend[867](1)
connect dend[869](0), dend[867](1)
connect dend[870](0), dend[866](1)
connect dend[871](0), dend[870](1)
connect dend[872](0), dend[870](1)
connect dend[873](0), dend[19](1)
connect dend[874](0), dend[873](1)
connect dend[875](0), dend[874](1)
connect dend[876](0), dend[875](1)
connect dend[877](0), dend[874](1)
connect dend[878](0), dend[877](1)
connect dend[879](0), dend[878](1)
connect dend[880](0), dend[879](1)
connect dend[881](0), dend[878](1)
connect dend[882](0), dend[881](1)
connect dend[883](0), dend[882](1)
connect dend[884](0), dend[21](1)
connect dend[885](0), dend[884](1)
connect dend[886](0), dend[885](1)
connect dend[887](0), dend[886](1)
connect dend[888](0), dend[885](1)
connect dend[889](0), dend[888](1)
connect dend[890](0), dend[889](1)
connect dend[891](0), dend[890](1)
connect dend[892](0), dend[891](1)
connect dend[893](0), dend[892](1)
connect dend[894](0), dend[893](1)
connect dend[895](0), dend[894](1)
connect dend[896](0), dend[894](1)
connect dend[897](0), dend[892](1)
connect dend[898](0), dend[897](1)
connect dend[899](0), dend[898](1)
}
proc topol_extra_9(){
connect dend[900](0), dend[899](1)
connect dend[901](0), dend[889](1)
connect dend[902](0), dend[901](1)
connect dend[903](0), dend[902](1)
connect dend[904](0), dend[903](1)
connect dend[905](0), dend[904](1)
connect dend[906](0), dend[905](1)
connect dend[907](0), dend[906](1)
connect dend[908](0), dend[907](1)
connect dend[909](0), dend[908](1)
connect dend[910](0), dend[909](1)
connect dend[911](0), dend[910](1)
connect dend[912](0), dend[909](1)
connect dend[913](0), dend[912](1)
connect dend[914](0), dend[907](1)
connect dend[915](0), dend[914](1)
connect dend[916](0), dend[914](1)
connect dend[917](0), dend[916](1)
connect dend[918](0), dend[904](1)
connect dend[919](0), dend[918](1)
connect dend[920](0), dend[919](1)
connect dend[921](0), dend[919](1)
connect dend[922](0), dend[921](1)
connect dend[923](0), dend[903](1)
connect dend[924](0), dend[923](1)
connect dend[925](0), dend[924](1)
connect dend[926](0), dend[925](1)
connect dend[927](0), dend[901](1)
connect dend[928](0), dend[927](1)
connect dend[929](0), dend[928](1)
connect dend[930](0), dend[928](1)
connect dend[931](0), dend[930](1)
connect dend[932](0), dend[931](1)
connect dend[933](0), dend[932](1)
connect dend[934](0), dend[931](1)
connect dend[935](0), dend[934](1)
connect dend[936](0), dend[935](1)
connect dend[937](0), dend[935](1)
connect dend[938](0), dend[22](1)
connect dend[939](0), dend[938](1)
connect dend[940](0), dend[939](1)
connect dend[941](0), dend[940](1)
connect dend[942](0), dend[938](1)
connect dend[943](0), dend[942](1)
connect dend[944](0), dend[943](1)
connect dend[945](0), dend[944](1)
connect dend[946](0), dend[945](1)
connect dend[947](0), dend[23](1)
connect dend[948](0), dend[947](1)
connect dend[949](0), dend[948](1)
connect dend[950](0), dend[949](1)
connect dend[951](0), dend[950](1)
connect dend[952](0), dend[951](1)
connect dend[953](0), dend[952](1)
connect dend[954](0), dend[953](1)
connect dend[955](0), dend[954](1)
connect dend[956](0), dend[955](1)
connect dend[957](0), dend[956](1)
connect dend[958](0), dend[957](1)
connect dend[959](0), dend[958](1)
connect dend[960](0), dend[957](1)
connect dend[961](0), dend[960](1)
connect dend[962](0), dend[961](1)
connect dend[963](0), dend[954](1)
connect dend[964](0), dend[948](1)
connect dend[965](0), dend[964](1)
connect dend[966](0), dend[965](1)
connect dend[967](0), dend[966](1)
connect dend[968](0), dend[967](1)
connect dend[969](0), dend[968](1)
connect dend[970](0), dend[969](1)
connect dend[971](0), dend[966](1)
connect dend[972](0), dend[971](1)
connect dend[973](0), dend[972](1)
connect dend[974](0), dend[973](1)
connect dend[975](0), dend[974](1)
connect dend[976](0), dend[975](1)
connect dend[977](0), dend[976](1)
connect dend[978](0), dend[977](1)
connect dend[979](0), dend[977](1)
connect dend[980](0), dend[979](1)
connect dend[981](0), dend[976](1)
connect dend[982](0), dend[981](1)
connect dend[983](0), dend[975](1)
connect dend[984](0), dend[983](1)
connect dend[985](0), dend[984](1)
connect dend[986](0), dend[985](1)
connect dend[987](0), dend[974](1)
connect dend[988](0), dend[987](1)
connect dend[989](0), dend[988](1)
connect dend[990](0), dend[25](1)
connect dend[991](0), dend[990](1)
connect dend[992](0), dend[990](1)
connect dend[993](0), dend[992](1)
connect dend[994](0), dend[993](1)
connect dend[995](0), dend[992](1)
connect dend[996](0), dend[995](1)
connect dend[997](0), dend[995](1)
connect dend[998](0), dend[26](1)
connect dend[999](0), dend[998](1)
}
proc topol_extra_10(){
connect dend[1000](0), dend[999](1)
connect dend[1001](0), dend[27](1)
connect dend[1002](0), dend[1001](1)
connect dend[1003](0), dend[28](1)
connect dend[1004](0), dend[29](1)
connect dend[1005](0), dend[1004](1)
connect dend[1006](0), dend[1005](1)
connect dend[1007](0), dend[1004](1)
connect dend[1008](0), dend[1007](1)
connect dend[1009](0), dend[1008](1)
connect dend[1010](0), dend[1009](1)
connect dend[1011](0), dend[1010](1)
connect dend[1012](0), dend[1011](1)
connect dend[1013](0), dend[1012](1)
connect dend[1014](0), dend[1013](1)
connect dend[1015](0), dend[1014](1)
connect dend[1016](0), dend[1015](1)
connect dend[1017](0), dend[1014](1)
connect dend[1018](0), dend[1017](1)
connect dend[1019](0), dend[1017](1)
connect dend[1020](0), dend[1019](1)
connect dend[1021](0), dend[1019](1)
connect dend[1022](0), dend[1021](1)
connect dend[1023](0), dend[1022](1)
connect dend[1024](0), dend[1023](1)
connect dend[1025](0), dend[1023](1)
connect dend[1026](0), dend[1025](1)
connect dend[1027](0), dend[1022](1)
connect dend[1028](0), dend[1027](1)
connect dend[1029](0), dend[1011](1)
connect dend[1030](0), dend[1029](1)
connect dend[1031](0), dend[1030](1)
connect dend[1032](0), dend[1031](1)
connect dend[1033](0), dend[1032](1)
connect dend[1034](0), dend[1007](1)
connect dend[1035](0), dend[1034](1)
connect dend[1036](0), dend[1035](1)
connect dend[1037](0), dend[1036](1)
connect dend[1038](0), dend[1037](1)
connect dend[1039](0), dend[1038](1)
connect dend[1040](0), dend[1039](1)
connect dend[1041](0), dend[1040](1)
connect dend[1042](0), dend[1040](1)
connect dend[1043](0), dend[1042](1)
connect dend[1044](0), dend[1042](1)
connect dend[1045](0), dend[1044](1)
connect dend[1046](0), dend[1045](1)
connect dend[1047](0), dend[29](1)
connect dend[1048](0), dend[1047](1)
connect dend[1049](0), dend[1048](1)
connect dend[1050](0), dend[1049](1)
connect dend[1051](0), dend[1050](1)
connect dend[1052](0), dend[1051](1)
connect dend[1053](0), dend[1052](1)
connect dend[1054](0), dend[1051](1)
connect dend[1055](0), dend[1054](1)
connect dend[1056](0), dend[1055](1)
connect dend[1057](0), dend[1055](1)
connect dend[1058](0), dend[1049](1)
connect dend[1059](0), dend[1058](1)
connect dend[1060](0), dend[1058](1)
connect dend[1061](0), dend[1060](1)
connect dend[1062](0), dend[1047](1)
connect dend[1063](0), dend[1062](1)
connect dend[1064](0), dend[1063](1)
connect dend[1065](0), dend[1064](1)
connect dend[1066](0), dend[1062](1)
connect dend[1067](0), dend[1066](1)
connect dend[1068](0), dend[1066](1)
connect dend[1069](0), dend[31](1)
connect dend[1070](0), dend[1069](1)
connect dend[1071](0), dend[1070](1)
connect dend[1072](0), dend[1071](1)
connect dend[1073](0), dend[1072](1)
connect dend[1074](0), dend[1072](1)
connect dend[1075](0), dend[1070](1)
connect dend[1076](0), dend[1075](1)
connect dend[1077](0), dend[1076](1)
connect dend[1078](0), dend[1077](1)
connect dend[1079](0), dend[1076](1)
connect dend[1080](0), dend[1079](1)
connect dend[1081](0), dend[1080](1)
connect dend[1082](0), dend[1081](1)
connect dend[1083](0), dend[1082](1)
connect dend[1084](0), dend[1083](1)
connect dend[1085](0), dend[1082](1)
connect dend[1086](0), dend[1085](1)
connect dend[1087](0), dend[1080](1)
connect dend[1088](0), dend[1087](1)
connect dend[1089](0), dend[1088](1)
connect dend[1090](0), dend[1088](1)
connect dend[1091](0), dend[1090](1)
connect dend[1092](0), dend[1090](1)
connect dend[1093](0), dend[1092](1)
connect dend[1094](0), dend[32](1)
connect dend[1095](0), dend[1094](1)
connect dend[1096](0), dend[1095](1)
connect dend[1097](0), dend[1096](1)
connect dend[1098](0), dend[1097](1)
connect dend[1099](0), dend[1095](1)
}
proc topol_extra_11(){
connect dend[1100](0), dend[1099](1)
connect dend[1101](0), dend[1100](1)
connect dend[1102](0), dend[1100](1)
connect dend[1103](0), dend[1099](1)
connect dend[1104](0), dend[1103](1)
connect dend[1105](0), dend[1104](1)
connect dend[1106](0), dend[1103](1)
connect dend[1107](0), dend[33](1)
connect dend[1108](0), dend[1107](1)
connect dend[1109](0), dend[1108](1)
connect dend[1110](0), dend[1109](1)
connect dend[1111](0), dend[1110](1)
connect dend[1112](0), dend[1109](1)
connect dend[1113](0), dend[1112](1)
connect dend[1114](0), dend[1113](1)
connect dend[1115](0), dend[1114](1)
connect dend[1116](0), dend[1113](1)
connect dend[1117](0), dend[1116](1)
connect dend[1118](0), dend[1117](1)
connect dend[1119](0), dend[1118](1)
connect dend[1120](0), dend[1119](1)
connect dend[1121](0), dend[1118](1)
connect dend[1122](0), dend[1121](1)
connect dend[1123](0), dend[1121](1)
connect dend[1124](0), dend[1116](1)
connect dend[1125](0), dend[1124](1)
connect dend[1126](0), dend[1125](1)
connect dend[1127](0), dend[1126](1)
connect dend[1128](0), dend[1108](1)
connect dend[1129](0), dend[1128](1)
connect dend[1130](0), dend[1129](1)
connect dend[1131](0), dend[1130](1)
connect dend[1132](0), dend[1131](1)
connect dend[1133](0), dend[1128](1)
connect dend[1134](0), dend[1133](1)
connect dend[1135](0), dend[34](1)
connect dend[1136](0), dend[1135](1)
connect dend[1137](0), dend[1136](1)
connect dend[1138](0), dend[1137](1)
connect dend[1139](0), dend[1138](1)
connect dend[1140](0), dend[1137](1)
connect dend[1141](0), dend[1140](1)
connect dend[1142](0), dend[38](1)
connect dend[1143](0), dend[1142](1)
connect dend[1144](0), dend[1143](1)
connect dend[1145](0), dend[1144](1)
connect dend[1146](0), dend[1145](1)
connect dend[1147](0), dend[1144](1)
connect dend[1148](0), dend[1147](1)
connect dend[1149](0), dend[1148](1)
connect dend[1150](0), dend[1149](1)
connect dend[1151](0), dend[1147](1)
connect dend[1152](0), dend[1151](1)
connect dend[1153](0), dend[1142](1)
connect dend[1154](0), dend[1153](1)
connect dend[1155](0), dend[1154](1)
connect dend[1156](0), dend[1155](1)
connect dend[1157](0), dend[1155](1)
connect dend[1158](0), dend[1157](1)
connect dend[1159](0), dend[1157](1)
connect dend[1160](0), dend[1159](1)
connect dend[1161](0), dend[1154](1)
connect dend[1162](0), dend[1161](1)
connect dend[1163](0), dend[1162](1)
connect dend[1164](0), dend[1163](1)
connect dend[1165](0), dend[1161](1)
connect dend[1166](0), dend[1165](1)
connect dend[1167](0), dend[1166](1)
connect dend[1168](0), dend[1166](1)
connect dend[1169](0), dend[1168](1)
connect dend[1170](0), dend[1168](1)
connect dend[1171](0), dend[1165](1)
connect dend[1172](0), dend[1171](1)
connect dend[1173](0), dend[1172](1)
connect dend[1174](0), dend[1172](1)
connect dend[1175](0), dend[1174](1)
connect dend[1176](0), dend[1174](1)
connect dend[1177](0), dend[40](1)
connect dend[1178](0), dend[1177](1)
connect dend[1179](0), dend[1178](1)
connect dend[1180](0), dend[1179](1)
connect dend[1181](0), dend[1178](1)
connect dend[1182](0), dend[1181](1)
connect dend[1183](0), dend[1182](1)
connect dend[1184](0), dend[1181](1)
connect dend[1185](0), dend[1184](1)
connect dend[1186](0), dend[1185](1)
connect dend[1187](0), dend[1186](1)
connect dend[1188](0), dend[1186](1)
connect dend[1189](0), dend[1177](1)
connect dend[1190](0), dend[1189](1)
connect dend[1191](0), dend[1190](1)
connect dend[1192](0), dend[1191](1)
connect dend[1193](0), dend[1190](1)
connect dend[1194](0), dend[1193](1)
connect dend[1195](0), dend[1194](1)
connect dend[1196](0), dend[1195](1)
connect dend[1197](0), dend[1195](1)
connect dend[1198](0), dend[1193](1)
connect dend[1199](0), dend[1198](1)
}
proc topol_extra_12(){
connect dend[1200](0), dend[1199](1)
connect dend[1201](0), dend[1199](1)
connect dend[1202](0), dend[1189](1)
connect dend[1203](0), dend[1202](1)
connect dend[1204](0), dend[1203](1)
connect dend[1205](0), dend[1203](1)
connect dend[1206](0), dend[1205](1)
connect dend[1207](0), dend[1205](1)
connect dend[1208](0), dend[1202](1)
connect dend[1209](0), dend[1208](1)
connect dend[1210](0), dend[1209](1)
connect dend[1211](0), dend[1209](1)
connect dend[1212](0), dend[1208](1)
connect dend[1213](0), dend[42](1)
connect dend[1214](0), dend[1213](1)
connect dend[1215](0), dend[1214](1)
connect dend[1216](0), dend[1215](1)
connect dend[1217](0), dend[1216](1)
connect dend[1218](0), dend[1216](1)
connect dend[1219](0), dend[1218](1)
connect dend[1220](0), dend[1218](1)
connect dend[1221](0), dend[1215](1)
connect dend[1222](0), dend[1221](1)
connect dend[1223](0), dend[1222](1)
connect dend[1224](0), dend[1221](1)
connect dend[1225](0), dend[1224](1)
connect dend[1226](0), dend[1225](1)
connect dend[1227](0), dend[1226](1)
connect dend[1228](0), dend[1225](1)
connect dend[1229](0), dend[1228](1)
connect dend[1230](0), dend[1214](1)
connect dend[1231](0), dend[1230](1)
connect dend[1232](0), dend[1231](1)
connect dend[1233](0), dend[1232](1)
connect dend[1234](0), dend[1233](1)
connect dend[1235](0), dend[1234](1)
connect dend[1236](0), dend[1232](1)
connect dend[1237](0), dend[1236](1)
connect dend[1238](0), dend[1231](1)
connect dend[1239](0), dend[1238](1)
connect dend[1240](0), dend[1213](1)
connect dend[1241](0), dend[1240](1)
connect dend[1242](0), dend[1241](1)
connect dend[1243](0), dend[1242](1)
connect dend[1244](0), dend[1243](1)
connect dend[1245](0), dend[1244](1)
connect dend[1246](0), dend[1245](1)
connect dend[1247](0), dend[1244](1)
connect dend[1248](0), dend[1242](1)
connect dend[1249](0), dend[1248](1)
connect dend[1250](0), dend[1249](1)
connect dend[1251](0), dend[1250](1)
connect dend[1252](0), dend[1251](1)
connect dend[1253](0), dend[1251](1)
connect dend[1254](0), dend[1253](1)
connect dend[1255](0), dend[1249](1)
connect dend[1256](0), dend[1255](1)
connect dend[1257](0), dend[1256](1)
connect dend[1258](0), dend[1257](1)
connect dend[1259](0), dend[1241](1)
connect dend[1260](0), dend[1259](1)
connect dend[1261](0), dend[45](1)
connect dend[1262](0), dend[1261](1)
connect dend[1263](0), dend[1262](1)
connect dend[1264](0), dend[1263](1)
connect dend[1265](0), dend[1264](1)
connect dend[1266](0), dend[1263](1)
connect dend[1267](0), dend[1266](1)
connect dend[1268](0), dend[1267](1)
connect dend[1269](0), dend[1262](1)
connect dend[1270](0), dend[1269](1)
connect dend[1271](0), dend[1270](1)
connect dend[1272](0), dend[1271](1)
connect dend[1273](0), dend[1272](1)
connect dend[1274](0), dend[1273](1)
connect dend[1275](0), dend[1274](1)
connect dend[1276](0), dend[1274](1)
connect dend[1277](0), dend[1271](1)
connect dend[1278](0), dend[1277](1)
connect dend[1279](0), dend[1269](1)
connect dend[1280](0), dend[1279](1)
connect dend[1281](0), dend[1280](1)
connect dend[1282](0), dend[46](1)
connect dend[1283](0), dend[1282](1)
connect dend[1284](0), dend[1283](1)
connect dend[1285](0), dend[1284](1)
connect dend[1286](0), dend[1285](1)
connect dend[1287](0), dend[1286](1)
connect dend[1288](0), dend[1283](1)
connect dend[1289](0), dend[1288](1)
connect dend[1290](0), dend[1289](1)
connect dend[1291](0), dend[1290](1)
connect dend[1292](0), dend[1288](1)
connect dend[1293](0), dend[1292](1)
connect dend[1294](0), dend[1293](1)
connect dend[1295](0), dend[1294](1)
connect dend[1296](0), dend[1293](1)
connect dend[1297](0), dend[1296](1)
connect dend[1298](0), dend[1297](1)
connect dend[1299](0), dend[1298](1)
}
proc topol_extra_13(){
connect dend[1300](0), dend[1298](1)
connect dend[1301](0), dend[1296](1)
connect dend[1302](0), dend[1301](1)
connect dend[1303](0), dend[1292](1)
connect dend[1304](0), dend[1303](1)
connect dend[1305](0), dend[1304](1)
connect dend[1306](0), dend[1305](1)
connect dend[1307](0), dend[1303](1)
connect dend[1308](0), dend[1307](1)
connect dend[1309](0), dend[1308](1)
connect dend[1310](0), dend[1309](1)
connect dend[1311](0), dend[1309](1)
connect dend[1312](0), dend[1307](1)
connect dend[1313](0), dend[1312](1)
connect dend[1314](0), dend[1313](1)
connect dend[1315](0), dend[1314](1)
connect dend[1316](0), dend[1313](1)
connect dend[1317](0), dend[1282](1)
connect dend[1318](0), dend[1317](1)
connect dend[1319](0), dend[1318](1)
connect dend[1320](0), dend[1319](1)
connect dend[1321](0), dend[1317](1)
connect dend[1322](0), dend[1321](1)
connect dend[1323](0), dend[1322](1)
connect dend[1324](0), dend[48](1)
connect dend[1325](0), dend[1324](1)
connect dend[1326](0), dend[1325](1)
connect dend[1327](0), dend[1326](1)
connect dend[1328](0), dend[1327](1)
connect dend[1329](0), dend[1328](1)
connect dend[1330](0), dend[1329](1)
connect dend[1331](0), dend[1328](1)
connect dend[1332](0), dend[1327](1)
connect dend[1333](0), dend[1332](1)
connect dend[1334](0), dend[1324](1)
connect dend[1335](0), dend[1334](1)
connect dend[1336](0), dend[1335](1)
connect dend[1337](0), dend[1336](1)
connect dend[1338](0), dend[1336](1)
connect dend[1339](0), dend[1338](1)
connect dend[1340](0), dend[1334](1)
connect dend[1341](0), dend[1340](1)
connect dend[1342](0), dend[1341](1)
connect dend[1343](0), dend[1340](1)
connect dend[1344](0), dend[1343](1)
connect dend[1345](0), dend[1344](1)
connect dend[1346](0), dend[1344](1)
connect dend[1347](0), dend[1343](1)
connect dend[1348](0), dend[49](1)
connect dend[1349](0), dend[1348](1)
connect dend[1350](0), dend[1349](1)
connect dend[1351](0), dend[1349](1)
connect dend[1352](0), dend[50](1)
connect dend[1353](0), dend[1352](1)
connect dend[1354](0), dend[51](1)
connect dend[1355](0), dend[1354](1)
connect dend[1356](0), dend[1355](1)
connect dend[1357](0), dend[1356](1)
connect dend[1358](0), dend[1355](1)
connect dend[1359](0), dend[1358](1)
connect dend[1360](0), dend[1359](1)
connect dend[1361](0), dend[51](1)
connect dend[1362](0), dend[1361](1)
connect dend[1363](0), dend[1362](1)
connect dend[1364](0), dend[1363](1)
connect dend[1365](0), dend[1364](1)
connect dend[1366](0), dend[1365](1)
connect dend[1367](0), dend[1363](1)
connect dend[1368](0), dend[1367](1)
connect dend[1369](0), dend[1368](1)
connect dend[1370](0), dend[1368](1)
connect dend[1371](0), dend[54](1)
connect dend[1372](0), dend[1371](1)
connect dend[1373](0), dend[1372](1)
connect dend[1374](0), dend[1373](1)
connect dend[1375](0), dend[1372](1)
connect dend[1376](0), dend[1375](1)
connect dend[1377](0), dend[1376](1)
connect dend[1378](0), dend[1377](1)
connect dend[1379](0), dend[1378](1)
connect dend[1380](0), dend[1379](1)
connect dend[1381](0), dend[1380](1)
connect dend[1382](0), dend[1378](1)
connect dend[1383](0), dend[1382](1)
connect dend[1384](0), dend[1383](1)
connect dend[1385](0), dend[1376](1)
connect dend[1386](0), dend[1385](1)
connect dend[1387](0), dend[1386](1)
connect dend[1388](0), dend[1387](1)
connect dend[1389](0), dend[1385](1)
connect dend[1390](0), dend[1389](1)
connect dend[1391](0), dend[1390](1)
connect dend[1392](0), dend[55](1)
connect dend[1393](0), dend[1392](1)
connect dend[1394](0), dend[1393](1)
connect dend[1395](0), dend[1394](1)
connect dend[1396](0), dend[1395](1)
connect dend[1397](0), dend[1392](1)
connect dend[1398](0), dend[1397](1)
connect dend[1399](0), dend[1398](1)
}
proc topol_extra_14(){
connect dend[1400](0), dend[1399](1)
connect dend[1401](0), dend[1399](1)
connect dend[1402](0), dend[56](1)
connect dend[1403](0), dend[1402](1)
connect dend[1404](0), dend[1403](1)
connect dend[1405](0), dend[1404](1)
connect dend[1406](0), dend[1405](1)
connect dend[1407](0), dend[1406](1)
connect dend[1408](0), dend[1403](1)
connect dend[1409](0), dend[1408](1)
connect dend[1410](0), dend[1409](1)
connect dend[1411](0), dend[1410](1)
connect dend[1412](0), dend[1411](1)
connect dend[1413](0), dend[1411](1)
connect dend[1414](0), dend[1410](1)
connect dend[1415](0), dend[1414](1)
connect dend[1416](0), dend[1414](1)
connect dend[1417](0), dend[1409](1)
connect dend[1418](0), dend[1417](1)
connect dend[1419](0), dend[1417](1)
connect dend[1420](0), dend[1402](1)
connect dend[1421](0), dend[1420](1)
connect dend[1422](0), dend[1421](1)
connect dend[1423](0), dend[1422](1)
connect dend[1424](0), dend[1423](1)
connect dend[1425](0), dend[1424](1)
connect dend[1426](0), dend[1422](1)
connect dend[1427](0), dend[1426](1)
connect dend[1428](0), dend[1420](1)
connect dend[1429](0), dend[1428](1)
connect dend[1430](0), dend[1429](1)
connect dend[1431](0), dend[1429](1)
connect dend[1432](0), dend[1431](1)
connect dend[1433](0), dend[1432](1)
connect dend[1434](0), dend[1433](1)
connect dend[1435](0), dend[1433](1)
connect dend[1436](0), dend[1432](1)
connect dend[1437](0), dend[1436](1)
connect dend[1438](0), dend[1436](1)
connect dend[1439](0), dend[1438](1)
connect dend[1440](0), dend[1439](1)
connect dend[1441](0), dend[1440](1)
connect dend[1442](0), dend[1439](1)
connect dend[1443](0), dend[1442](1)
connect dend[1444](0), dend[57](1)
connect dend[1445](0), dend[1444](1)
connect dend[1446](0), dend[1445](1)
connect dend[1447](0), dend[1446](1)
connect dend[1448](0), dend[1447](1)
connect dend[1449](0), dend[59](1)
connect dend[1450](0), dend[1449](1)
connect dend[1451](0), dend[1450](1)
connect dend[1452](0), dend[1451](1)
connect dend[1453](0), dend[1452](1)
connect dend[1454](0), dend[1453](1)
connect dend[1455](0), dend[1450](1)
connect dend[1456](0), dend[1455](1)
connect dend[1457](0), dend[1456](1)
connect dend[1458](0), dend[1457](1)
connect dend[1459](0), dend[1458](1)
connect dend[1460](0), dend[1449](1)
connect dend[1461](0), dend[1460](1)
connect dend[1462](0), dend[1461](1)
connect dend[1463](0), dend[61](1)
connect dend[1464](0), dend[1463](1)
connect dend[1465](0), dend[1464](1)
connect dend[1466](0), dend[1465](1)
connect dend[1467](0), dend[1463](1)
connect dend[1468](0), dend[1467](1)
connect dend[1469](0), dend[1468](1)
connect dend[1470](0), dend[1467](1)
connect dend[1471](0), dend[62](1)
connect dend[1472](0), dend[1471](1)
connect dend[1473](0), dend[1472](1)
connect dend[1474](0), dend[1473](1)
connect dend[1475](0), dend[1472](1)
connect dend[1476](0), dend[1475](1)
connect dend[1477](0), dend[1476](1)
connect dend[1478](0), dend[1477](1)
connect dend[1479](0), dend[1476](1)
connect dend[1480](0), dend[1475](1)
connect dend[1481](0), dend[64](1)
connect dend[1482](0), dend[1481](1)
connect dend[1483](0), dend[1482](1)
connect dend[1484](0), dend[1483](1)
connect dend[1485](0), dend[66](1)
connect dend[1486](0), dend[1485](1)
connect dend[1487](0), dend[1486](1)
connect dend[1488](0), dend[1487](1)
connect dend[1489](0), dend[1487](1)
connect dend[1490](0), dend[1486](1)
connect dend[1491](0), dend[67](1)
connect dend[1492](0), dend[1491](1)
connect dend[1493](0), dend[1492](1)
connect dend[1494](0), dend[1493](1)
connect dend[1495](0), dend[1494](1)
connect dend[1496](0), dend[1492](1)
connect dend[1497](0), dend[1496](1)
connect dend[1498](0), dend[1497](1)
connect dend[1499](0), dend[1498](1)
}
proc topol_extra_15(){
connect dend[1500](0), dend[1498](1)
connect dend[1501](0), dend[1496](1)
connect dend[1502](0), dend[1501](1)
connect dend[1503](0), dend[1502](1)
connect dend[1504](0), dend[1503](1)
connect dend[1505](0), dend[1502](1)
connect dend[1506](0), dend[1505](1)
connect dend[1507](0), dend[1501](1)
connect dend[1508](0), dend[1507](1)
connect dend[1509](0), dend[1508](1)
connect dend[1510](0), dend[1509](1)
connect dend[1511](0), dend[1510](1)
connect dend[1512](0), dend[1508](1)
connect dend[1513](0), dend[1512](1)
connect dend[1514](0), dend[1513](1)
connect dend[1515](0), dend[1507](1)
connect dend[1516](0), dend[1515](1)
connect dend[1517](0), dend[1491](1)
connect dend[1518](0), dend[1517](1)
connect dend[1519](0), dend[1518](1)
connect dend[1520](0), dend[1519](1)
connect dend[1521](0), dend[1517](1)
connect dend[1522](0), dend[1521](1)
connect dend[1523](0), dend[1522](1)
connect dend[1524](0), dend[1523](1)
connect dend[1525](0), dend[1524](1)
connect dend[1526](0), dend[1525](1)
connect dend[1527](0), dend[1525](1)
connect dend[1528](0), dend[1523](1)
connect dend[1529](0), dend[1521](1)
connect dend[1530](0), dend[1529](1)
connect dend[1531](0), dend[1530](1)
connect dend[1532](0), dend[1531](1)
connect dend[1533](0), dend[1532](1)
connect dend[1534](0), dend[1529](1)
connect dend[1535](0), dend[1534](1)
connect dend[1536](0), dend[1535](1)
connect dend[1537](0), dend[1536](1)
connect dend[1538](0), dend[1537](1)
connect dend[1539](0), dend[1538](1)
connect dend[1540](0), dend[1536](1)
connect dend[1541](0), dend[68](1)
connect dend[1542](0), dend[1541](1)
connect dend[1543](0), dend[1542](1)
connect dend[1544](0), dend[1543](1)
connect dend[1545](0), dend[1541](1)
connect dend[1546](0), dend[1545](1)
connect dend[1547](0), dend[1546](1)
connect dend[1548](0), dend[1547](1)
connect dend[1549](0), dend[1548](1)
connect dend[1550](0), dend[1549](1)
connect dend[1551](0), dend[1547](1)
connect dend[1552](0), dend[1551](1)
connect dend[1553](0), dend[1545](1)
connect dend[1554](0), dend[1553](1)
connect dend[1555](0), dend[1554](1)
connect dend[1556](0), dend[1555](1)
connect dend[1557](0), dend[1556](1)
connect dend[1558](0), dend[1557](1)
connect dend[1559](0), dend[1558](1)
connect dend[1560](0), dend[1557](1)
connect dend[1561](0), dend[1553](1)
connect dend[1562](0), dend[1561](1)
connect dend[1563](0), dend[1562](1)
connect dend[1564](0), dend[1563](1)
connect dend[1565](0), dend[1561](1)
connect dend[1566](0), dend[1565](1)
connect dend[1567](0), dend[1566](1)
connect dend[1568](0), dend[1567](1)
connect dend[1569](0), dend[1568](1)
connect dend[1570](0), dend[1566](1)
connect dend[1571](0), dend[1570](1)
connect dend[1572](0), dend[1571](1)
connect dend[1573](0), dend[1571](1)
connect dend[1574](0), dend[1565](1)
connect dend[1575](0), dend[1574](1)
connect dend[1576](0), dend[1575](1)
connect dend[1577](0), dend[1574](1)
connect dend[1578](0), dend[1577](1)
connect dend[1579](0), dend[1578](1)
connect dend[1580](0), dend[1579](1)
connect dend[1581](0), dend[1579](1)
connect dend[1582](0), dend[1577](1)
connect dend[1583](0), dend[68](1)
connect dend[1584](0), dend[1583](1)
connect dend[1585](0), dend[1584](1)
connect dend[1586](0), dend[1585](1)
connect dend[1587](0), dend[1586](1)
connect dend[1588](0), dend[1586](1)
connect dend[1589](0), dend[1588](1)
connect dend[1590](0), dend[1584](1)
connect dend[1591](0), dend[1590](1)
connect dend[1592](0), dend[1591](1)
connect dend[1593](0), dend[1592](1)
connect dend[1594](0), dend[1593](1)
connect dend[1595](0), dend[1594](1)
connect dend[1596](0), dend[1591](1)
connect dend[1597](0), dend[1596](1)
connect dend[1598](0), dend[1597](1)
}
proc topol_extra_16(){
}
proc basic_shape_extra_0(){
dend[0] {pt3dclear() pt3dadd(0.0, 0.0, 0.0, 7.72) pt3dadd(5.557,9.447,9.447, 7.72)}
dend[1] {pt3dclear() pt3dadd(5.557,9.447,9.447, 8.22) pt3dadd(13.983,10.570999,31.355999, 8.22)}
dend[2] {pt3dclear() pt3dadd(13.983,10.570999,31.355999, 8.5) pt3dadd(15.649,11.681999,38.022, 8.5)}
dend[3] {pt3dclear() pt3dadd(15.649,11.681999,38.022, 9.22) pt3dadd(12.87,13.904999,39.689, 9.22)}
dend[4] {pt3dclear() pt3dadd(12.87,13.904999,39.689, 8.89) pt3dadd(11.759,20.014,45.242, 8.89)}
dend[5] {pt3dclear() pt3dadd(11.759,20.014,45.242, 8.44) pt3dadd(10.648,19.459,50.24, 8.44)}
dend[6] {pt3dclear() pt3dadd(10.648,19.459,50.24, 8.61) pt3dadd(8.899,20.042,53.738003, 8.61)}
dend[7] {pt3dclear() pt3dadd(8.899,20.042,53.738003, 7.78) pt3dadd(5.009,23.376,60.407, 7.78)}
dend[8] {pt3dclear() pt3dadd(5.009,23.376,60.407, 8.44) pt3dadd(-1.6560001,22.265,69.848, 8.44)}
dend[9] {pt3dclear() pt3dadd(-1.6560001,22.265,69.848, 7.94) pt3dadd(-6.099,23.376,69.848, 7.94)}
dend[10] {pt3dclear() pt3dadd(-6.099,23.376,69.848, 5.39) pt3dadd(-10.539,22.821,70.958, 5.39)}
dend[11] {pt3dclear() pt3dadd(-10.539,22.821,70.958, 5.06) pt3dadd(-23.873,22.821,72.069, 5.06)}
dend[12] {pt3dclear() pt3dadd(-23.873,22.821,72.069, 4.83) pt3dadd(-27.203,23.376,74.844, 4.83)}
dend[13] {pt3dclear() pt3dadd(-27.203,23.376,74.844, 4.22) pt3dadd(-33.316998,26.710999,80.402, 4.22)}
dend[14] {pt3dclear() pt3dadd(-33.316998,26.710999,80.402, 4.22) pt3dadd(-41.646996,27.821999,83.734, 4.22)}
dend[15] {pt3dclear() pt3dadd(-41.646996,27.821999,83.734, 4.0) pt3dadd(-45.534996,27.821999,89.288, 4.0)}
dend[16] {pt3dclear() pt3dadd(-45.534996,27.821999,89.288, 5.0) pt3dadd(-49.978996,27.821999,92.065, 5.0)}
dend[17] {pt3dclear() pt3dadd(-49.978996,27.821999,92.065, 6.06) pt3dadd(-51.644997,25.044998,97.62, 6.06)}
dend[18] {pt3dclear() pt3dadd(-51.644997,25.044998,97.62, 5.17) pt3dadd(-51.644997,28.932999,104.840004, 5.17)}
dend[19] {pt3dclear() pt3dadd(-51.644997,28.932999,104.840004, 4.44) pt3dadd(-52.754997,30.598,109.28001, 4.44)}
dend[20] {pt3dclear() pt3dadd(-52.754997,30.598,109.28001, 4.33) pt3dadd(-59.422997,30.598,122.616005, 4.33)}
dend[21] {pt3dclear() pt3dadd(-59.422997,30.598,122.616005, 5.0) pt3dadd(-63.311996,30.598,135.95001, 5.0)}
dend[22] {pt3dclear() pt3dadd(-63.311996,30.598,135.95001, 5.78) pt3dadd(-62.198997,31.711,139.28801, 5.78)}
dend[23] {pt3dclear() pt3dadd(-62.198997,31.711,139.28801, 5.44) pt3dadd(-62.198997,31.711,141.50801, 5.44)}
dend[24] {pt3dclear() pt3dadd(-62.198997,31.711,141.50801, 4.33) pt3dadd(-62.754997,32.267002,155.39601, 4.33)}
dend[25] {pt3dclear() pt3dadd(-62.754997,32.267002,155.39601, 3.56) pt3dadd(-62.199997,31.712002,158.725, 3.56)}
dend[26] {pt3dclear() pt3dadd(-62.199997,31.712002,158.725, 3.83) pt3dadd(-59.977997,31.156002,167.615, 3.83)}
dend[27] {pt3dclear() pt3dadd(-59.977997,31.156002,167.615, 4.17) pt3dadd(-60.532997,32.822002,174.834, 4.17)}
dend[28] {pt3dclear() pt3dadd(-60.532997,32.822002,174.834, 4.78) pt3dadd(-61.642998,32.822002,178.719, 4.78)}
dend[29] {pt3dclear() pt3dadd(-61.642998,32.822002,178.719, 4.17) pt3dadd(-67.754,31.155003,180.386, 4.17)}
dend[30] {pt3dclear() pt3dadd(-1.6560001,22.265,69.848, 8.06) pt3dadd(5.009,30.041,78.735, 8.06)}
dend[31] {pt3dclear() pt3dadd(5.009,30.041,78.735, 5.78) pt3dadd(7.231,30.597,84.291, 5.78)}
dend[32] {pt3dclear() pt3dadd(7.231,30.597,84.291, 5.28) pt3dadd(6.1219997,30.597,85.955, 5.28)}
dend[33] {pt3dclear() pt3dadd(6.1219997,30.597,85.955, 5.39) pt3dadd(7.7889996,30.597,88.733, 5.39)}
dend[34] {pt3dclear() pt3dadd(7.7889996,30.597,88.733, 5.72) pt3dadd(7.2339997,30.597,93.732, 5.72)}
dend[35] {pt3dclear() pt3dadd(7.2339997,30.597,93.732, 5.72) pt3dadd(9.457,29.485,99.846, 5.72)}
dend[36] {pt3dclear() pt3dadd(9.457,29.485,99.846, 6.17) pt3dadd(12.236,31.708,110.96, 6.17)}
dend[37] {pt3dclear() pt3dadd(12.236,31.708,110.96, 5.72) pt3dadd(22.79,31.153,123.735, 5.72)}
dend[38] {pt3dclear() pt3dadd(22.79,31.153,123.735, 5.17) pt3dadd(29.457,30.597,135.403, 5.17)}
dend[39] {pt3dclear() pt3dadd(29.457,30.597,135.403, 4.78) pt3dadd(42.787003,33.374,144.845, 4.78)}
dend[40] {pt3dclear() pt3dadd(42.787003,33.374,144.845, 4.17) pt3dadd(50.562004,33.929,153.731, 4.17)}
dend[41] {pt3dclear() pt3dadd(50.562004,33.929,153.731, 4.17) pt3dadd(53.339005,33.929,158.175, 4.17)}
dend[42] {pt3dclear() pt3dadd(53.339005,33.929,158.175, 4.17) pt3dadd(56.116005,33.929,164.84, 4.17)}
dend[43] {pt3dclear() pt3dadd(56.116005,33.929,164.84, 4.0) pt3dadd(59.448006,33.929,176.50299, 4.0)}
dend[44] {pt3dclear() pt3dadd(59.448006,33.929,176.50299, 3.44) pt3dadd(66.114006,34.485,182.61398, 3.44)}
dend[45] {pt3dclear() pt3dadd(66.114006,34.485,182.61398, 4.44) pt3dadd(73.336006,34.485,193.16998, 4.44)}
dend[46] {pt3dclear() pt3dadd(73.336006,34.485,193.16998, 5.28) pt3dadd(72.78001,34.485,199.83698, 5.28)}
dend[47] {pt3dclear() pt3dadd(72.78001,34.485,199.83698, 4.44) pt3dadd(67.226006,34.485,208.72397, 4.44)}
dend[48] {pt3dclear() pt3dadd(67.226006,34.485,208.72397, 4.78) pt3dadd(62.782005,34.485,215.94597, 4.78)}
dend[49] {pt3dclear() pt3dadd(62.782005,34.485,215.94597, 5.39) pt3dadd(56.117004,35.04,217.05696, 5.39)}
dend[50] {pt3dclear() pt3dadd(56.117004,35.04,217.05696, 4.83) pt3dadd(53.336006,34.484,216.50096, 4.83)}
dend[51] {pt3dclear() pt3dadd(53.336006,34.484,216.50096, 4.5) pt3dadd(50.468006,34.165,217.45695, 4.5)}
dend[52] {pt3dclear() pt3dadd(12.236,31.708,110.96, 5.06) pt3dadd(5.013,32.264,116.516, 5.06)}
dend[53] {pt3dclear() pt3dadd(5.013,32.264,116.516, 3.22) pt3dadd(-2.2080002,32.819,121.515, 3.22)}
dend[54] {pt3dclear() pt3dadd(-2.2080002,32.819,121.515, 4.56) pt3dadd(-9.983,32.264,126.513, 4.56)}
dend[55] {pt3dclear() pt3dadd(-9.983,32.264,126.513, 6.0) pt3dadd(-11.094,31.153,128.179, 6.0)}
dend[56] {pt3dclear() pt3dadd(-11.094,31.153,128.179, 6.17) pt3dadd(-11.094,31.708,133.731, 6.17)}
dend[57] {pt3dclear() pt3dadd(-11.094,31.708,133.731, 5.44) pt3dadd(-13.8689995,31.153,137.061, 5.44)}
dend[58] {pt3dclear() pt3dadd(-13.8689995,31.153,137.061, 4.17) pt3dadd(-21.091,34.486,143.172, 4.17)}
dend[59] {pt3dclear() pt3dadd(-21.091,34.486,143.172, 4.89) pt3dadd(-24.978,34.486,146.504, 4.89)}
dend[60] {pt3dclear() pt3dadd(-24.978,34.486,146.504, 4.72) pt3dadd(-24.978,33.93,155.397, 4.72)}
dend[61] {pt3dclear() pt3dadd(-24.978,33.93,155.397, 4.44) pt3dadd(-27.758001,33.374,160.95601, 4.44)}
dend[62] {pt3dclear() pt3dadd(-27.758001,33.374,160.95601, 5.61) pt3dadd(-27.758001,35.043,162.62502, 5.61)}
dend[63] {pt3dclear() pt3dadd(-27.758001,35.043,162.62502, 4.78) pt3dadd(-30.535002,33.377,172.62302, 4.78)}
dend[64] {pt3dclear() pt3dadd(-30.535002,33.377,172.62302, 5.44) pt3dadd(-31.646002,34.488,182.06302, 5.44)}
dend[65] {pt3dclear() pt3dadd(-31.646002,34.488,182.06302, 5.22) pt3dadd(-28.312002,32.266,187.61902, 5.22)}
dend[66] {pt3dclear() pt3dadd(-28.312002,32.266,187.61902, 3.44) pt3dadd(-18.218002,31.704998,199.39502, 3.44)}
dend[67] {pt3dclear() pt3dadd(-18.218002,31.704998,199.39502, 5.11) pt3dadd(-13.774002,33.371998,208.83902, 5.11)}
dend[68] {pt3dclear() pt3dadd(-13.774002,33.371998,208.83902, 6.06) pt3dadd(-9.883002,36.150997,211.61803, 6.06)}
dend[69] {pt3dclear() pt3dadd(13.983,10.570999,31.355999, 5.28) pt3dadd(20.093,11.125999,30.800999, 5.28)}
dend[70] {pt3dclear() pt3dadd(20.093,11.125999,30.800999, 2.28) pt3dadd(22.313,11.125999,30.800999, 2.28)}
dend[71] {pt3dclear() pt3dadd(22.313,11.125999,30.800999, 1.83) pt3dadd(26.205,9.457999,27.464998, 1.83)}
dend[72] {pt3dclear() pt3dadd(26.205,9.457999,27.464998, 1.44) pt3dadd(27.355999,9.457999,17.108997, 1.44)}
dend[73] {pt3dclear() pt3dadd(27.355999,9.457999,17.108997, 1.44) pt3dadd(25.689,9.457999,14.330997, 1.44)}
dend[74] {pt3dclear() pt3dadd(25.689,9.457999,14.330997, 1.44) pt3dadd(23.257,9.457999,12.506997, 1.44)}
dend[75] {pt3dclear() pt3dadd(23.257,9.457999,12.506997, 1.44) pt3dadd(13.819,10.638,13.096997, 1.44)}
dend[76] {pt3dclear() pt3dadd(23.257,9.457999,12.506997, 1.44) pt3dadd(24.164,10.364999,8.876997, 1.44)}
dend[77] {pt3dclear() pt3dadd(24.164,10.364999,8.876997, 1.44) pt3dadd(21.386,10.364999,7.209997, 1.44)}
dend[78] {pt3dclear() pt3dadd(24.164,10.364999,8.876997, 1.44) pt3dadd(24.164,10.364999,4.826997, 1.44)}
dend[79] {pt3dclear() pt3dadd(24.164,10.364999,4.826997, 1.44) pt3dadd(8.154999,10.364999,-4.779003, 1.44)}
dend[80] {pt3dclear() pt3dadd(24.164,10.364999,4.826997, 1.28) pt3dadd(24.164,9.255999,3.1629968, 1.28)}
dend[81] {pt3dclear() pt3dadd(24.164,9.255999,3.1629968, 1.11) pt3dadd(21.938,9.811998,2.0499969, 1.11)}
dend[82] {pt3dclear() pt3dadd(21.938,9.811998,2.0499969, 1.0) pt3dadd(20.829,9.811998,3.713997, 1.0)}
dend[83] {pt3dclear() pt3dadd(21.938,9.811998,2.0499969, 1.0) pt3dadd(18.602,10.367998,0.93799686, 1.0)}
dend[84] {pt3dclear() pt3dadd(18.602,10.367998,0.93799686, 0.89) pt3dadd(18.046999,10.367998,-0.1710031, 0.89)}
dend[85] {pt3dclear() pt3dadd(18.046999,10.367998,-0.1710031, 0.89) pt3dadd(9.991999,9.216998,-8.226004, 0.89)}
dend[86] {pt3dclear() pt3dadd(18.046999,10.367998,-0.1710031, 0.89) pt3dadd(21.936998,10.367998,-0.1710031, 0.89)}
dend[87] {pt3dclear() pt3dadd(21.936998,10.367998,-0.1710031, 0.94) pt3dadd(24.154999,10.367998,-1.2800031, 0.94)}
dend[88] {pt3dclear() pt3dadd(24.154999,10.367998,-1.2800031, 1.0) pt3dadd(24.835,10.367998,-6.042003, 1.0)}
dend[89] {pt3dclear() pt3dadd(24.164,9.255999,3.1629968, 1.06) pt3dadd(25.828,9.255999,2.0539968, 1.06)}
dend[90] {pt3dclear() pt3dadd(25.828,9.255999,2.0539968, 1.11) pt3dadd(26.939999,9.811998,-1.2820032, 1.11)}
dend[91] {pt3dclear() pt3dadd(26.939999,9.811998,-1.2820032, 1.22) pt3dadd(28.050999,9.811998,-9.618004, 1.22)}
dend[92] {pt3dclear() pt3dadd(25.689,9.457999,14.330997, 1.33) pt3dadd(24.025,9.457999,15.439998, 1.33)}
dend[93] {pt3dclear() pt3dadd(24.025,9.457999,15.439998, 1.22) pt3dadd(20.691,9.457999,15.995997, 1.22)}
dend[94] {pt3dclear() pt3dadd(20.691,9.457999,15.995997, 1.06) pt3dadd(17.911,9.457999,15.995997, 1.06)}
dend[95] {pt3dclear() pt3dadd(17.911,9.457999,15.995997, 0.83) pt3dadd(17.911,9.457999,14.325997, 0.83)}
dend[96] {pt3dclear() pt3dadd(17.911,9.457999,14.325997, 0.78) pt3dadd(14.022999,9.457999,12.659997, 0.78)}
dend[97] {pt3dclear() pt3dadd(17.911,9.457999,15.995997, 0.83) pt3dadd(15.690999,9.457999,15.995997, 0.83)}
dend[98] {pt3dclear() pt3dadd(15.690999,9.457999,15.995997, 0.83) pt3dadd(11.803999,9.457999,12.663998, 0.83)}
dend[99] {pt3dclear() pt3dadd(11.803999,9.457999,12.663998, 0.83) pt3dadd(9.0269985,9.457999,8.219997, 0.83)}
}
proc basic_shape_extra_1(){
dend[100] {pt3dclear() pt3dadd(27.355999,9.457999,17.108997, 1.22) pt3dadd(28.464998,9.457999,15.444998, 1.22)}
dend[101] {pt3dclear() pt3dadd(28.464998,9.457999,15.444998, 1.0) pt3dadd(34.736,9.457999,8.603998, 1.0)}
dend[102] {pt3dclear() pt3dadd(34.736,9.457999,8.603998, 1.0) pt3dadd(28.581,8.897999,-13.778002, 1.0)}
dend[103] {pt3dclear() pt3dadd(34.736,9.457999,8.603998, 1.0) pt3dadd(39.179,8.346999,8.603998, 1.0)}
dend[104] {pt3dclear() pt3dadd(39.179,8.346999,8.603998, 1.11) pt3dadd(42.515,8.346999,6.935998, 1.11)}
dend[105] {pt3dclear() pt3dadd(42.515,8.346999,6.935998, 1.28) pt3dadd(45.291,9.456999,4.159998, 1.28)}
dend[106] {pt3dclear() pt3dadd(45.291,9.456999,4.159998, 1.5) pt3dadd(47.515,9.456999,0.82299805, 1.5)}
dend[107] {pt3dclear() pt3dadd(47.515,9.456999,0.82299805, 1.67) pt3dadd(51.958,8.9019985,-4.175002, 1.67)}
dend[108] {pt3dclear() pt3dadd(28.464998,9.457999,15.444998, 1.17) pt3dadd(31.242998,9.457999,13.777998, 1.17)}
dend[109] {pt3dclear() pt3dadd(31.242998,9.457999,13.777998, 1.33) pt3dadd(34.017998,9.457999,13.222998, 1.33)}
dend[110] {pt3dclear() pt3dadd(34.017998,9.457999,13.222998, 1.22) pt3dadd(39.017,9.457999,11.000998, 1.22)}
dend[111] {pt3dclear() pt3dadd(39.017,9.457999,11.000998, 1.06) pt3dadd(43.461998,9.457999,10.444998, 1.06)}
dend[112] {pt3dclear() pt3dadd(43.461998,9.457999,10.444998, 1.0) pt3dadd(45.130997,9.457999,8.775998, 1.0)}
dend[113] {pt3dclear() pt3dadd(45.130997,9.457999,8.775998, 1.22) pt3dadd(47.354996,9.457999,5.9959984, 1.22)}
dend[114] {pt3dclear() pt3dadd(15.649,11.681999,38.022, 6.17) pt3dadd(25.647,10.570999,38.022, 6.17)}
dend[115] {pt3dclear() pt3dadd(25.647,10.570999,38.022, 3.17) pt3dadd(32.311,10.015999,38.577, 3.17)}
dend[116] {pt3dclear() pt3dadd(32.311,10.015999,38.577, 2.39) pt3dadd(32.867,10.571999,34.686, 2.39)}
dend[117] {pt3dclear() pt3dadd(32.867,10.571999,34.686, 1.89) pt3dadd(34.534,10.571999,31.908, 1.89)}
dend[118] {pt3dclear() pt3dadd(34.534,10.571999,31.908, 1.78) pt3dadd(35.089,10.571999,26.356, 1.78)}
dend[119] {pt3dclear() pt3dadd(35.089,10.571999,26.356, 1.78) pt3dadd(34.534,11.126999,20.246, 1.78)}
dend[120] {pt3dclear() pt3dadd(34.534,11.126999,20.246, 1.61) pt3dadd(32.314,11.126999,18.026001, 1.61)}
dend[121] {pt3dclear() pt3dadd(32.314,11.126999,18.026001, 1.44) pt3dadd(33.439,11.126999,11.837001, 1.44)}
dend[122] {pt3dclear() pt3dadd(34.534,11.126999,20.246, 1.61) pt3dadd(38.422,11.126999,18.58, 1.61)}
dend[123] {pt3dclear() pt3dadd(38.422,11.126999,18.58, 1.33) pt3dadd(42.31,11.126999,16.914, 1.33)}
dend[124] {pt3dclear() pt3dadd(42.31,11.126999,16.914, 1.22) pt3dadd(47.021,11.126999,10.435999, 1.22)}
dend[125] {pt3dclear() pt3dadd(35.089,10.571999,26.356, 1.44) pt3dadd(37.313,10.571999,28.024, 1.44)}
dend[126] {pt3dclear() pt3dadd(37.313,10.571999,28.024, 1.11) pt3dadd(49.788002,10.571999,26.323, 1.11)}
dend[127] {pt3dclear() pt3dadd(49.788002,10.571999,26.323, 1.06) pt3dadd(53.674004,10.016998,24.102, 1.06)}
dend[128] {pt3dclear() pt3dadd(53.674004,10.016998,24.102, 1.0) pt3dadd(64.787,11.251998,11.136999, 1.0)}
dend[129] {pt3dclear() pt3dadd(32.311,10.015999,38.577, 2.5) pt3dadd(33.975002,10.015999,39.686, 2.5)}
dend[130] {pt3dclear() pt3dadd(33.975002,10.015999,39.686, 1.89) pt3dadd(32.865,12.236999,41.352, 1.89)}
dend[131] {pt3dclear() pt3dadd(32.865,12.236999,41.352, 1.56) pt3dadd(35.088,12.236999,45.797, 1.56)}
dend[132] {pt3dclear() pt3dadd(35.088,12.236999,45.797, 1.44) pt3dadd(37.312,12.236999,47.465, 1.44)}
dend[133] {pt3dclear() pt3dadd(33.975002,10.015999,39.686, 2.11) pt3dadd(34.529003,10.569999,40.24, 2.11)}
dend[134] {pt3dclear() pt3dadd(34.529003,10.569999,40.24, 1.67) pt3dadd(36.751003,10.014998,37.463, 1.67)}
dend[135] {pt3dclear() pt3dadd(36.751003,10.014998,37.463, 1.33) pt3dadd(38.971004,10.014998,35.243, 1.33)}
dend[136] {pt3dclear() pt3dadd(38.971004,10.014998,35.243, 1.39) pt3dadd(40.640003,11.127998,33.574, 1.39)}
dend[137] {pt3dclear() pt3dadd(40.640003,11.127998,33.574, 1.39) pt3dadd(40.640003,11.682999,31.352001, 1.39)}
dend[138] {pt3dclear() pt3dadd(40.640003,11.682999,31.352001, 1.3) pt3dadd(38.394005,11.682999,20.686, 1.3)}
dend[139] {pt3dclear() pt3dadd(38.394005,11.682999,20.686, 1.33) pt3dadd(33.949005,11.682999,15.686001, 1.33)}
dend[140] {pt3dclear() pt3dadd(38.394005,11.682999,20.686, 1.22) pt3dadd(41.724007,11.127998,17.911001, 1.22)}
dend[141] {pt3dclear() pt3dadd(41.724007,11.127998,17.911001, 1.11) pt3dadd(45.061005,11.127998,15.687001, 1.11)}
dend[142] {pt3dclear() pt3dadd(40.640003,11.127998,33.574, 1.33) pt3dadd(42.862003,10.572998,33.574, 1.33)}
dend[143] {pt3dclear() pt3dadd(42.862003,10.572998,33.574, 1.22) pt3dadd(55.542004,9.996998,27.811, 1.22)}
dend[144] {pt3dclear() pt3dadd(34.529003,10.569999,40.24, 1.89) pt3dadd(40.084003,12.235999,43.017002, 1.89)}
dend[145] {pt3dclear() pt3dadd(40.084003,12.235999,43.017002, 1.89) pt3dadd(44.529003,12.235999,43.573, 1.89)}
dend[146] {pt3dclear() pt3dadd(44.529003,12.235999,43.573, 2.0) pt3dadd(48.974003,12.235999,43.017002, 2.0)}
dend[147] {pt3dclear() pt3dadd(48.974003,12.235999,43.017002, 2.44) pt3dadd(52.864002,12.235999,43.017002, 2.44)}
dend[148] {pt3dclear() pt3dadd(52.864002,12.235999,43.017002, 2.56) pt3dadd(55.644,12.235999,40.793003, 2.56)}
dend[149] {pt3dclear() pt3dadd(55.644,12.235999,40.793003, 2.11) pt3dadd(58.978,12.235999,38.015003, 2.11)}
dend[150] {pt3dclear() pt3dadd(58.978,12.235999,38.015003, 2.28) pt3dadd(62.308,11.680999,35.795002, 2.28)}
dend[151] {pt3dclear() pt3dadd(62.308,11.680999,35.795002, 2.06) pt3dadd(62.863,12.791999,29.130001, 2.06)}
dend[152] {pt3dclear() pt3dadd(62.863,12.791999,29.130001, 1.56) pt3dadd(69.088,14.036999,32.242, 1.56)}
dend[153] {pt3dclear() pt3dadd(69.088,14.036999,32.242, 1.39) pt3dadd(67.42,14.036999,34.466, 1.39)}
dend[154] {pt3dclear() pt3dadd(69.088,14.036999,32.242, 1.39) pt3dadd(70.757996,14.036999,31.685001, 1.39)}
dend[155] {pt3dclear() pt3dadd(70.757996,14.036999,31.685001, 1.22) pt3dadd(74.091995,14.5929985,31.685001, 1.22)}
dend[156] {pt3dclear() pt3dadd(74.091995,14.5929985,31.685001, 1.22) pt3dadd(76.870995,14.5929985,28.906002, 1.22)}
dend[157] {pt3dclear() pt3dadd(76.870995,14.5929985,28.906002, 1.22) pt3dadd(80.760994,12.925999,26.683002, 1.22)}
dend[158] {pt3dclear() pt3dadd(80.760994,12.925999,26.683002, 1.22) pt3dadd(89.11399,14.596998,30.024002, 1.22)}
dend[159] {pt3dclear() pt3dadd(80.760994,12.925999,26.683002, 1.22) pt3dadd(108.038994,15.023998,17.590002, 1.22)}
dend[160] {pt3dclear() pt3dadd(108.038994,15.023998,17.590002, 1.17) pt3dadd(109.148994,13.913999,15.369002, 1.17)}
dend[161] {pt3dclear() pt3dadd(109.148994,13.913999,15.369002, 1.06) pt3dadd(105.81699,13.913999,11.482002, 1.06)}
dend[162] {pt3dclear() pt3dadd(109.148994,13.913999,15.369002, 1.06) pt3dadd(116.368996,13.913999,15.369002, 1.06)}
dend[163] {pt3dclear() pt3dadd(76.870995,14.5929985,28.906002, 1.11) pt3dadd(76.870995,14.5929985,26.126001, 1.11)}
dend[164] {pt3dclear() pt3dadd(76.870995,14.5929985,26.126001, 1.0) pt3dadd(79.202995,15.758999,15.049002, 1.0)}
dend[165] {pt3dclear() pt3dadd(79.202995,15.758999,15.049002, 1.0) pt3dadd(74.757996,15.758999,12.826002, 1.0)}
dend[166] {pt3dclear() pt3dadd(79.202995,15.758999,15.049002, 1.0) pt3dadd(79.202995,11.314999,7.8270016, 1.0)}
dend[167] {pt3dclear() pt3dadd(79.202995,11.314999,7.8270016, 1.17) pt3dadd(76.982994,11.314999,5.6070013, 1.17)}
dend[168] {pt3dclear() pt3dadd(76.982994,11.314999,5.6070013, 1.33) pt3dadd(90.97399,11.314999,-1.6689987, 1.33)}
dend[169] {pt3dclear() pt3dadd(76.982994,11.314999,5.6070013, 1.33) pt3dadd(74.76299,10.759998,2.2770014, 1.33)}
dend[170] {pt3dclear() pt3dadd(74.76299,10.759998,2.2770014, 1.28) pt3dadd(73.09899,10.759998,1.1680014, 1.28)}
dend[171] {pt3dclear() pt3dadd(74.091995,14.5929985,31.685001, 1.22) pt3dadd(76.315994,14.5929985,33.353, 1.22)}
dend[172] {pt3dclear() pt3dadd(62.863,12.791999,29.130001, 1.39) pt3dadd(62.307,12.791999,25.239, 1.39)}
dend[173] {pt3dclear() pt3dadd(62.307,12.791999,25.239, 1.39) pt3dadd(66.752,12.791999,24.683, 1.39)}
dend[174] {pt3dclear() pt3dadd(66.752,12.791999,24.683, 1.56) pt3dadd(75.755,12.791999,22.995, 1.56)}
dend[175] {pt3dclear() pt3dadd(75.755,12.791999,22.995, 1.61) pt3dadd(79.64,12.791999,21.885, 1.61)}
dend[176] {pt3dclear() pt3dadd(79.64,12.791999,21.885, 1.44) pt3dadd(85.75,12.791999,21.885, 1.44)}
dend[177] {pt3dclear() pt3dadd(85.75,12.791999,21.885, 1.22) pt3dadd(104.949,14.485999,15.109, 1.22)}
dend[178] {pt3dclear() pt3dadd(85.75,12.791999,21.885, 1.22) pt3dadd(114.847,13.397999,16.429, 1.22)}
dend[179] {pt3dclear() pt3dadd(62.307,12.791999,25.239, 1.39) pt3dadd(63.975,12.791999,20.791, 1.39)}
dend[180] {pt3dclear() pt3dadd(63.975,12.791999,20.791, 1.67) pt3dadd(63.975,12.791999,18.571001, 1.67)}
dend[181] {pt3dclear() pt3dadd(63.975,12.791999,18.571001, 1.78) pt3dadd(63.975,12.791999,9.681001, 1.78)}
dend[182] {pt3dclear() pt3dadd(63.975,12.791999,9.681001, 1.67) pt3dadd(58.975,12.791999,8.014001, 1.67)}
dend[183] {pt3dclear() pt3dadd(58.975,12.791999,8.014001, 1.39) pt3dadd(56.197,12.791999,11.904001, 1.39)}
dend[184] {pt3dclear() pt3dadd(56.197,12.791999,11.904001, 1.22) pt3dadd(54.532997,12.791999,13.013001, 1.22)}
dend[185] {pt3dclear() pt3dadd(54.532997,12.791999,13.013001, 1.17) pt3dadd(51.756996,12.791999,14.123001, 1.17)}
dend[186] {pt3dclear() pt3dadd(51.756996,12.791999,14.123001, 1.0) pt3dadd(49.536995,12.791999,14.123001, 1.0)}
dend[187] {pt3dclear() pt3dadd(54.532997,12.791999,13.013001, 1.06) pt3dadd(53.423996,12.791999,11.349001, 1.06)}
dend[188] {pt3dclear() pt3dadd(53.423996,12.791999,11.349001, 0.89) pt3dadd(47.584995,12.791999,13.944001, 0.89)}
dend[189] {pt3dclear() pt3dadd(58.975,12.791999,8.014001, 1.44) pt3dadd(56.754997,12.236999,4.684001, 1.44)}
dend[190] {pt3dclear() pt3dadd(56.754997,12.236999,4.684001, 1.33) pt3dadd(54.531,12.236999,3.016001, 1.33)}
dend[191] {pt3dclear() pt3dadd(56.754997,12.236999,4.684001, 1.33) pt3dadd(58.420998,11.681998,3.018001, 1.33)}
dend[192] {pt3dclear() pt3dadd(58.420998,11.681998,3.018001, 1.33) pt3dadd(55.642,10.014998,-3.0959988, 1.33)}
dend[193] {pt3dclear() pt3dadd(58.420998,11.681998,3.018001, 1.33) pt3dadd(60.638996,11.681998,1.9090011, 1.33)}
dend[194] {pt3dclear() pt3dadd(60.638996,11.681998,1.9090011, 1.33) pt3dadd(57.306995,11.681998,-5.308999, 1.33)}
dend[195] {pt3dclear() pt3dadd(60.638996,11.681998,1.9090011, 1.33) pt3dadd(61.747997,11.681998,0.24500108, 1.33)}
dend[196] {pt3dclear() pt3dadd(63.975,12.791999,9.681001, 2.0) pt3dadd(66.199,11.679998,6.3460007, 2.0)}
dend[197] {pt3dclear() pt3dadd(66.199,11.679998,6.3460007, 1.83) pt3dadd(61.753998,12.235998,1.9010005, 1.83)}
dend[198] {pt3dclear() pt3dadd(61.753998,12.235998,1.9010005, 1.33) pt3dadd(63.975,12.235998,-3.6509995, 1.33)}
dend[199] {pt3dclear() pt3dadd(66.199,11.679998,6.3460007, 1.72) pt3dadd(70.085,12.234999,4.125001, 1.72)}
}
proc basic_shape_extra_2(){
dend[200] {pt3dclear() pt3dadd(70.085,12.234999,4.125001, 1.22) pt3dadd(76.195,12.234999,4.125001, 1.22)}
dend[201] {pt3dclear() pt3dadd(76.195,12.234999,4.125001, 1.11) pt3dadd(80.64,12.234999,4.6810007, 1.11)}
dend[202] {pt3dclear() pt3dadd(80.64,12.234999,4.6810007, 1.0) pt3dadd(89.82,12.234999,4.6810007, 1.0)}
dend[203] {pt3dclear() pt3dadd(63.975,12.791999,18.571001, 1.67) pt3dadd(66.75,12.791999,18.016, 1.67)}
dend[204] {pt3dclear() pt3dadd(66.75,12.791999,18.016, 2.33) pt3dadd(72.302,12.791999,13.574001, 2.33)}
dend[205] {pt3dclear() pt3dadd(72.302,12.791999,13.574001, 2.39) pt3dadd(71.747,11.681999,9.687001, 2.39)}
dend[206] {pt3dclear() pt3dadd(71.747,11.681999,9.687001, 1.67) pt3dadd(72.858,11.681999,5.2440014, 1.67)}
dend[207] {pt3dclear() pt3dadd(72.858,11.681999,5.2440014, 1.78) pt3dadd(72.858,11.681999,3.0240014, 1.78)}
dend[208] {pt3dclear() pt3dadd(72.858,11.681999,3.0240014, 1.56) pt3dadd(70.08,11.681999,-0.86599874, 1.56)}
dend[209] {pt3dclear() pt3dadd(70.08,11.681999,-0.86599874, 1.22) pt3dadd(65.365005,11.681999,-7.937999, 1.22)}
dend[210] {pt3dclear() pt3dadd(65.365005,11.681999,-7.937999, 1.11) pt3dadd(62.031006,11.681999,-12.938999, 1.11)}
dend[211] {pt3dclear() pt3dadd(65.365005,11.681999,-7.937999, 1.11) pt3dadd(68.698006,11.681999,-15.713999, 1.11)}
dend[212] {pt3dclear() pt3dadd(72.858,11.681999,3.0240014, 1.56) pt3dadd(74.526,11.681999,-0.3119986, 1.56)}
dend[213] {pt3dclear() pt3dadd(74.526,11.681999,-0.3119986, 1.28) pt3dadd(77.863,11.681999,-2.5359986, 1.28)}
dend[214] {pt3dclear() pt3dadd(77.863,11.681999,-2.5359986, 1.17) pt3dadd(81.194,10.015999,-4.2019987, 1.17)}
dend[215] {pt3dclear() pt3dadd(72.302,12.791999,13.574001, 2.33) pt3dadd(73.971,12.791999,15.243001, 2.33)}
dend[216] {pt3dclear() pt3dadd(73.971,12.791999,15.243001, 1.56) pt3dadd(83.411,12.791999,15.243001, 1.56)}
dend[217] {pt3dclear() pt3dadd(62.308,11.680999,35.795002, 2.06) pt3dadd(62.848,11.140999,37.954002, 2.06)}
dend[218] {pt3dclear() pt3dadd(62.848,11.140999,37.954002, 1.56) pt3dadd(62.848,12.2509985,39.064003, 1.56)}
dend[219] {pt3dclear() pt3dadd(62.848,12.2509985,39.064003, 1.56) pt3dadd(73.996,12.2509985,35.785004, 1.56)}
dend[220] {pt3dclear() pt3dadd(62.848,12.2509985,39.064003, 1.72) pt3dadd(70.624,13.916999,40.175003, 1.72)}
dend[221] {pt3dclear() pt3dadd(70.624,13.916999,40.175003, 1.89) pt3dadd(95.054,15.079999,37.267002, 1.89)}
dend[222] {pt3dclear() pt3dadd(95.054,15.079999,37.267002, 1.61) pt3dadd(101.169,15.079999,36.711002, 1.61)}
dend[223] {pt3dclear() pt3dadd(95.054,15.079999,37.267002, 1.61) pt3dadd(97.832,16.747,41.712, 1.61)}
dend[224] {pt3dclear() pt3dadd(97.832,16.747,41.712, 1.33) pt3dadd(96.722,16.192,45.599003, 1.33)}
dend[225] {pt3dclear() pt3dadd(70.624,13.916999,40.175003, 1.61) pt3dadd(76.177,16.137999,42.396004, 1.61)}
dend[226] {pt3dclear() pt3dadd(76.177,16.137999,42.396004, 1.33) pt3dadd(86.179,16.137999,44.063004, 1.33)}
dend[227] {pt3dclear() pt3dadd(86.179,16.137999,44.063004, 1.17) pt3dadd(89.516,16.137999,41.839005, 1.17)}
dend[228] {pt3dclear() pt3dadd(89.516,16.137999,41.839005, 1.0) pt3dadd(92.852,15.025999,42.395004, 1.0)}
dend[229] {pt3dclear() pt3dadd(86.179,16.137999,44.063004, 1.17) pt3dadd(87.847,16.137999,46.287003, 1.17)}
dend[230] {pt3dclear() pt3dadd(87.847,16.137999,46.287003, 1.0) pt3dadd(93.047,16.137999,50.187004, 1.0)}
dend[231] {pt3dclear() pt3dadd(76.177,16.137999,42.396004, 1.17) pt3dadd(81.18,15.581999,48.511, 1.17)}
dend[232] {pt3dclear() pt3dadd(52.864002,12.235999,43.017002, 2.33) pt3dadd(52.864002,12.235999,45.797, 2.33)}
dend[233] {pt3dclear() pt3dadd(52.864002,12.235999,45.797, 1.61) pt3dadd(54.531002,13.902999,48.02, 1.61)}
dend[234] {pt3dclear() pt3dadd(54.531002,13.902999,48.02, 1.44) pt3dadd(63.064003,13.333999,50.296, 1.44)}
dend[235] {pt3dclear() pt3dadd(63.064003,13.333999,50.296, 1.56) pt3dadd(67.509,13.333999,49.74, 1.56)}
dend[236] {pt3dclear() pt3dadd(67.509,13.333999,49.74, 1.67) pt3dadd(72.507,13.333999,48.629, 1.67)}
dend[237] {pt3dclear() pt3dadd(72.507,13.333999,48.629, 1.61) pt3dadd(79.725006,14.999999,49.739002, 1.61)}
dend[238] {pt3dclear() pt3dadd(79.725006,14.999999,49.739002, 1.56) pt3dadd(88.854004,14.999999,52.021004, 1.56)}
dend[239] {pt3dclear() pt3dadd(88.854004,14.999999,52.021004, 1.39) pt3dadd(92.742004,16.665998,54.798004, 1.39)}
dend[240] {pt3dclear() pt3dadd(92.742004,16.665998,54.798004, 1.17) pt3dadd(94.409004,16.109999,60.910004, 1.17)}
dend[241] {pt3dclear() pt3dadd(94.409004,16.109999,60.910004, 1.11) pt3dadd(97.288,16.109999,68.395004, 1.11)}
dend[242] {pt3dclear() pt3dadd(88.854004,14.999999,52.021004, 1.67) pt3dadd(96.079,14.999999,50.909004, 1.67)}
dend[243] {pt3dclear() pt3dadd(96.079,14.999999,50.909004, 1.72) pt3dadd(98.857,15.555999,55.353004, 1.72)}
dend[244] {pt3dclear() pt3dadd(98.857,15.555999,55.353004, 1.44) pt3dadd(102.189,15.555999,59.240005, 1.44)}
dend[245] {pt3dclear() pt3dadd(102.189,15.555999,59.240005, 1.11) pt3dadd(106.08,15.555999,59.796005, 1.11)}
dend[246] {pt3dclear() pt3dadd(106.08,15.555999,59.796005, 1.0) pt3dadd(106.635,16.110998,61.460007, 1.0)}
dend[247] {pt3dclear() pt3dadd(106.08,15.555999,59.796005, 1.0) pt3dadd(108.298004,15.555999,58.687004, 1.0)}
dend[248] {pt3dclear() pt3dadd(108.298004,15.555999,58.687004, 1.0) pt3dadd(108.853004,16.110998,57.023003, 1.0)}
dend[249] {pt3dclear() pt3dadd(108.298004,15.555999,58.687004, 0.94) pt3dadd(113.850006,15.555999,60.908005, 0.94)}
dend[250] {pt3dclear() pt3dadd(113.850006,15.555999,60.908005, 0.89) pt3dadd(126.22201,15.555999,55.606003, 0.89)}
dend[251] {pt3dclear() pt3dadd(96.079,14.999999,50.909004, 1.94) pt3dadd(102.192,16.110998,47.019005, 1.94)}
dend[252] {pt3dclear() pt3dadd(102.192,16.110998,47.019005, 2.0) pt3dadd(107.744,16.110998,49.240005, 2.0)}
dend[253] {pt3dclear() pt3dadd(107.744,16.110998,49.240005, 1.67) pt3dadd(109.412,16.666998,52.575005, 1.67)}
dend[254] {pt3dclear() pt3dadd(109.412,16.666998,52.575005, 1.56) pt3dadd(112.749,16.666998,54.799004, 1.56)}
dend[255] {pt3dclear() pt3dadd(112.749,16.666998,54.799004, 1.5) pt3dadd(112.749,17.221998,57.574005, 1.5)}
dend[256] {pt3dclear() pt3dadd(112.749,17.221998,57.574005, 1.33) pt3dadd(115.529,18.333998,61.466003, 1.33)}
dend[257] {pt3dclear() pt3dadd(115.529,18.333998,61.466003, 1.22) pt3dadd(118.859,18.333998,61.466003, 1.22)}
dend[258] {pt3dclear() pt3dadd(118.859,18.333998,61.466003, 1.11) pt3dadd(121.948,18.951998,55.906002, 1.11)}
dend[259] {pt3dclear() pt3dadd(112.749,16.666998,54.799004, 1.39) pt3dadd(116.085,17.778997,55.355003, 1.39)}
dend[260] {pt3dclear() pt3dadd(116.085,17.778997,55.355003, 1.11) pt3dadd(119.415,18.333998,57.575005, 1.11)}
dend[261] {pt3dclear() pt3dadd(119.415,18.333998,57.575005, 1.0) pt3dadd(120.525,18.333998,58.685005, 1.0)}
dend[262] {pt3dclear() pt3dadd(119.415,18.333998,57.575005, 1.0) pt3dadd(125.525,17.778997,58.130005, 1.0)}
dend[263] {pt3dclear() pt3dadd(107.744,16.110998,49.240005, 1.67) pt3dadd(111.078,17.221998,46.462006, 1.67)}
dend[264] {pt3dclear() pt3dadd(111.078,17.221998,46.462006, 1.44) pt3dadd(122.32,17.783998,47.024006, 1.44)}
dend[265] {pt3dclear() pt3dadd(122.32,17.783998,47.024006, 1.28) pt3dadd(124.544,17.783998,43.687004, 1.28)}
dend[266] {pt3dclear() pt3dadd(124.544,17.783998,43.687004, 1.11) pt3dadd(122.876,17.783998,41.463005, 1.11)}
dend[267] {pt3dclear() pt3dadd(124.544,17.783998,43.687004, 1.11) pt3dadd(128.989,18.339998,42.020004, 1.11)}
dend[268] {pt3dclear() pt3dadd(128.989,18.339998,42.020004, 1.06) pt3dadd(131.765,18.339998,40.910004, 1.06)}
dend[269] {pt3dclear() pt3dadd(131.765,18.339998,40.910004, 1.0) pt3dadd(136.213,18.339998,42.578003, 1.0)}
dend[270] {pt3dclear() pt3dadd(122.32,17.783998,47.024006, 1.39) pt3dadd(124.544,17.783998,50.361008, 1.39)}
dend[271] {pt3dclear() pt3dadd(124.544,17.783998,50.361008, 1.33) pt3dadd(126.21,17.228998,52.027008, 1.33)}
dend[272] {pt3dclear() pt3dadd(126.21,17.228998,52.027008, 1.28) pt3dadd(125.101,17.228998,53.69101, 1.28)}
dend[273] {pt3dclear() pt3dadd(126.21,17.228998,52.027008, 1.11) pt3dadd(132.322,16.672998,53.694008, 1.11)}
dend[274] {pt3dclear() pt3dadd(102.192,16.110998,47.019005, 1.94) pt3dadd(102.192,16.665998,44.244003, 1.94)}
dend[275] {pt3dclear() pt3dadd(102.192,16.665998,44.244003, 1.78) pt3dadd(104.973,16.665998,38.126003, 1.78)}
dend[276] {pt3dclear() pt3dadd(104.973,16.665998,38.126003, 1.56) pt3dadd(104.973,16.665998,35.906002, 1.56)}
dend[277] {pt3dclear() pt3dadd(104.973,16.665998,35.906002, 1.33) pt3dadd(97.143,17.784998,29.754002, 1.33)}
dend[278] {pt3dclear() pt3dadd(97.143,17.784998,29.754002, 1.33) pt3dadd(99.366,17.784998,25.864002, 1.33)}
dend[279] {pt3dclear() pt3dadd(97.143,17.784998,29.754002, 1.17) pt3dadd(91.583,17.784998,29.754002, 1.17)}
dend[280] {pt3dclear() pt3dadd(91.583,17.784998,29.754002, 1.0) pt3dadd(88.803,17.784998,27.530003, 1.0)}
dend[281] {pt3dclear() pt3dadd(104.973,16.665998,35.906002, 1.28) pt3dadd(106.64,16.665998,33.128002, 1.28)}
dend[282] {pt3dclear() pt3dadd(106.64,16.665998,33.128002, 1.11) pt3dadd(104.418,17.221998,27.572002, 1.11)}
dend[283] {pt3dclear() pt3dadd(104.418,17.221998,27.572002, 1.0) pt3dadd(101.641,17.776999,23.684002, 1.0)}
dend[284] {pt3dclear() pt3dadd(101.641,17.776999,23.684002, 0.94) pt3dadd(94.973,17.776999,22.573002, 0.94)}
dend[285] {pt3dclear() pt3dadd(101.641,17.776999,23.684002, 0.94) pt3dadd(103.307,17.776999,19.796001, 0.94)}
dend[286] {pt3dclear() pt3dadd(103.307,17.776999,19.796001, 0.89) pt3dadd(110.699,17.776999,17.948002, 0.89)}
dend[287] {pt3dclear() pt3dadd(104.973,16.665998,38.126003, 1.78) pt3dadd(110.529,17.221998,35.904003, 1.78)}
dend[288] {pt3dclear() pt3dadd(110.529,17.221998,35.904003, 2.06) pt3dadd(119.415,17.221998,32.572002, 2.06)}
dend[289] {pt3dclear() pt3dadd(119.415,17.221998,32.572002, 2.0) pt3dadd(123.857,17.776999,35.903004, 2.0)}
dend[290] {pt3dclear() pt3dadd(123.857,17.776999,35.903004, 1.67) pt3dadd(127.192,19.444998,35.347004, 1.67)}
dend[291] {pt3dclear() pt3dadd(127.192,19.444998,35.347004, 1.5) pt3dadd(129.968,19.444998,34.237003, 1.5)}
dend[292] {pt3dclear() pt3dadd(119.415,17.221998,32.572002, 1.83) pt3dadd(121.636,17.776999,30.351002, 1.83)}
dend[293] {pt3dclear() pt3dadd(121.636,17.776999,30.351002, 1.33) pt3dadd(123.304,17.776999,27.015001, 1.33)}
dend[294] {pt3dclear() pt3dadd(123.304,17.776999,27.015001, 1.39) pt3dadd(123.304,17.776999,24.235, 1.39)}
dend[295] {pt3dclear() pt3dadd(123.304,17.776999,24.235, 1.28) pt3dadd(119.412,17.776999,19.787, 1.28)}
dend[296] {pt3dclear() pt3dadd(119.412,17.776999,19.787, 1.11) pt3dadd(121.632,17.776999,17.567001, 1.11)}
dend[297] {pt3dclear() pt3dadd(119.412,17.776999,19.787, 1.11) pt3dadd(121.261,17.776999,-2.396, 1.11)}
dend[298] {pt3dclear() pt3dadd(123.304,17.776999,24.235, 1.28) pt3dadd(123.859,17.776999,21.460001, 1.28)}
dend[299] {pt3dclear() pt3dadd(123.859,17.776999,21.460001, 1.06) pt3dadd(127.193,17.776999,15.903001, 1.06)}
}
proc basic_shape_extra_3(){
dend[300] {pt3dclear() pt3dadd(10.648,19.459,50.24, 5.94) pt3dadd(5.093,19.459,48.573, 5.94)}
dend[301] {pt3dclear() pt3dadd(5.093,19.459,48.573, 3.72) pt3dadd(-1.5760002,19.459,46.350002, 3.72)}
dend[302] {pt3dclear() pt3dadd(-1.5760002,19.459,46.350002, 3.44) pt3dadd(-1.5760002,19.459,43.570004, 3.44)}
dend[303] {pt3dclear() pt3dadd(-1.5760002,19.459,43.570004, 2.11) pt3dadd(6.7559996,19.459,44.125004, 2.11)}
dend[304] {pt3dclear() pt3dadd(-1.5760002,19.459,43.570004, 2.11) pt3dadd(-2.1330001,19.459,41.900005, 2.11)}
dend[305] {pt3dclear() pt3dadd(-2.1330001,19.459,41.900005, 1.56) pt3dadd(-5.467,19.459,42.456005, 1.56)}
dend[306] {pt3dclear() pt3dadd(-5.467,19.459,42.456005, 1.44) pt3dadd(-8.245,19.459,37.456005, 1.44)}
dend[307] {pt3dclear() pt3dadd(-2.1330001,19.459,41.900005, 1.83) pt3dadd(-1.5780001,19.459,39.125004, 1.83)}
dend[308] {pt3dclear() pt3dadd(-1.5780001,19.459,39.125004, 2.17) pt3dadd(-3.801,19.459,34.680004, 2.17)}
dend[309] {pt3dclear() pt3dadd(-3.801,19.459,34.680004, 2.11) pt3dadd(-2.1350002,20.014,28.017004, 2.11)}
dend[310] {pt3dclear() pt3dadd(-2.1350002,20.014,28.017004, 2.0) pt3dadd(-3.801,20.014,21.352005, 2.0)}
dend[311] {pt3dclear() pt3dadd(-3.801,20.014,21.352005, 1.78) pt3dadd(-8.801001,17.792,19.685005, 1.78)}
dend[312] {pt3dclear() pt3dadd(-8.801001,17.792,19.685005, 1.44) pt3dadd(-25.822,18.359,3.232006, 1.44)}
dend[313] {pt3dclear() pt3dadd(-25.822,18.359,3.232006, 1.5) pt3dadd(-30.819,17.248999,1.0110061, 1.5)}
dend[314] {pt3dclear() pt3dadd(-30.819,17.248999,1.0110061, 1.39) pt3dadd(-32.484,16.693998,-1.2089939, 1.39)}
dend[315] {pt3dclear() pt3dadd(-32.484,16.693998,-1.2089939, 1.44) pt3dadd(-32.484,16.693998,-6.208994, 1.44)}
dend[316] {pt3dclear() pt3dadd(-30.819,17.248999,1.0110061, 1.5) pt3dadd(-35.817,17.248999,2.122006, 1.5)}
dend[317] {pt3dclear() pt3dadd(-35.817,17.248999,2.122006, 1.44) pt3dadd(-40.817,17.248999,2.122006, 1.44)}
dend[318] {pt3dclear() pt3dadd(-40.817,17.248999,2.122006, 1.28) pt3dadd(-49.707,17.248999,2.122006, 1.28)}
dend[319] {pt3dclear() pt3dadd(-3.801,20.014,21.352005, 1.89) pt3dadd(-3.2450001,20.014,18.018005, 1.89)}
dend[320] {pt3dclear() pt3dadd(-3.2450001,20.014,18.018005, 1.67) pt3dadd(-5.467,17.237,11.908005, 1.67)}
dend[321] {pt3dclear() pt3dadd(-5.467,17.237,11.908005, 1.67) pt3dadd(12.536,17.904,16.575005, 1.67)}
dend[322] {pt3dclear() pt3dadd(12.536,17.904,16.575005, 1.67) pt3dadd(15.872,17.904,12.127005, 1.67)}
dend[323] {pt3dclear() pt3dadd(12.536,17.904,16.575005, 1.44) pt3dadd(14.76,17.904,18.243004, 1.44)}
dend[324] {pt3dclear() pt3dadd(14.76,17.904,18.243004, 1.22) pt3dadd(22.009,17.904,17.685003, 1.22)}
dend[325] {pt3dclear() pt3dadd(22.009,17.904,17.685003, 1.11) pt3dadd(23.673,17.904,16.576004, 1.11)}
dend[326] {pt3dclear() pt3dadd(23.673,17.904,16.576004, 1.0) pt3dadd(22.470001,18.505999,11.161004, 1.0)}
dend[327] {pt3dclear() pt3dadd(14.76,17.904,18.243004, 1.11) pt3dadd(16.984001,17.904,19.911003, 1.11)}
dend[328] {pt3dclear() pt3dadd(16.984001,17.904,19.911003, 1.0) pt3dadd(24.784,17.904,20.468002, 1.0)}
dend[329] {pt3dclear() pt3dadd(-5.467,17.237,11.908005, 1.22) pt3dadd(-7.691,17.237,9.128005, 1.22)}
dend[330] {pt3dclear() pt3dadd(-7.691,17.237,9.128005, 0.78) pt3dadd(-4.913,17.237,7.461005, 0.78)}
dend[331] {pt3dclear() pt3dadd(-7.691,17.237,9.128005, 0.78) pt3dadd(-8.8,17.237,7.464005, 0.78)}
dend[332] {pt3dclear() pt3dadd(-8.8,17.237,7.464005, 0.78) pt3dadd(-15.531,17.237,-4.651995, 0.78)}
dend[333] {pt3dclear() pt3dadd(-8.8,17.237,7.464005, 0.78) pt3dadd(-11.02,17.792,5.799005, 0.78)}
dend[334] {pt3dclear() pt3dadd(-11.02,17.792,5.799005, 0.78) pt3dadd(-15.432001,17.792,0.7570052, 0.78)}
dend[335] {pt3dclear() pt3dadd(-11.02,17.792,5.799005, 0.78) pt3dadd(-22.205002,17.792,1.8840051, 0.78)}
dend[336] {pt3dclear() pt3dadd(-22.205002,17.792,1.8840051, 0.78) pt3dadd(-22.205002,17.792,0.21400511, 0.78)}
dend[337] {pt3dclear() pt3dadd(-22.205002,17.792,1.8840051, 0.78) pt3dadd(-23.315002,17.237,2.4390051, 0.78)}
dend[338] {pt3dclear() pt3dadd(-3.801,19.459,34.680004, 1.78) pt3dadd(-11.02,19.459,34.125004, 1.78)}
dend[339] {pt3dclear() pt3dadd(-11.02,19.459,34.125004, 1.33) pt3dadd(-14.910001,19.459,34.125004, 1.33)}
dend[340] {pt3dclear() pt3dadd(-14.910001,19.459,34.125004, 1.44) pt3dadd(-17.134,19.459,37.462006, 1.44)}
dend[341] {pt3dclear() pt3dadd(-17.134,19.459,37.462006, 1.39) pt3dadd(-19.911001,19.459,41.906006, 1.39)}
dend[342] {pt3dclear() pt3dadd(-19.911001,19.459,41.906006, 1.17) pt3dadd(-17.133001,19.459,43.573006, 1.17)}
dend[343] {pt3dclear() pt3dadd(-14.910001,19.459,34.125004, 1.39) pt3dadd(-18.797,19.459,30.793003, 1.39)}
dend[344] {pt3dclear() pt3dadd(-18.797,19.459,30.793003, 1.33) pt3dadd(-30.536001,18.285,6.1410027, 1.33)}
dend[345] {pt3dclear() pt3dadd(-30.536001,18.285,6.1410027, 1.33) pt3dadd(-27.586,18.285,-0.93899727, 1.33)}
dend[346] {pt3dclear() pt3dadd(-27.586,18.285,-0.93899727, 1.22) pt3dadd(-24.806,18.841,-3.7189972, 1.22)}
dend[347] {pt3dclear() pt3dadd(-24.806,18.841,-3.7189972, 1.11) pt3dadd(-24.128,14.091999,-8.467998, 1.11)}
dend[348] {pt3dclear() pt3dadd(-24.128,14.091999,-8.467998, 1.11) pt3dadd(-21.906,14.646999,-11.244997, 1.11)}
dend[349] {pt3dclear() pt3dadd(-24.128,14.091999,-8.467998, 1.11) pt3dadd(-25.796,14.091999,-11.803997, 1.11)}
dend[350] {pt3dclear() pt3dadd(-30.536001,18.285,6.1410027, 1.22) pt3dadd(-36.643,18.285,4.475003, 1.22)}
dend[351] {pt3dclear() pt3dadd(-36.643,18.285,4.475003, 1.11) pt3dadd(-49.577003,18.285,0.5380027, 1.11)}
dend[352] {pt3dclear() pt3dadd(-36.643,18.285,4.475003, 1.06) pt3dadd(-40.532,18.285,8.364002, 1.06)}
dend[353] {pt3dclear() pt3dadd(-40.532,18.285,8.364002, 1.0) pt3dadd(-47.754,18.285,12.808002, 1.0)}
dend[354] {pt3dclear() pt3dadd(-1.5760002,19.459,46.350002, 2.72) pt3dadd(-6.578,21.126,48.017002, 2.72)}
dend[355] {pt3dclear() pt3dadd(-6.578,21.126,48.017002, 1.28) pt3dadd(-10.468,21.126,48.017002, 1.28)}
dend[356] {pt3dclear() pt3dadd(-10.468,21.126,48.017002, 1.44) pt3dadd(-27.685,22.848,42.278004, 1.44)}
dend[357] {pt3dclear() pt3dadd(-27.685,22.848,42.278004, 1.44) pt3dadd(-28.258999,21.126,30.801003, 1.44)}
dend[358] {pt3dclear() pt3dadd(-28.258999,21.126,30.801003, 1.33) pt3dadd(-32.707,21.126,27.465002, 1.33)}
dend[359] {pt3dclear() pt3dadd(-32.707,21.126,27.465002, 1.11) pt3dadd(-35.485,21.126,25.798002, 1.11)}
dend[360] {pt3dclear() pt3dadd(-35.485,21.126,25.798002, 1.0) pt3dadd(-30.485,21.126,23.020002, 1.0)}
dend[361] {pt3dclear() pt3dadd(-35.485,21.126,25.798002, 1.0) pt3dadd(-42.705,21.126,21.910002, 1.0)}
dend[362] {pt3dclear() pt3dadd(-42.705,21.126,21.910002, 1.0) pt3dadd(-45.480003,21.126,21.355001, 1.0)}
dend[363] {pt3dclear() pt3dadd(-42.705,21.126,21.910002, 1.0) pt3dadd(-42.705,21.682,13.017002, 1.0)}
dend[364] {pt3dclear() pt3dadd(-28.258999,21.126,30.801003, 1.22) pt3dadd(-27.699,21.126,30.801003, 1.22)}
dend[365] {pt3dclear() pt3dadd(-27.685,22.848,42.278004, 1.22) pt3dadd(-31.574999,21.181,44.501003, 1.22)}
dend[366] {pt3dclear() pt3dadd(-31.574999,21.181,44.501003, 1.06) pt3dadd(-33.795998,21.181,50.610004, 1.06)}
dend[367] {pt3dclear() pt3dadd(-33.795998,21.181,50.610004, 1.11) pt3dadd(-32.685997,21.181,54.495003, 1.11)}
dend[368] {pt3dclear() pt3dadd(-31.574999,21.181,44.501003, 1.22) pt3dadd(-36.02,21.181,45.057003, 1.22)}
dend[369] {pt3dclear() pt3dadd(-36.02,21.181,45.057003, 1.44) pt3dadd(-54.521,20.603,45.057003, 1.44)}
dend[370] {pt3dclear() pt3dadd(8.899,20.042,53.738003, 5.72) pt3dadd(13.899,22.264,55.405003, 5.72)}
dend[371] {pt3dclear() pt3dadd(13.899,22.264,55.405003, 2.5) pt3dadd(12.788,21.153,62.626003, 2.5)}
dend[372] {pt3dclear() pt3dadd(12.788,21.153,62.626003, 2.0) pt3dadd(12.233,21.708,68.736, 2.0)}
dend[373] {pt3dclear() pt3dadd(12.233,21.708,68.736, 2.0) pt3dadd(14.459,22.264,69.849, 2.0)}
dend[374] {pt3dclear() pt3dadd(14.459,22.264,69.849, 1.67) pt3dadd(17.793,22.264,70.405, 1.67)}
dend[375] {pt3dclear() pt3dadd(17.793,22.264,70.405, 1.33) pt3dadd(16.682999,22.264,73.181, 1.33)}
dend[376] {pt3dclear() pt3dadd(17.793,22.264,70.405, 1.33) pt3dadd(20.015,22.264,69.85, 1.33)}
dend[377] {pt3dclear() pt3dadd(12.233,21.708,68.736, 1.67) pt3dadd(11.124,21.708,70.4, 1.67)}
dend[378] {pt3dclear() pt3dadd(11.124,21.708,70.4, 1.33) pt3dadd(14.457,20.597,74.288, 1.33)}
dend[379] {pt3dclear() pt3dadd(14.457,20.597,74.288, 1.33) pt3dadd(18.345,21.152,77.065, 1.33)}
dend[380] {pt3dclear() pt3dadd(14.457,20.597,74.288, 1.33) pt3dadd(8.899,20.597,79.846, 1.33)}
dend[381] {pt3dclear() pt3dadd(8.899,20.597,79.846, 1.33) pt3dadd(2.1790004,21.157,86.566, 1.33)}
dend[382] {pt3dclear() pt3dadd(8.899,20.597,79.846, 1.33) pt3dadd(19.035,20.597,85.548004, 1.33)}
dend[383] {pt3dclear() pt3dadd(11.124,21.708,70.4, 1.33) pt3dadd(-4.4750004,23.441,68.667, 1.33)}
dend[384] {pt3dclear() pt3dadd(-4.4750004,23.441,68.667, 1.33) pt3dadd(-12.997001,24.05,67.45, 1.33)}
dend[385] {pt3dclear() pt3dadd(-12.997001,24.05,67.45, 1.33) pt3dadd(-29.187,23.491999,67.45, 1.33)}
dend[386] {pt3dclear() pt3dadd(-29.187,23.491999,67.45, 1.22) pt3dadd(-31.966,23.491999,70.229, 1.22)}
dend[387] {pt3dclear() pt3dadd(-12.997001,24.05,67.45, 1.22) pt3dadd(-15.775001,24.605999,76.894, 1.22)}
dend[388] {pt3dclear() pt3dadd(-15.775001,24.605999,76.894, 1.11) pt3dadd(-23.617,25.165998,81.936, 1.11)}
dend[389] {pt3dclear() pt3dadd(-23.617,25.165998,81.936, 1.11) pt3dadd(-26.397001,25.165998,81.936, 1.11)}
dend[390] {pt3dclear() pt3dadd(-23.617,25.165998,81.936, 1.11) pt3dadd(-24.800001,23.390999,92.584, 1.11)}
dend[391] {pt3dclear() pt3dadd(-4.4750004,23.441,68.667, 1.22) pt3dadd(-7.2520003,23.441,74.221, 1.22)}
dend[392] {pt3dclear() pt3dadd(-7.2520003,23.441,74.221, 1.11) pt3dadd(0.5529995,23.998,87.601, 1.11)}
dend[393] {pt3dclear() pt3dadd(0.5529995,23.998,87.601, 1.0) pt3dadd(2.7739995,23.998,93.71, 1.0)}
dend[394] {pt3dclear() pt3dadd(2.7739995,23.998,93.71, 0.89) pt3dadd(-7.913001,23.998,108.405, 0.89)}
dend[395] {pt3dclear() pt3dadd(0.5529995,23.998,87.601, 1.0) pt3dadd(-2.2260005,23.998,90.38, 1.0)}
dend[396] {pt3dclear() pt3dadd(-2.2260005,23.998,90.38, 0.89) pt3dadd(-3.9020004,23.998,96.526, 0.89)}
dend[397] {pt3dclear() pt3dadd(-3.9020004,23.998,96.526, 1.06) pt3dadd(-8.901001,23.998,98.748, 1.06)}
dend[398] {pt3dclear() pt3dadd(-8.901001,23.998,98.748, 1.22) pt3dadd(-18.907001,24.664999,118.093, 1.22)}
dend[399] {pt3dclear() pt3dadd(-3.9020004,23.998,96.526, 1.06) pt3dadd(-1.6780005,23.998,99.863, 1.06)}
}
proc basic_shape_extra_4(){
dend[400] {pt3dclear() pt3dadd(13.899,22.264,55.405003, 2.33) pt3dadd(17.79,21.708,57.073, 2.33)}
dend[401] {pt3dclear() pt3dadd(17.79,21.708,57.073, 2.44) pt3dadd(22.233002,21.153,62.071003, 2.44)}
dend[402] {pt3dclear() pt3dadd(22.233002,21.153,62.071003, 2.28) pt3dadd(21.677002,21.153,65.962006, 2.28)}
dend[403] {pt3dclear() pt3dadd(21.677002,21.153,65.962006, 1.33) pt3dadd(21.677002,21.153,71.522, 1.33)}
dend[404] {pt3dclear() pt3dadd(21.677002,21.153,71.522, 1.5) pt3dadd(21.677002,21.708,73.744, 1.5)}
dend[405] {pt3dclear() pt3dadd(21.677002,21.708,73.744, 1.67) pt3dadd(19.819002,21.708,84.271, 1.67)}
dend[406] {pt3dclear() pt3dadd(19.819002,21.708,84.271, 1.56) pt3dadd(19.819002,21.708,87.601006, 1.56)}
dend[407] {pt3dclear() pt3dadd(19.819002,21.708,87.601006, 1.44) pt3dadd(15.947002,21.708,92.119, 1.44)}
dend[408] {pt3dclear() pt3dadd(15.947002,21.708,92.119, 1.22) pt3dadd(14.280003,21.708,94.897, 1.22)}
dend[409] {pt3dclear() pt3dadd(19.819002,21.708,87.601006, 1.22) pt3dadd(23.156002,21.708,89.825005, 1.22)}
dend[410] {pt3dclear() pt3dadd(23.156002,21.708,89.825005, 1.0) pt3dadd(25.439003,22.279,103.524, 1.0)}
dend[411] {pt3dclear() pt3dadd(21.677002,21.708,73.744, 1.61) pt3dadd(24.456001,21.708,76.523, 1.61)}
dend[412] {pt3dclear() pt3dadd(24.456001,21.708,76.523, 1.33) pt3dadd(31.123001,22.819,80.968, 1.33)}
dend[413] {pt3dclear() pt3dadd(22.233002,21.153,62.071003, 2.44) pt3dadd(27.231003,21.153,63.182003, 2.44)}
dend[414] {pt3dclear() pt3dadd(27.231003,21.153,63.182003, 1.39) pt3dadd(30.009003,21.153,59.292004, 1.39)}
dend[415] {pt3dclear() pt3dadd(30.009003,21.153,59.292004, 1.11) pt3dadd(33.899002,21.153,57.069004, 1.11)}
dend[416] {pt3dclear() pt3dadd(33.899002,21.153,57.069004, 1.28) pt3dadd(35.009003,21.153,53.184006, 1.28)}
dend[417] {pt3dclear() pt3dadd(35.009003,21.153,53.184006, 1.44) pt3dadd(33.899002,21.708,50.409004, 1.44)}
dend[418] {pt3dclear() pt3dadd(33.899002,21.708,50.409004, 1.44) pt3dadd(32.624,21.071001,28.736004, 1.44)}
dend[419] {pt3dclear() pt3dadd(32.624,21.071001,28.736004, 1.44) pt3dadd(30.923,21.071001,20.796003, 1.44)}
dend[420] {pt3dclear() pt3dadd(30.923,21.071001,20.796003, 1.44) pt3dadd(28.519001,21.071001,15.3860035, 1.44)}
dend[421] {pt3dclear() pt3dadd(30.923,21.071001,20.796003, 1.39) pt3dadd(34.813,21.071001,18.573004, 1.39)}
dend[422] {pt3dclear() pt3dadd(34.813,21.071001,18.573004, 1.33) pt3dadd(42.699,21.071001,15.193004, 1.33)}
dend[423] {pt3dclear() pt3dadd(32.624,21.071001,28.736004, 1.39) pt3dadd(38.739,22.183,28.180004, 1.39)}
dend[424] {pt3dclear() pt3dadd(38.739,22.183,28.180004, 1.33) pt3dadd(56.101997,18.325,32.038006, 1.33)}
dend[425] {pt3dclear() pt3dadd(38.739,22.183,28.180004, 1.33) pt3dadd(56.159996,19.86,22.373005, 1.33)}
dend[426] {pt3dclear() pt3dadd(33.899002,21.708,50.409004, 1.39) pt3dadd(35.012,22.265,51.522003, 1.39)}
dend[427] {pt3dclear() pt3dadd(35.009003,21.153,53.184006, 1.39) pt3dadd(36.119003,21.153,53.184006, 1.39)}
dend[428] {pt3dclear() pt3dadd(27.231003,21.153,63.182003, 1.89) pt3dadd(30.563004,18.931,65.404, 1.89)}
dend[429] {pt3dclear() pt3dadd(30.563004,18.931,65.404, 1.89) pt3dadd(30.563004,21.154999,67.072, 1.89)}
dend[430] {pt3dclear() pt3dadd(30.563004,21.154999,67.072, 1.5) pt3dadd(29.452003,20.598999,77.075, 1.5)}
dend[431] {pt3dclear() pt3dadd(30.563004,21.154999,67.072, 1.5) pt3dadd(35.006004,21.71,70.96, 1.5)}
dend[432] {pt3dclear() pt3dadd(35.006004,21.71,70.96, 1.22) pt3dadd(35.006004,21.71,71.52, 1.22)}
dend[433] {pt3dclear() pt3dadd(30.563004,18.931,65.404, 2.22) pt3dadd(32.785004,18.931,64.849, 2.22)}
dend[434] {pt3dclear() pt3dadd(32.785004,18.931,64.849, 1.78) pt3dadd(28.896004,18.931,54.849, 1.78)}
dend[435] {pt3dclear() pt3dadd(32.785004,18.931,64.849, 3.33) pt3dadd(37.225002,17.821,64.294, 3.33)}
dend[436] {pt3dclear() pt3dadd(37.225002,17.821,64.294, 3.39) pt3dadd(38.335003,17.821,60.963997, 3.39)}
dend[437] {pt3dclear() pt3dadd(38.335003,17.821,60.963997, 2.5) pt3dadd(38.335003,18.376,55.964996, 2.5)}
dend[438] {pt3dclear() pt3dadd(38.335003,18.376,55.964996, 2.11) pt3dadd(35.556004,18.376,53.185997, 2.11)}
dend[439] {pt3dclear() pt3dadd(38.335003,18.376,55.964996, 2.44) pt3dadd(43.333004,18.931,51.521996, 2.44)}
dend[440] {pt3dclear() pt3dadd(43.333004,18.931,51.521996, 1.89) pt3dadd(45.557003,18.931,49.853996, 1.89)}
dend[441] {pt3dclear() pt3dadd(43.333004,18.931,51.521996, 1.89) pt3dadd(48.892006,21.154999,52.633995, 1.89)}
dend[442] {pt3dclear() pt3dadd(48.892006,21.154999,52.633995, 1.33) pt3dadd(48.892006,21.154999,55.963997, 1.33)}
dend[443] {pt3dclear() pt3dadd(48.892006,21.154999,55.963997, 1.22) pt3dadd(50.556007,21.154999,57.072998, 1.22)}
dend[444] {pt3dclear() pt3dadd(48.892006,21.154999,52.633995, 1.33) pt3dadd(53.337006,21.154999,52.077995, 1.33)}
dend[445] {pt3dclear() pt3dadd(53.337006,21.154999,52.077995, 1.06) pt3dadd(55.555004,21.154999,53.186996, 1.06)}
dend[446] {pt3dclear() pt3dadd(55.555004,21.154999,53.186996, 0.83) pt3dadd(61.110004,21.154999,54.853996, 0.83)}
dend[447] {pt3dclear() pt3dadd(55.555004,21.154999,53.186996, 1.11) pt3dadd(61.664005,21.154999,59.850998, 1.11)}
dend[448] {pt3dclear() pt3dadd(37.225002,17.821,64.294, 3.33) pt3dadd(38.892002,21.154999,65.405, 3.33)}
dend[449] {pt3dclear() pt3dadd(38.892002,21.154999,65.405, 1.89) pt3dadd(42.228,20.598999,64.293, 1.89)}
dend[450] {pt3dclear() pt3dadd(42.228,20.598999,64.293, 1.44) pt3dadd(45.558,20.598999,64.293, 1.44)}
dend[451] {pt3dclear() pt3dadd(45.558,20.598999,64.293, 1.44) pt3dadd(61.476997,20.598999,61.345, 1.44)}
dend[452] {pt3dclear() pt3dadd(45.558,20.598999,64.293, 1.44) pt3dadd(63.966,21.825998,66.134, 1.44)}
dend[453] {pt3dclear() pt3dadd(38.892002,21.154999,65.405, 2.0) pt3dadd(40.559002,21.154999,70.405, 2.0)}
dend[454] {pt3dclear() pt3dadd(40.559002,21.154999,70.405, 1.67) pt3dadd(52.039,24.024998,77.867, 1.67)}
dend[455] {pt3dclear() pt3dadd(52.039,24.024998,77.867, 1.89) pt3dadd(55.373,24.024998,78.423, 1.89)}
dend[456] {pt3dclear() pt3dadd(55.373,24.024998,78.423, 1.78) pt3dadd(54.262,23.469997,85.088, 1.78)}
dend[457] {pt3dclear() pt3dadd(54.262,23.469997,85.088, 1.44) pt3dadd(54.262,23.469997,93.56799, 1.44)}
dend[458] {pt3dclear() pt3dadd(54.262,23.469997,93.56799, 1.28) pt3dadd(57.039,23.469997,98.01199, 1.28)}
dend[459] {pt3dclear() pt3dadd(55.373,24.024998,78.423, 1.78) pt3dadd(59.261,24.024998,76.756996, 1.78)}
dend[460] {pt3dclear() pt3dadd(59.261,24.024998,76.756996, 1.78) pt3dadd(63.701,24.024998,76.756996, 1.78)}
dend[461] {pt3dclear() pt3dadd(63.701,24.024998,76.756996, 2.11) pt3dadd(65.925,24.024998,73.977, 2.11)}
dend[462] {pt3dclear() pt3dadd(65.925,24.024998,73.977, 1.78) pt3dadd(68.149,24.024998,71.197, 1.78)}
dend[463] {pt3dclear() pt3dadd(68.149,24.024998,71.197, 1.44) pt3dadd(70.371,23.468998,66.753, 1.44)}
dend[464] {pt3dclear() pt3dadd(70.371,23.468998,66.753, 1.56) pt3dadd(70.926,23.468998,64.531, 1.56)}
dend[465] {pt3dclear() pt3dadd(70.926,23.468998,64.531, 1.72) pt3dadd(69.814,23.468998,58.970997, 1.72)}
dend[466] {pt3dclear() pt3dadd(69.814,23.468998,58.970997, 1.67) pt3dadd(67.036,23.468998,53.970997, 1.67)}
dend[467] {pt3dclear() pt3dadd(67.036,23.468998,53.970997, 1.33) pt3dadd(64.261,24.023998,50.641, 1.33)}
dend[468] {pt3dclear() pt3dadd(64.261,24.023998,50.641, 1.06) pt3dadd(62.591003,24.023998,50.084, 1.06)}
dend[469] {pt3dclear() pt3dadd(64.261,24.023998,50.641, 1.06) pt3dadd(64.817,24.023998,47.307, 1.06)}
dend[470] {pt3dclear() pt3dadd(70.926,23.468998,64.531, 1.33) pt3dadd(77.591,24.023998,63.42, 1.33)}
dend[471] {pt3dclear() pt3dadd(77.591,24.023998,63.42, 1.0) pt3dadd(80.927,24.023998,61.752, 1.0)}
dend[472] {pt3dclear() pt3dadd(80.927,24.023998,61.752, 1.0) pt3dadd(85.925,24.023998,68.416, 1.0)}
dend[473] {pt3dclear() pt3dadd(80.927,24.023998,61.752, 1.0) pt3dadd(81.482,24.023998,59.53, 1.0)}
dend[474] {pt3dclear() pt3dadd(81.482,24.023998,59.53, 1.11) pt3dadd(82.592,24.023998,56.199997, 1.11)}
dend[475] {pt3dclear() pt3dadd(82.592,24.023998,56.199997, 1.0) pt3dadd(80.925,24.023998,51.199997, 1.0)}
dend[476] {pt3dclear() pt3dadd(80.925,24.023998,51.199997, 0.83) pt3dadd(80.925,24.023998,48.42, 0.83)}
dend[477] {pt3dclear() pt3dadd(80.925,24.023998,48.42, 0.89) pt3dadd(81.481,24.023998,41.753, 0.89)}
dend[478] {pt3dclear() pt3dadd(80.925,24.023998,48.42, 0.89) pt3dadd(67.252,24.023998,41.014, 0.89)}
dend[479] {pt3dclear() pt3dadd(65.925,24.024998,73.977, 1.56) pt3dadd(74.257,24.024998,73.422, 1.56)}
dend[480] {pt3dclear() pt3dadd(74.257,24.024998,73.422, 1.0) pt3dadd(92.57201,24.596998,72.277, 1.0)}
dend[481] {pt3dclear() pt3dadd(92.57201,24.596998,72.277, 1.11) pt3dadd(95.90201,21.821999,70.057, 1.11)}
dend[482] {pt3dclear() pt3dadd(95.90201,21.821999,70.057, 1.17) pt3dadd(100.90401,22.932999,76.726, 1.17)}
dend[483] {pt3dclear() pt3dadd(95.90201,21.821999,70.057, 1.17) pt3dadd(99.78801,22.376999,67.836, 1.17)}
dend[484] {pt3dclear() pt3dadd(99.78801,22.376999,67.836, 1.11) pt3dadd(126.21701,24.725998,68.423, 1.11)}
dend[485] {pt3dclear() pt3dadd(126.21701,24.725998,68.423, 1.0) pt3dadd(128.99701,24.725998,68.423, 1.0)}
dend[486] {pt3dclear() pt3dadd(74.257,24.024998,73.422, 0.94) pt3dadd(76.481,24.024998,76.201996, 0.94)}
dend[487] {pt3dclear() pt3dadd(76.481,24.024998,76.201996, 0.89) pt3dadd(84.855,24.024998,77.877, 0.89)}
dend[488] {pt3dclear() pt3dadd(84.855,24.024998,77.877, 0.89) pt3dadd(84.855,23.467999,79.547, 0.89)}
dend[489] {pt3dclear() pt3dadd(84.855,24.024998,77.877, 0.89) pt3dadd(87.073006,24.024998,76.768, 0.89)}
dend[490] {pt3dclear() pt3dadd(63.701,24.024998,76.756996, 1.61) pt3dadd(64.811,24.579998,81.197, 1.61)}
dend[491] {pt3dclear() pt3dadd(64.811,24.579998,81.197, 1.22) pt3dadd(67.590996,24.579998,83.421, 1.22)}
dend[492] {pt3dclear() pt3dadd(67.590996,24.579998,83.421, 1.22) pt3dadd(66.479,24.023998,86.756996, 1.22)}
dend[493] {pt3dclear() pt3dadd(66.479,24.023998,86.756996, 1.11) pt3dadd(65.904,25.173998,105.161995, 1.11)}
dend[494] {pt3dclear() pt3dadd(66.479,24.023998,86.756996, 1.11) pt3dadd(72.08199,25.144999,101.883995, 1.11)}
dend[495] {pt3dclear() pt3dadd(67.590996,24.579998,83.421, 1.28) pt3dadd(73.701,24.579998,84.532, 1.28)}
dend[496] {pt3dclear() pt3dadd(73.701,24.579998,84.532, 1.61) pt3dadd(77.034996,24.579998,85.088, 1.61)}
dend[497] {pt3dclear() pt3dadd(77.034996,24.579998,85.088, 1.67) pt3dadd(78.702995,25.135998,90.646996, 1.67)}
dend[498] {pt3dclear() pt3dadd(78.702995,25.135998,90.646996, 1.33) pt3dadd(86.48499,25.135998,97.87299, 1.33)}
dend[499] {pt3dclear() pt3dadd(86.48499,25.135998,97.87299, 1.5) pt3dadd(88.704994,25.690998,101.202995, 1.5)}
}
proc basic_shape_extra_5(){
dend[500] {pt3dclear() pt3dadd(88.704994,25.690998,101.202995, 1.5) pt3dadd(92.038994,25.690998,101.758995, 1.5)}
dend[501] {pt3dclear() pt3dadd(92.038994,25.690998,101.758995, 1.33) pt3dadd(105.31699,26.267998,104.645, 1.33)}
dend[502] {pt3dclear() pt3dadd(105.31699,26.267998,104.645, 1.28) pt3dadd(108.65099,26.267998,105.201, 1.28)}
dend[503] {pt3dclear() pt3dadd(108.65099,26.267998,105.201, 1.17) pt3dadd(112.54099,26.267998,107.979, 1.17)}
dend[504] {pt3dclear() pt3dadd(112.54099,26.267998,107.979, 1.11) pt3dadd(127.73799,26.830997,114.732994, 1.11)}
dend[505] {pt3dclear() pt3dadd(88.704994,25.690998,101.202995, 1.5) pt3dadd(88.149994,25.690998,102.312, 1.5)}
dend[506] {pt3dclear() pt3dadd(88.149994,25.690998,102.312, 1.22) pt3dadd(80.925995,25.134998,97.867, 1.22)}
dend[507] {pt3dclear() pt3dadd(88.149994,25.690998,102.312, 1.33) pt3dadd(87.522995,25.690998,111.72099, 1.33)}
dend[508] {pt3dclear() pt3dadd(87.522995,25.690998,111.72099, 1.28) pt3dadd(86.412994,25.135998,114.495995, 1.28)}
dend[509] {pt3dclear() pt3dadd(86.412994,25.135998,114.495995, 1.22) pt3dadd(83.632996,25.135998,116.71999, 1.22)}
dend[510] {pt3dclear() pt3dadd(77.034996,24.579998,85.088, 1.94) pt3dadd(82.59,21.802998,83.422, 1.94)}
dend[511] {pt3dclear() pt3dadd(82.59,21.802998,83.422, 1.89) pt3dadd(94.826,22.358997,74.522995, 1.89)}
dend[512] {pt3dclear() pt3dadd(94.826,22.358997,74.522995, 1.56) pt3dadd(97.046,22.913998,72.857994, 1.56)}
dend[513] {pt3dclear() pt3dadd(94.826,22.358997,74.522995, 1.56) pt3dadd(104.27,22.358997,76.189995, 1.56)}
dend[514] {pt3dclear() pt3dadd(104.27,22.358997,76.189995, 1.22) pt3dadd(125.690994,26.990997,79.663994, 1.22)}
dend[515] {pt3dclear() pt3dadd(82.59,21.802998,83.422, 1.83) pt3dadd(89.257996,25.692997,82.866, 1.83)}
dend[516] {pt3dclear() pt3dadd(89.257996,25.692997,82.866, 1.78) pt3dadd(98.701996,25.692997,76.2, 1.78)}
dend[517] {pt3dclear() pt3dadd(98.701996,25.692997,76.2, 1.61) pt3dadd(101.479996,25.692997,72.866, 1.61)}
dend[518] {pt3dclear() pt3dadd(101.479996,25.692997,72.866, 1.44) pt3dadd(115.739,25.692997,68.113, 1.44)}
dend[519] {pt3dclear() pt3dadd(89.257996,25.692997,82.866, 1.44) pt3dadd(93.146996,25.692997,86.755, 1.44)}
dend[520] {pt3dclear() pt3dadd(93.146996,25.692997,86.755, 1.11) pt3dadd(98.146996,26.248997,88.422, 1.11)}
dend[521] {pt3dclear() pt3dadd(98.146996,26.248997,88.422, 1.17) pt3dadd(104.26199,25.692997,89.534, 1.17)}
dend[522] {pt3dclear() pt3dadd(104.26199,25.692997,89.534, 1.22) pt3dadd(107.591995,25.692997,92.864, 1.22)}
dend[523] {pt3dclear() pt3dadd(107.591995,25.692997,92.864, 1.11) pt3dadd(110.925995,25.136997,92.864, 1.11)}
dend[524] {pt3dclear() pt3dadd(110.925995,25.136997,92.864, 1.0) pt3dadd(112.59,25.136997,91.755, 1.0)}
dend[525] {pt3dclear() pt3dadd(110.925995,25.136997,92.864, 1.0) pt3dadd(114.260994,25.692997,94.532, 1.0)}
dend[526] {pt3dclear() pt3dadd(-6.099,23.376,69.848, 4.17) pt3dadd(-7.766,23.376,64.848, 4.17)}
dend[527] {pt3dclear() pt3dadd(-7.766,23.376,64.848, 2.22) pt3dadd(-19.515,23.376,55.897, 2.22)}
dend[528] {pt3dclear() pt3dadd(-19.515,23.376,55.897, 2.22) pt3dadd(-21.737999,23.376,52.007, 2.22)}
dend[529] {pt3dclear() pt3dadd(-21.737999,23.376,52.007, 2.0) pt3dadd(-25.074,23.376,47.559, 2.0)}
dend[530] {pt3dclear() pt3dadd(-19.515,23.376,55.897, 2.06) pt3dadd(-27.289,23.376,54.231, 2.06)}
dend[531] {pt3dclear() pt3dadd(-27.289,23.376,54.231, 1.72) pt3dadd(-34.51,23.931,50.343, 1.72)}
dend[532] {pt3dclear() pt3dadd(-27.289,23.376,54.231, 1.67) pt3dadd(-32.289,23.376,57.009, 1.67)}
dend[533] {pt3dclear() pt3dadd(-23.873,22.821,72.069, 3.83) pt3dadd(-28.321,22.821,68.733, 3.83)}
dend[534] {pt3dclear() pt3dadd(-28.321,22.821,68.733, 3.11) pt3dadd(-31.654999,22.821,68.177, 3.11)}
dend[535] {pt3dclear() pt3dadd(-31.654999,22.821,68.177, 4.0) pt3dadd(-33.322998,22.821,63.729004, 4.0)}
dend[536] {pt3dclear() pt3dadd(-33.322998,22.821,63.729004, 3.11) pt3dadd(-32.767998,22.821,60.954002, 3.11)}
dend[537] {pt3dclear() pt3dadd(-32.767998,22.821,60.954002, 2.22) pt3dadd(-32.767998,21.710999,58.178, 2.22)}
dend[538] {pt3dclear() pt3dadd(-32.767998,21.710999,58.178, 2.11) pt3dadd(-33.877,21.710999,55.960003, 2.11)}
dend[539] {pt3dclear() pt3dadd(-33.877,21.710999,55.960003, 1.83) pt3dadd(-33.877,21.710999,52.630005, 1.83)}
dend[540] {pt3dclear() pt3dadd(-33.877,21.710999,52.630005, 1.67) pt3dadd(-29.125,21.710999,47.878006, 1.67)}
dend[541] {pt3dclear() pt3dadd(-29.125,21.710999,47.878006, 1.5) pt3dadd(-25.789,21.710999,49.546005, 1.5)}
dend[542] {pt3dclear() pt3dadd(-33.322998,22.821,63.729004, 3.06) pt3dadd(-36.661,23.934,62.616005, 3.06)}
dend[543] {pt3dclear() pt3dadd(-36.661,23.934,62.616005, 2.33) pt3dadd(-40.549,23.934,60.950005, 2.33)}
dend[544] {pt3dclear() pt3dadd(-40.549,23.934,60.950005, 3.0) pt3dadd(-44.994,23.934,58.727005, 3.0)}
dend[545] {pt3dclear() pt3dadd(-44.994,23.934,58.727005, 2.44) pt3dadd(-42.215,23.934,55.948006, 2.44)}
dend[546] {pt3dclear() pt3dadd(-42.215,23.934,55.948006, 1.44) pt3dadd(-38.881,23.934,53.170006, 1.44)}
dend[547] {pt3dclear() pt3dadd(-38.881,23.934,53.170006, 1.22) pt3dadd(-33.329002,23.934,55.391006, 1.22)}
dend[548] {pt3dclear() pt3dadd(-38.881,23.934,53.170006, 1.33) pt3dadd(-36.101,23.934,50.946007, 1.33)}
dend[549] {pt3dclear() pt3dadd(-36.101,23.934,50.946007, 1.17) pt3dadd(-33.881,23.934,48.726006, 1.17)}
dend[550] {pt3dclear() pt3dadd(-44.994,23.934,58.727005, 3.39) pt3dadd(-46.658,25.043,58.727005, 3.39)}
dend[551] {pt3dclear() pt3dadd(-46.658,25.043,58.727005, 2.83) pt3dadd(-47.767002,25.043,56.509007, 2.83)}
dend[552] {pt3dclear() pt3dadd(-47.767002,25.043,56.509007, 1.89) pt3dadd(-46.657,25.043,53.17901, 1.89)}
dend[553] {pt3dclear() pt3dadd(-46.657,25.043,53.17901, 1.44) pt3dadd(-46.657,23.922998,47.58001, 1.44)}
dend[554] {pt3dclear() pt3dadd(-46.657,23.922998,47.58001, 1.44) pt3dadd(-50.29,25.133999,34.86401, 1.44)}
dend[555] {pt3dclear() pt3dadd(-50.29,25.133999,34.86401, 1.33) pt3dadd(-46.399002,25.133999,35.42001, 1.33)}
dend[556] {pt3dclear() pt3dadd(-46.399002,25.133999,35.42001, 1.22) pt3dadd(-39.730003,25.133999,37.64301, 1.22)}
dend[557] {pt3dclear() pt3dadd(-39.730003,25.133999,37.64301, 1.11) pt3dadd(-32.510002,25.133999,39.30901, 1.11)}
dend[558] {pt3dclear() pt3dadd(-39.730003,25.133999,37.64301, 1.11) pt3dadd(-33.065002,24.578999,32.64401, 1.11)}
dend[559] {pt3dclear() pt3dadd(-50.29,25.133999,34.86401, 1.39) pt3dadd(-50.846,25.689999,30.97301, 1.39)}
dend[560] {pt3dclear() pt3dadd(-50.846,25.689999,30.97301, 1.22) pt3dadd(-50.846,24.581,29.30901, 1.22)}
dend[561] {pt3dclear() pt3dadd(-50.846,24.581,29.30901, 1.11) pt3dadd(-46.401,25.137,29.30901, 1.11)}
dend[562] {pt3dclear() pt3dadd(-46.401,25.137,29.30901, 1.0) pt3dadd(-41.403,25.137,30.42001, 1.0)}
dend[563] {pt3dclear() pt3dadd(-41.403,25.137,30.42001, 0.89) pt3dadd(-34.733,25.137,30.42001, 0.89)}
dend[564] {pt3dclear() pt3dadd(-50.846,24.581,29.30901, 1.0) pt3dadd(-53.624,24.581,24.30901, 1.0)}
dend[565] {pt3dclear() pt3dadd(-53.624,24.581,24.30901, 0.89) pt3dadd(-55.881,24.017,17.53801, 0.89)}
dend[566] {pt3dclear() pt3dadd(-55.881,24.017,17.53801, 0.89) pt3dadd(-50.881,24.017,14.76001, 0.89)}
dend[567] {pt3dclear() pt3dadd(-55.881,24.017,17.53801, 0.89) pt3dadd(-57.551,24.017,16.98101, 0.89)}
dend[568] {pt3dclear() pt3dadd(-57.551,24.017,16.98101, 0.89) pt3dadd(-74.893,22.821001,3.8250103, 0.89)}
dend[569] {pt3dclear() pt3dadd(-57.551,24.017,16.98101, 1.0) pt3dadd(-61.440998,22.905,9.20001, 1.0)}
dend[570] {pt3dclear() pt3dadd(-61.440998,22.905,9.20001, 1.11) pt3dadd(-51.981,21.722,-2.6249895, 1.11)}
dend[571] {pt3dclear() pt3dadd(-61.440998,22.905,9.20001, 1.11) pt3dadd(-68.899,22.905,1.1690102, 1.11)}
dend[572] {pt3dclear() pt3dadd(-46.657,23.922998,47.58001, 1.28) pt3dadd(-47.767002,23.922998,44.250008, 1.28)}
dend[573] {pt3dclear() pt3dadd(-47.767002,23.922998,44.250008, 1.11) pt3dadd(-51.103,23.922998,39.80201, 1.11)}
dend[574] {pt3dclear() pt3dadd(-51.103,23.922998,39.80201, 1.11) pt3dadd(-48.325,23.922998,34.80201, 1.11)}
dend[575] {pt3dclear() pt3dadd(-51.103,23.922998,39.80201, 1.11) pt3dadd(-53.328,23.922998,34.24001, 1.11)}
dend[576] {pt3dclear() pt3dadd(-53.328,23.922998,34.24001, 1.11) pt3dadd(-70.863,23.922998,25.755009, 1.11)}
dend[577] {pt3dclear() pt3dadd(-53.328,23.922998,34.24001, 1.28) pt3dadd(-54.438,23.922998,30.91001, 1.28)}
dend[578] {pt3dclear() pt3dadd(-54.438,23.922998,30.91001, 1.44) pt3dadd(-61.2,23.922998,21.894009, 1.44)}
dend[579] {pt3dclear() pt3dadd(-61.2,23.922998,21.894009, 1.44) pt3dadd(-70.093,23.366999,21.894009, 1.44)}
dend[580] {pt3dclear() pt3dadd(-70.093,23.366999,21.894009, 1.39) pt3dadd(-75.648,23.921999,21.339008, 1.39)}
dend[581] {pt3dclear() pt3dadd(-70.093,23.366999,21.894009, 1.39) pt3dadd(-70.093,23.922998,18.560009, 1.39)}
dend[582] {pt3dclear() pt3dadd(-61.2,23.922998,21.894009, 1.39) pt3dadd(-61.2,23.922998,20.224009, 1.39)}
dend[583] {pt3dclear() pt3dadd(-61.2,23.922998,20.224009, 1.33) pt3dadd(-69.04,23.922998,15.744009, 1.33)}
dend[584] {pt3dclear() pt3dadd(-69.04,23.922998,15.744009, 1.22) pt3dadd(-73.48,23.367998,16.85401, 1.22)}
dend[585] {pt3dclear() pt3dadd(-73.48,23.367998,16.85401, 1.11) pt3dadd(-77.920006,23.922998,15.74401, 1.11)}
dend[586] {pt3dclear() pt3dadd(-69.04,23.922998,15.744009, 1.22) pt3dadd(-72.928,25.033998,12.411009, 1.22)}
dend[587] {pt3dclear() pt3dadd(-72.928,25.033998,12.411009, 1.11) pt3dadd(-85.815,24.447998,4.796009, 1.11)}
dend[588] {pt3dclear() pt3dadd(-47.767002,25.043,56.509007, 2.0) pt3dadd(-53.321003,25.043,52.621006, 2.0)}
dend[589] {pt3dclear() pt3dadd(-53.321003,25.043,52.621006, 1.72) pt3dadd(-57.769005,25.043,49.285007, 1.72)}
dend[590] {pt3dclear() pt3dadd(-57.769005,25.043,49.285007, 1.61) pt3dadd(-59.436005,25.043,46.507008, 1.61)}
dend[591] {pt3dclear() pt3dadd(-59.436005,25.043,46.507008, 1.61) pt3dadd(-60.546005,25.043,42.62201, 1.61)}
dend[592] {pt3dclear() pt3dadd(-60.546005,25.043,42.62201, 1.67) pt3dadd(-56.659004,25.043,39.29001, 1.67)}
dend[593] {pt3dclear() pt3dadd(-56.659004,25.043,39.29001, 1.44) pt3dadd(-55.549004,25.043,35.960007, 1.44)}
dend[594] {pt3dclear() pt3dadd(-55.549004,25.043,35.960007, 1.28) pt3dadd(-57.771004,25.598999,30.960007, 1.28)}
dend[595] {pt3dclear() pt3dadd(-57.771004,25.598999,30.960007, 1.22) pt3dadd(-59.437004,25.598999,27.072006, 1.22)}
dend[596] {pt3dclear() pt3dadd(-59.437004,25.598999,27.072006, 1.06) pt3dadd(-62.215004,25.598999,23.738007, 1.06)}
dend[597] {pt3dclear() pt3dadd(-60.546005,25.043,42.62201, 1.44) pt3dadd(-66.102005,26.154,39.84401, 1.44)}
dend[598] {pt3dclear() pt3dadd(-66.102005,26.154,39.84401, 1.11) pt3dadd(-78.386,25.036999,31.46801, 1.11)}
dend[599] {pt3dclear() pt3dadd(-78.386,25.036999,31.46801, 1.11) pt3dadd(-81.166,25.036999,29.24401, 1.11)}
}
proc basic_shape_extra_6(){
dend[600] {pt3dclear() pt3dadd(-81.166,25.036999,29.24401, 1.06) pt3dadd(-83.39,25.036999,25.907011, 1.06)}
dend[601] {pt3dclear() pt3dadd(-83.39,25.036999,25.907011, 1.0) pt3dadd(-86.344,25.036999,18.81801, 1.0)}
dend[602] {pt3dclear() pt3dadd(-86.344,25.036999,18.81801, 0.94) pt3dadd(-88.564,25.036999,16.598011, 0.94)}
dend[603] {pt3dclear() pt3dadd(-88.564,25.036999,16.598011, 0.89) pt3dadd(-89.674,25.036999,15.488011, 0.89)}
dend[604] {pt3dclear() pt3dadd(-88.564,25.036999,16.598011, 0.89) pt3dadd(-87.454,26.147,14.377011, 0.89)}
dend[605] {pt3dclear() pt3dadd(-78.386,25.036999,31.46801, 1.0) pt3dadd(-77.83,25.036999,28.13401, 1.0)}
dend[606] {pt3dclear() pt3dadd(-77.83,25.036999,28.13401, 0.89) pt3dadd(-75.213005,25.690998,24.86301, 0.89)}
dend[607] {pt3dclear() pt3dadd(-75.213005,25.690998,24.86301, 0.89) pt3dadd(-70.185005,25.131998,22.629011, 0.89)}
dend[608] {pt3dclear() pt3dadd(-75.213005,25.690998,24.86301, 1.17) pt3dadd(-76.879005,27.356998,20.41901, 1.17)}
dend[609] {pt3dclear() pt3dadd(-76.879005,27.356998,20.41901, 1.39) pt3dadd(-79.101006,25.690998,15.97501, 1.39)}
dend[610] {pt3dclear() pt3dadd(-79.101006,25.690998,15.97501, 1.39) pt3dadd(-82.991005,25.690998,13.75201, 1.39)}
dend[611] {pt3dclear() pt3dadd(-82.991005,25.690998,13.75201, 1.28) pt3dadd(-87.98801,25.690998,9.866011, 1.28)}
dend[612] {pt3dclear() pt3dadd(-87.98801,25.690998,9.866011, 1.11) pt3dadd(-89.146,25.690998,4.653011, 1.11)}
dend[613] {pt3dclear() pt3dadd(-79.101006,25.690998,15.97501, 1.22) pt3dadd(-78.545006,25.690998,12.08401, 1.22)}
dend[614] {pt3dclear() pt3dadd(-78.545006,25.690998,12.08401, 1.11) pt3dadd(-81.378006,25.690998,3.5840101, 1.11)}
dend[615] {pt3dclear() pt3dadd(-77.83,25.036999,28.13401, 1.0) pt3dadd(-78.94,25.036999,25.35801, 1.0)}
dend[616] {pt3dclear() pt3dadd(-57.769005,25.043,49.285007, 1.44) pt3dadd(-64.435005,26.709,47.619007, 1.44)}
dend[617] {pt3dclear() pt3dadd(-64.435005,26.709,47.619007, 1.11) pt3dadd(-68.880005,27.265,45.952007, 1.11)}
dend[618] {pt3dclear() pt3dadd(-68.880005,27.265,45.952007, 1.11) pt3dadd(-80.776,26.67,33.461006, 1.11)}
dend[619] {pt3dclear() pt3dadd(-68.880005,27.265,45.952007, 1.11) pt3dadd(-73.880005,27.265,45.952007, 1.11)}
dend[620] {pt3dclear() pt3dadd(-73.880005,27.265,45.952007, 1.17) pt3dadd(-78.880005,27.821,44.285007, 1.17)}
dend[621] {pt3dclear() pt3dadd(-78.880005,27.821,44.285007, 1.44) pt3dadd(-82.76501,26.710999,42.620007, 1.44)}
dend[622] {pt3dclear() pt3dadd(-82.76501,26.710999,42.620007, 1.56) pt3dadd(-86.09701,26.710999,38.733006, 1.56)}
dend[623] {pt3dclear() pt3dadd(-86.09701,26.710999,38.733006, 1.28) pt3dadd(-86.09701,26.710999,33.733006, 1.28)}
dend[624] {pt3dclear() pt3dadd(-86.09701,26.710999,33.733006, 1.11) pt3dadd(-68.82001,26.710999,22.791004, 1.11)}
dend[625] {pt3dclear() pt3dadd(-86.09701,26.710999,38.733006, 1.28) pt3dadd(-91.657005,26.710999,38.733006, 1.28)}
dend[626] {pt3dclear() pt3dadd(-91.657005,26.710999,38.733006, 1.11) pt3dadd(-99.076004,25.569998,33.026005, 1.11)}
dend[627] {pt3dclear() pt3dadd(-99.076004,25.569998,33.026005, 1.06) pt3dadd(-100.186005,25.569998,29.696005, 1.06)}
dend[628] {pt3dclear() pt3dadd(-100.186005,25.569998,29.696005, 1.0) pt3dadd(-100.789,25.569998,8.595005, 1.0)}
dend[629] {pt3dclear() pt3dadd(-82.76501,26.710999,42.620007, 1.39) pt3dadd(-86.65301,26.710999,44.286007, 1.39)}
dend[630] {pt3dclear() pt3dadd(-86.65301,26.710999,44.286007, 1.11) pt3dadd(-94.98801,26.710999,45.953007, 1.11)}
dend[631] {pt3dclear() pt3dadd(-94.98801,26.710999,45.953007, 1.22) pt3dadd(-98.32101,26.710999,53.729008, 1.22)}
dend[632] {pt3dclear() pt3dadd(-94.98801,26.710999,45.953007, 1.22) pt3dadd(-98.325005,26.710999,43.729008, 1.22)}
dend[633] {pt3dclear() pt3dadd(-98.325005,26.710999,43.729008, 1.28) pt3dadd(-104.993004,26.154999,47.619007, 1.28)}
dend[634] {pt3dclear() pt3dadd(-104.993004,26.154999,47.619007, 1.17) pt3dadd(-113.32201,26.154999,50.395008, 1.17)}
dend[635] {pt3dclear() pt3dadd(-98.325005,26.710999,43.729008, 1.28) pt3dadd(-100.545006,26.710999,41.509007, 1.28)}
dend[636] {pt3dclear() pt3dadd(-100.545006,26.710999,41.509007, 1.22) pt3dadd(-97.215004,26.710999,38.17901, 1.22)}
dend[637] {pt3dclear() pt3dadd(-97.215004,26.710999,38.17901, 1.22) pt3dadd(-116.978004,24.666998,47.72001, 1.22)}
dend[638] {pt3dclear() pt3dadd(-97.215004,26.710999,38.17901, 1.22) pt3dadd(-96.01601,26.710999,28.584007, 1.22)}
dend[639] {pt3dclear() pt3dadd(-100.545006,26.710999,41.509007, 1.22) pt3dadd(-106.105,26.710999,41.509007, 1.22)}
dend[640] {pt3dclear() pt3dadd(-46.658,25.043,58.727005, 2.39) pt3dadd(-53.323,27.82,60.393005, 2.39)}
dend[641] {pt3dclear() pt3dadd(-53.323,27.82,60.393005, 1.44) pt3dadd(-59.432003,27.82,58.172005, 1.44)}
dend[642] {pt3dclear() pt3dadd(-59.432003,27.82,58.172005, 1.56) pt3dadd(-65.547005,27.264,55.949005, 1.56)}
dend[643] {pt3dclear() pt3dadd(-65.547005,27.264,55.949005, 1.5) pt3dadd(-68.87701,27.264,52.619003, 1.5)}
dend[644] {pt3dclear() pt3dadd(-68.87701,27.264,52.619003, 1.33) pt3dadd(-80.71701,27.264,48.672005, 1.33)}
dend[645] {pt3dclear() pt3dadd(-80.71701,27.264,48.672005, 1.33) pt3dadd(-74.39201,27.896,56.262005, 1.33)}
dend[646] {pt3dclear() pt3dadd(-80.71701,27.264,48.672005, 1.33) pt3dadd(-84.04701,27.264,47.562004, 1.33)}
dend[647] {pt3dclear() pt3dadd(-84.04701,27.264,47.562004, 1.17) pt3dadd(-87.38301,27.264,49.230003, 1.17)}
dend[648] {pt3dclear() pt3dadd(-87.38301,27.264,49.230003, 1.0) pt3dadd(-90.16201,27.264,52.009003, 1.0)}
dend[649] {pt3dclear() pt3dadd(-87.38301,27.264,49.230003, 0.89) pt3dadd(-94.05001,27.264,49.786003, 0.89)}
dend[650] {pt3dclear() pt3dadd(-94.05001,27.264,49.786003, 0.78) pt3dadd(-99.05001,27.82,48.119003, 0.78)}
dend[651] {pt3dclear() pt3dadd(-65.547005,27.264,55.949005, 1.33) pt3dadd(-70.545006,27.264,57.060005, 1.33)}
dend[652] {pt3dclear() pt3dadd(-70.545006,27.264,57.060005, 1.0) pt3dadd(-85.20701,27.264,61.571007, 1.0)}
dend[653] {pt3dclear() pt3dadd(-85.20701,27.264,61.571007, 1.0) pt3dadd(-86.31701,27.264,62.681007, 1.0)}
dend[654] {pt3dclear() pt3dadd(-85.20701,27.264,61.571007, 1.0) pt3dadd(-93.83001,27.264,63.56101, 1.0)}
dend[655] {pt3dclear() pt3dadd(-31.654999,22.821,68.177, 2.89) pt3dadd(-34.435997,23.376999,69.845, 2.89)}
dend[656] {pt3dclear() pt3dadd(-34.435997,23.376999,69.845, 1.89) pt3dadd(-38.326996,23.376999,70.401, 1.89)}
dend[657] {pt3dclear() pt3dadd(-38.326996,23.376999,70.401, 2.11) pt3dadd(-48.883995,24.487999,70.957, 2.11)}
dend[658] {pt3dclear() pt3dadd(-48.883995,24.487999,70.957, 2.22) pt3dadd(-46.662994,25.043,74.843, 2.22)}
dend[659] {pt3dclear() pt3dadd(-46.662994,25.043,74.843, 2.11) pt3dadd(-46.662994,25.043,76.513, 2.11)}
dend[660] {pt3dclear() pt3dadd(-46.662994,25.043,76.513, 1.83) pt3dadd(-46.662994,25.043,82.623, 1.83)}
dend[661] {pt3dclear() pt3dadd(-46.662994,25.043,82.623, 1.67) pt3dadd(-54.209995,25.671999,85.768, 1.67)}
dend[662] {pt3dclear() pt3dadd(-48.883995,24.487999,70.957, 2.61) pt3dadd(-50.551994,25.599998,70.401, 2.61)}
dend[663] {pt3dclear() pt3dadd(-50.551994,25.599998,70.401, 2.72) pt3dadd(-52.218994,25.599998,65.401, 2.72)}
dend[664] {pt3dclear() pt3dadd(-52.218994,25.599998,65.401, 2.17) pt3dadd(-53.327995,25.599998,63.737, 2.17)}
dend[665] {pt3dclear() pt3dadd(-53.327995,25.599998,63.737, 1.78) pt3dadd(-57.772995,25.599998,64.293, 1.78)}
dend[666] {pt3dclear() pt3dadd(-57.772995,25.599998,64.293, 1.5) pt3dadd(-63.886993,25.599998,69.296, 1.5)}
dend[667] {pt3dclear() pt3dadd(-53.327995,25.599998,63.737, 1.61) pt3dadd(-53.883995,24.486998,61.510998, 1.61)}
dend[668] {pt3dclear() pt3dadd(-50.551994,25.599998,70.401, 2.5) pt3dadd(-54.994995,24.488998,70.401, 2.5)}
dend[669] {pt3dclear() pt3dadd(-54.994995,24.488998,70.401, 1.78) pt3dadd(-56.105995,24.488998,75.399, 1.78)}
dend[670] {pt3dclear() pt3dadd(-54.994995,24.488998,70.401, 2.33) pt3dadd(-58.885994,26.156998,69.845, 2.33)}
dend[671] {pt3dclear() pt3dadd(-58.885994,26.156998,69.845, 2.61) pt3dadd(-63.328995,26.156998,63.18, 2.61)}
dend[672] {pt3dclear() pt3dadd(-63.328995,26.156998,63.18, 2.56) pt3dadd(-64.994995,26.156998,59.292, 2.56)}
dend[673] {pt3dclear() pt3dadd(-64.994995,26.156998,59.292, 2.11) pt3dadd(-65.549995,26.156998,56.517, 2.11)}
dend[674] {pt3dclear() pt3dadd(-65.549995,26.156998,56.517, 1.56) pt3dadd(-66.659996,26.156998,52.632, 1.56)}
dend[675] {pt3dclear() pt3dadd(-64.994995,26.156998,59.292, 1.89) pt3dadd(-68.325,26.156998,59.292, 1.89)}
dend[676] {pt3dclear() pt3dadd(-68.325,26.156998,59.292, 1.22) pt3dadd(-74.993996,26.156998,57.069, 1.22)}
dend[677] {pt3dclear() pt3dadd(-74.993996,26.156998,57.069, 1.11) pt3dadd(-80.548996,26.711998,57.624, 1.11)}
dend[678] {pt3dclear() pt3dadd(-74.993996,26.156998,57.069, 1.11) pt3dadd(-77.774994,26.712997,55.401, 1.11)}
dend[679] {pt3dclear() pt3dadd(-58.885994,26.156998,69.845, 2.11) pt3dadd(-63.882996,27.266998,67.624, 2.11)}
dend[680] {pt3dclear() pt3dadd(-63.882996,27.266998,67.624, 1.5) pt3dadd(-67.768,27.266998,66.514, 1.5)}
dend[681] {pt3dclear() pt3dadd(-67.768,27.266998,66.514, 1.44) pt3dadd(-71.653,27.266998,65.404, 1.44)}
dend[682] {pt3dclear() pt3dadd(-71.653,27.266998,65.404, 1.5) pt3dadd(-77.213,27.266998,64.292, 1.5)}
dend[683] {pt3dclear() pt3dadd(-77.213,27.266998,64.292, 1.5) pt3dadd(-78.88,27.266998,61.514, 1.5)}
dend[684] {pt3dclear() pt3dadd(-78.88,27.266998,61.514, 1.44) pt3dadd(-84.625,27.266998,55.195, 1.44)}
dend[685] {pt3dclear() pt3dadd(-84.625,27.266998,55.195, 1.33) pt3dadd(-83.515,27.266998,51.864998, 1.33)}
dend[686] {pt3dclear() pt3dadd(-83.515,27.266998,51.864998, 1.22) pt3dadd(-71.078,26.675,30.543999, 1.22)}
dend[687] {pt3dclear() pt3dadd(-84.625,27.266998,55.195, 1.28) pt3dadd(-89.065,26.711998,54.085, 1.28)}
dend[688] {pt3dclear() pt3dadd(-89.065,26.711998,54.085, 1.11) pt3dadd(-94.064,26.711998,54.64, 1.11)}
dend[689] {pt3dclear() pt3dadd(-94.064,26.711998,54.64, 1.17) pt3dadd(-98.507,26.711998,55.751, 1.17)}
dend[690] {pt3dclear() pt3dadd(-98.507,26.711998,55.751, 1.22) pt3dadd(-105.894005,26.143997,53.478, 1.22)}
dend[691] {pt3dclear() pt3dadd(-105.894005,26.143997,53.478, 1.17) pt3dadd(-108.116005,26.143997,54.033, 1.17)}
dend[692] {pt3dclear() pt3dadd(-108.116005,26.143997,54.033, 1.0) pt3dadd(-110.892006,27.253998,47.926003, 1.0)}
dend[693] {pt3dclear() pt3dadd(-108.116005,26.143997,54.033, 1.17) pt3dadd(-110.896,26.143997,54.033, 1.17)}
dend[694] {pt3dclear() pt3dadd(-110.896,26.143997,54.033, 1.11) pt3dadd(-113.114006,26.143997,52.924, 1.11)}
dend[695] {pt3dclear() pt3dadd(-113.114006,26.143997,52.924, 1.0) pt3dadd(-112.005005,26.143997,51.26, 1.0)}
dend[696] {pt3dclear() pt3dadd(-77.213,27.266998,64.292, 1.33) pt3dadd(-82.212,27.266998,63.737, 1.33)}
dend[697] {pt3dclear() pt3dadd(-82.212,27.266998,63.737, 1.06) pt3dadd(-83.325,27.822998,61.510998, 1.06)}
dend[698] {pt3dclear() pt3dadd(-82.212,27.266998,63.737, 1.06) pt3dadd(-86.102,27.266998,63.737, 1.06)}
dend[699] {pt3dclear() pt3dadd(-86.102,27.266998,63.737, 1.0) pt3dadd(-87.212,27.266998,63.737, 1.0)}
}
proc basic_shape_extra_7(){
dend[700] {pt3dclear() pt3dadd(-87.212,27.266998,63.737, 1.0) pt3dadd(-99.183,27.266998,60.317, 1.0)}
dend[701] {pt3dclear() pt3dadd(-87.212,27.266998,63.737, 1.28) pt3dadd(-91.102,27.266998,65.96, 1.28)}
dend[702] {pt3dclear() pt3dadd(-91.102,27.266998,65.96, 1.56) pt3dadd(-94.99,27.266998,64.294, 1.56)}
dend[703] {pt3dclear() pt3dadd(-94.99,27.266998,64.294, 1.5) pt3dadd(-101.104,27.266998,59.847, 1.5)}
dend[704] {pt3dclear() pt3dadd(-101.104,27.266998,59.847, 1.39) pt3dadd(-100.548,27.266998,56.513, 1.39)}
dend[705] {pt3dclear() pt3dadd(-100.548,27.266998,56.513, 1.33) pt3dadd(-101.659,27.266998,51.515, 1.33)}
dend[706] {pt3dclear() pt3dadd(-101.659,27.266998,51.515, 1.22) pt3dadd(-101.659,27.266998,49.295, 1.22)}
dend[707] {pt3dclear() pt3dadd(-101.659,27.266998,49.295, 1.0) pt3dadd(-101.103,27.266998,45.961, 1.0)}
dend[708] {pt3dclear() pt3dadd(-101.659,27.266998,49.295, 1.0) pt3dadd(-106.102,27.266998,48.184, 1.0)}
dend[709] {pt3dclear() pt3dadd(-101.104,27.266998,59.847, 1.39) pt3dadd(-105.544,27.266998,59.847, 1.39)}
dend[710] {pt3dclear() pt3dadd(-105.544,27.266998,59.847, 1.33) pt3dadd(-110.544,27.266998,58.18, 1.33)}
dend[711] {pt3dclear() pt3dadd(-110.544,27.266998,58.18, 1.22) pt3dadd(-114.987,27.266998,59.291, 1.22)}
dend[712] {pt3dclear() pt3dadd(-110.544,27.266998,58.18, 1.22) pt3dadd(-112.211,27.266998,55.402, 1.22)}
dend[713] {pt3dclear() pt3dadd(-112.211,27.266998,55.402, 1.11) pt3dadd(-111.1,27.266998,50.404, 1.11)}
dend[714] {pt3dclear() pt3dadd(-91.102,27.266998,65.96, 1.33) pt3dadd(-91.102,28.376999,68.736, 1.33)}
dend[715] {pt3dclear() pt3dadd(-91.102,28.376999,68.736, 1.11) pt3dadd(-91.659,28.376999,70.406, 1.11)}
dend[716] {pt3dclear() pt3dadd(-33.316998,26.710999,80.402, 2.94) pt3dadd(-30.537998,27.822998,84.848, 2.94)}
dend[717] {pt3dclear() pt3dadd(-30.537998,27.822998,84.848, 1.67) pt3dadd(-26.646997,27.822998,92.63, 1.67)}
dend[718] {pt3dclear() pt3dadd(-26.646997,27.822998,92.63, 1.56) pt3dadd(-26.646997,28.932999,96.515, 1.56)}
dend[719] {pt3dclear() pt3dadd(-26.646997,28.932999,96.515, 1.44) pt3dadd(-32.127,28.932999,108.083, 1.44)}
dend[720] {pt3dclear() pt3dadd(-32.127,28.932999,108.083, 1.33) pt3dadd(-36.569,28.377998,111.414, 1.33)}
dend[721] {pt3dclear() pt3dadd(-36.569,28.377998,111.414, 1.22) pt3dadd(-38.238,28.377998,113.083, 1.22)}
dend[722] {pt3dclear() pt3dadd(-41.646996,27.821999,83.734, 3.72) pt3dadd(-46.088997,28.376999,80.403, 3.72)}
dend[723] {pt3dclear() pt3dadd(-46.088997,28.376999,80.403, 3.0) pt3dadd(-51.091995,28.932999,77.624, 3.0)}
dend[724] {pt3dclear() pt3dadd(-51.091995,28.932999,77.624, 2.78) pt3dadd(-56.089996,28.932999,76.513, 2.78)}
dend[725] {pt3dclear() pt3dadd(-56.089996,28.932999,76.513, 2.28) pt3dadd(-61.092995,28.376999,73.734, 2.28)}
dend[726] {pt3dclear() pt3dadd(-61.092995,28.376999,73.734, 1.78) pt3dadd(-66.091995,28.376999,75.956, 1.78)}
dend[727] {pt3dclear() pt3dadd(-61.092995,28.376999,73.734, 1.61) pt3dadd(-64.980995,28.376999,72.068, 1.61)}
dend[728] {pt3dclear() pt3dadd(-64.980995,28.376999,72.068, 1.61) pt3dadd(-68.31699,28.376999,70.4, 1.61)}
dend[729] {pt3dclear() pt3dadd(-68.31699,28.376999,70.4, 1.5) pt3dadd(-72.203995,28.376999,67.068, 1.5)}
dend[730] {pt3dclear() pt3dadd(-72.203995,28.376999,67.068, 1.22) pt3dadd(-78.313995,28.376999,67.068, 1.22)}
dend[731] {pt3dclear() pt3dadd(-78.313995,28.376999,67.068, 1.22) pt3dadd(-81.644,28.932,64.293, 1.22)}
dend[732] {pt3dclear() pt3dadd(-81.644,28.932,64.293, 1.06) pt3dadd(-81.644,28.932,62.623, 1.06)}
dend[733] {pt3dclear() pt3dadd(-81.644,28.932,62.623, 0.89) pt3dadd(-82.2,28.932,55.394, 0.89)}
dend[734] {pt3dclear() pt3dadd(-81.644,28.932,62.623, 0.89) pt3dadd(-86.644,28.932,60.956, 0.89)}
dend[735] {pt3dclear() pt3dadd(-78.313995,28.376999,67.068, 1.06) pt3dadd(-82.758995,30.043999,69.846, 1.06)}
dend[736] {pt3dclear() pt3dadd(-82.758995,30.043999,69.846, 0.89) pt3dadd(-93.38,30.043999,68.728, 0.89)}
dend[737] {pt3dclear() pt3dadd(-68.31699,28.376999,70.4, 1.33) pt3dadd(-78.869995,28.932,75.399, 1.33)}
dend[738] {pt3dclear() pt3dadd(-56.089996,28.932999,76.513, 2.0) pt3dadd(-59.42,29.487999,79.288, 2.0)}
dend[739] {pt3dclear() pt3dadd(-59.42,29.487999,79.288, 1.22) pt3dadd(-67.199,29.487999,77.066, 1.22)}
dend[740] {pt3dclear() pt3dadd(-67.199,29.487999,77.066, 1.22) pt3dadd(-71.646996,29.487999,73.73, 1.22)}
dend[741] {pt3dclear() pt3dadd(-71.646996,29.487999,73.73, 1.11) pt3dadd(-73.312996,29.487999,69.842, 1.11)}
dend[742] {pt3dclear() pt3dadd(-71.646996,29.487999,73.73, 1.11) pt3dadd(-74.424995,29.487999,75.397, 1.11)}
dend[743] {pt3dclear() pt3dadd(-67.199,29.487999,77.066, 1.11) pt3dadd(-70.528,30.043,77.621, 1.11)}
dend[744] {pt3dclear() pt3dadd(-59.42,29.487999,79.288, 1.28) pt3dadd(-62.754997,28.376,81.512, 1.28)}
dend[745] {pt3dclear() pt3dadd(-62.754997,28.376,81.512, 1.33) pt3dadd(-78.91499,28.932999,89.313, 1.33)}
dend[746] {pt3dclear() pt3dadd(-78.91499,28.932999,89.313, 1.33) pt3dadd(-95.62699,28.932999,94.326004, 1.33)}
dend[747] {pt3dclear() pt3dadd(-49.978996,27.821999,92.065, 5.11) pt3dadd(-54.977997,28.932999,88.732, 5.11)}
dend[748] {pt3dclear() pt3dadd(-54.977997,28.932999,88.732, 3.06) pt3dadd(-56.643997,28.932999,84.844, 3.06)}
dend[749] {pt3dclear() pt3dadd(-56.643997,28.932999,84.844, 2.06) pt3dadd(-62.757996,28.932999,79.841, 2.06)}
dend[750] {pt3dclear() pt3dadd(-62.757996,28.932999,79.841, 1.67) pt3dadd(-72.76299,28.932999,80.397, 1.67)}
dend[751] {pt3dclear() pt3dadd(-72.76299,28.932999,80.397, 1.11) pt3dadd(-76.09699,28.932999,83.175, 1.11)}
dend[752] {pt3dclear() pt3dadd(-72.76299,28.932999,80.397, 1.22) pt3dadd(-77.21099,28.932999,78.729004, 1.22)}
dend[753] {pt3dclear() pt3dadd(-77.21099,28.932999,78.729004, 1.0) pt3dadd(-83.31999,28.932999,76.508, 1.0)}
dend[754] {pt3dclear() pt3dadd(-77.21099,28.932999,78.729004, 1.0) pt3dadd(-77.76599,28.932999,73.177, 1.0)}
dend[755] {pt3dclear() pt3dadd(-77.76599,28.932999,73.177, 0.89) pt3dadd(-77.20999,28.932999,69.843, 0.89)}
dend[756] {pt3dclear() pt3dadd(-77.76599,28.932999,73.177, 0.89) pt3dadd(-86.90299,28.362,70.322, 0.89)}
dend[757] {pt3dclear() pt3dadd(-54.977997,28.932999,88.732, 3.06) pt3dadd(-63.871998,30.044998,88.176, 3.06)}
dend[758] {pt3dclear() pt3dadd(-63.871998,30.044998,88.176, 2.44) pt3dadd(-75.541,28.933998,86.509, 2.44)}
dend[759] {pt3dclear() pt3dadd(-75.541,28.933998,86.509, 2.78) pt3dadd(-79.427,29.488998,84.288, 2.78)}
dend[760] {pt3dclear() pt3dadd(-79.427,29.488998,84.288, 2.28) pt3dadd(-82.757,28.933998,86.508, 2.28)}
dend[761] {pt3dclear() pt3dadd(-82.757,28.933998,86.508, 1.78) pt3dadd(-86.647,28.933998,86.508, 1.78)}
dend[762] {pt3dclear() pt3dadd(-86.647,28.933998,86.508, 1.67) pt3dadd(-89.423004,28.933998,85.398, 1.67)}
dend[763] {pt3dclear() pt3dadd(-89.423004,28.933998,85.398, 1.56) pt3dadd(-92.787,28.933998,74.746, 1.56)}
dend[764] {pt3dclear() pt3dadd(-92.787,28.933998,74.746, 1.33) pt3dadd(-90.565,28.933998,69.747, 1.33)}
dend[765] {pt3dclear() pt3dadd(-90.565,28.933998,69.747, 1.11) pt3dadd(-87.229004,28.933998,65.299, 1.11)}
dend[766] {pt3dclear() pt3dadd(-92.787,28.933998,74.746, 1.33) pt3dadd(-96.121,28.933998,71.968, 1.33)}
dend[767] {pt3dclear() pt3dadd(-96.121,28.933998,71.968, 1.11) pt3dadd(-102.228004,28.378998,68.082, 1.11)}
dend[768] {pt3dclear() pt3dadd(-102.228004,28.378998,68.082, 1.11) pt3dadd(-103.41601,28.378998,63.328, 1.11)}
dend[769] {pt3dclear() pt3dadd(-103.41601,28.378998,63.328, 1.44) pt3dadd(-108.97101,28.378998,61.661, 1.44)}
dend[770] {pt3dclear() pt3dadd(-108.97101,28.378998,61.661, 1.56) pt3dadd(-116.18901,28.378998,58.329, 1.56)}
dend[771] {pt3dclear() pt3dadd(-108.97101,28.378998,61.661, 1.56) pt3dadd(-114.52701,27.267998,64.439, 1.56)}
dend[772] {pt3dclear() pt3dadd(-102.228004,28.378998,68.082, 1.22) pt3dadd(-107.226006,28.378998,69.193, 1.22)}
dend[773] {pt3dclear() pt3dadd(-107.226006,28.378998,69.193, 1.33) pt3dadd(-110.006004,28.378998,69.193, 1.33)}
dend[774] {pt3dclear() pt3dadd(-110.006004,28.378998,69.193, 1.33) pt3dadd(-125.018005,28.378998,60.297, 1.33)}
dend[775] {pt3dclear() pt3dadd(-110.006004,28.378998,69.193, 1.33) pt3dadd(-132.35,27.757998,74.779, 1.33)}
dend[776] {pt3dclear() pt3dadd(-79.427,29.488998,84.288, 2.06) pt3dadd(-80.537,28.378998,79.847, 2.06)}
dend[777] {pt3dclear() pt3dadd(-80.537,28.378998,79.847, 1.22) pt3dadd(-80.537,28.378998,75.407, 1.22)}
dend[778] {pt3dclear() pt3dadd(-75.541,28.933998,86.509, 2.39) pt3dadd(-85.543,29.489998,82.063, 2.39)}
dend[779] {pt3dclear() pt3dadd(-85.543,29.489998,82.063, 1.72) pt3dadd(-90.541,29.489998,74.844, 1.72)}
dend[780] {pt3dclear() pt3dadd(-90.541,29.489998,74.844, 1.22) pt3dadd(-90.541,29.489998,70.404, 1.22)}
dend[781] {pt3dclear() pt3dadd(-85.543,29.489998,82.063, 1.72) pt3dadd(-88.879,29.489998,83.731, 1.72)}
dend[782] {pt3dclear() pt3dadd(-88.879,29.489998,83.731, 1.44) pt3dadd(-105.709,29.489998,82.57, 1.44)}
dend[783] {pt3dclear() pt3dadd(-105.709,29.489998,82.57, 1.44) pt3dadd(-121.872,30.192997,73.434, 1.44)}
dend[784] {pt3dclear() pt3dadd(-105.709,29.489998,82.57, 1.44) pt3dadd(-113.088,29.489998,80.3, 1.44)}
dend[785] {pt3dclear() pt3dadd(-113.088,29.489998,80.3, 1.39) pt3dadd(-116.423996,29.489998,78.632, 1.39)}
dend[786] {pt3dclear() pt3dadd(-116.423996,29.489998,78.632, 1.33) pt3dadd(-128.096,29.489998,80.299, 1.33)}
dend[787] {pt3dclear() pt3dadd(-51.644997,25.044998,97.62, 5.5) pt3dadd(-54.978996,25.044998,98.176, 5.5)}
dend[788] {pt3dclear() pt3dadd(-54.978996,25.044998,98.176, 3.72) pt3dadd(-58.866997,28.377998,94.288, 3.72)}
dend[789] {pt3dclear() pt3dadd(-58.866997,28.377998,94.288, 2.17) pt3dadd(-63.864998,28.377998,93.177, 2.17)}
dend[790] {pt3dclear() pt3dadd(-63.864998,28.377998,93.177, 2.0) pt3dadd(-71.645,28.933998,93.733, 2.0)}
dend[791] {pt3dclear() pt3dadd(-71.645,28.933998,93.733, 1.83) pt3dadd(-76.09,28.933998,93.177, 1.83)}
dend[792] {pt3dclear() pt3dadd(-76.09,28.933998,93.177, 1.67) pt3dadd(-83.55499,28.933998,90.880005, 1.67)}
dend[793] {pt3dclear() pt3dadd(-83.55499,28.933998,90.880005, 1.39) pt3dadd(-85.77899,28.933998,88.100006, 1.39)}
dend[794] {pt3dclear() pt3dadd(-83.55499,28.933998,90.880005, 1.39) pt3dadd(-88.55399,28.378998,90.880005, 1.39)}
dend[795] {pt3dclear() pt3dadd(-88.55399,28.378998,90.880005, 1.11) pt3dadd(-89.66599,28.934998,87.54401, 1.11)}
dend[796] {pt3dclear() pt3dadd(-89.66599,28.934998,87.54401, 1.0) pt3dadd(-91.33499,28.934998,85.87501, 1.0)}
dend[797] {pt3dclear() pt3dadd(-88.55399,28.378998,90.880005, 1.11) pt3dadd(-92.44499,28.934998,90.880005, 1.11)}
dend[798] {pt3dclear() pt3dadd(-92.44499,28.934998,90.880005, 0.94) pt3dadd(-95.22299,28.934998,87.546005, 0.94)}
dend[799] {pt3dclear() pt3dadd(-95.22299,28.934998,87.546005, 0.78) pt3dadd(-97.44699,28.934998,84.20901, 0.78)}
}
proc basic_shape_extra_8(){
dend[800] {pt3dclear() pt3dadd(-97.44699,28.934998,84.20901, 0.89) pt3dadd(-95.22499,28.934998,79.21001, 0.89)}
dend[801] {pt3dclear() pt3dadd(-97.44699,28.934998,84.20901, 0.89) pt3dadd(-100.22499,28.934998,82.54201, 0.89)}
dend[802] {pt3dclear() pt3dadd(-100.22499,28.934998,82.54201, 1.0) pt3dadd(-103.00499,28.934998,80.31801, 1.0)}
dend[803] {pt3dclear() pt3dadd(-92.44499,28.934998,90.880005, 1.06) pt3dadd(-98.551994,28.934998,89.214005, 1.06)}
dend[804] {pt3dclear() pt3dadd(-98.551994,28.934998,89.214005, 1.0) pt3dadd(-100.218994,28.934998,86.436005, 1.0)}
dend[805] {pt3dclear() pt3dadd(-98.551994,28.934998,89.214005, 1.0) pt3dadd(-106.884995,30.601997,87.547005, 1.0)}
dend[806] {pt3dclear() pt3dadd(-106.884995,30.601997,87.547005, 0.89) pt3dadd(-103.550995,30.601997,81.990005, 0.89)}
dend[807] {pt3dclear() pt3dadd(-106.884995,30.601997,87.547005, 0.89) pt3dadd(-110.77599,30.601997,86.991005, 0.89)}
dend[808] {pt3dclear() pt3dadd(-71.645,28.933998,93.733, 1.61) pt3dadd(-74.975,28.933998,97.063, 1.61)}
dend[809] {pt3dclear() pt3dadd(-74.975,28.933998,97.063, 1.22) pt3dadd(-78.862,30.599998,103.172005, 1.22)}
dend[810] {pt3dclear() pt3dadd(-54.978996,25.044998,98.176, 3.56) pt3dadd(-59.420998,28.375998,98.731, 3.56)}
dend[811] {pt3dclear() pt3dadd(-59.420998,28.375998,98.731, 2.0) pt3dadd(-68.376,27.815998,102.089005, 2.0)}
dend[812] {pt3dclear() pt3dadd(-68.376,27.815998,102.089005, 1.67) pt3dadd(-71.713,27.815998,99.865005, 1.67)}
dend[813] {pt3dclear() pt3dadd(-71.713,27.815998,99.865005, 1.39) pt3dadd(-73.933,27.815998,97.645004, 1.39)}
dend[814] {pt3dclear() pt3dadd(-73.933,27.815998,97.645004, 1.44) pt3dadd(-80.598,27.815998,102.088005, 1.44)}
dend[815] {pt3dclear() pt3dadd(-73.933,27.815998,97.645004, 1.33) pt3dadd(-83.377,27.815998,98.201004, 1.33)}
dend[816] {pt3dclear() pt3dadd(-68.376,27.815998,102.089005, 1.94) pt3dadd(-76.707,28.926998,108.198006, 1.94)}
dend[817] {pt3dclear() pt3dadd(-76.707,28.926998,108.198006, 1.67) pt3dadd(-84.481,28.926998,106.532005, 1.67)}
dend[818] {pt3dclear() pt3dadd(-84.481,28.926998,106.532005, 1.61) pt3dadd(-91.701004,28.926998,106.532005, 1.61)}
dend[819] {pt3dclear() pt3dadd(-91.701004,28.926998,106.532005, 1.67) pt3dadd(-95.589005,29.481998,103.755005, 1.67)}
dend[820] {pt3dclear() pt3dadd(-95.589005,29.481998,103.755005, 1.56) pt3dadd(-97.809006,30.036999,102.090004, 1.56)}
dend[821] {pt3dclear() pt3dadd(-97.809006,30.036999,102.090004, 1.5) pt3dadd(-95.586006,30.036999,97.645004, 1.5)}
dend[822] {pt3dclear() pt3dadd(-95.586006,30.036999,97.645004, 1.22) pt3dadd(-87.80701,30.036999,95.423004, 1.22)}
dend[823] {pt3dclear() pt3dadd(-87.80701,30.036999,95.423004, 1.0) pt3dadd(-77.23301,30.036999,90.414, 1.0)}
dend[824] {pt3dclear() pt3dadd(-95.586006,30.036999,97.645004, 1.39) pt3dadd(-100.58501,30.036999,95.423004, 1.39)}
dend[825] {pt3dclear() pt3dadd(-100.58501,30.036999,95.423004, 1.17) pt3dadd(-103.36301,30.036999,91.533005, 1.17)}
dend[826] {pt3dclear() pt3dadd(-103.36301,30.036999,91.533005, 1.0) pt3dadd(-113.94101,30.036999,89.30601, 1.0)}
dend[827] {pt3dclear() pt3dadd(-113.94101,30.036999,89.30601, 1.11) pt3dadd(-118.38901,30.036999,85.41401, 1.11)}
dend[828] {pt3dclear() pt3dadd(-118.38901,30.036999,85.41401, 1.22) pt3dadd(-122.837006,30.036999,80.96601, 1.22)}
dend[829] {pt3dclear() pt3dadd(-122.837006,30.036999,80.96601, 1.22) pt3dadd(-121.171005,30.036999,73.19201, 1.22)}
dend[830] {pt3dclear() pt3dadd(-122.837006,30.036999,80.96601, 1.22) pt3dadd(-126.725006,29.481998,76.52301, 1.22)}
dend[831] {pt3dclear() pt3dadd(-113.94101,30.036999,89.30601, 1.11) pt3dadd(-116.71901,30.036999,93.19601, 1.11)}
dend[832] {pt3dclear() pt3dadd(-116.71901,30.036999,93.19601, 1.22) pt3dadd(-132.67001,30.036999,104.04301, 1.22)}
dend[833] {pt3dclear() pt3dadd(-100.58501,30.036999,95.423004, 1.28) pt3dadd(-103.91501,30.036999,95.423004, 1.28)}
dend[834] {pt3dclear() pt3dadd(-103.91501,30.036999,95.423004, 1.22) pt3dadd(-117.34801,30.036999,103.01501, 1.22)}
dend[835] {pt3dclear() pt3dadd(-117.34801,30.036999,103.01501, 1.06) pt3dadd(-119.57201,30.036999,101.34701, 1.06)}
dend[836] {pt3dclear() pt3dadd(-103.91501,30.036999,95.423004, 1.28) pt3dadd(-110.02501,30.036999,96.534004, 1.28)}
dend[837] {pt3dclear() pt3dadd(-110.02501,30.036999,96.534004, 1.22) pt3dadd(-112.80301,28.925999,93.200005, 1.22)}
dend[838] {pt3dclear() pt3dadd(-112.80301,28.925999,93.200005, 1.11) pt3dadd(-117.80401,29.481998,89.310005, 1.11)}
dend[839] {pt3dclear() pt3dadd(-117.80401,29.481998,89.310005, 1.17) pt3dadd(-120.58401,30.037998,86.53001, 1.17)}
dend[840] {pt3dclear() pt3dadd(-120.58401,30.037998,86.53001, 1.11) pt3dadd(-118.91701,29.481998,81.53001, 1.11)}
dend[841] {pt3dclear() pt3dadd(-120.58401,30.037998,86.53001, 1.17) pt3dadd(-123.921005,30.037998,84.30601, 1.17)}
dend[842] {pt3dclear() pt3dadd(-123.921005,30.037998,84.30601, 1.11) pt3dadd(-129.476,30.037998,82.63901, 1.11)}
dend[843] {pt3dclear() pt3dadd(-129.476,30.037998,82.63901, 1.0) pt3dadd(-136.143,30.037998,83.19501, 1.0)}
dend[844] {pt3dclear() pt3dadd(-110.02501,30.036999,96.534004, 1.11) pt3dadd(-115.02501,30.036999,99.312004, 1.11)}
dend[845] {pt3dclear() pt3dadd(-115.02501,30.036999,99.312004, 0.89) pt3dadd(-131.11101,30.036999,103.908005, 0.89)}
dend[846] {pt3dclear() pt3dadd(-131.11101,30.036999,103.908005, 1.06) pt3dadd(-136.11,30.036999,106.130005, 1.06)}
dend[847] {pt3dclear() pt3dadd(-136.11,30.036999,106.130005, 1.22) pt3dadd(-143.889,30.036999,108.908005, 1.22)}
dend[848] {pt3dclear() pt3dadd(-97.809006,30.036999,102.090004, 1.39) pt3dadd(-100.031006,30.036999,101.535, 1.39)}
dend[849] {pt3dclear() pt3dadd(-100.031006,30.036999,101.535, 1.06) pt3dadd(-104.475006,30.592999,99.313, 1.06)}
dend[850] {pt3dclear() pt3dadd(-100.031006,30.036999,101.535, 1.17) pt3dadd(-104.479004,30.036999,105.983, 1.17)}
dend[851] {pt3dclear() pt3dadd(-104.479004,30.036999,105.983, 1.11) pt3dadd(-101.80601,30.036999,115.339005, 1.11)}
dend[852] {pt3dclear() pt3dadd(-91.701004,28.926998,106.532005, 1.44) pt3dadd(-98.369,28.926998,107.643005, 1.44)}
dend[853] {pt3dclear() pt3dadd(-98.369,28.926998,107.643005, 1.11) pt3dadd(-101.149,28.926998,107.643005, 1.11)}
dend[854] {pt3dclear() pt3dadd(-76.707,28.926998,108.198006, 1.72) pt3dadd(-77.816,28.926998,110.41601, 1.72)}
dend[855] {pt3dclear() pt3dadd(-77.816,28.926998,110.41601, 1.89) pt3dadd(-79.482,28.926998,114.30401, 1.89)}
dend[856] {pt3dclear() pt3dadd(-79.482,28.926998,114.30401, 1.83) pt3dadd(-78.372,30.590998,117.07801, 1.83)}
dend[857] {pt3dclear() pt3dadd(-78.372,30.590998,117.07801, 1.44) pt3dadd(-101.793,31.191998,120.08101, 1.44)}
dend[858] {pt3dclear() pt3dadd(-78.372,30.590998,117.07801, 1.44) pt3dadd(-100.17,31.293997,129.03201, 1.44)}
dend[859] {pt3dclear() pt3dadd(-79.482,28.926998,114.30401, 1.89) pt3dadd(-85.042,30.594997,115.41601, 1.89)}
dend[860] {pt3dclear() pt3dadd(-85.042,30.594997,115.41601, 1.56) pt3dadd(-110.188,30.594997,113.62001, 1.56)}
dend[861] {pt3dclear() pt3dadd(-110.188,30.594997,113.62001, 1.5) pt3dadd(-112.406006,30.594997,112.51101, 1.5)}
dend[862] {pt3dclear() pt3dadd(-112.406006,30.594997,112.51101, 1.44) pt3dadd(-125.26301,32.271996,100.21301, 1.44)}
dend[863] {pt3dclear() pt3dadd(-125.26301,32.271996,100.21301, 1.5) pt3dadd(-129.15001,32.271996,94.10501, 1.5)}
dend[864] {pt3dclear() pt3dadd(-129.15001,32.271996,94.10501, 1.44) pt3dadd(-134.15001,31.160995,85.21501, 1.44)}
dend[865] {pt3dclear() pt3dadd(-110.188,30.594997,113.62001, 1.44) pt3dadd(-117.968,31.150997,115.84301, 1.44)}
dend[866] {pt3dclear() pt3dadd(-117.968,31.150997,115.84301, 1.39) pt3dadd(-123.523,31.150997,117.51001, 1.39)}
dend[867] {pt3dclear() pt3dadd(-123.523,31.150997,117.51001, 1.44) pt3dadd(-132.742,29.998997,115.78101, 1.44)}
dend[868] {pt3dclear() pt3dadd(-132.742,29.998997,115.78101, 1.44) pt3dadd(-131.074,29.998997,113.557014, 1.44)}
dend[869] {pt3dclear() pt3dadd(-132.742,29.998997,115.78101, 1.44) pt3dadd(-151.14401,29.998997,112.81301, 1.44)}
dend[870] {pt3dclear() pt3dadd(-123.523,31.150997,117.51001, 1.44) pt3dadd(-132.584,30.584997,123.73901, 1.44)}
dend[871] {pt3dclear() pt3dadd(-132.584,30.584997,123.73901, 1.44) pt3dadd(-136.474,30.584997,120.96101, 1.44)}
dend[872] {pt3dclear() pt3dadd(-132.584,30.584997,123.73901, 1.44) pt3dadd(-138.939,29.313997,137.72002, 1.44)}
dend[873] {pt3dclear() pt3dadd(-52.754997,30.598,109.28001, 3.28) pt3dadd(-48.309998,30.598,111.503006, 3.28)}
dend[874] {pt3dclear() pt3dadd(-48.309998,30.598,111.503006, 2.11) pt3dadd(-44.421997,30.598,117.05701, 2.11)}
dend[875] {pt3dclear() pt3dadd(-44.421997,30.598,117.05701, 1.72) pt3dadd(-39.421997,30.598,117.05701, 1.72)}
dend[876] {pt3dclear() pt3dadd(-39.421997,30.598,117.05701, 1.33) pt3dadd(-36.091995,30.598,117.05701, 1.33)}
dend[877] {pt3dclear() pt3dadd(-44.421997,30.598,117.05701, 1.72) pt3dadd(-45.531998,31.153,121.49701, 1.72)}
dend[878] {pt3dclear() pt3dadd(-45.531998,31.153,121.49701, 1.33) pt3dadd(-52.295998,30.589,137.84401, 1.33)}
dend[879] {pt3dclear() pt3dadd(-52.295998,30.589,137.84401, 1.17) pt3dadd(-50.069996,31.702002,138.40001, 1.17)}
dend[880] {pt3dclear() pt3dadd(-50.069996,31.702002,138.40001, 1.0) pt3dadd(-46.184998,30.592001,138.40001, 1.0)}
dend[881] {pt3dclear() pt3dadd(-52.295998,30.589,137.84401, 1.17) pt3dadd(-56.183,31.144001,141.17601, 1.17)}
dend[882] {pt3dclear() pt3dadd(-56.183,31.144001,141.17601, 1.0) pt3dadd(-60.260998,31.144001,155.156, 1.0)}
dend[883] {pt3dclear() pt3dadd(-60.260998,31.144001,155.156, 1.0) pt3dadd(-54.439,31.144001,170.292, 1.0)}
dend[884] {pt3dclear() pt3dadd(-63.311996,30.598,135.95001, 4.0) pt3dadd(-75.53,30.598,138.727, 4.0)}
dend[885] {pt3dclear() pt3dadd(-75.53,30.598,138.727, 2.44) pt3dadd(-80.53,30.598,138.727, 2.44)}
dend[886] {pt3dclear() pt3dadd(-80.53,30.598,138.727, 2.06) pt3dadd(-79.975,30.043,142.056, 2.06)}
dend[887] {pt3dclear() pt3dadd(-79.975,30.043,142.056, 1.44) pt3dadd(-77.669,31.196,163.39099, 1.44)}
dend[888] {pt3dclear() pt3dadd(-80.53,30.598,138.727, 2.28) pt3dadd(-84.415,30.598,137.617, 2.28)}
dend[889] {pt3dclear() pt3dadd(-84.415,30.598,137.617, 2.44) pt3dadd(-87.745,30.598,136.507, 2.44)}
dend[890] {pt3dclear() pt3dadd(-87.745,30.598,136.507, 3.0) pt3dadd(-90.524,30.598,133.728, 3.0)}
dend[891] {pt3dclear() pt3dadd(-90.524,30.598,133.728, 2.61) pt3dadd(-95.520004,31.153,130.397, 2.61)}
dend[892] {pt3dclear() pt3dadd(-95.520004,31.153,130.397, 2.39) pt3dadd(-101.07201,31.153,128.17601, 2.39)}
dend[893] {pt3dclear() pt3dadd(-101.07201,31.153,128.17601, 2.28) pt3dadd(-104.408005,31.153,123.72801, 2.28)}
dend[894] {pt3dclear() pt3dadd(-104.408005,31.153,123.72801, 1.89) pt3dadd(-108.296005,31.153,118.17401, 1.89)}
dend[895] {pt3dclear() pt3dadd(-108.296005,31.153,118.17401, 1.67) pt3dadd(-106.076004,31.153,115.95401, 1.67)}
dend[896] {pt3dclear() pt3dadd(-108.296005,31.153,118.17401, 1.5) pt3dadd(-117.740005,31.153,118.73001, 1.5)}
dend[897] {pt3dclear() pt3dadd(-101.07201,31.153,128.17601, 2.0) pt3dadd(-107.17901,32.263,130.95201, 2.0)}
dend[898] {pt3dclear() pt3dadd(-107.17901,32.263,130.95201, 1.44) pt3dadd(-113.84801,30.04,130.95201, 1.44)}
dend[899] {pt3dclear() pt3dadd(-113.84801,30.04,130.95201, 1.67) pt3dadd(-118.84701,28.929,126.50801, 1.67)}
}
proc basic_shape_extra_9(){
dend[900] {pt3dclear() pt3dadd(-118.84701,28.929,126.50801, 1.67) pt3dadd(-122.73801,28.373001,122.61701, 1.67)}
dend[901] {pt3dclear() pt3dadd(-87.745,30.598,136.507, 3.0) pt3dadd(-93.854004,30.598,139.284, 3.0)}
dend[902] {pt3dclear() pt3dadd(-93.854004,30.598,139.284, 2.33) pt3dadd(-99.968,30.598,134.28099, 2.33)}
dend[903] {pt3dclear() pt3dadd(-99.968,30.598,134.28099, 2.22) pt3dadd(-106.082,30.042,138.72699, 2.22)}
dend[904] {pt3dclear() pt3dadd(-106.082,30.042,138.72699, 2.78) pt3dadd(-111.08,30.042,139.83798, 2.78)}
dend[905] {pt3dclear() pt3dadd(-111.08,30.042,139.83798, 2.44) pt3dadd(-114.414,30.042,137.05998, 2.44)}
dend[906] {pt3dclear() pt3dadd(-114.414,30.042,137.05998, 1.89) pt3dadd(-117.751,30.042,134.83598, 1.89)}
dend[907] {pt3dclear() pt3dadd(-117.751,30.042,134.83598, 1.72) pt3dadd(-122.196,30.042,135.39198, 1.72)}
dend[908] {pt3dclear() pt3dadd(-122.196,30.042,135.39198, 1.5) pt3dadd(-124.419,30.042,130.94698, 1.5)}
dend[909] {pt3dclear() pt3dadd(-124.419,30.042,130.94698, 1.22) pt3dadd(-128.304,30.042,129.83698, 1.22)}
dend[910] {pt3dclear() pt3dadd(-128.304,30.042,129.83698, 1.17) pt3dadd(-129.414,30.042,132.61298, 1.17)}
dend[911] {pt3dclear() pt3dadd(-129.414,30.042,132.61298, 1.11) pt3dadd(-136.175,30.605,135.99397, 1.11)}
dend[912] {pt3dclear() pt3dadd(-128.304,30.042,129.83698, 1.17) pt3dadd(-132.752,30.042,128.16898, 1.17)}
dend[913] {pt3dclear() pt3dadd(-132.752,30.042,128.16898, 1.11) pt3dadd(-139.976,30.042,125.390976, 1.11)}
dend[914] {pt3dclear() pt3dadd(-122.196,30.042,135.39198, 1.83) pt3dadd(-128.304,29.487,138.72398, 1.83)}
dend[915] {pt3dclear() pt3dadd(-128.304,29.487,138.72398, 1.67) pt3dadd(-133.303,29.487,136.50198, 1.67)}
dend[916] {pt3dclear() pt3dadd(-128.304,29.487,138.72398, 1.67) pt3dadd(-131.635,30.042,143.16599, 1.67)}
dend[917] {pt3dclear() pt3dadd(-131.635,30.042,143.16599, 1.44) pt3dadd(-134.414,30.042,145.94499, 1.44)}
dend[918] {pt3dclear() pt3dadd(-111.08,30.042,139.83798, 2.22) pt3dadd(-113.859,31.154,144.84099, 2.22)}
dend[919] {pt3dclear() pt3dadd(-113.859,31.154,144.84099, 1.67) pt3dadd(-125.369,30.578999,149.44499, 1.67)}
dend[920] {pt3dclear() pt3dadd(-125.369,30.578999,149.44499, 1.5) pt3dadd(-128.7,31.133999,144.44899, 1.5)}
dend[921] {pt3dclear() pt3dadd(-125.369,30.578999,149.44499, 1.5) pt3dadd(-128.147,30.578999,152.77899, 1.5)}
dend[922] {pt3dclear() pt3dadd(-128.147,30.578999,152.77899, 1.33) pt3dadd(-129.257,30.578999,156.66399, 1.33)}
dend[923] {pt3dclear() pt3dadd(-106.082,30.042,138.72699, 2.22) pt3dadd(-107.193,30.042,143.72499, 2.22)}
dend[924] {pt3dclear() pt3dadd(-107.193,30.042,143.72499, 1.67) pt3dadd(-110.147,31.223,162.62799, 1.67)}
dend[925] {pt3dclear() pt3dadd(-110.147,31.223,162.62799, 1.67) pt3dadd(-116.659004,31.814999,182.16399, 1.67)}
dend[926] {pt3dclear() pt3dadd(-116.659004,31.814999,182.16399, 1.44) pt3dadd(-123.87701,31.814999,185.49599, 1.44)}
dend[927] {pt3dclear() pt3dadd(-93.854004,30.598,139.284, 2.11) pt3dadd(-93.299,32.264,145.94699, 2.11)}
dend[928] {pt3dclear() pt3dadd(-93.299,32.264,145.94699, 1.22) pt3dadd(-92.189,33.374,149.83199, 1.22)}
dend[929] {pt3dclear() pt3dadd(-92.189,33.374,149.83199, 1.17) pt3dadd(-87.191,36.151,157.05199, 1.17)}
dend[930] {pt3dclear() pt3dadd(-92.189,33.374,149.83199, 1.17) pt3dadd(-93.855,31.152,158.71799, 1.17)}
dend[931] {pt3dclear() pt3dadd(-93.855,31.152,158.71799, 1.11) pt3dadd(-93.855,31.152,163.71799, 1.11)}
dend[932] {pt3dclear() pt3dadd(-93.855,31.152,163.71799, 1.11) pt3dadd(-87.148,31.152,173.219, 1.11)}
dend[933] {pt3dclear() pt3dadd(-87.148,31.152,173.219, 1.0) pt3dadd(-86.593,31.152,178.21799, 1.0)}
dend[934] {pt3dclear() pt3dadd(-93.855,31.152,163.71799, 1.0) pt3dadd(-98.853004,31.707,168.16098, 1.0)}
dend[935] {pt3dclear() pt3dadd(-98.853004,31.707,168.16098, 0.89) pt3dadd(-98.298004,31.707,170.38298, 0.89)}
dend[936] {pt3dclear() pt3dadd(-98.298004,31.707,170.38298, 0.89) pt3dadd(-104.968,31.707,170.38298, 0.89)}
dend[937] {pt3dclear() pt3dadd(-98.298004,31.707,170.38298, 0.89) pt3dadd(-99.408005,31.152,174.82298, 0.89)}
dend[938] {pt3dclear() pt3dadd(-62.198997,31.711,139.28801, 4.17) pt3dadd(-68.867,31.711,140.399, 4.17)}
dend[939] {pt3dclear() pt3dadd(-68.867,31.711,140.399, 2.22) pt3dadd(-72.756,31.711,136.51001, 2.22)}
dend[940] {pt3dclear() pt3dadd(-72.756,31.711,136.51001, 1.89) pt3dadd(-77.754,31.156,132.06702, 1.89)}
dend[941] {pt3dclear() pt3dadd(-77.754,31.156,132.06702, 1.61) pt3dadd(-81.642,32.267,128.17902, 1.61)}
dend[942] {pt3dclear() pt3dadd(-68.867,31.711,140.399, 1.94) pt3dadd(-71.646996,31.711,142.623, 1.94)}
dend[943] {pt3dclear() pt3dadd(-71.646996,31.711,142.623, 1.33) pt3dadd(-77.199,32.266,142.623, 1.33)}
dend[944] {pt3dclear() pt3dadd(-77.199,32.266,142.623, 1.39) pt3dadd(-83.309,32.266,141.51201, 1.39)}
dend[945] {pt3dclear() pt3dadd(-83.309,32.266,141.51201, 1.44) pt3dadd(-87.754,32.266,139.289, 1.44)}
dend[946] {pt3dclear() pt3dadd(-87.754,32.266,139.289, 1.39) pt3dadd(-92.754,32.266,134.844, 1.39)}
dend[947] {pt3dclear() pt3dadd(-62.198997,31.711,141.50801, 3.61) pt3dadd(-58.87,32.266,142.063, 3.61)}
dend[948] {pt3dclear() pt3dadd(-58.87,32.266,142.063, 2.56) pt3dadd(-55.534,32.822,145.399, 2.56)}
dend[949] {pt3dclear() pt3dadd(-55.534,32.822,145.399, 2.5) pt3dadd(-51.649002,31.711998,143.73401, 2.5)}
dend[950] {pt3dclear() pt3dadd(-51.649002,31.711998,143.73401, 2.0) pt3dadd(-43.138,31.711998,145.436, 2.0)}
dend[951] {pt3dclear() pt3dadd(-43.138,31.711998,145.436, 2.11) pt3dadd(-40.915,31.711998,149.88101, 2.11)}
dend[952] {pt3dclear() pt3dadd(-40.915,31.711998,149.88101, 2.11) pt3dadd(-38.694,31.711998,155.43301, 2.11)}
dend[953] {pt3dclear() pt3dadd(-38.694,31.711998,155.43301, 2.0) pt3dadd(-35.916,31.711998,158.76701, 2.0)}
dend[954] {pt3dclear() pt3dadd(-35.916,31.711998,158.76701, 2.89) pt3dadd(-34.249,31.711998,163.76701, 2.89)}
dend[955] {pt3dclear() pt3dadd(-34.249,31.711998,163.76701, 2.83) pt3dadd(-29.809,31.711998,163.76701, 2.83)}
dend[956] {pt3dclear() pt3dadd(-29.809,31.711998,163.76701, 1.72) pt3dadd(-27.032,31.711998,168.21101, 1.72)}
dend[957] {pt3dclear() pt3dadd(-27.032,31.711998,168.21101, 1.56) pt3dadd(-22.004,31.711998,180.50201, 1.56)}
dend[958] {pt3dclear() pt3dadd(-22.004,31.711998,180.50201, 1.5) pt3dadd(-23.115,32.267,186.05501, 1.5)}
dend[959] {pt3dclear() pt3dadd(-23.115,32.267,186.05501, 1.44) pt3dadd(-20.893,32.822998,191.61101, 1.44)}
dend[960] {pt3dclear() pt3dadd(-22.004,31.711998,180.50201, 1.39) pt3dadd(-18.118,31.711998,185.49901, 1.39)}
dend[961] {pt3dclear() pt3dadd(-18.118,31.711998,185.49901, 1.22) pt3dadd(-16.45,31.711998,189.947, 1.22)}
dend[962] {pt3dclear() pt3dadd(-16.45,31.711998,189.947, 1.33) pt3dadd(-13.116001,33.378998,191.058, 1.33)}
dend[963] {pt3dclear() pt3dadd(-34.249,31.711998,163.76701, 2.61) pt3dadd(-30.36,31.711998,167.656, 2.61)}
dend[964] {pt3dclear() pt3dadd(-55.534,32.822,145.399, 2.56) pt3dadd(-55.534,32.266,151.514, 2.56)}
dend[965] {pt3dclear() pt3dadd(-55.534,32.266,151.514, 2.28) pt3dadd(-54.423,31.710999,157.067, 2.28)}
dend[966] {pt3dclear() pt3dadd(-54.423,31.710999,157.067, 2.44) pt3dadd(-46.029,31.710999,173.855, 2.44)}
dend[967] {pt3dclear() pt3dadd(-46.029,31.710999,173.855, 2.22) pt3dadd(-42.7,32.266,174.40999, 2.22)}
dend[968] {pt3dclear() pt3dadd(-42.7,32.266,174.40999, 2.0) pt3dadd(-37.659,32.266,181.34099, 2.0)}
dend[969] {pt3dclear() pt3dadd(-37.659,32.266,181.34099, 1.61) pt3dadd(-36.549,33.932,188.55899, 1.61)}
dend[970] {pt3dclear() pt3dadd(-36.549,33.932,188.55899, 1.22) pt3dadd(-35.994,32.267,190.77899, 1.22)}
dend[971] {pt3dclear() pt3dadd(-46.029,31.710999,173.855, 2.06) pt3dadd(-46.029,31.710999,179.965, 2.06)}
dend[972] {pt3dclear() pt3dadd(-46.029,31.710999,179.965, 1.67) pt3dadd(-47.695,31.710999,183.853, 1.67)}
dend[973] {pt3dclear() pt3dadd(-47.695,31.710999,183.853, 1.78) pt3dadd(-52.142,33.934,188.3, 1.78)}
dend[974] {pt3dclear() pt3dadd(-52.142,33.934,188.3, 2.0) pt3dadd(-53.253,33.934,197.19101, 2.0)}
dend[975] {pt3dclear() pt3dadd(-53.253,33.934,197.19101, 2.11) pt3dadd(-62.73,33.934,203.88101, 2.11)}
dend[976] {pt3dclear() pt3dadd(-62.73,33.934,203.88101, 2.11) pt3dadd(-60.496,32.816998,213.93501, 2.11)}
dend[977] {pt3dclear() pt3dadd(-60.496,32.816998,213.93501, 1.89) pt3dadd(-61.607,32.816998,223.93301, 1.89)}
dend[978] {pt3dclear() pt3dadd(-61.607,32.816998,223.93301, 1.5) pt3dadd(-68.275,32.816998,229.49002, 1.5)}
dend[979] {pt3dclear() pt3dadd(-61.607,32.816998,223.93301, 1.5) pt3dadd(-58.273,32.816998,228.93402, 1.5)}
dend[980] {pt3dclear() pt3dadd(-58.273,32.816998,228.93402, 1.33) pt3dadd(-60.494,32.816998,234.48602, 1.33)}
dend[981] {pt3dclear() pt3dadd(-60.496,32.816998,213.93501, 1.72) pt3dadd(-54.939,32.816998,220.60301, 1.72)}
dend[982] {pt3dclear() pt3dadd(-54.939,32.816998,220.60301, 1.33) pt3dadd(-53.793,33.39,236.08002, 1.33)}
dend[983] {pt3dclear() pt3dadd(-62.73,33.934,203.88101, 1.89) pt3dadd(-68.286,35.045,206.65901, 1.89)}
dend[984] {pt3dclear() pt3dadd(-68.286,35.045,206.65901, 1.67) pt3dadd(-71.622,34.489,209.99501, 1.67)}
dend[985] {pt3dclear() pt3dadd(-71.622,34.489,209.99501, 1.72) pt3dadd(-69.955,35.6,219.99602, 1.72)}
dend[986] {pt3dclear() pt3dadd(-69.955,35.6,219.99602, 1.61) pt3dadd(-63.291,35.045,228.88101, 1.61)}
dend[987] {pt3dclear() pt3dadd(-53.253,33.934,197.19101, 1.72) pt3dadd(-50.472,33.378,198.85901, 1.72)}
dend[988] {pt3dclear() pt3dadd(-50.472,33.378,198.85901, 1.33) pt3dadd(-44.228,33.946,214.186, 1.33)}
dend[989] {pt3dclear() pt3dadd(-44.228,33.946,214.186, 1.67) pt3dadd(-39.228,33.946,218.63101, 1.67)}
dend[990] {pt3dclear() pt3dadd(-62.199997,31.712002,158.725, 2.61) pt3dadd(-64.977,32.823,159.836, 2.61)}
dend[991] {pt3dclear() pt3dadd(-64.977,32.823,159.836, 1.67) pt3dadd(-75.011,32.823,170.428, 1.67)}
dend[992] {pt3dclear() pt3dadd(-64.977,32.823,159.836, 1.44) pt3dadd(-67.197,32.823,159.836, 1.44)}
dend[993] {pt3dclear() pt3dadd(-67.197,32.823,159.836, 1.22) pt3dadd(-71.641,32.823,162.61299, 1.22)}
dend[994] {pt3dclear() pt3dadd(-71.641,32.823,162.61299, 1.11) pt3dadd(-75.531,32.823,164.836, 1.11)}
dend[995] {pt3dclear() pt3dadd(-67.197,32.823,159.836, 1.11) pt3dadd(-72.198,32.823,156.502, 1.11)}
dend[996] {pt3dclear() pt3dadd(-72.198,32.823,156.502, 1.0) pt3dadd(-81.465,32.244003,158.819, 1.0)}
dend[997] {pt3dclear() pt3dadd(-72.198,32.823,156.502, 1.0) pt3dadd(-82.212,33.449,153.373, 1.0)}
dend[998] {pt3dclear() pt3dadd(-59.977997,31.156002,167.615, 3.28) pt3dadd(-66.09,31.712002,169.28201, 3.28)}
dend[999] {pt3dclear() pt3dadd(-66.09,31.712002,169.28201, 2.44) pt3dadd(-69.425995,31.712002,173.73001, 2.44)}
}
proc basic_shape_extra_10(){
dend[1000] {pt3dclear() pt3dadd(-69.425995,31.712002,173.73001, 2.06) pt3dadd(-73.870995,31.712002,175.95302, 2.06)}
dend[1001] {pt3dclear() pt3dadd(-60.532997,32.822002,174.834, 2.94) pt3dadd(-53.312996,32.822002,173.168, 2.94)}
dend[1002] {pt3dclear() pt3dadd(-53.312996,32.822002,173.168, 1.5) pt3dadd(-44.981995,33.377003,169.836, 1.5)}
dend[1003] {pt3dclear() pt3dadd(-61.642998,32.822002,178.719, 3.11) pt3dadd(-62.198997,32.822002,175.385, 3.11)}
dend[1004] {pt3dclear() pt3dadd(-67.754,31.155003,180.386, 2.56) pt3dadd(-68.31,31.155003,177.052, 2.56)}
dend[1005] {pt3dclear() pt3dadd(-68.31,31.155003,177.052, 1.83) pt3dadd(-68.31,31.710003,172.05301, 1.83)}
dend[1006] {pt3dclear() pt3dadd(-68.31,31.710003,172.05301, 1.39) pt3dadd(-68.866,31.710003,168.71901, 1.39)}
dend[1007] {pt3dclear() pt3dadd(-68.31,31.155003,177.052, 2.72) pt3dadd(-72.756,30.599003,183.166, 2.72)}
dend[1008] {pt3dclear() pt3dadd(-72.756,30.599003,183.166, 2.78) pt3dadd(-78.863,31.154003,179.28, 2.78)}
dend[1009] {pt3dclear() pt3dadd(-78.863,31.154003,179.28, 2.17) pt3dadd(-88.305,30.599003,174.837, 2.17)}
dend[1010] {pt3dclear() pt3dadd(-88.305,30.599003,174.837, 2.11) pt3dadd(-92.745,30.599003,174.837, 2.11)}
dend[1011] {pt3dclear() pt3dadd(-92.745,30.599003,174.837, 2.0) pt3dadd(-96.082,30.599003,172.613, 2.0)}
dend[1012] {pt3dclear() pt3dadd(-96.082,30.599003,172.613, 1.72) pt3dadd(-99.974,30.599003,168.16501, 1.72)}
dend[1013] {pt3dclear() pt3dadd(-99.974,30.599003,168.16501, 1.5) pt3dadd(-103.307,30.599003,162.05501, 1.5)}
dend[1014] {pt3dclear() pt3dadd(-103.307,30.599003,162.05501, 1.44) pt3dadd(-104.416,31.708002,160.94601, 1.44)}
dend[1015] {pt3dclear() pt3dadd(-104.416,31.708002,160.94601, 1.33) pt3dadd(-101.641,32.263,157.61601, 1.33)}
dend[1016] {pt3dclear() pt3dadd(-101.641,32.263,157.61601, 1.0) pt3dadd(-101.641,32.263,150.39601, 1.0)}
dend[1017] {pt3dclear() pt3dadd(-104.416,31.708002,160.94601, 1.28) pt3dadd(-106.08,31.708002,159.83702, 1.28)}
dend[1018] {pt3dclear() pt3dadd(-106.08,31.708002,159.83702, 1.11) pt3dadd(-108.164,32.403004,152.19601, 1.11)}
dend[1019] {pt3dclear() pt3dadd(-106.08,31.708002,159.83702, 1.28) pt3dadd(-115.522,31.708002,157.61502, 1.28)}
dend[1020] {pt3dclear() pt3dadd(-115.522,31.708002,157.61502, 1.28) pt3dadd(-117.744,32.263,154.83803, 1.28)}
dend[1021] {pt3dclear() pt3dadd(-115.522,31.708002,157.61502, 1.28) pt3dadd(-119.97,31.708002,159.28302, 1.28)}
dend[1022] {pt3dclear() pt3dadd(-119.97,31.708002,159.28302, 1.11) pt3dadd(-124.969,32.263,158.72803, 1.11)}
dend[1023] {pt3dclear() pt3dadd(-124.969,32.263,158.72803, 1.11) pt3dadd(-135.019,32.821,153.14502, 1.11)}
dend[1024] {pt3dclear() pt3dadd(-135.019,32.821,153.14502, 1.06) pt3dadd(-139.467,32.821,156.48102, 1.06)}
dend[1025] {pt3dclear() pt3dadd(-135.019,32.821,153.14502, 1.06) pt3dadd(-139.46199,32.821,146.48003, 1.06)}
dend[1026] {pt3dclear() pt3dadd(-139.46199,32.821,146.48003, 1.0) pt3dadd(-145.577,32.821,145.92403, 1.0)}
dend[1027] {pt3dclear() pt3dadd(-124.969,32.263,158.72803, 1.06) pt3dadd(-134.969,32.263,162.61703, 1.06)}
dend[1028] {pt3dclear() pt3dadd(-134.969,32.263,162.61703, 1.0) pt3dadd(-136.637,32.819,159.83603, 1.0)}
dend[1029] {pt3dclear() pt3dadd(-96.082,30.599003,172.613, 1.5) pt3dadd(-101.085,30.043003,175.39201, 1.5)}
dend[1030] {pt3dclear() pt3dadd(-101.085,30.043003,175.39201, 1.11) pt3dadd(-106.087,31.154003,180.39401, 1.11)}
dend[1031] {pt3dclear() pt3dadd(-106.087,31.154003,180.39401, 1.22) pt3dadd(-109.975,31.154003,185.94801, 1.22)}
dend[1032] {pt3dclear() pt3dadd(-109.975,31.154003,185.94801, 1.28) pt3dadd(-117.195,31.154003,187.61401, 1.28)}
dend[1033] {pt3dclear() pt3dadd(-117.195,31.154003,187.61401, 1.22) pt3dadd(-121.643,31.154003,191.50601, 1.22)}
dend[1034] {pt3dclear() pt3dadd(-72.756,30.599003,183.166, 2.5) pt3dadd(-73.311,31.154003,188.165, 2.5)}
dend[1035] {pt3dclear() pt3dadd(-73.311,31.154003,188.165, 1.67) pt3dadd(-72.2,31.154003,194.275, 1.67)}
dend[1036] {pt3dclear() pt3dadd(-72.2,31.154003,194.275, 1.56) pt3dadd(-76.09,31.154003,197.053, 1.56)}
dend[1037] {pt3dclear() pt3dadd(-76.09,31.154003,197.053, 1.44) pt3dadd(-87.406,31.154003,199.316, 1.44)}
dend[1038] {pt3dclear() pt3dadd(-87.406,31.154003,199.316, 1.61) pt3dadd(-95.735,31.154003,197.095, 1.61)}
dend[1039] {pt3dclear() pt3dadd(-95.735,31.154003,197.095, 1.72) pt3dadd(-104.624,32.265003,199.317, 1.72)}
dend[1040] {pt3dclear() pt3dadd(-104.624,32.265003,199.317, 1.67) pt3dadd(-107.402,32.265003,202.651, 1.67)}
dend[1041] {pt3dclear() pt3dadd(-107.402,32.265003,202.651, 1.5) pt3dadd(-116.844,32.265003,200.429, 1.5)}
dend[1042] {pt3dclear() pt3dadd(-107.402,32.265003,202.651, 1.5) pt3dadd(-107.957,32.820004,213.202, 1.5)}
dend[1043] {pt3dclear() pt3dadd(-107.957,32.820004,213.202, 1.33) pt3dadd(-123.525,32.820004,222.09799, 1.33)}
dend[1044] {pt3dclear() pt3dadd(-107.957,32.820004,213.202, 1.33) pt3dadd(-112.4,32.265003,217.09, 1.33)}
dend[1045] {pt3dclear() pt3dadd(-112.4,32.265003,217.09, 1.17) pt3dadd(-119.066,31.710003,227.08899, 1.17)}
dend[1046] {pt3dclear() pt3dadd(-119.066,31.710003,227.08899, 1.0) pt3dadd(-124.621,31.710003,228.756, 1.0)}
dend[1047] {pt3dclear() pt3dadd(-67.754,31.155003,180.386, 2.56) pt3dadd(-68.866,31.711002,186.501, 2.56)}
dend[1048] {pt3dclear() pt3dadd(-68.866,31.711002,186.501, 1.89) pt3dadd(-73.311,31.711002,185.945, 1.89)}
dend[1049] {pt3dclear() pt3dadd(-73.311,31.711002,185.945, 1.78) pt3dadd(-77.196,31.711002,184.835, 1.78)}
dend[1050] {pt3dclear() pt3dadd(-77.196,31.711002,184.835, 1.89) pt3dadd(-79.975,32.823,179.832, 1.89)}
dend[1051] {pt3dclear() pt3dadd(-79.975,32.823,179.832, 1.72) pt3dadd(-82.197,33.379,174.276, 1.72)}
dend[1052] {pt3dclear() pt3dadd(-82.197,33.379,174.276, 1.5) pt3dadd(-91.083,33.379,170.944, 1.5)}
dend[1053] {pt3dclear() pt3dadd(-91.083,33.379,170.944, 1.44) pt3dadd(-89.974,33.379,173.162, 1.44)}
dend[1054] {pt3dclear() pt3dadd(-82.197,33.379,174.276, 1.5) pt3dadd(-79.975,33.935,168.72, 1.5)}
dend[1055] {pt3dclear() pt3dadd(-79.975,33.935,168.72, 1.44) pt3dadd(-82.193,33.935,167.61101, 1.44)}
dend[1056] {pt3dclear() pt3dadd(-82.193,33.935,167.61101, 1.44) pt3dadd(-87.193,33.935,169.27802, 1.44)}
dend[1057] {pt3dclear() pt3dadd(-82.193,33.935,167.61101, 1.44) pt3dadd(-80.525,33.935,164.27501, 1.44)}
dend[1058] {pt3dclear() pt3dadd(-77.196,31.711002,184.835, 1.67) pt3dadd(-79.975,31.155003,192.059, 1.67)}
dend[1059] {pt3dclear() pt3dadd(-79.975,31.155003,192.059, 1.28) pt3dadd(-87.195,31.155003,192.059, 1.28)}
dend[1060] {pt3dclear() pt3dadd(-79.975,31.155003,192.059, 1.28) pt3dadd(-78.864,31.155003,200.395, 1.28)}
dend[1061] {pt3dclear() pt3dadd(-78.864,31.155003,200.395, 1.11) pt3dadd(-77.369995,31.155003,208.61, 1.11)}
dend[1062] {pt3dclear() pt3dadd(-68.866,31.711002,186.501, 1.61) pt3dadd(-67.755,31.711002,191.49901, 1.61)}
dend[1063] {pt3dclear() pt3dadd(-67.755,31.711002,191.49901, 1.33) pt3dadd(-69.976,31.711002,197.608, 1.33)}
dend[1064] {pt3dclear() pt3dadd(-69.976,31.711002,197.608, 1.56) pt3dadd(-78.863,31.711002,201.496, 1.56)}
dend[1065] {pt3dclear() pt3dadd(-78.863,31.711002,201.496, 1.39) pt3dadd(-82.197,31.711002,206.49701, 1.39)}
dend[1066] {pt3dclear() pt3dadd(-67.755,31.711002,191.49901, 1.17) pt3dadd(-63.310997,32.267002,194.27701, 1.17)}
dend[1067] {pt3dclear() pt3dadd(-63.310997,32.267002,194.27701, 1.06) pt3dadd(-57.201996,32.267002,206.49501, 1.06)}
dend[1068] {pt3dclear() pt3dadd(-63.310997,32.267002,194.27701, 1.06) pt3dadd(-58.310997,31.711002,195.94402, 1.06)}
dend[1069] {pt3dclear() pt3dadd(7.231,30.597,84.291, 3.67) pt3dadd(14.45,30.042,84.291, 3.67)}
dend[1070] {pt3dclear() pt3dadd(14.45,30.042,84.291, 2.11) pt3dadd(23.244,30.042,83.615, 2.11)}
dend[1071] {pt3dclear() pt3dadd(23.244,30.042,83.615, 2.11) pt3dadd(22.688,30.598,79.724, 2.11)}
dend[1072] {pt3dclear() pt3dadd(22.688,30.598,79.724, 1.94) pt3dadd(22.133,30.598,77.502, 1.94)}
dend[1073] {pt3dclear() pt3dadd(22.133,30.598,77.502, 1.5) pt3dadd(19.913,30.598,75.282, 1.5)}
dend[1074] {pt3dclear() pt3dadd(22.133,30.598,77.502, 1.5) pt3dadd(26.02,30.043,74.17, 1.5)}
dend[1075] {pt3dclear() pt3dadd(23.244,30.042,83.615, 1.67) pt3dadd(27.13,30.597,85.836, 1.67)}
dend[1076] {pt3dclear() pt3dadd(27.13,30.597,85.836, 1.22) pt3dadd(29.904999,30.597,86.391, 1.22)}
dend[1077] {pt3dclear() pt3dadd(29.904999,30.597,86.391, 1.22) pt3dadd(34.551,30.597,68.97, 1.22)}
dend[1078] {pt3dclear() pt3dadd(34.551,30.597,68.97, 1.11) pt3dadd(36.772,30.597,60.641, 1.11)}
dend[1079] {pt3dclear() pt3dadd(29.904999,30.597,86.391, 1.22) pt3dadd(34.348,30.597,87.502, 1.22)}
dend[1080] {pt3dclear() pt3dadd(34.348,30.597,87.502, 1.61) pt3dadd(39.908,30.597,88.614, 1.61)}
dend[1081] {pt3dclear() pt3dadd(39.908,30.597,88.614, 1.72) pt3dadd(42.13,31.153,83.614, 1.72)}
dend[1082] {pt3dclear() pt3dadd(42.13,31.153,83.614, 1.33) pt3dadd(42.13,31.153,79.724, 1.33)}
dend[1083] {pt3dclear() pt3dadd(42.13,31.153,79.724, 1.17) pt3dadd(37.686,31.709,76.946, 1.17)}
dend[1084] {pt3dclear() pt3dadd(37.686,31.709,76.946, 1.11) pt3dadd(30.352001,31.709,67.92, 1.11)}
dend[1085] {pt3dclear() pt3dadd(42.13,31.153,79.724, 1.17) pt3dadd(39.353,31.153,73.615, 1.17)}
dend[1086] {pt3dclear() pt3dadd(39.353,31.153,73.615, 1.11) pt3dadd(33.494,31.153,67.17, 1.11)}
dend[1087] {pt3dclear() pt3dadd(39.908,30.597,88.614, 1.56) pt3dadd(44.353,30.597,90.837, 1.56)}
dend[1088] {pt3dclear() pt3dadd(44.353,30.597,90.837, 1.11) pt3dadd(49.349,31.152,94.168, 1.11)}
dend[1089] {pt3dclear() pt3dadd(49.349,31.152,94.168, 1.11) pt3dadd(52.79,31.152,83.846, 1.11)}
dend[1090] {pt3dclear() pt3dadd(49.349,31.152,94.168, 1.11) pt3dadd(50.461,30.596,95.836, 1.11)}
dend[1091] {pt3dclear() pt3dadd(50.461,30.596,95.836, 1.11) pt3dadd(59.906,31.152,99.725, 1.11)}
dend[1092] {pt3dclear() pt3dadd(50.461,30.596,95.836, 1.11) pt3dadd(51.572,31.151001,102.501, 1.11)}
dend[1093] {pt3dclear() pt3dadd(51.572,31.151001,102.501, 1.06) pt3dadd(53.239,31.151001,110.836, 1.06)}
dend[1094] {pt3dclear() pt3dadd(6.1219997,30.597,85.955, 3.44) pt3dadd(2.2339997,31.152,90.398, 3.44)}
dend[1095] {pt3dclear() pt3dadd(2.2339997,31.152,90.398, 1.56) pt3dadd(-18.300001,30.565,106.23801, 1.56)}
dend[1096] {pt3dclear() pt3dadd(-18.300001,30.565,106.23801, 1.56) pt3dadd(-33.397003,30.006,104.561005, 1.56)}
dend[1097] {pt3dclear() pt3dadd(-33.397003,30.006,104.561005, 1.5) pt3dadd(-41.172005,31.117,101.784004, 1.5)}
dend[1098] {pt3dclear() pt3dadd(-41.172005,31.117,101.784004, 1.44) pt3dadd(-43.951004,31.117,99.005005, 1.44)}
dend[1099] {pt3dclear() pt3dadd(-18.300001,30.565,106.23801, 1.5) pt3dadd(-20.523,30.565,110.128006, 1.5)}
}
proc basic_shape_extra_11(){
dend[1100] {pt3dclear() pt3dadd(-20.523,30.565,110.128006, 1.22) pt3dadd(-18.856,30.565,115.128006, 1.22)}
dend[1101] {pt3dclear() pt3dadd(-18.856,30.565,115.128006, 0.83) pt3dadd(-17.187,30.565,116.797005, 0.83)}
dend[1102] {pt3dclear() pt3dadd(-18.856,30.565,115.128006, 0.83) pt3dadd(-19.411001,31.675001,115.68301, 0.83)}
dend[1103] {pt3dclear() pt3dadd(-20.523,30.565,110.128006, 1.06) pt3dadd(-22.189001,31.12,111.79401, 1.06)}
dend[1104] {pt3dclear() pt3dadd(-22.189001,31.12,111.79401, 0.67) pt3dadd(-38.439003,31.12,116.79401, 0.67)}
dend[1105] {pt3dclear() pt3dadd(-38.439003,31.12,116.79401, 0.67) pt3dadd(-42.799004,31.12,126.76001, 0.67)}
dend[1106] {pt3dclear() pt3dadd(-22.189001,31.12,111.79401, 0.67) pt3dadd(-36.920002,32.401,128.447, 0.67)}
dend[1107] {pt3dclear() pt3dadd(7.7889996,30.597,88.733, 3.89) pt3dadd(13.341,30.597,89.288, 3.89)}
dend[1108] {pt3dclear() pt3dadd(13.341,30.597,89.288, 2.67) pt3dadd(18.895,30.597,93.176, 2.67)}
dend[1109] {pt3dclear() pt3dadd(18.895,30.597,93.176, 2.5) pt3dadd(21.675001,30.597,93.176, 2.5)}
dend[1110] {pt3dclear() pt3dadd(21.675001,30.597,93.176, 2.0) pt3dadd(21.675001,30.597,88.736, 2.0)}
dend[1111] {pt3dclear() pt3dadd(21.675001,30.597,88.736, 1.61) pt3dadd(21.675001,31.707,85.96, 1.61)}
dend[1112] {pt3dclear() pt3dadd(21.675001,30.597,93.176, 1.78) pt3dadd(26.12,31.153,94.843, 1.78)}
dend[1113] {pt3dclear() pt3dadd(26.12,31.153,94.843, 1.56) pt3dadd(30.564001,30.597,97.065, 1.56)}
dend[1114] {pt3dclear() pt3dadd(30.564001,30.597,97.065, 1.39) pt3dadd(35.008,30.597,94.288, 1.39)}
dend[1115] {pt3dclear() pt3dadd(35.008,30.597,94.288, 1.22) pt3dadd(38.895,31.152,95.398, 1.22)}
dend[1116] {pt3dclear() pt3dadd(30.564001,30.597,97.065, 1.61) pt3dadd(30.564001,30.597,99.285, 1.61)}
dend[1117] {pt3dclear() pt3dadd(30.564001,30.597,99.285, 1.5) pt3dadd(35.563,31.708,102.618004, 1.5)}
dend[1118] {pt3dclear() pt3dadd(35.563,31.708,102.618004, 1.33) pt3dadd(41.174,32.269,108.79, 1.33)}
dend[1119] {pt3dclear() pt3dadd(41.174,32.269,108.79, 1.22) pt3dadd(40.619,31.714,113.789, 1.22)}
dend[1120] {pt3dclear() pt3dadd(40.619,31.714,113.789, 1.11) pt3dadd(50.021,31.714,124.444, 1.11)}
dend[1121] {pt3dclear() pt3dadd(41.174,32.269,108.79, 1.17) pt3dadd(47.838,32.269,113.788, 1.17)}
dend[1122] {pt3dclear() pt3dadd(47.838,32.269,113.788, 1.0) pt3dadd(65.856,32.936,113.788, 1.0)}
dend[1123] {pt3dclear() pt3dadd(47.838,32.269,113.788, 1.0) pt3dadd(51.753002,33.388,123.856, 1.0)}
dend[1124] {pt3dclear() pt3dadd(30.564001,30.597,99.285, 1.33) pt3dadd(29.453001,30.597,103.728004, 1.33)}
dend[1125] {pt3dclear() pt3dadd(29.453001,30.597,103.728004, 1.17) pt3dadd(25.564001,30.597,107.617004, 1.17)}
dend[1126] {pt3dclear() pt3dadd(25.564001,30.597,107.617004, 1.33) pt3dadd(26.12,30.597,112.062004, 1.33)}
dend[1127] {pt3dclear() pt3dadd(26.12,30.597,112.062004, 1.22) pt3dadd(27.787,32.264,120.955, 1.22)}
dend[1128] {pt3dclear() pt3dadd(18.895,30.597,93.176, 2.33) pt3dadd(20.006,30.597,97.619, 2.33)}
dend[1129] {pt3dclear() pt3dadd(20.006,30.597,97.619, 1.5) pt3dadd(17.782001,30.597,100.399, 1.5)}
dend[1130] {pt3dclear() pt3dadd(17.782001,30.597,100.399, 1.33) pt3dadd(17.782001,31.152,103.174, 1.33)}
dend[1131] {pt3dclear() pt3dadd(17.782001,31.152,103.174, 1.22) pt3dadd(18.337002,31.152,108.173004, 1.22)}
dend[1132] {pt3dclear() pt3dadd(18.337002,31.152,108.173004, 1.11) pt3dadd(25.580002,31.152,123.774, 1.11)}
dend[1133] {pt3dclear() pt3dadd(20.006,30.597,97.619, 1.39) pt3dadd(23.338001,30.042,103.727005, 1.39)}
dend[1134] {pt3dclear() pt3dadd(23.338001,30.042,103.727005, 1.11) pt3dadd(25.005001,30.598,112.615005, 1.11)}
dend[1135] {pt3dclear() pt3dadd(7.2339997,30.597,93.732, 3.83) pt3dadd(1.6819997,30.597,98.174, 3.83)}
dend[1136] {pt3dclear() pt3dadd(1.6819997,30.597,98.174, 1.44) pt3dadd(-6.655,30.597,102.065, 1.44)}
dend[1137] {pt3dclear() pt3dadd(-6.655,30.597,102.065, 1.22) pt3dadd(-12.689,29.994,111.719, 1.22)}
dend[1138] {pt3dclear() pt3dadd(-12.689,29.994,111.719, 1.22) pt3dadd(-8.799,31.105,118.388, 1.22)}
dend[1139] {pt3dclear() pt3dadd(-8.799,31.105,118.388, 1.11) pt3dadd(-2.6879997,31.105,125.61, 1.11)}
dend[1140] {pt3dclear() pt3dadd(-12.689,29.994,111.719, 1.28) pt3dadd(-19.355999,30.55,122.83, 1.28)}
dend[1141] {pt3dclear() pt3dadd(-19.355999,30.55,122.83, 1.33) pt3dadd(-21.577,31.661,133.382, 1.33)}
dend[1142] {pt3dclear() pt3dadd(29.457,30.597,135.403, 5.17) pt3dadd(27.235,33.374,143.178, 5.17)}
dend[1143] {pt3dclear() pt3dadd(27.235,33.374,143.178, 3.39) pt3dadd(30.571001,33.374,147.62599, 3.39)}
dend[1144] {pt3dclear() pt3dadd(30.571001,33.374,147.62599, 2.22) pt3dadd(36.128002,34.485,155.96199, 2.22)}
dend[1145] {pt3dclear() pt3dadd(36.128002,34.485,155.96199, 2.11) pt3dadd(42.798004,34.485,155.96199, 2.11)}
dend[1146] {pt3dclear() pt3dadd(42.798004,34.485,155.96199, 1.72) pt3dadd(48.354004,34.485,162.07399, 1.72)}
dend[1147] {pt3dclear() pt3dadd(36.128002,34.485,155.96199, 1.94) pt3dadd(40.017002,35.596,170.40599, 1.94)}
dend[1148] {pt3dclear() pt3dadd(40.017002,35.596,170.40599, 1.67) pt3dadd(50.659004,33.092,189.18599, 1.67)}
dend[1149] {pt3dclear() pt3dadd(50.659004,33.092,189.18599, 1.67) pt3dadd(56.059006,36.092,208.38599, 1.67)}
dend[1150] {pt3dclear() pt3dadd(56.059006,36.092,208.38599, 1.39) pt3dadd(57.169006,36.647,212.82599, 1.39)}
dend[1151] {pt3dclear() pt3dadd(40.017002,35.596,170.40599, 1.39) pt3dadd(41.683002,36.707,176.51599, 1.39)}
dend[1152] {pt3dclear() pt3dadd(41.683002,36.707,176.51599, 1.11) pt3dadd(46.967003,34.946,185.909, 1.11)}
dend[1153] {pt3dclear() pt3dadd(27.235,33.374,143.178, 3.06) pt3dadd(23.904001,32.819,147.62, 3.06)}
dend[1154] {pt3dclear() pt3dadd(23.904001,32.819,147.62, 1.56) pt3dadd(21.683,32.819,153.172, 1.56)}
dend[1155] {pt3dclear() pt3dadd(21.683,32.819,153.172, 1.56) pt3dadd(26.683,32.819,155.95, 1.56)}
dend[1156] {pt3dclear() pt3dadd(26.683,32.819,155.95, 1.28) pt3dadd(32.798,33.375,154.838, 1.28)}
dend[1157] {pt3dclear() pt3dadd(26.683,32.819,155.95, 1.28) pt3dadd(34.46,32.263,165.94899, 1.28)}
dend[1158] {pt3dclear() pt3dadd(34.46,32.263,165.94899, 1.0) pt3dadd(38.906,33.374,172.062, 1.0)}
dend[1159] {pt3dclear() pt3dadd(34.46,32.263,165.94899, 1.0) pt3dadd(42.16,34.463,181.34898, 1.0)}
dend[1160] {pt3dclear() pt3dadd(42.16,34.463,181.34898, 1.0) pt3dadd(46.854,34.463,195.42998, 1.0)}
dend[1161] {pt3dclear() pt3dadd(21.683,32.819,153.172, 1.89) pt3dadd(20.015001,33.375,156.507, 1.89)}
dend[1162] {pt3dclear() pt3dadd(20.015001,33.375,156.507, 1.89) pt3dadd(15.016001,32.82,156.507, 1.89)}
dend[1163] {pt3dclear() pt3dadd(15.016001,32.82,156.507, 1.56) pt3dadd(10.018001,32.265,161.505, 1.56)}
dend[1164] {pt3dclear() pt3dadd(10.018001,32.265,161.505, 1.33) pt3dadd(8.906,33.933,167.065, 1.33)}
dend[1165] {pt3dclear() pt3dadd(20.015001,33.375,156.507, 1.67) pt3dadd(22.238,33.375,163.17601, 1.67)}
dend[1166] {pt3dclear() pt3dadd(22.238,33.375,163.17601, 1.11) pt3dadd(29.458,33.375,167.06401, 1.11)}
dend[1167] {pt3dclear() pt3dadd(29.458,33.375,167.06401, 1.06) pt3dadd(32.788002,33.375,167.06401, 1.06)}
dend[1168] {pt3dclear() pt3dadd(29.458,33.375,167.06401, 1.11) pt3dadd(36.722,33.375,184.945, 1.11)}
dend[1169] {pt3dclear() pt3dadd(36.722,33.375,184.945, 1.11) pt3dadd(41.719,33.375,188.83101, 1.11)}
dend[1170] {pt3dclear() pt3dadd(36.722,33.375,184.945, 1.11) pt3dadd(42.671,33.375,201.009, 1.11)}
dend[1171] {pt3dclear() pt3dadd(22.238,33.375,163.17601, 1.11) pt3dadd(22.238,33.375,171.50601, 1.11)}
dend[1172] {pt3dclear() pt3dadd(22.238,33.375,171.50601, 1.28) pt3dadd(23.905,33.375,176.50601, 1.28)}
dend[1173] {pt3dclear() pt3dadd(23.905,33.375,176.50601, 1.22) pt3dadd(15.016001,33.375,195.95102, 1.22)}
dend[1174] {pt3dclear() pt3dadd(23.905,33.375,176.50601, 1.22) pt3dadd(29.459,33.375,189.281, 1.22)}
dend[1175] {pt3dclear() pt3dadd(29.459,33.375,189.281, 1.0) pt3dadd(20.014,33.375,195.393, 1.0)}
dend[1176] {pt3dclear() pt3dadd(29.459,33.375,189.281, 1.0) pt3dadd(38.905,33.375,203.727, 1.0)}
dend[1177] {pt3dclear() pt3dadd(50.562004,33.929,153.731, 3.67) pt3dadd(56.120003,33.929,148.173, 3.67)}
dend[1178] {pt3dclear() pt3dadd(56.120003,33.929,148.173, 2.56) pt3dadd(61.672005,33.929,150.394, 2.56)}
dend[1179] {pt3dclear() pt3dadd(61.672005,33.929,150.394, 2.06) pt3dadd(65.563,33.929,158.176, 2.06)}
dend[1180] {pt3dclear() pt3dadd(65.563,33.929,158.176, 1.78) pt3dadd(70.562004,33.929,163.17499, 1.78)}
dend[1181] {pt3dclear() pt3dadd(61.672005,33.929,150.394, 2.06) pt3dadd(68.340004,33.929,151.50499, 2.06)}
dend[1182] {pt3dclear() pt3dadd(68.340004,33.929,151.50499, 1.61) pt3dadd(76.119,33.929,155.95, 1.61)}
dend[1183] {pt3dclear() pt3dadd(76.119,33.929,155.95, 1.44) pt3dadd(94.999,33.929,151.94499, 1.44)}
dend[1184] {pt3dclear() pt3dadd(68.340004,33.929,151.50499, 1.61) pt3dadd(79.451004,33.929,148.172, 1.61)}
dend[1185] {pt3dclear() pt3dadd(79.451004,33.929,148.172, 1.44) pt3dadd(90.003006,33.929,147.061, 1.44)}
dend[1186] {pt3dclear() pt3dadd(90.003006,33.929,147.061, 1.39) pt3dadd(94.448006,33.929,144.838, 1.39)}
dend[1187] {pt3dclear() pt3dadd(94.448006,33.929,144.838, 1.33) pt3dadd(104.30301,33.929,136.39099, 1.33)}
dend[1188] {pt3dclear() pt3dadd(94.448006,33.929,144.838, 1.33) pt3dadd(106.66501,33.929,144.283, 1.33)}
dend[1189] {pt3dclear() pt3dadd(56.120003,33.929,148.173, 2.56) pt3dadd(57.231003,33.929,141.505, 2.56)}
dend[1190] {pt3dclear() pt3dadd(57.231003,33.929,141.505, 2.22) pt3dadd(62.786003,33.929,139.838, 2.22)}
dend[1191] {pt3dclear() pt3dadd(62.786003,33.929,139.838, 2.11) pt3dadd(71.123,33.929,143.729, 2.11)}
dend[1192] {pt3dclear() pt3dadd(71.123,33.929,143.729, 1.94) pt3dadd(81.128,33.929,144.285, 1.94)}
dend[1193] {pt3dclear() pt3dadd(62.786003,33.929,139.838, 2.06) pt3dadd(71.676,33.929,134.83699, 2.06)}
dend[1194] {pt3dclear() pt3dadd(71.676,33.929,134.83699, 2.0) pt3dadd(76.122,33.929,123.72299, 2.0)}
dend[1195] {pt3dclear() pt3dadd(76.122,33.929,123.72299, 1.67) pt3dadd(76.122,33.929,113.162994, 1.67)}
dend[1196] {pt3dclear() pt3dadd(76.122,33.929,113.162994, 1.22) pt3dadd(69.454,33.929,106.494995, 1.22)}
dend[1197] {pt3dclear() pt3dadd(76.122,33.929,113.162994, 1.28) pt3dadd(81.121,33.929,112.607994, 1.28)}
dend[1198] {pt3dclear() pt3dadd(71.676,33.929,134.83699, 1.61) pt3dadd(78.895004,33.929,139.83499, 1.61)}
dend[1199] {pt3dclear() pt3dadd(78.895004,33.929,139.83499, 1.22) pt3dadd(96.39001,33.929,129.838, 1.22)}
}
proc basic_shape_extra_12(){
dend[1200] {pt3dclear() pt3dadd(96.39001,33.929,129.838, 1.11) pt3dadd(103.05501,33.929,125.395, 1.11)}
dend[1201] {pt3dclear() pt3dadd(96.39001,33.929,129.838, 1.11) pt3dadd(100.83501,33.929,117.059, 1.11)}
dend[1202] {pt3dclear() pt3dadd(57.231003,33.929,141.505, 1.89) pt3dadd(54.455,33.929,133.17601, 1.89)}
dend[1203] {pt3dclear() pt3dadd(54.455,33.929,133.17601, 1.44) pt3dadd(42.359,33.929,136.632, 1.44)}
dend[1204] {pt3dclear() pt3dadd(42.359,33.929,136.632, 1.44) pt3dadd(35.134003,33.929,135.52, 1.44)}
dend[1205] {pt3dclear() pt3dadd(42.359,33.929,136.632, 1.44) pt3dadd(37.362,33.929,131.08, 1.44)}
dend[1206] {pt3dclear() pt3dadd(37.362,33.929,131.08, 1.11) pt3dadd(29.032999,33.929,128.304, 1.11)}
dend[1207] {pt3dclear() pt3dadd(37.362,33.929,131.08, 1.11) pt3dadd(29.587,33.929,124.416, 1.11)}
dend[1208] {pt3dclear() pt3dadd(54.455,33.929,133.17601, 1.33) pt3dadd(55.014,33.929,132.617, 1.33)}
dend[1209] {pt3dclear() pt3dadd(55.014,33.929,132.617, 1.22) pt3dadd(53.869,33.929,119.44701, 1.22)}
dend[1210] {pt3dclear() pt3dadd(53.869,33.929,119.44701, 1.22) pt3dadd(54.98,33.929,114.449005, 1.22)}
dend[1211] {pt3dclear() pt3dadd(53.869,33.929,119.44701, 1.22) pt3dadd(51.646,33.929,115.55701, 1.22)}
dend[1212] {pt3dclear() pt3dadd(55.014,33.929,132.617, 1.11) pt3dadd(62.237,33.929,119.837006, 1.11)}
dend[1213] {pt3dclear() pt3dadd(56.116005,33.929,164.84, 3.78) pt3dadd(63.895004,33.929,167.062, 3.78)}
dend[1214] {pt3dclear() pt3dadd(63.895004,33.929,167.062, 2.61) pt3dadd(73.339005,33.929,165.39499, 2.61)}
dend[1215] {pt3dclear() pt3dadd(73.339005,33.929,165.39499, 2.22) pt3dadd(80.008,33.929,163.17198, 2.22)}
dend[1216] {pt3dclear() pt3dadd(80.008,33.929,163.17198, 2.06) pt3dadd(83.898,33.929,160.39398, 2.06)}
dend[1217] {pt3dclear() pt3dadd(83.898,33.929,160.39398, 1.61) pt3dadd(82.789,33.929,158.17598, 1.61)}
dend[1218] {pt3dclear() pt3dadd(83.898,33.929,160.39398, 1.61) pt3dadd(91.673004,34.484,156.50699, 1.61)}
dend[1219] {pt3dclear() pt3dadd(91.673004,34.484,156.50699, 1.33) pt3dadd(105.727005,33.744,140.97398, 1.33)}
dend[1220] {pt3dclear() pt3dadd(91.673004,34.484,156.50699, 1.33) pt3dadd(115.86101,33.921,145.81898, 1.33)}
dend[1221] {pt3dclear() pt3dadd(80.008,33.929,163.17198, 1.72) pt3dadd(88.346,33.373,164.28398, 1.72)}
dend[1222] {pt3dclear() pt3dadd(88.346,33.373,164.28398, 1.22) pt3dadd(98.9,33.373,172.06097, 1.22)}
dend[1223] {pt3dclear() pt3dadd(98.9,33.373,172.06097, 1.06) pt3dadd(103.902,33.373,181.50897, 1.06)}
dend[1224] {pt3dclear() pt3dadd(88.346,33.373,164.28398, 1.06) pt3dadd(97.788,33.928,159.84099, 1.06)}
dend[1225] {pt3dclear() pt3dadd(97.788,33.928,159.84099, 1.22) pt3dadd(107.235,33.372,159.28499, 1.22)}
dend[1226] {pt3dclear() pt3dadd(107.235,33.372,159.28499, 1.39) pt3dadd(120.571,33.372,153.17299, 1.39)}
dend[1227] {pt3dclear() pt3dadd(120.571,33.372,153.17299, 1.06) pt3dadd(130.015,33.928,156.50598, 1.06)}
dend[1228] {pt3dclear() pt3dadd(107.235,33.372,159.28499, 1.5) pt3dadd(113.345,33.372,162.61798, 1.5)}
dend[1229] {pt3dclear() pt3dadd(113.345,33.372,162.61798, 1.28) pt3dadd(122.789,32.816,159.83998, 1.28)}
dend[1230] {pt3dclear() pt3dadd(73.339005,33.929,165.39499, 1.83) pt3dadd(89.450005,33.373,178.172, 1.83)}
dend[1231] {pt3dclear() pt3dadd(89.450005,33.373,178.172, 1.56) pt3dadd(105.005005,32.817,185.95, 1.56)}
dend[1232] {pt3dclear() pt3dadd(105.005005,32.817,185.95, 1.67) pt3dadd(114.452,33.373,175.94699, 1.67)}
dend[1233] {pt3dclear() pt3dadd(114.452,33.373,175.94699, 1.67) pt3dadd(120.009,33.373,169.27899, 1.67)}
dend[1234] {pt3dclear() pt3dadd(120.009,33.373,169.27899, 1.44) pt3dadd(131.118,33.373,162.058, 1.44)}
dend[1235] {pt3dclear() pt3dadd(131.118,33.373,162.058, 1.22) pt3dadd(136.67299,33.928,162.61299, 1.22)}
dend[1236] {pt3dclear() pt3dadd(114.452,33.373,175.94699, 1.44) pt3dadd(121.676,33.373,173.16899, 1.44)}
dend[1237] {pt3dclear() pt3dadd(121.676,33.373,173.16899, 1.22) pt3dadd(138.431,34.135002,165.553, 1.22)}
dend[1238] {pt3dclear() pt3dadd(105.005005,32.817,185.95, 1.44) pt3dadd(125.565,32.817,183.72699, 1.44)}
dend[1239] {pt3dclear() pt3dadd(125.565,32.817,183.72699, 1.22) pt3dadd(131.67801,33.928,179.83699, 1.22)}
dend[1240] {pt3dclear() pt3dadd(63.895004,33.929,167.062, 2.33) pt3dadd(70.560005,33.374,172.06099, 2.33)}
dend[1241] {pt3dclear() pt3dadd(70.560005,33.374,172.06099, 1.83) pt3dadd(74.448006,33.929,179.28198, 1.83)}
dend[1242] {pt3dclear() pt3dadd(74.448006,33.929,179.28198, 2.0) pt3dadd(83.33401,34.484,184.27998, 2.0)}
dend[1243] {pt3dclear() pt3dadd(83.33401,34.484,184.27998, 1.83) pt3dadd(88.33401,34.484,181.50198, 1.83)}
dend[1244] {pt3dclear() pt3dadd(88.33401,34.484,181.50198, 1.56) pt3dadd(102.227005,33.928,192.61598, 1.56)}
dend[1245] {pt3dclear() pt3dadd(102.227005,33.928,192.61598, 1.44) pt3dadd(117.241005,33.928,189.27998, 1.44)}
dend[1246] {pt3dclear() pt3dadd(117.241005,33.928,189.27998, 1.33) pt3dadd(127.79401,33.928,193.72298, 1.33)}
dend[1247] {pt3dclear() pt3dadd(102.227005,33.928,192.61598, 1.22) pt3dadd(112.23,35.039,193.17198, 1.22)}
dend[1248] {pt3dclear() pt3dadd(83.33401,34.484,184.27998, 1.78) pt3dadd(96.11301,33.928,193.72498, 1.78)}
dend[1249] {pt3dclear() pt3dadd(96.11301,33.928,193.72498, 1.72) pt3dadd(106.11001,33.928,198.16797, 1.72)}
dend[1250] {pt3dclear() pt3dadd(106.11001,33.928,198.16797, 1.67) pt3dadd(120.55401,33.928,196.50096, 1.67)}
dend[1251] {pt3dclear() pt3dadd(120.55401,33.928,196.50096, 1.61) pt3dadd(130.00002,34.484,205.94696, 1.61)}
dend[1252] {pt3dclear() pt3dadd(130.00002,34.484,205.94696, 1.44) pt3dadd(141.10901,34.484,200.39296, 1.44)}
dend[1253] {pt3dclear() pt3dadd(130.00002,34.484,205.94696, 1.61) pt3dadd(127.778015,35.039,220.94296, 1.61)}
dend[1254] {pt3dclear() pt3dadd(127.778015,35.039,220.94296, 1.28) pt3dadd(132.22401,35.595,227.05696, 1.28)}
dend[1255] {pt3dclear() pt3dadd(106.11001,33.928,198.16797, 1.5) pt3dadd(114.44101,34.483,205.94397, 1.5)}
dend[1256] {pt3dclear() pt3dadd(114.44101,34.483,205.94397, 1.17) pt3dadd(116.66401,34.483,223.17097, 1.17)}
dend[1257] {pt3dclear() pt3dadd(116.66401,34.483,223.17097, 1.22) pt3dadd(118.33101,34.483,233.72998, 1.22)}
dend[1258] {pt3dclear() pt3dadd(118.33101,34.483,233.72998, 1.17) pt3dadd(126.11101,35.039,239.84299, 1.17)}
dend[1259] {pt3dclear() pt3dadd(74.448006,33.929,179.28198, 1.56) pt3dadd(78.337006,32.818,198.72598, 1.56)}
dend[1260] {pt3dclear() pt3dadd(78.337006,32.818,198.72598, 1.11) pt3dadd(89.44601,35.04,210.38998, 1.11)}
dend[1261] {pt3dclear() pt3dadd(73.336006,34.485,193.16998, 4.22) pt3dadd(83.893005,35.596,192.61398, 4.22)}
dend[1262] {pt3dclear() pt3dadd(83.893005,35.596,192.61398, 3.0) pt3dadd(89.44501,33.375,198.16599, 3.0)}
dend[1263] {pt3dclear() pt3dadd(89.44501,33.375,198.16599, 3.28) pt3dadd(106.672005,32.819,205.94598, 3.28)}
dend[1264] {pt3dclear() pt3dadd(106.672005,32.819,205.94598, 2.83) pt3dadd(115.006004,33.375,199.83398, 2.83)}
dend[1265] {pt3dclear() pt3dadd(115.006004,33.375,199.83398, 2.11) pt3dadd(123.337006,34.486,203.72198, 2.11)}
dend[1266] {pt3dclear() pt3dadd(106.672005,32.819,205.94598, 2.83) pt3dadd(112.228004,33.375,219.83598, 2.83)}
dend[1267] {pt3dclear() pt3dadd(112.228004,33.375,219.83598, 2.11) pt3dadd(126.670006,32.264,228.16798, 2.11)}
dend[1268] {pt3dclear() pt3dadd(126.670006,32.264,228.16798, 1.89) pt3dadd(138.891,32.82,231.50098, 1.89)}
dend[1269] {pt3dclear() pt3dadd(89.44501,33.375,198.16599, 2.89) pt3dadd(92.77701,33.375,205.38399, 2.89)}
dend[1270] {pt3dclear() pt3dadd(92.77701,33.375,205.38399, 2.5) pt3dadd(101.11301,34.486,210.941, 2.5)}
dend[1271] {pt3dclear() pt3dadd(101.11301,34.486,210.941, 2.5) pt3dadd(107.77801,35.041,223.15999, 2.5)}
dend[1272] {pt3dclear() pt3dadd(107.77801,35.041,223.15999, 2.33) pt3dadd(112.22301,35.041,228.15999, 2.33)}
dend[1273] {pt3dclear() pt3dadd(112.22301,35.041,228.15999, 1.72) pt3dadd(116.66701,35.597,236.49298, 1.72)}
dend[1274] {pt3dclear() pt3dadd(116.66701,35.597,236.49298, 1.39) pt3dadd(119.44401,35.597,242.04698, 1.39)}
dend[1275] {pt3dclear() pt3dadd(119.44401,35.597,242.04698, 1.22) pt3dadd(125.55401,35.597,245.37997, 1.22)}
dend[1276] {pt3dclear() pt3dadd(119.44401,35.597,242.04698, 1.22) pt3dadd(128.889,35.597,254.82498, 1.22)}
dend[1277] {pt3dclear() pt3dadd(107.77801,35.041,223.15999, 2.0) pt3dadd(117.22201,35.041,243.71399, 2.0)}
dend[1278] {pt3dclear() pt3dadd(117.22201,35.041,243.71399, 1.22) pt3dadd(117.77701,35.041,257.042, 1.22)}
dend[1279] {pt3dclear() pt3dadd(92.77701,33.375,205.38399, 2.0) pt3dadd(98.33201,35.041,222.60399, 2.0)}
dend[1280] {pt3dclear() pt3dadd(98.33201,35.041,222.60399, 1.22) pt3dadd(107.77401,35.596,237.59999, 1.22)}
dend[1281] {pt3dclear() pt3dadd(107.77401,35.596,237.59999, 1.17) pt3dadd(114.43801,35.596,245.37498, 1.17)}
dend[1282] {pt3dclear() pt3dadd(72.78001,34.485,199.83698, 4.56) pt3dadd(80.005005,35.597,209.84097, 4.56)}
dend[1283] {pt3dclear() pt3dadd(80.005005,35.597,209.84097, 3.17) pt3dadd(80.005005,36.153,213.73198, 3.17)}
dend[1284] {pt3dclear() pt3dadd(80.005005,36.153,213.73198, 2.06) pt3dadd(76.114006,36.709,213.17598, 2.06)}
dend[1285] {pt3dclear() pt3dadd(76.114006,36.709,213.17598, 1.72) pt3dadd(72.22301,36.709,212.61998, 1.72)}
dend[1286] {pt3dclear() pt3dadd(72.22301,36.709,212.61998, 1.67) pt3dadd(72.22301,33.376,222.61897, 1.67)}
dend[1287] {pt3dclear() pt3dadd(72.22301,33.376,222.61897, 1.39) pt3dadd(70.00101,32.821,238.17097, 1.39)}
dend[1288] {pt3dclear() pt3dadd(80.005005,36.153,213.73198, 2.06) pt3dadd(81.116005,35.042,220.39899, 2.06)}
dend[1289] {pt3dclear() pt3dadd(81.116005,35.042,220.39899, 1.61) pt3dadd(85.005005,35.042,224.288, 1.61)}
dend[1290] {pt3dclear() pt3dadd(85.005005,35.042,224.288, 1.44) pt3dadd(96.716,35.6,246.595, 1.44)}
dend[1291] {pt3dclear() pt3dadd(96.716,35.6,246.595, 1.28) pt3dadd(96.161,35.6,266.037, 1.28)}
dend[1292] {pt3dclear() pt3dadd(81.116005,35.042,220.39899, 2.5) pt3dadd(81.116005,33.375,225.39899, 2.5)}
dend[1293] {pt3dclear() pt3dadd(81.116005,33.375,225.39899, 2.72) pt3dadd(77.782005,33.375,228.17699, 2.72)}
dend[1294] {pt3dclear() pt3dadd(77.782005,33.375,228.17699, 1.83) pt3dadd(68.896,33.375,225.4, 1.83)}
dend[1295] {pt3dclear() pt3dadd(68.896,33.375,225.4, 1.22) pt3dadd(59.452003,32.819,222.622, 1.22)}
dend[1296] {pt3dclear() pt3dadd(77.782005,33.375,228.17699, 1.89) pt3dadd(76.671005,33.375,234.84499, 1.89)}
dend[1297] {pt3dclear() pt3dadd(76.671005,33.375,234.84499, 1.5) pt3dadd(72.784004,33.375,238.17699, 1.5)}
dend[1298] {pt3dclear() pt3dadd(72.784004,33.375,238.17699, 1.44) pt3dadd(80.074005,33.375,250.51399, 1.44)}
dend[1299] {pt3dclear() pt3dadd(80.074005,33.375,250.51399, 1.22) pt3dadd(80.074005,35.042,256.069, 1.22)}
}
proc basic_shape_extra_13(){
dend[1300] {pt3dclear() pt3dadd(80.074005,33.375,250.51399, 1.22) pt3dadd(84.51601,33.93,253.84499, 1.22)}
dend[1301] {pt3dclear() pt3dadd(76.671005,33.375,234.84499, 1.56) pt3dadd(81.673004,35.042,244.29298, 1.56)}
dend[1302] {pt3dclear() pt3dadd(81.673004,35.042,244.29298, 1.39) pt3dadd(87.227005,35.042,257.068, 1.39)}
dend[1303] {pt3dclear() pt3dadd(81.116005,33.375,225.39899, 2.44) pt3dadd(85.561005,34.486,236.51099, 2.44)}
dend[1304] {pt3dclear() pt3dadd(85.561005,34.486,236.51099, 1.61) pt3dadd(88.338005,35.597,248.17398, 1.61)}
dend[1305] {pt3dclear() pt3dadd(88.338005,35.597,248.17398, 1.44) pt3dadd(93.337006,36.152,254.83897, 1.44)}
dend[1306] {pt3dclear() pt3dadd(93.337006,36.152,254.83897, 1.33) pt3dadd(98.892006,36.152,253.17197, 1.33)}
dend[1307] {pt3dclear() pt3dadd(85.561005,34.486,236.51099, 1.61) pt3dadd(88.893005,33.931,242.61899, 1.61)}
dend[1308] {pt3dclear() pt3dadd(88.893005,33.931,242.61899, 1.44) pt3dadd(92.227005,33.931,248.176, 1.44)}
dend[1309] {pt3dclear() pt3dadd(92.227005,33.931,248.176, 1.33) pt3dadd(92.227005,33.931,258.736, 1.33)}
dend[1310] {pt3dclear() pt3dadd(92.227005,33.931,258.736, 1.17) pt3dadd(87.227005,33.931,261.514, 1.17)}
dend[1311] {pt3dclear() pt3dadd(92.227005,33.931,258.736, 1.17) pt3dadd(97.781006,33.931,262.624, 1.17)}
dend[1312] {pt3dclear() pt3dadd(88.893005,33.931,242.61899, 1.28) pt3dadd(107.78001,35.042,249.28499, 1.28)}
dend[1313] {pt3dclear() pt3dadd(107.78001,35.042,249.28499, 1.0) pt3dadd(109.44601,36.152,251.50598, 1.0)}
dend[1314] {pt3dclear() pt3dadd(109.44601,36.152,251.50598, 1.0) pt3dadd(117.77801,36.707,251.50598, 1.0)}
dend[1315] {pt3dclear() pt3dadd(117.77801,36.707,251.50598, 0.89) pt3dadd(120.55801,36.707,249.28198, 0.89)}
dend[1316] {pt3dclear() pt3dadd(109.44601,36.152,251.50598, 1.0) pt3dadd(110.55701,38.374,264.83698, 1.0)}
dend[1317] {pt3dclear() pt3dadd(80.005005,35.597,209.84097, 3.11) pt3dadd(86.670006,35.042,214.83997, 3.11)}
dend[1318] {pt3dclear() pt3dadd(86.670006,35.042,214.83997, 1.89) pt3dadd(91.118004,35.042,218.17596, 1.89)}
dend[1319] {pt3dclear() pt3dadd(91.118004,35.042,218.17596, 1.44) pt3dadd(95.562004,35.598,229.28696, 1.44)}
dend[1320] {pt3dclear() pt3dadd(95.562004,35.598,229.28696, 1.33) pt3dadd(120.235,37.654,236.14096, 1.33)}
dend[1321] {pt3dclear() pt3dadd(86.670006,35.042,214.83997, 2.06) pt3dadd(91.670006,36.709,229.84097, 2.06)}
dend[1322] {pt3dclear() pt3dadd(91.670006,36.709,229.84097, 1.89) pt3dadd(100.004005,34.487,243.73097, 1.89)}
dend[1323] {pt3dclear() pt3dadd(100.004005,34.487,243.73097, 1.83) pt3dadd(103.337006,34.487,262.61896, 1.83)}
dend[1324] {pt3dclear() pt3dadd(62.782005,34.485,215.94597, 4.89) pt3dadd(62.226006,34.485,223.72597, 4.89)}
dend[1325] {pt3dclear() pt3dadd(62.226006,34.485,223.72597, 3.06) pt3dadd(57.227005,34.485,225.94797, 3.06)}
dend[1326] {pt3dclear() pt3dadd(57.227005,34.485,225.94797, 2.11) pt3dadd(55.560005,33.929,243.16898, 2.11)}
dend[1327] {pt3dclear() pt3dadd(55.560005,33.929,243.16898, 2.06) pt3dadd(51.118004,33.929,251.49797, 2.06)}
dend[1328] {pt3dclear() pt3dadd(51.118004,33.929,251.49797, 2.0) pt3dadd(52.784004,34.484,261.49496, 2.0)}
dend[1329] {pt3dclear() pt3dadd(52.784004,34.484,261.49496, 1.78) pt3dadd(55.560005,35.594,267.60196, 1.78)}
dend[1330] {pt3dclear() pt3dadd(55.560005,35.594,267.60196, 1.56) pt3dadd(54.449005,35.594,273.71194, 1.56)}
dend[1331] {pt3dclear() pt3dadd(52.784004,34.484,261.49496, 1.61) pt3dadd(50.006004,34.484,263.16196, 1.61)}
dend[1332] {pt3dclear() pt3dadd(51.118004,33.929,251.49797, 1.56) pt3dadd(42.229004,33.929,262.61, 1.56)}
dend[1333] {pt3dclear() pt3dadd(42.229004,33.929,262.61, 1.0) pt3dadd(38.894005,33.929,272.059, 1.0)}
dend[1334] {pt3dclear() pt3dadd(62.226006,34.485,223.72597, 3.22) pt3dadd(65.55801,33.93,234.83397, 3.22)}
dend[1335] {pt3dclear() pt3dadd(65.55801,33.93,234.83397, 2.11) pt3dadd(61.670006,33.93,240.38797, 2.11)}
dend[1336] {pt3dclear() pt3dadd(61.670006,33.93,240.38797, 2.0) pt3dadd(62.225006,34.485,249.27296, 2.0)}
dend[1337] {pt3dclear() pt3dadd(62.225006,34.485,249.27296, 1.72) pt3dadd(58.893005,34.485,263.71295, 1.72)}
dend[1338] {pt3dclear() pt3dadd(62.225006,34.485,249.27296, 1.61) pt3dadd(68.33401,34.485,255.38196, 1.61)}
dend[1339] {pt3dclear() pt3dadd(68.33401,34.485,255.38196, 1.0) pt3dadd(76.11201,36.707,260.38196, 1.0)}
dend[1340] {pt3dclear() pt3dadd(65.55801,33.93,234.83397, 2.78) pt3dadd(67.781006,33.93,241.50298, 2.78)}
dend[1341] {pt3dclear() pt3dadd(67.781006,33.93,241.50298, 2.22) pt3dadd(65.55801,33.93,258.72998, 2.22)}
dend[1342] {pt3dclear() pt3dadd(65.55801,33.93,258.72998, 1.17) pt3dadd(60.559006,33.93,263.72897, 1.17)}
dend[1343] {pt3dclear() pt3dadd(67.781006,33.93,241.50298, 2.61) pt3dadd(71.66701,33.93,246.49997, 2.61)}
dend[1344] {pt3dclear() pt3dadd(71.66701,33.93,246.49997, 1.89) pt3dadd(72.77801,33.93,257.61496, 1.89)}
dend[1345] {pt3dclear() pt3dadd(72.77801,33.93,257.61496, 1.39) pt3dadd(67.22101,33.93,264.28296, 1.39)}
dend[1346] {pt3dclear() pt3dadd(72.77801,33.93,257.61496, 1.39) pt3dadd(78.33301,35.041,266.50296, 1.39)}
dend[1347] {pt3dclear() pt3dadd(71.66701,33.93,246.49997, 1.61) pt3dadd(89.44501,35.597,265.94498, 1.61)}
dend[1348] {pt3dclear() pt3dadd(56.117004,35.04,217.05696, 3.44) pt3dadd(52.231003,35.04,212.05997, 3.44)}
dend[1349] {pt3dclear() pt3dadd(52.231003,35.04,212.05997, 1.89) pt3dadd(50.011,35.595,208.72997, 1.89)}
dend[1350] {pt3dclear() pt3dadd(50.011,35.595,208.72997, 1.78) pt3dadd(51.677002,36.15,198.73297, 1.78)}
dend[1351] {pt3dclear() pt3dadd(50.011,35.595,208.72997, 1.5) pt3dadd(35.571003,35.595,205.39796, 1.5)}
dend[1352] {pt3dclear() pt3dadd(53.336006,34.484,216.50096, 3.06) pt3dadd(51.112007,34.484,214.83296, 3.06)}
dend[1353] {pt3dclear() pt3dadd(51.112007,34.484,214.83296, 1.28) pt3dadd(45.552006,34.484,213.72096, 1.28)}
dend[1354] {pt3dclear() pt3dadd(50.468006,34.165,217.45695, 3.22) pt3dadd(49.357006,33.609,228.01396, 3.22)}
dend[1355] {pt3dclear() pt3dadd(49.357006,33.609,228.01396, 2.11) pt3dadd(49.357006,34.165,236.90697, 2.11)}
dend[1356] {pt3dclear() pt3dadd(49.357006,34.165,236.90697, 2.06) pt3dadd(43.248005,34.165,239.12796, 2.06)}
dend[1357] {pt3dclear() pt3dadd(43.248005,34.165,239.12796, 1.56) pt3dadd(36.585007,34.165,242.45996, 1.56)}
dend[1358] {pt3dclear() pt3dadd(49.357006,34.165,236.90697, 1.61) pt3dadd(48.245007,34.165,244.68797, 1.61)}
dend[1359] {pt3dclear() pt3dadd(48.245007,34.165,244.68797, 1.11) pt3dadd(37.992004,35.371002,254.94098, 1.11)}
dend[1360] {pt3dclear() pt3dadd(37.992004,35.371002,254.94098, 1.06) pt3dadd(47.439003,35.927002,267.166, 1.06)}
dend[1361] {pt3dclear() pt3dadd(50.468006,34.165,217.45695, 3.06) pt3dadd(47.134007,34.165,220.23495, 3.06)}
dend[1362] {pt3dclear() pt3dadd(47.134007,34.165,220.23495, 1.78) pt3dadd(39.912006,34.165,235.78995, 1.78)}
dend[1363] {pt3dclear() pt3dadd(39.912006,34.165,235.78995, 2.28) pt3dadd(34.357006,34.165,247.45494, 2.28)}
dend[1364] {pt3dclear() pt3dadd(34.357006,34.165,247.45494, 2.22) pt3dadd(37.691006,35.832,259.12393, 2.22)}
dend[1365] {pt3dclear() pt3dadd(37.691006,35.832,259.12393, 1.56) pt3dadd(41.024006,35.832,269.12292, 1.56)}
dend[1366] {pt3dclear() pt3dadd(41.024006,35.832,269.12292, 1.28) pt3dadd(34.356007,35.832,274.67993, 1.28)}
dend[1367] {pt3dclear() pt3dadd(34.357006,34.165,247.45494, 1.94) pt3dadd(28.804007,35.276,246.89995, 1.94)}
dend[1368] {pt3dclear() pt3dadd(28.804007,35.276,246.89995, 1.11) pt3dadd(27.680006,35.838,271.62796, 1.11)}
dend[1369] {pt3dclear() pt3dadd(27.680006,35.838,271.62796, 1.0) pt3dadd(32.678005,35.838,272.73895, 1.0)}
dend[1370] {pt3dclear() pt3dadd(27.680006,35.838,271.62796, 0.94) pt3dadd(21.016006,35.838,282.17996, 0.94)}
dend[1371] {pt3dclear() pt3dadd(-9.983,32.264,126.513, 4.06) pt3dadd(-12.205,32.819,123.736, 4.06)}
dend[1372] {pt3dclear() pt3dadd(-12.205,32.819,123.736, 2.06) pt3dadd(-14.4279995,32.819,119.846, 2.06)}
dend[1373] {pt3dclear() pt3dadd(-14.4279995,32.819,119.846, 1.61) pt3dadd(-12.761999,32.819,115.958, 1.61)}
dend[1374] {pt3dclear() pt3dadd(-12.761999,32.819,115.958, 1.33) pt3dadd(5.557001,31.637001,98.229996, 1.33)}
dend[1375] {pt3dclear() pt3dadd(-14.4279995,32.819,119.846, 1.61) pt3dadd(-19.987,32.263,118.178, 1.61)}
dend[1376] {pt3dclear() pt3dadd(-19.987,32.263,118.178, 2.11) pt3dadd(-27.206999,32.263,118.178, 2.11)}
dend[1377] {pt3dclear() pt3dadd(-27.206999,32.263,118.178, 2.33) pt3dadd(-31.653,32.819,112.064, 2.33)}
dend[1378] {pt3dclear() pt3dadd(-31.653,32.819,112.064, 1.78) pt3dadd(-31.653,32.819,110.394005, 1.78)}
dend[1379] {pt3dclear() pt3dadd(-31.653,32.819,110.394005, 1.61) pt3dadd(-31.653,33.375,104.27901, 1.61)}
dend[1380] {pt3dclear() pt3dadd(-31.653,33.375,104.27901, 1.44) pt3dadd(-29.986,33.375,101.50101, 1.44)}
dend[1381] {pt3dclear() pt3dadd(-29.986,33.375,101.50101, 1.28) pt3dadd(-33.875,33.931,88.72101, 1.28)}
dend[1382] {pt3dclear() pt3dadd(-31.653,32.819,110.394005, 1.44) pt3dadd(-27.763,33.375,105.393005, 1.44)}
dend[1383] {pt3dclear() pt3dadd(-27.763,33.375,105.393005, 1.11) pt3dadd(-23.614,33.968,91.761, 1.11)}
dend[1384] {pt3dclear() pt3dadd(-23.614,33.968,91.761, 1.11) pt3dadd(-34.729,33.383,73.626, 1.11)}
dend[1385] {pt3dclear() pt3dadd(-27.206999,32.263,118.178, 2.39) pt3dadd(-28.874998,32.819,119.29, 2.39)}
dend[1386] {pt3dclear() pt3dadd(-28.874998,32.819,119.29, 1.72) pt3dadd(-35.539997,32.819,120.956, 1.72)}
dend[1387] {pt3dclear() pt3dadd(-35.539997,32.819,120.956, 1.39) pt3dadd(-44.430996,32.819,119.845, 1.39)}
dend[1388] {pt3dclear() pt3dadd(-44.430996,32.819,119.845, 1.0) pt3dadd(-47.766994,32.819,121.513, 1.0)}
dend[1389] {pt3dclear() pt3dadd(-28.874998,32.819,119.29, 1.5) pt3dadd(-29.984999,32.819,123.175, 1.5)}
dend[1390] {pt3dclear() pt3dadd(-29.984999,32.819,123.175, 1.11) pt3dadd(-38.334,33.376,131.524, 1.11)}
dend[1391] {pt3dclear() pt3dadd(-38.334,33.376,131.524, 1.0) pt3dadd(-37.223,33.376,137.634, 1.0)}
dend[1392] {pt3dclear() pt3dadd(-11.094,31.153,128.179, 4.33) pt3dadd(-19.425999,31.153,128.734, 4.33)}
dend[1393] {pt3dclear() pt3dadd(-19.425999,31.153,128.734, 2.56) pt3dadd(-19.425999,31.153,127.063995, 2.56)}
dend[1394] {pt3dclear() pt3dadd(-19.425999,31.153,127.063995, 2.28) pt3dadd(-24.425999,31.153,127.063995, 2.28)}
dend[1395] {pt3dclear() pt3dadd(-24.425999,31.153,127.063995, 1.72) pt3dadd(-29.428999,30.597,129.843, 1.72)}
dend[1396] {pt3dclear() pt3dadd(-29.428999,30.597,129.843, 1.44) pt3dadd(-47.044,32.358,128.082, 1.44)}
dend[1397] {pt3dclear() pt3dadd(-19.425999,31.153,128.734, 2.0) pt3dadd(-23.869999,31.709,131.512, 2.0)}
dend[1398] {pt3dclear() pt3dadd(-23.869999,31.709,131.512, 1.44) pt3dadd(-41.176,31.709,134.303, 1.44)}
dend[1399] {pt3dclear() pt3dadd(-41.176,31.709,134.303, 1.33) pt3dadd(-43.396,31.709,134.303, 1.33)}
}
proc basic_shape_extra_14(){
dend[1400] {pt3dclear() pt3dadd(-43.396,31.709,134.303, 1.22) pt3dadd(-49.503998,32.264,130.971, 1.22)}
dend[1401] {pt3dclear() pt3dadd(-43.396,31.709,134.303, 1.0) pt3dadd(-56.178,31.709,133.192, 1.0)}
dend[1402] {pt3dclear() pt3dadd(-11.094,31.708,133.731, 5.28) pt3dadd(-6.654,33.373,134.841, 5.28)}
dend[1403] {pt3dclear() pt3dadd(-6.654,33.373,134.841, 3.56) pt3dadd(-4.9839997,33.373,134.841, 3.56)}
dend[1404] {pt3dclear() pt3dadd(-4.9839997,33.373,134.841, 2.39) pt3dadd(-3.8739996,33.373,130.95601, 2.39)}
dend[1405] {pt3dclear() pt3dadd(-3.8739996,33.373,130.95601, 1.83) pt3dadd(-1.0969996,33.373,126.51201, 1.83)}
dend[1406] {pt3dclear() pt3dadd(-1.0969996,33.373,126.51201, 1.67) pt3dadd(14.3810005,33.373,116.767006, 1.67)}
dend[1407] {pt3dclear() pt3dadd(14.3810005,33.373,116.767006, 1.44) pt3dadd(23.274,33.373,117.323006, 1.44)}
dend[1408] {pt3dclear() pt3dadd(-4.9839997,33.373,134.841, 2.22) pt3dadd(0.014000416,34.484,135.396, 2.22)}
dend[1409] {pt3dclear() pt3dadd(0.014000416,34.484,135.396, 1.67) pt3dadd(2.7910004,33.373,136.50699, 1.67)}
dend[1410] {pt3dclear() pt3dadd(2.7910004,33.373,136.50699, 1.67) pt3dadd(7.2390003,33.373,134.83899, 1.67)}
dend[1411] {pt3dclear() pt3dadd(7.2390003,33.373,134.83899, 1.67) pt3dadd(19.483002,33.93,139.29099, 1.67)}
dend[1412] {pt3dclear() pt3dadd(19.483002,33.93,139.29099, 1.44) pt3dadd(26.708002,33.93,138.17899, 1.44)}
dend[1413] {pt3dclear() pt3dadd(19.483002,33.93,139.29099, 1.44) pt3dadd(22.815002,33.375,144.84398, 1.44)}
dend[1414] {pt3dclear() pt3dadd(7.2390003,33.373,134.83899, 1.44) pt3dadd(17.239,33.373,130.94998, 1.44)}
dend[1415] {pt3dclear() pt3dadd(17.239,33.373,130.94998, 1.22) pt3dadd(23.908,33.373,133.17299, 1.22)}
dend[1416] {pt3dclear() pt3dadd(17.239,33.373,130.94998, 1.06) pt3dadd(24.459,33.373,129.28398, 1.06)}
dend[1417] {pt3dclear() pt3dadd(2.7910004,33.373,136.50699, 1.5) pt3dadd(6.6790004,33.373,142.06099, 1.5)}
dend[1418] {pt3dclear() pt3dadd(6.6790004,33.373,142.06099, 1.33) pt3dadd(27.908,32.814003,150.441, 1.33)}
dend[1419] {pt3dclear() pt3dadd(6.6790004,33.373,142.06099, 1.33) pt3dadd(2.5450006,33.964,172.76799, 1.33)}
dend[1420] {pt3dclear() pt3dadd(-6.654,33.373,134.841, 3.28) pt3dadd(-6.654,32.817,138.175, 3.28)}
dend[1421] {pt3dclear() pt3dadd(-6.654,32.817,138.175, 1.94) pt3dadd(-2.768,33.372,144.282, 1.94)}
dend[1422] {pt3dclear() pt3dadd(-2.768,33.372,144.282, 1.67) pt3dadd(1.1660001,32.81,165.076, 1.67)}
dend[1423] {pt3dclear() pt3dadd(1.1660001,32.81,165.076, 1.5) pt3dadd(5.609,32.81,171.741, 1.5)}
dend[1424] {pt3dclear() pt3dadd(5.609,32.81,171.741, 1.33) pt3dadd(14.251,33.427002,173.593, 1.33)}
dend[1425] {pt3dclear() pt3dadd(14.251,33.427002,173.593, 1.17) pt3dadd(17.031,33.983,170.813, 1.17)}
dend[1426] {pt3dclear() pt3dadd(1.1660001,32.81,165.076, 1.39) pt3dadd(-2.7199998,32.81,170.073, 1.39)}
dend[1427] {pt3dclear() pt3dadd(-2.7199998,32.81,170.073, 1.11) pt3dadd(-18.870998,32.81,164.305, 1.11)}
dend[1428] {pt3dclear() pt3dadd(-6.654,32.817,138.175, 1.89) pt3dadd(-7.21,32.817,141.509, 1.89)}
dend[1429] {pt3dclear() pt3dadd(-7.21,32.817,141.509, 1.56) pt3dadd(-10.574,32.817,162.815, 1.56)}
dend[1430] {pt3dclear() pt3dadd(-10.574,32.817,162.815, 1.33) pt3dadd(-19.461,32.817,170.035, 1.33)}
dend[1431] {pt3dclear() pt3dadd(-10.574,32.817,162.815, 1.33) pt3dadd(-8.908,32.817,168.922, 1.33)}
dend[1432] {pt3dclear() pt3dadd(-8.908,32.817,168.922, 1.22) pt3dadd(-5.573,32.817,177.26, 1.22)}
dend[1433] {pt3dclear() pt3dadd(-5.573,32.817,177.26, 1.33) pt3dadd(4.0369997,32.252003,183.478, 1.33)}
dend[1434] {pt3dclear() pt3dadd(4.0369997,32.252003,183.478, 1.33) pt3dadd(24.738998,32.812004,184.597, 1.33)}
dend[1435] {pt3dclear() pt3dadd(4.0369997,32.252003,183.478, 1.33) pt3dadd(4.594,32.252003,205.211, 1.33)}
dend[1436] {pt3dclear() pt3dadd(-5.573,32.817,177.26, 1.67) pt3dadd(-6.684,32.817,181.70299, 1.67)}
dend[1437] {pt3dclear() pt3dadd(-6.684,32.817,181.70299, 1.72) pt3dadd(-15.578,33.373,180.59099, 1.72)}
dend[1438] {pt3dclear() pt3dadd(-6.684,32.817,181.70299, 1.72) pt3dadd(-5.018,32.817,188.36798, 1.72)}
dend[1439] {pt3dclear() pt3dadd(-5.018,32.817,188.36798, 1.56) pt3dadd(-3.349,32.817,190.03699, 1.56)}
dend[1440] {pt3dclear() pt3dadd(-3.349,32.817,190.03699, 1.5) pt3dadd(2.762,33.373,196.14798, 1.5)}
dend[1441] {pt3dclear() pt3dadd(2.762,33.373,196.14798, 1.33) pt3dadd(10.537001,33.928,203.92297, 1.33)}
dend[1442] {pt3dclear() pt3dadd(-3.349,32.817,190.03699, 1.5) pt3dadd(-5.571,32.817,201.14699, 1.5)}
dend[1443] {pt3dclear() pt3dadd(-5.571,32.817,201.14699, 1.33) pt3dadd(-8.907,32.817,202.81499, 1.33)}
dend[1444] {pt3dclear() pt3dadd(-13.8689995,31.153,137.061, 3.67) pt3dadd(-13.8689995,31.709,143.17601, 3.67)}
dend[1445] {pt3dclear() pt3dadd(-13.8689995,31.709,143.17601, 2.39) pt3dadd(-15.537,31.153,148.73502, 2.39)}
dend[1446] {pt3dclear() pt3dadd(-15.537,31.153,148.73502, 2.11) pt3dadd(-15.537,33.481,159.79301, 2.11)}
dend[1447] {pt3dclear() pt3dadd(-15.537,33.481,159.79301, 1.83) pt3dadd(-13.87,33.481,170.35202, 1.83)}
dend[1448] {pt3dclear() pt3dadd(-13.87,33.481,170.35202, 1.44) pt3dadd(-14.426,33.481,177.01901, 1.44)}
dend[1449] {pt3dclear() pt3dadd(-24.978,34.486,146.504, 4.72) pt3dadd(-32.757,34.486,144.282, 4.72)}
dend[1450] {pt3dclear() pt3dadd(-32.757,34.486,144.282, 3.0) pt3dadd(-34.975,34.486,143.173, 3.0)}
dend[1451] {pt3dclear() pt3dadd(-34.975,34.486,143.173, 2.39) pt3dadd(-36.084,34.486,140.955, 2.39)}
dend[1452] {pt3dclear() pt3dadd(-36.084,34.486,140.955, 2.11) pt3dadd(-44.613,34.486,138.112, 2.11)}
dend[1453] {pt3dclear() pt3dadd(-44.613,34.486,138.112, 2.0) pt3dadd(-56.833,34.486,138.112, 2.0)}
dend[1454] {pt3dclear() pt3dadd(-56.833,34.486,138.112, 1.89) pt3dadd(-66.755,34.486,142.197, 1.89)}
dend[1455] {pt3dclear() pt3dadd(-34.975,34.486,143.173, 2.28) pt3dadd(-41.642,34.486,142.617, 2.28)}
dend[1456] {pt3dclear() pt3dadd(-41.642,34.486,142.617, 1.89) pt3dadd(-47.753,33.375,141.50601, 1.89)}
dend[1457] {pt3dclear() pt3dadd(-47.753,33.375,141.50601, 1.72) pt3dadd(-53.310997,32.819,147.06401, 1.72)}
dend[1458] {pt3dclear() pt3dadd(-53.310997,32.819,147.06401, 1.56) pt3dadd(-72.991,32.819,147.67902, 1.56)}
dend[1459] {pt3dclear() pt3dadd(-72.991,32.819,147.67902, 1.44) pt3dadd(-85.215,32.819,144.34502, 1.44)}
dend[1460] {pt3dclear() pt3dadd(-32.757,34.486,144.282, 2.33) pt3dadd(-37.755,35.041,149.28, 2.33)}
dend[1461] {pt3dclear() pt3dadd(-37.755,35.041,149.28, 1.33) pt3dadd(-51.131,35.041,159.312, 1.33)}
dend[1462] {pt3dclear() pt3dadd(-51.131,35.041,159.312, 1.39) pt3dadd(-53.351,35.596,162.642, 1.39)}
dend[1463] {pt3dclear() pt3dadd(-27.758001,33.374,160.95601, 4.61) pt3dadd(-33.317,33.93,158.17601, 4.61)}
dend[1464] {pt3dclear() pt3dadd(-33.317,33.93,158.17601, 2.83) pt3dadd(-34.985,34.486,154.285, 2.83)}
dend[1465] {pt3dclear() pt3dadd(-34.985,34.486,154.285, 2.0) pt3dadd(-37.206,35.597,149.84201, 2.0)}
dend[1466] {pt3dclear() pt3dadd(-37.206,35.597,149.84201, 1.72) pt3dadd(-40.541,33.374,143.729, 1.72)}
dend[1467] {pt3dclear() pt3dadd(-33.317,33.93,158.17601, 2.56) pt3dadd(-38.317,33.93,158.17601, 2.56)}
dend[1468] {pt3dclear() pt3dadd(-38.317,33.93,158.17601, 1.33) pt3dadd(-44.982002,33.93,155.39902, 1.33)}
dend[1469] {pt3dclear() pt3dadd(-44.982002,33.93,155.39902, 1.22) pt3dadd(-48.312004,34.485,152.62402, 1.22)}
dend[1470] {pt3dclear() pt3dadd(-38.317,33.93,158.17601, 1.22) pt3dadd(-44.982002,32.819,164.28601, 1.22)}
dend[1471] {pt3dclear() pt3dadd(-27.758001,35.043,162.62502, 3.94) pt3dadd(-23.873001,33.933,164.29001, 3.94)}
dend[1472] {pt3dclear() pt3dadd(-23.873001,33.933,164.29001, 2.22) pt3dadd(-18.873001,33.933,177.62302, 2.22)}
dend[1473] {pt3dclear() pt3dadd(-18.873001,33.933,177.62302, 2.0) pt3dadd(-19.429,33.933,187.06702, 2.0)}
dend[1474] {pt3dclear() pt3dadd(-19.429,33.933,187.06702, 1.5) pt3dadd(-16.653,33.933,195.39601, 1.5)}
dend[1475] {pt3dclear() pt3dadd(-18.873001,33.933,177.62302, 1.72) pt3dadd(-10.538001,34.489,189.29102, 1.72)}
dend[1476] {pt3dclear() pt3dadd(-10.538001,34.489,189.29102, 1.22) pt3dadd(5.6289988,33.932,184.83101, 1.22)}
dend[1477] {pt3dclear() pt3dadd(5.6289988,33.932,184.83101, 1.22) pt3dadd(14.515999,33.932,177.61101, 1.22)}
dend[1478] {pt3dclear() pt3dadd(14.515999,33.932,177.61101, 1.06) pt3dadd(20.074,34.488,173.164, 1.06)}
dend[1479] {pt3dclear() pt3dadd(5.6289988,33.932,184.83101, 1.06) pt3dadd(8.406999,33.932,186.49802, 1.06)}
dend[1480] {pt3dclear() pt3dadd(-10.538001,34.489,189.29102, 1.06) pt3dadd(-5.539001,34.489,203.17801, 1.06)}
dend[1481] {pt3dclear() pt3dadd(-31.646002,34.488,182.06302, 4.61) pt3dadd(-41.651,34.488,181.50702, 4.61)}
dend[1482] {pt3dclear() pt3dadd(-41.651,34.488,181.50702, 2.22) pt3dadd(-66.346,34.488,185.99702, 2.22)}
dend[1483] {pt3dclear() pt3dadd(-66.346,34.488,185.99702, 2.06) pt3dadd(-74.124,34.488,193.77502, 2.06)}
dend[1484] {pt3dclear() pt3dadd(-74.124,34.488,193.77502, 1.5) pt3dadd(-83.568,35.044,193.77502, 1.5)}
dend[1485] {pt3dclear() pt3dadd(-18.218002,31.704998,199.39502, 2.67) pt3dadd(-22.108002,31.704998,202.17302, 2.67)}
dend[1486] {pt3dclear() pt3dadd(-22.108002,31.704998,202.17302, 1.72) pt3dadd(-25.445002,31.704998,204.39702, 1.72)}
dend[1487] {pt3dclear() pt3dadd(-25.445002,31.704998,204.39702, 1.56) pt3dadd(-37.282,32.268997,194.25102, 1.56)}
dend[1488] {pt3dclear() pt3dadd(-37.282,32.268997,194.25102, 1.33) pt3dadd(-51.722,31.713997,192.03003, 1.33)}
dend[1489] {pt3dclear() pt3dadd(-37.282,32.268997,194.25102, 1.33) pt3dadd(-33.392002,32.824997,185.36102, 1.33)}
dend[1490] {pt3dclear() pt3dadd(-25.445002,31.704998,204.39702, 1.33) pt3dadd(-29.334002,31.148998,213.84201, 1.33)}
dend[1491] {pt3dclear() pt3dadd(-13.774002,33.371998,208.83902, 5.67) pt3dadd(-19.332003,33.927998,219.95502, 5.67)}
dend[1492] {pt3dclear() pt3dadd(-19.332003,33.927998,219.95502, 3.78) pt3dadd(-16.552002,33.927998,222.17902, 3.78)}
dend[1493] {pt3dclear() pt3dadd(-16.552002,33.927998,222.17902, 2.5) pt3dadd(-10.441002,35.038998,223.29001, 2.5)}
dend[1494] {pt3dclear() pt3dadd(-10.441002,35.038998,223.29001, 2.0) pt3dadd(-4.327002,35.038998,228.29301, 2.0)}
dend[1495] {pt3dclear() pt3dadd(-4.327002,35.038998,228.29301, 1.72) pt3dadd(-0.44100213,35.038998,233.29001, 1.72)}
dend[1496] {pt3dclear() pt3dadd(-16.552002,33.927998,222.17902, 2.61) pt3dadd(-16.552002,35.038998,231.62402, 2.61)}
dend[1497] {pt3dclear() pt3dadd(-16.552002,35.038998,231.62402, 1.83) pt3dadd(-7.665002,35.038998,235.51202, 1.83)}
dend[1498] {pt3dclear() pt3dadd(-7.665002,35.038998,235.51202, 1.44) pt3dadd(1.7869978,34.447998,246.14603, 1.44)}
dend[1499] {pt3dclear() pt3dadd(1.7869978,34.447998,246.14603, 1.44) pt3dadd(5.119998,34.447998,253.92203, 1.44)}
}
proc basic_shape_extra_15(){
dend[1500] {pt3dclear() pt3dadd(1.7869978,34.447998,246.14603, 1.44) pt3dadd(7.3469977,34.447998,247.25803, 1.44)}
dend[1501] {pt3dclear() pt3dadd(-16.552002,35.038998,231.62402, 2.67) pt3dadd(-18.219002,35.038998,236.62402, 2.67)}
dend[1502] {pt3dclear() pt3dadd(-18.219002,35.038998,236.62402, 2.33) pt3dadd(-14.328002,35.038998,244.40602, 2.33)}
dend[1503] {pt3dclear() pt3dadd(-14.328002,35.038998,244.40602, 1.44) pt3dadd(-5.4400024,36.705997,247.18402, 1.44)}
dend[1504] {pt3dclear() pt3dadd(-5.4400024,36.705997,247.18402, 1.5) pt3dadd(-0.99500227,36.149998,263.85303, 1.5)}
dend[1505] {pt3dclear() pt3dadd(-14.328002,35.038998,244.40602, 1.56) pt3dadd(-13.217002,35.593998,251.07101, 1.56)}
dend[1506] {pt3dclear() pt3dadd(-13.217002,35.593998,251.07101, 1.44) pt3dadd(-8.774002,35.593998,269.40002, 1.44)}
dend[1507] {pt3dclear() pt3dadd(-18.219002,35.038998,236.62402, 2.5) pt3dadd(-24.332,34.482998,243.84802, 2.5)}
dend[1508] {pt3dclear() pt3dadd(-24.332,34.482998,243.84802, 1.89) pt3dadd(-19.330002,34.482998,253.29602, 1.89)}
dend[1509] {pt3dclear() pt3dadd(-19.330002,34.482998,253.29602, 1.61) pt3dadd(-8.776002,35.038,255.51802, 1.61)}
dend[1510] {pt3dclear() pt3dadd(-8.776002,35.038,255.51802, 1.33) pt3dadd(5.6239977,38.637997,269.31802, 1.33)}
dend[1511] {pt3dclear() pt3dadd(5.6239977,38.637997,269.31802, 1.33) pt3dadd(33.906,35.174995,264.12302, 1.33)}
dend[1512] {pt3dclear() pt3dadd(-19.330002,34.482998,253.29602, 1.61) pt3dadd(-18.775002,35.038,258.851, 1.61)}
dend[1513] {pt3dclear() pt3dadd(-18.775002,35.038,258.851, 1.33) pt3dadd(-11.436001,36.167,287.07703, 1.33)}
dend[1514] {pt3dclear() pt3dadd(-11.436001,36.167,287.07703, 1.33) pt3dadd(-17.186,35.592,296.27704, 1.33)}
dend[1515] {pt3dclear() pt3dadd(-24.332,34.482998,243.84802, 1.56) pt3dadd(-17.11,34.482998,248.29202, 1.56)}
dend[1516] {pt3dclear() pt3dadd(-17.11,34.482998,248.29202, 1.11) pt3dadd(-11.002001,34.482998,252.17902, 1.11)}
dend[1517] {pt3dclear() pt3dadd(-19.332003,33.927998,219.95502, 3.28) pt3dadd(-23.772003,34.482998,221.06502, 3.28)}
dend[1518] {pt3dclear() pt3dadd(-23.772003,34.482998,221.06502, 1.67) pt3dadd(-21.551003,34.482998,226.61702, 1.67)}
dend[1519] {pt3dclear() pt3dadd(-21.551003,34.482998,226.61702, 1.33) pt3dadd(-23.774002,34.482998,237.17603, 1.33)}
dend[1520] {pt3dclear() pt3dadd(-23.774002,34.482998,237.17603, 1.11) pt3dadd(-21.552002,34.482998,256.06604, 1.11)}
dend[1521] {pt3dclear() pt3dadd(-23.772003,34.482998,221.06502, 2.06) pt3dadd(-24.885004,35.039997,222.17802, 2.06)}
dend[1522] {pt3dclear() pt3dadd(-24.885004,35.039997,222.17802, 1.83) pt3dadd(-29.886003,35.039997,218.84402, 1.83)}
dend[1523] {pt3dclear() pt3dadd(-29.886003,35.039997,218.84402, 1.56) pt3dadd(-32.661003,35.039997,218.28903, 1.56)}
dend[1524] {pt3dclear() pt3dadd(-32.661003,35.039997,218.28903, 1.39) pt3dadd(-27.662003,35.594997,211.06804, 1.39)}
dend[1525] {pt3dclear() pt3dadd(-27.662003,35.594997,211.06804, 1.22) pt3dadd(-25.442003,35.594997,208.84804, 1.22)}
dend[1526] {pt3dclear() pt3dadd(-25.442003,35.594997,208.84804, 1.22) pt3dadd(-25.442003,35.594997,206.62804, 1.22)}
dend[1527] {pt3dclear() pt3dadd(-25.442003,35.594997,208.84804, 1.22) pt3dadd(-20.997004,35.594997,211.07104, 1.22)}
dend[1528] {pt3dclear() pt3dadd(-32.661003,35.039997,218.28903, 1.28) pt3dadd(-35.994003,35.595997,210.51103, 1.28)}
dend[1529] {pt3dclear() pt3dadd(-24.885004,35.039997,222.17802, 2.22) pt3dadd(-26.549004,34.484997,222.73302, 2.22)}
dend[1530] {pt3dclear() pt3dadd(-26.549004,34.484997,222.73302, 2.06) pt3dadd(-26.549004,34.484997,231.06302, 2.06)}
dend[1531] {pt3dclear() pt3dadd(-26.549004,34.484997,231.06302, 1.5) pt3dadd(-27.660004,34.484997,235.50601, 1.5)}
dend[1532] {pt3dclear() pt3dadd(-27.660004,34.484997,235.50601, 1.22) pt3dadd(-37.660004,34.484997,244.39502, 1.22)}
dend[1533] {pt3dclear() pt3dadd(-37.660004,34.484997,244.39502, 1.11) pt3dadd(-45.989006,34.484997,246.61601, 1.11)}
dend[1534] {pt3dclear() pt3dadd(-26.549004,34.484997,222.73302, 2.0) pt3dadd(-30.437004,34.484997,224.39902, 2.0)}
dend[1535] {pt3dclear() pt3dadd(-30.437004,34.484997,224.39902, 1.67) pt3dadd(-36.551003,34.484997,229.40202, 1.67)}
dend[1536] {pt3dclear() pt3dadd(-36.551003,34.484997,229.40202, 2.83) pt3dadd(-43.776,33.373997,232.18103, 2.83)}
dend[1537] {pt3dclear() pt3dadd(-43.776,33.373997,232.18103, 3.11) pt3dadd(-47.11,33.373997,229.40303, 3.11)}
dend[1538] {pt3dclear() pt3dadd(-47.11,33.373997,229.40303, 2.11) pt3dadd(-55.440002,33.373997,229.40303, 2.11)}
dend[1539] {pt3dclear() pt3dadd(-55.440002,33.373997,229.40303, 1.67) pt3dadd(-67.662,34.484997,235.51404, 1.67)}
dend[1540] {pt3dclear() pt3dadd(-43.776,33.373997,232.18103, 2.67) pt3dadd(-47.11,36.151997,233.29202, 2.67)}
dend[1541] {pt3dclear() pt3dadd(-9.883002,36.150997,211.61803, 4.06) pt3dadd(-3.2130022,36.150997,211.61803, 4.06)}
dend[1542] {pt3dclear() pt3dadd(-3.2130022,36.150997,211.61803, 2.5) pt3dadd(-0.99200225,37.261997,207.17503, 2.5)}
dend[1543] {pt3dclear() pt3dadd(-0.99200225,37.261997,207.17503, 2.22) pt3dadd(-3.2130022,37.261997,201.06604, 2.22)}
dend[1544] {pt3dclear() pt3dadd(-3.2130022,37.261997,201.06604, 1.78) pt3dadd(-3.2130022,35.038,199.39804, 1.78)}
dend[1545] {pt3dclear() pt3dadd(-3.2130022,36.150997,211.61803, 3.28) pt3dadd(0.12299776,34.482998,211.61803, 3.28)}
dend[1546] {pt3dclear() pt3dadd(0.12299776,34.482998,211.61803, 3.0) pt3dadd(3.4599977,34.482998,209.39403, 3.0)}
dend[1547] {pt3dclear() pt3dadd(3.4599977,34.482998,209.39403, 2.22) pt3dadd(5.680998,35.038,205.50803, 2.22)}
dend[1548] {pt3dclear() pt3dadd(5.680998,35.038,205.50803, 2.0) pt3dadd(7.348998,35.593998,201.61702, 2.0)}
dend[1549] {pt3dclear() pt3dadd(7.348998,35.593998,201.61702, 1.78) pt3dadd(12.530998,36.17,187.22202, 1.78)}
dend[1550] {pt3dclear() pt3dadd(12.530998,36.17,187.22202, 1.5) pt3dadd(25.310997,36.725998,184.44402, 1.5)}
dend[1551] {pt3dclear() pt3dadd(5.680998,35.038,205.50803, 1.72) pt3dadd(12.345998,35.038,203.84203, 1.72)}
dend[1552] {pt3dclear() pt3dadd(12.345998,35.038,203.84203, 1.22) pt3dadd(22.348999,33.927,199.95203, 1.22)}
dend[1553] {pt3dclear() pt3dadd(0.12299776,34.482998,211.61803, 3.78) pt3dadd(1.2359978,35.595997,212.17503, 3.78)}
dend[1554] {pt3dclear() pt3dadd(1.2359978,35.595997,212.17503, 2.94) pt3dadd(6.2359977,35.595997,212.17503, 2.94)}
dend[1555] {pt3dclear() pt3dadd(6.2359977,35.595997,212.17503, 1.94) pt3dadd(12.898998,35.040997,213.84103, 1.94)}
dend[1556] {pt3dclear() pt3dadd(12.898998,35.040997,213.84103, 1.61) pt3dadd(16.234999,35.040997,212.17303, 1.61)}
dend[1557] {pt3dclear() pt3dadd(16.234999,35.040997,212.17303, 1.44) pt3dadd(19.301998,35.653996,203.58504, 1.44)}
dend[1558] {pt3dclear() pt3dadd(19.301998,35.653996,203.58504, 1.33) pt3dadd(18.192999,35.653996,201.36703, 1.33)}
dend[1559] {pt3dclear() pt3dadd(18.192999,35.653996,201.36703, 1.22) pt3dadd(38.294,33.334995,197.50104, 1.22)}
dend[1560] {pt3dclear() pt3dadd(19.301998,35.653996,203.58504, 1.33) pt3dadd(24.859999,35.097996,199.13803, 1.33)}
dend[1561] {pt3dclear() pt3dadd(1.2359978,35.595997,212.17503, 3.44) pt3dadd(4.5709977,33.372997,220.51204, 3.44)}
dend[1562] {pt3dclear() pt3dadd(4.5709977,33.372997,220.51204, 2.5) pt3dadd(2.3489978,35.038998,224.95604, 2.5)}
dend[1563] {pt3dclear() pt3dadd(2.3489978,35.038998,224.95604, 1.67) pt3dadd(5.1259975,35.038998,234.39604, 1.67)}
dend[1564] {pt3dclear() pt3dadd(5.1259975,35.038998,234.39604, 1.44) pt3dadd(9.5739975,35.038998,238.84404, 1.44)}
dend[1565] {pt3dclear() pt3dadd(4.5709977,33.372997,220.51204, 2.5) pt3dadd(9.0149975,35.038998,222.73404, 2.5)}
dend[1566] {pt3dclear() pt3dadd(9.0149975,35.038998,222.73404, 1.89) pt3dadd(17.899998,35.593998,222.17905, 1.89)}
dend[1567] {pt3dclear() pt3dadd(17.899998,35.593998,222.17905, 1.89) pt3dadd(21.231998,36.149,216.62605, 1.89)}
dend[1568] {pt3dclear() pt3dadd(21.231998,36.149,216.62605, 1.72) pt3dadd(27.341,36.149,214.40506, 1.72)}
dend[1569] {pt3dclear() pt3dadd(27.341,36.149,214.40506, 1.44) pt3dadd(32.341,36.149,218.85007, 1.44)}
dend[1570] {pt3dclear() pt3dadd(17.899998,35.593998,222.17905, 1.61) pt3dadd(24.569998,35.593998,222.17905, 1.61)}
dend[1571] {pt3dclear() pt3dadd(24.569998,35.593998,222.17905, 1.33) pt3dadd(34.014,35.593998,221.62305, 1.33)}
dend[1572] {pt3dclear() pt3dadd(34.014,35.593998,221.62305, 1.33) pt3dadd(49.745,35.593998,213.46605, 1.33)}
dend[1573] {pt3dclear() pt3dadd(34.014,35.593998,221.62305, 1.11) pt3dadd(47.348,35.593998,225.51205, 1.11)}
dend[1574] {pt3dclear() pt3dadd(9.0149975,35.038998,222.73404, 1.67) pt3dadd(11.236998,35.594997,227.17804, 1.67)}
dend[1575] {pt3dclear() pt3dadd(11.236998,35.594997,227.17804, 1.28) pt3dadd(12.347998,35.038998,237.73505, 1.28)}
dend[1576] {pt3dclear() pt3dadd(12.347998,35.038998,237.73505, 1.0) pt3dadd(15.679997,35.593998,241.62204, 1.0)}
dend[1577] {pt3dclear() pt3dadd(11.236998,35.594997,227.17804, 1.5) pt3dadd(13.457997,36.704998,228.28804, 1.5)}
dend[1578] {pt3dclear() pt3dadd(13.457997,36.704998,228.28804, 1.56) pt3dadd(17.905998,36.704998,224.95204, 1.56)}
dend[1579] {pt3dclear() pt3dadd(17.905998,36.704998,224.95204, 1.33) pt3dadd(24.019999,35.038,227.73105, 1.33)}
dend[1580] {pt3dclear() pt3dadd(24.019999,35.038,227.73105, 1.11) pt3dadd(29.015999,35.593,224.40005, 1.11)}
dend[1581] {pt3dclear() pt3dadd(24.019999,35.038,227.73105, 1.11) pt3dadd(45.943,38.359997,237.69604, 1.11)}
dend[1582] {pt3dclear() pt3dadd(13.457997,36.704998,228.28804, 1.33) pt3dadd(23.457996,36.704998,233.28804, 1.33)}
dend[1583] {pt3dclear() pt3dadd(-9.883002,36.150997,211.61803, 3.94) pt3dadd(-7.660002,36.150997,218.28703, 3.94)}
dend[1584] {pt3dclear() pt3dadd(-7.660002,36.150997,218.28703, 2.56) pt3dadd(-2.6590023,36.706997,230.51204, 2.56)}
dend[1585] {pt3dclear() pt3dadd(-2.6590023,36.706997,230.51204, 2.28) pt3dadd(2.8989978,36.706997,236.07004, 2.28)}
dend[1586] {pt3dclear() pt3dadd(2.8989978,36.706997,236.07004, 2.0) pt3dadd(6.7889977,36.706997,242.73804, 2.0)}
dend[1587] {pt3dclear() pt3dadd(6.7889977,36.706997,242.73804, 1.61) pt3dadd(11.232998,36.151997,257.18002, 1.61)}
dend[1588] {pt3dclear() pt3dadd(6.7889977,36.706997,242.73804, 1.61) pt3dadd(15.673998,35.040997,248.84604, 1.61)}
dend[1589] {pt3dclear() pt3dadd(15.673998,35.040997,248.84604, 1.22) pt3dadd(14.495998,35.629997,267.10904, 1.22)}
dend[1590] {pt3dclear() pt3dadd(-2.6590023,36.706997,230.51204, 2.11) pt3dadd(-0.99200225,36.150997,244.95604, 2.11)}
dend[1591] {pt3dclear() pt3dadd(-0.99200225,36.150997,244.95604, 1.89) pt3dadd(2.3399978,36.150997,256.61905, 1.89)}
dend[1592] {pt3dclear() pt3dadd(2.3399978,36.150997,256.61905, 1.89) pt3dadd(9.0079975,35.594997,260.50906, 1.89)}
dend[1593] {pt3dclear() pt3dadd(9.0079975,35.594997,260.50906, 1.56) pt3dadd(17.338997,36.705997,267.72906, 1.56)}
dend[1594] {pt3dclear() pt3dadd(17.338997,36.705997,267.72906, 1.44) pt3dadd(21.920998,38.996998,281.47607, 1.44)}
dend[1595] {pt3dclear() pt3dadd(21.920998,38.996998,281.47607, 1.44) pt3dadd(5.2559967,37.885998,292.58606, 1.44)}
dend[1596] {pt3dclear() pt3dadd(2.3399978,36.150997,256.61905, 1.78) pt3dadd(-0.99200225,36.150997,265.50504, 1.78)}
dend[1597] {pt3dclear() pt3dadd(-0.99200225,36.150997,265.50504, 1.44) pt3dadd(-7.592002,36.750996,281.70505, 1.44)}
dend[1598] {pt3dclear() pt3dadd(-7.592002,36.750996,281.70505, 1.44) pt3dadd(-9.492002,41.183994,299.43805, 1.44)}
}
proc basic_shape_extra_16(){
}
proc basic_shape() {
soma {pt3dclear() pt3dadd(0, -14.9, 0, 29.8) pt3dadd(0, 14.9, 0, 29.8)}
basic_shape_extra_0()
basic_shape_extra_1()
basic_shape_extra_2()
basic_shape_extra_3()
basic_shape_extra_4()
basic_shape_extra_5()
basic_shape_extra_6()
basic_shape_extra_7()
basic_shape_extra_8()
basic_shape_extra_9()
basic_shape_extra_10()
basic_shape_extra_11()
basic_shape_extra_12()
basic_shape_extra_13()
basic_shape_extra_14()
basic_shape_extra_15()
basic_shape_extra_16()
}
proc topol() {
topol_extra_0()
topol_extra_1()
topol_extra_2()
topol_extra_3()
topol_extra_4()
topol_extra_5()
topol_extra_6()
topol_extra_7()
topol_extra_8()
topol_extra_9()
topol_extra_10()
topol_extra_11()
topol_extra_12()
topol_extra_13()
topol_extra_14()
topol_extra_15()
topol_extra_16()
basic_shape()
define_shape()
}
topol()
/* md: list of sections that are part of De Schutter's maind area */
objectvar md
md = new SectionList()
dend[0] md.append()
dend[1] md.append()
dend[2] md.append()
dend[3] md.append()
dend[4] md.append()
dend[5] md.append()
dend[6] md.append()
dend[7] md.append()
dend[8] md.append()
/* end of md definition */
/* td: list of sections that are part of De Schutter's thickd area */
objectvar td
td = new SectionList()
dend[9] td.append()
dend[10] td.append()
dend[11] td.append()
dend[12] td.append()
dend[13] td.append()
dend[14] td.append()
dend[15] td.append()
dend[16] td.append()
dend[17] td.append()
dend[18] td.append()
dend[19] td.append()
dend[20] td.append()
dend[21] td.append()
dend[22] td.append()
dend[23] td.append()
dend[24] td.append()
dend[25] td.append()
dend[26] td.append()
dend[27] td.append()
dend[28] td.append()
dend[29] td.append()
dend[30] td.append()
dend[31] td.append()
dend[32] td.append()
dend[33] td.append()
dend[34] td.append()
dend[35] td.append()
dend[36] td.append()
dend[37] td.append()
dend[38] td.append()
dend[39] td.append()
dend[40] td.append()
dend[41] td.append()
dend[42] td.append()
dend[43] td.append()
dend[44] td.append()
dend[45] td.append()
dend[46] td.append()
dend[47] td.append()
dend[48] td.append()
dend[49] td.append()
dend[50] td.append()
dend[51] td.append()
dend[52] td.append()
dend[53] td.append()
dend[54] td.append()
dend[55] td.append()
dend[56] td.append()
dend[57] td.append()
dend[58] td.append()
dend[59] td.append()
dend[60] td.append()
dend[61] td.append()
dend[62] td.append()
dend[63] td.append()
dend[64] td.append()
dend[65] td.append()
dend[66] td.append()
dend[67] td.append()
dend[68] td.append()
dend[69] td.append()
dend[114] td.append()
dend[300] td.append()
dend[301] td.append()
dend[302] td.append()
dend[370] td.append()
dend[526] td.append()
dend[533] td.append()
dend[534] td.append()
dend[535] td.append()
dend[722] td.append()
dend[747] td.append()
dend[787] td.append()
dend[788] td.append()
dend[873] td.append()
dend[884] td.append()
dend[938] td.append()
dend[947] td.append()
dend[998] td.append()
dend[1069] td.append()
dend[1094] td.append()
dend[1107] td.append()
dend[1135] td.append()
dend[1142] td.append()
dend[1143] td.append()
dend[1177] td.append()
dend[1213] td.append()
dend[1261] td.append()
dend[1282] td.append()
dend[1324] td.append()
dend[1348] td.append()
dend[1354] td.append()
dend[1371] td.append()
dend[1392] td.append()
dend[1402] td.append()
dend[1403] td.append()
dend[1444] td.append()
dend[1449] td.append()
dend[1463] td.append()
dend[1471] td.append()
dend[1481] td.append()
dend[1491] td.append()
dend[1492] td.append()
dend[1541] td.append()
dend[1583] td.append()
/* end of td definition */