Procedure LoadFile; VAR hatchName, gradientName, objectName:STRING; result, index, segmentIndex:INTEGER; boolResult:BOOLEAN; top, left, bottom, right:REAL; tempHandle, tempHandle1, tempHandle2, gradientHandle, objectHandle, layerHandle, viewportHandle:HANDLE; hatchName1:STRING; BEGIN {Global Characteristics} DrwSize(2,3); SetUnits(0,7,0,2.54,'cm',' sq cm'); PrimaryUnits(0,7,1,2,10,FALSE,FALSE); SecondaryUnits(7,1,2,FALSE,FALSE); SetPrefLongInt(162,7); SetPrefLongInt(169,1); SetPrefLongInt(171,3); SetPrefLongInt(172,3); SetPrefLongInt(212,1); SetPrefLongInt(219,1); SetPrefLongInt(221,3); SetPrefLongInt(222,3); SetPrefInt(174,0); SetPrefInt(224,0); SetPref(167,FALSE); SetPref(173,TRUE); SetPref(223,TRUE); SetPref(175,FALSE); SetPref(225,FALSE); GridLines(1); PenGrid(0.2); SetPrefReal(73,0); SetOriginAbsolute(0,0); SetPref(37,TRUE); SetPref(38,TRUE); SetPref(5,FALSE); OpenPoly; SetDashStyle(TRUE,2,0.041656,0.041672); SetDashStyle(TRUE,2,0.097214,0.041671); SetDashStyle(TRUE,2,0.208328,0.041672); SetDashStyle(TRUE,2,0.263885,0.041657); SetDashStyle(TRUE,2,0.013885,0.027771); SetDashStyle(TRUE,4,0.125,0.041656,0.013886,0.027786); SetDashStyle(TRUE,6,0.125,0.041656,0.125,0.041672,0.013886,0.027786); SetDashStyle(TRUE,6,0.125,0.041656,0.013886,0.027786,0.013886,0.027786); SetDashStyle(TRUE,4,0.75,0.055557,0.138886,0.055557); SetDashStyle(TRUE,6,0.75,0.055557,0.138886,0.055557,0.125,0.0625); SetPrefInt(121,0); SetPrefReal(68,0); SetPrefReal(69,0); SetPrefReal(70,1); {End of Global Characteristics} {Record Format Entries} {Begin Visible Record Format Entries} NewField('__NNA_Wall_Style_Format','Mark','',4,0); NewField('__NNA_Wall_Style_Format','Description','',4,0); NewField('__NNA_Wall_Style_Format','Wall Function','',4,0); NewField('__NNA_Wall_Style_Format','Cost Index Code','',4,0); NewField('__NNA_Wall_Style_Format','Fire Rating','',4,0); NewField('__NNA_Wall_Style_Format','STC Rating','',4,0); NewField('__NNA_Wall_Style_Format','Thermal Resistance','',4,0); NewField('__NNA_Wall_Style_Format','Model','',4,0); NewField('__NNA_Wall_Style_Format','Manufacturer','',4,0); NewField('__NNA_Wall_Style_Format','URL','',4,0); {End of Visible Record Format Entries} {Begin Hidden Record Format Entries} {End of Hidden Record Format Entries} {End of Record Format Entries} {Worksheet Entries} {End of Worksheet Entries} {Gradient Definition Entries} {End of GradientDefinition Entries} {Hatch Definition Entries} hatchName1:= 'Default Hatch'; BeginVectorFillN(hatchName1,TRUE,FALSE,256); AddVectorFillLayer(0,0,1,1,0.176776695,-0.176776695,1,1,257); EndVectorFill; {End of Hatch Definition Entries} {Symbol Library Entries} BeginSym('LCD-ARC-31'); NameClass('None'); Locus3D(0,0,0); NameClass('AC-20.905157'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(12); FillPat(1); Arc(-1,1,1,-1,#90.00000000000d,#9.693723890000d); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1,1,1,-1,#99.69372389000d,#11.21143355000d); EndXtrd; ResetOrientation3D; Rotate3D(#58.28252559000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0,0,0); NameClass('CB-31.71747441'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#31.71747441000d); EndXtrd; ResetOrientation3D; Rotate3D(#90.00000000000d,#31.71747441000d,#90.00000000000d); Move3D(0,0,0); NameClass('AB-37.37736814'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#37.37736814000d); EndXtrd; ResetOrientation3D; Rotate3D(#90.00000000000d,#-0.0000000000000d,#-54.00000000000d); Move3D(0,0,0); NameClass('None'); Locus3D(-0.356822089644461,0.491123473193992,0.794654472346086); NameClass('B13-18.000'); FillColorByClass; LSByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; MarkerByClass; OpacityByClass; PenSize(8); PenFore(65535,0,65535); PenBack(65535,65535,65535); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#33.01739807000d); EndXtrd; ResetOrientation3D; Rotate3D(#90.00000000000d,#0.0000000000000d,#-72.00000000000d); Move3D(0,0,0); NameClass('A40'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(3); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#22.42407708000d); EndXtrd; ResetOrientation3D; Rotate3D(#115.0706843623d,#28.68049905513d,#170.2676530191d); Move3D(0,0,0); NameClass('A42'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#25.78765178000d); EndXtrd; ResetOrientation3D; Rotate3D(#106.1258003839d,#34.18768269644d,#153.2276447584d); Move3D(0,0,0); NameClass('A41'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#23.80018261000d); EndXtrd; ResetOrientation3D; Rotate3D(#110.9051575847d,#31.71747404866d,#161.9999998364d); Move3D(0,0,0); NameClass('EC'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1,1,1,-1,#90.00000000000d,#22.23875610000d); EndXtrd; ResetOrientation3D; Rotate3D(#77.56371955366d,#29.41445108157d,#65.81858623907d); Move3D(0,0,0); NameClass('C1'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1,1,1,-1,#90.00000000000d,#18.30381605000d); EndXtrd; ResetOrientation3D; Rotate3D(#60.00000703938d,#10.81233823917d,#18.00003751752d); Move3D(0,0,0); NameClass('DC'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(6); Arc(-1,1,1,-1,#90.00000000000d,#18.00000000000d); EndXtrd; ResetOrientation3D; Rotate3D(#62.26769819434d,#16.04505647785d,#27.73230014810d); Move3D(0,0,0); NameClass('C6'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(3); Arc(-1,1,1,-1,#90.00000000000d,#18.46161483000d); EndXtrd; ResetOrientation3D; Rotate3D(#66.39390121110d,#21.82346354544d,#40.38617753990d); Move3D(0,0,0); NameClass('C11'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1,1,1,-1,#90.00000000000d,#19.96462874000d); EndXtrd; ResetOrientation3D; Rotate3D(#71.99999984473d,#26.56505107437d,#53.99999965109d); Move3D(0,0,0); NameClass('13.40'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(4); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#12.73622930000d); EndXtrd; ResetOrientation3D; Rotate3D(#109.8997934144d,#26.90572552686d,#146.6575894635d); Move3D(0,0,0); NameClass('13.1'); FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#9.853349290000d); EndXtrd; ResetOrientation3D; MirrorXY3D; Rotate3D(#59.64194150861d,#13.65195051514d,#39.94783425924d); Move3D(-0.000000000000001,0,0); NameClass('13.6'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#13.41960131000d); EndXtrd; ResetOrientation3D; MirrorXY3D; Rotate3D(#71.75643293755d,#28.00775927780d,#72.93330190261d); Move3D(0,0.000000000000001,0); NameClass('6.42'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(3); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#13.11661628000d); EndXtrd; ResetOrientation3D; Rotate3D(#73.94319729404d,#-2.641835083534d,#-9.098314066637d); Move3D(0,0,0); NameClass('6.40'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(4); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#13.84991841000d); EndXtrd; ResetOrientation3D; Rotate3D(#67.92675091296d,#8.020733780769d,#18.98758645622d); Move3D(0,0,0); NameClass('E42'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(3); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#9.476737900000d); EndXtrd; ResetOrientation3D; Rotate3D(#76.54033752980d,#9.220982894025d,#33.80369429246d); Move3D(0,0,0); NameClass('FE'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(6); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#7.761243920000d); EndXtrd; ResetOrientation3D; Rotate3D(#79.18768259000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0,0,0); NameClass('11.42'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; PenSize(2); Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#10.48175857000d); EndXtrd; ResetOrientation3D; Rotate3D(#73.93785318330d,#2.608280626445d,#8.981630154582d); Move3D(0,0,0); NameClass('11.41'); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#11.71314858000d); EndXtrd; ResetOrientation3D; Rotate3D(#72.08376554333d,#9.212743339921d,#26.34468860889d); Move3D(0,0,0); NameClass('11.40'); FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; BeginXtrd(0,0); FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; Arc(-1.000000000000001,1,1.000000000000001,-1,#90.00000000000d,#13.59327420000d); EndXtrd; ResetOrientation3D; Rotate3D(#71.67121690974d,#14.83193679373d,#37.69411044863d); Move3D(0,0,0); EndSym; SetSymbolOptionsN('LCD-ARC-31',0,1,''); BeginSym('LCD-Tet10-Pent'); NameClass('None'); BeginGroup; Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#72.00000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#-108.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#144.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#-36.00000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#-144.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#36.00000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#-72.00000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#108.0000000000d); Move3D(-0.000000000000001,0,0); EndGroup; EndSym; SetSymbolOptionsN('LCD-Tet10-Pent',0,1,''); {End of Symbol Library Entries} {Layer Characteristics} layerHandle := CreateLayer('LCD-Tet1', 1); SetScale(0.1); HideLayer; CopyMode(8); LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); {End of Layer Characteristics} {Object Creation Code} Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0,0,0); NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextFont(GetFontID('Arial')); TextSize(14); TextFace([]); TextFlip(0); TextRotate(0); TextSpace(2); TextJust(1); TextVerticalAlign(1); TextOrigin(0,-1); BeginText; 'Basic Triacon LCD Tetra with Great Circle Arcs se: http://www.rwgrayprojects.com/synergetics/synergetics.html Synergetics 1132.01D. http://www.rwgrayprojects.com/synergetics/synergetics.html ________ Phi = (1+sqr5)/2=1.618033988..., phi= 1/((1+sqr5)/2)=0.618033988 atan(2)=63.43494882¼ atan(.5)=26.56505118¼ atan(2)/2=31.71747441¼ atan(1-phi)=20.90515749¼ 90- (31.71747441..)+(20.90515749..)=37.3773681¼ asin(0.6666666...) = 41.8026365¼' EndText; SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Tet2', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); {End of Layer Characteristics} {Object Creation Code} NameClass('None'); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0,0,0); Symbol('LCD-ARC-31',0,0,#0.0000000000000d); ResetOrientation3D; MirrorXY3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#180.0000000000d); Move3D(0,0,0); NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-2); BeginText; 'Basic Triacon LCD Tetra reflect along Y axis = 2 LCD-Tetra' EndText; SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Tet10=Pent', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); {End of Layer Characteristics} {Object Creation Code} FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-2); BeginText; '2 Triacon LCD Tetra rotated 4@72¼ along Z axis = 10 LCD-Tetra' EndText; NameClass('None'); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,0); SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('--Method#1--', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Pent-3', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(0,11,2.47904,-1.23952,1.23952,1.23952,-1.23952); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); {End of Layer Characteristics} {Object Creation Code} NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-2); BeginText; 'LCD-Tet10-Pent rotated -37.3773681¼ along X axis. then Duplicate & rotate 2@120¼ along Z axis' EndText; NameClass('None'); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#120.0000000000d); Move3D(-0.000000000000001,0.000000000000001,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#-120.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,-0.000000000000001); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Pent-6', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(0,11,2.47904,-1.23952,1.23952,1.23952,-1.23952); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); {End of Layer Characteristics} {Object Creation Code} NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-2); BeginText; 'Select Pent>Duplicate & rotate 180¼ along Z axis then: Rotate the duplicated Pent @ 41.80980243¼ along X axis then: dup&rotate 2@120¼ along Z axis total = 6 pent = 60 LCD-Tet' EndText; NameClass('None'); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#120.0000000000d); Move3D(-0.000000000000001,0.000000000000001,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#-120.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#-60.00000000000d); Move3D(0,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#60.00000000000d); Move3D(0.000000000000001,0.000000000000001,0); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Pent-12', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(0,11,2.47904,-1.23952,1.23952,1.23952,-1.23952); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); {End of Layer Characteristics} {Object Creation Code} NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-1.5); BeginText; 'Duplicate & rotate 180¼ along Z axis then: Duplicate & rotate 180¼ along Y axis Total=12 Pent=120 LCD-Tet' EndText; NameClass('None'); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#120.0000000000d); Move3D(-0.000000000000001,0.000000000000001,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-37.37736800000d,#-0.0000000000000d,#-120.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,-0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#-60.00000000000d); Move3D(0,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-79.18717043000d,#-0.0000000000000d,#60.00000000000d); Move3D(0.000000000000001,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#142.6226320000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#142.6226320000d,#0.0000000000000d,#-120.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#142.6226320000d,#0.0000000000000d,#120.0000000000d); Move3D(-0.000000000000001,0.000000000000001,0.000000000000001); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#100.8128295700d,#0.0000000000000d,#-180.0000000000d); Move3D(-0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#100.8128295700d,#0.0000000000000d,#60.00000000000d); Move3D(0,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#100.8128295700d,#0.0000000000000d,#-60.00000000000d); Move3D(0.000000000000001,-0.000000000000001,0); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('--Method#2--', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Pent6-72¼', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(0,0,2.47904,-1.23952,1.23952,1.23952,-1.23952); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); {End of Layer Characteristics} {Object Creation Code} NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-1.5); BeginText; 'Duplicate Pent then Rotate -atan(2)=-63.43494882 along X axis then Sel>Pent , Duplicate & rotate 4 @72¼ along Z axis Total= 6 Pent = 60 LCD-Tet' EndText; NameClass('None'); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#-108.0000000000d); Move3D(0,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#-36.00000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#36.00000000000d); Move3D(0.000000000000001,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#108.0000000000d); Move3D(-0.000000000000001,0.000000000000001,0); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('LCD-Pent12-72¼', 1); SetScale(0.1); HideLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(0,14,2.47904,-1.23952,1.23952,1.23952,-1.23952); SetView(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d,0,0,0); {End of Layer Characteristics} {Object Creation Code} NameClass('A-Anno-Note'); FPatByClass; FillColorByClass; LSByClass; PenColorByClass; LWByClass; MarkerByClass; OpacityByClass; FillFore(0,0,0); FillBack(65535,65535,65535); PenFore(0,0,13107); PenBack(65535,65535,65535); TextOrigin(0,-1.5); BeginText; 'Duplicate LCD-Pent6-72¼ then rotate 180¼ along the Z axis then rotate 180¼ along the Y axis Total=12Pent = 120 LCD-Tet' EndText; NameClass('None'); BeginGroup; Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#0.0000000000000d,#-0.0000000000000d,#0.0000000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#-108.0000000000d); Move3D(0,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#-36.00000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#36.00000000000d); Move3D(0.000000000000001,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#63.43494882000d,#0.0000000000000d,#108.0000000000d); Move3D(-0.000000000000001,0.000000000000001,0); EndGroup; BeginGroup; Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#180.0000000000d,#-0.0000000000000d,#-0.0000000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-116.5650511800d,#0.0000000000000d,#180.0000000000d); Move3D(-0.000000000000001,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-116.5650511800d,#-0.0000000000000d,#108.0000000000d); Move3D(0,0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-116.5650511800d,#-0.0000000000000d,#36.00000000000d); Move3D(0.000000000000001,0,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-116.5650511800d,#-0.0000000000000d,#-36.00000000000d); Move3D(0.000000000000001,-0.000000000000001,0); Symbol('LCD-Tet10-Pent',0,0,#0.0000000000000d); ResetOrientation3D; Rotate3D(#-116.5650511800d,#-0.0000000000000d,#-108.0000000000d); Move3D(-0.000000000000001,-0.000000000000001,0); EndGroup; SetView(#-45.00000000000d,#-35.26438968275d,#-30.00000000000d,0,0,0); SetZVals(0,0); {End of Creation Code} {Classes} NameClass('None'); SetClFillFore('None',0,0,0); SetClFillBack('None',65535,65535,65535); SetClPenFore('None',0,0,0); SetClPenBack('None',65535,65535,65535); SetClassArrow('None',0,0.317500000000001,15); SetClFPat('None',1); SetClLS('None',2); SetClLW('None',1); SetClUseGraphic('None',FALSE); NameClass('Dimension'); SetClFillFore('Dimension',0,0,0); SetClFillBack('Dimension',65535,65535,65535); SetClPenFore('Dimension',0,0,0); SetClPenBack('Dimension',65535,65535,65535); SetClassArrow('Dimension',0,0.317500000000001,15); SetClFPat('Dimension',1); SetClLS('Dimension',2); SetClLW('Dimension',1); SetClUseGraphic('Dimension',FALSE); NameClass('AC-20.905157'); SetClFillFore('AC-20.905157',0,0,0); SetClFillBack('AC-20.905157',26214,26214,52428); SetClPenFore('AC-20.905157',26214,26214,52428); SetClPenBack('AC-20.905157',65535,65535,65535); SetClassArrow('AC-20.905157',0,0.317500000000001,15); SetClFPat('AC-20.905157',1); SetClLS('AC-20.905157',2); SetClLW('AC-20.905157',1); SetClUseGraphic('AC-20.905157',TRUE); NameClass('CB-31.71747441'); SetClFillFore('CB-31.71747441',0,0,0); SetClFillBack('CB-31.71747441',13107,0,39321); SetClPenFore('CB-31.71747441',13107,0,39321); SetClPenBack('CB-31.71747441',65535,65535,65535); SetClassArrow('CB-31.71747441',0,0.317500000000001,15); SetClFPat('CB-31.71747441',1); SetClLS('CB-31.71747441',2); SetClLW('CB-31.71747441',1); SetClUseGraphic('CB-31.71747441',TRUE); NameClass('AB-37.37736814'); SetClFillFore('AB-37.37736814',0,0,0); SetClFillBack('AB-37.37736814',39321,26214,39321); SetClPenFore('AB-37.37736814',39321,26214,39321); SetClPenBack('AB-37.37736814',65535,65535,65535); SetClassArrow('AB-37.37736814',0,0.317500000000001,15); SetClFPat('AB-37.37736814',1); SetClLS('AB-37.37736814',2); SetClLW('AB-37.37736814',1); SetClUseGraphic('AB-37.37736814',TRUE); NameClass('B13-18.000'); SetClFillFore('B13-18.000',0,0,0); SetClFillBack('B13-18.000',65535,0,65535); SetClPenFore('B13-18.000',65535,0,65535); SetClPenBack('B13-18.000',65535,65535,65535); SetClassArrow('B13-18.000',0,0.317500000000001,15); SetClFPat('B13-18.000',1); SetClLS('B13-18.000',2); SetClLW('B13-18.000',8); SetClUseGraphic('B13-18.000',TRUE); NameClass('A40'); SetClFillFore('A40',0,0,0); SetClFillBack('A40',32896,0,32896); SetClPenFore('A40',32896,0,32896); SetClPenBack('A40',65535,65535,65535); SetClassArrow('A40',0,0.317500000000001,15); SetClFPat('A40',1); SetClLS('A40',2); SetClLW('A40',1); SetClUseGraphic('A40',TRUE); NameClass('A42'); SetClFillFore('A42',0,0,0); SetClFillBack('A42',65535,26214,52428); SetClPenFore('A42',65535,26214,52428); SetClPenBack('A42',65535,65535,65535); SetClassArrow('A42',0,0.317500000000001,15); SetClFPat('A42',1); SetClLS('A42',2); SetClLW('A42',1); SetClUseGraphic('A42',TRUE); NameClass('A41'); SetClFillFore('A41',0,0,0); SetClFillBack('A41',39321,0,26214); SetClPenFore('A41',39321,0,26214); SetClPenBack('A41',65535,65535,65535); SetClassArrow('A41',0,0.317500000000001,15); SetClFPat('A41',1); SetClLS('A41',2); SetClLW('A41',1); SetClUseGraphic('A41',TRUE); NameClass('EC'); SetClFillFore('EC',0,0,0); SetClFillBack('EC',32896,32896,0); SetClPenFore('EC',32896,32896,0); SetClPenBack('EC',65535,65535,65535); SetClassArrow('EC',0,0.317500000000001,15); SetClFPat('EC',1); SetClLS('EC',2); SetClLW('EC',4); SetClUseGraphic('EC',TRUE); NameClass('C1'); SetClFillFore('C1',0,0,0); SetClFillBack('C1',0,0,56797); SetClPenFore('C1',0,0,56797); SetClPenBack('C1',65535,65535,65535); SetClassArrow('C1',0,0.317500000000001,15); SetClFPat('C1',1); SetClLS('C1',2); SetClLW('C1',1); SetClUseGraphic('C1',TRUE); NameClass('DC'); SetClFillFore('DC',0,0,0); SetClFillBack('DC',65535,26214,13107); SetClPenFore('DC',65535,26214,13107); SetClPenBack('DC',65535,65535,65535); SetClassArrow('DC',0,0.317500000000001,15); SetClFPat('DC',1); SetClLS('DC',2); SetClLW('DC',6); SetClUseGraphic('DC',TRUE); NameClass('C6'); SetClFillFore('C6',0,0,0); SetClFillBack('C6',0,0,32896); SetClPenFore('C6',0,0,32896); SetClPenBack('C6',65535,65535,65535); SetClassArrow('C6',0,0.317500000000001,15); SetClFPat('C6',1); SetClLS('C6',2); SetClLW('C6',1); SetClUseGraphic('C6',TRUE); NameClass('C11'); SetClFillFore('C11',0,0,0); SetClFillBack('C11',0,0,54272); SetClPenFore('C11',0,0,54272); SetClPenBack('C11',65535,65535,65535); SetClassArrow('C11',0,0.317500000000001,15); SetClFPat('C11',1); SetClLS('C11',2); SetClLW('C11',1); SetClUseGraphic('C11',TRUE); NameClass('13.40'); SetClFillFore('13.40',0,0,0); SetClFillBack('13.40',56683,2242,1698); SetClPenFore('13.40',56797,0,0); SetClPenBack('13.40',65535,65535,65535); SetClassArrow('13.40',0,0.317500000000001,15); SetClFPat('13.40',1); SetClLS('13.40',2); SetClLW('13.40',1); SetClUseGraphic('13.40',TRUE); NameClass('13.1'); SetClFillFore('13.1',0,0,0); SetClFillBack('13.1',56797,0,0); SetClPenFore('13.1',56797,0,0); SetClPenBack('13.1',65535,65535,65535); SetClassArrow('13.1',0,0.317500000000001,15); SetClFPat('13.1',1); SetClLS('13.1',2); SetClLW('13.1',1); SetClUseGraphic('13.1',TRUE); NameClass('13.6'); SetClFillFore('13.6',0,0,0); SetClFillBack('13.6',61166,0,0); SetClPenFore('13.6',56797,0,0); SetClPenBack('13.6',65535,65535,65535); SetClassArrow('13.6',0,0.317500000000001,15); SetClFPat('13.6',1); SetClLS('13.6',2); SetClLW('13.6',1); SetClUseGraphic('13.6',TRUE); NameClass('6.42'); SetClFillFore('6.42',0,0,0); SetClFillBack('6.42',577,43860,60159); SetClPenFore('6.42',577,43860,60159); SetClPenBack('6.42',65535,65535,65535); SetClassArrow('6.42',0,0.317500000000001,15); SetClFPat('6.42',1); SetClLS('6.42',2); SetClLW('6.42',1); SetClUseGraphic('6.42',TRUE); NameClass('6.40'); SetClFillFore('6.40',0,0,0); SetClFillBack('6.40',0,65535,65535); SetClPenFore('6.40',0,65535,65535); SetClPenBack('6.40',65535,65535,65535); SetClassArrow('6.40',0,0.317500000000001,15); SetClFPat('6.40',1); SetClLS('6.40',2); SetClLW('6.40',1); SetClUseGraphic('6.40',TRUE); NameClass('E42'); SetClFillFore('E42',0,0,0); SetClFillBack('E42',52428,39321,26214); SetClPenFore('E42',52428,39321,26214); SetClPenBack('E42',65535,65535,65535); SetClassArrow('E42',0,0.317500000000001,15); SetClFPat('E42',1); SetClLS('E42',2); SetClLW('E42',1); SetClUseGraphic('E42',TRUE); NameClass('FE'); SetClFillFore('FE',0,0,0); SetClFillBack('FE',65535,21845,0); SetClPenFore('FE',65535,21845,0); SetClPenBack('FE',65535,65535,65535); SetClassArrow('FE',0,0.317500000000001,15); SetClFPat('FE',1); SetClLS('FE',2); SetClLW('FE',6); SetClUseGraphic('FE',TRUE); NameClass('11.42'); SetClFillFore('11.42',0,0,0); SetClFillBack('11.42',13107,65535,39321); SetClPenFore('11.42',13107,65535,39321); SetClPenBack('11.42',65535,65535,65535); SetClassArrow('11.42',0,0.317500000000001,15); SetClFPat('11.42',1); SetClLS('11.42',2); SetClLW('11.42',1); SetClUseGraphic('11.42',TRUE); NameClass('11.41'); SetClFillFore('11.41',0,0,0); SetClFillBack('11.41',0,48059,0); SetClPenFore('11.41',0,48059,0); SetClPenBack('11.41',65535,65535,65535); SetClassArrow('11.41',0,0.317500000000001,15); SetClFPat('11.41',1); SetClLS('11.41',2); SetClLW('11.41',1); SetClUseGraphic('11.41',TRUE); NameClass('11.40'); SetClFillFore('11.40',0,0,0); SetClFillBack('11.40',0,65535,0); SetClPenFore('11.40',0,65535,0); SetClPenBack('11.40',65535,65535,65535); SetClassArrow('11.40',0,0.317500000000001,15); SetClFPat('11.40',1); SetClLS('11.40',2); SetClLW('11.40',1); SetClUseGraphic('11.40',TRUE); NameClass('A-Anno-Note'); SetClFillFore('A-Anno-Note',0,0,0); SetClFillBack('A-Anno-Note',65535,65535,65535); SetClPenFore('A-Anno-Note',32896,0,32896); SetClPenBack('A-Anno-Note',65535,65535,65535); SetClassArrow('A-Anno-Note',0,0.317500000000001,15); SetClFPat('A-Anno-Note',1); SetClLS('A-Anno-Note',2); SetClLW('A-Anno-Note',1); SetClUseGraphic('A-Anno-Note',TRUE); NameClass('3D-Locus'); SetClFillFore('3D-Locus',0,0,0); SetClFillBack('3D-Locus',65535,65535,65535); SetClPenFore('3D-Locus',65535,0,65535); SetClPenBack('3D-Locus',65535,65535,65535); SetClassArrow('3D-Locus',0,0.317500000000001,15); SetClFPat('3D-Locus',1); SetClLS('3D-Locus',2); SetClLW('3D-Locus',1); SetClUseGraphic('3D-Locus',TRUE); {End of Class Entries} {Default Attributes} PenSize(1); PenPat(2); FillPat(1); Marker(0,0.125,15); PenFore(0,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(65535,65535,65535); {End of Default Attributes} END; Run(LoadFile);