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 {VectorWorks Version 11.0.0 (29707)} {Global Characteristics} DrwSize(1,1); SetUnits(0,1,0,25.400000000000006,'mm',' sq mm'); PrimaryUnits(0,1,1,2,6,FALSE,FALSE); SecondaryUnits(1,3,1,TRUE,TRUE); SetPrefLongInt(162,1); SetPrefLongInt(169,1); SetPrefLongInt(171,3); SetPrefLongInt(172,3); SetPrefLongInt(212,3); SetPrefLongInt(219,3); SetPrefLongInt(221,3); SetPrefLongInt(222,3); SetPrefInt(174,0); SetPrefInt(224,0); SetPref(167,FALSE); SetPref(173,TRUE); SetPref(223,FALSE); SetPref(175,FALSE); SetPref(225,TRUE); GridLines(0.5); PenGrid(0.125); DoubLines(0); SetPrefReal(73,0); SetOriginAbsolute(0,0); SetPref(37,TRUE); SetPref(38,TRUE); SetPref(5,TRUE); 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} {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,0); AddVectorFillLayer(0,0,1,1,0.176776695,-0.176776695,1,1,255); EndVectorFill; {End of Hatch Definition Entries} {Symbol Library Entries} {End of Symbol Library Entries} {Layer Characteristics} layerHandle := CreateLayer('Design Layer-1', 1); SetScale(1); ShowLayer; CopyMode(8); LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.904000000000025,-123.952000000000012,123.952000000000012,123.952000000000012,-123.952000000000012); {End of Layer Characteristics} {Object Creation Code} NameClass('None'); PenSize(1); PenPat(2); FillPat(1); PenFore(0,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(0,65535,65535); Rect(0,10.000000000000002,10.000000000000002,0); Rect(0,20.000000000000004,10.000000000000002,10.000000000000002); Rect(0,30.000000000000007,10.000000000000002,20.000000000000004); Rect(0,40.000000000000007,10.000000000000002,30.000000000000007); Rect(-10.000000000000002,30.000000000000007,0,20.000000000000004); Rect(0,30.000000000000007,10.000000000000002,20.000000000000004); Rect(10.000000000000002,30.000000000000007,20.000000000000004,20.000000000000004); Oval(1,9.000000000000002,9.000000000000002,1); Oval(-9.000000000000002,29.000000000000007,-1,21.000000000000004); Rect(1,9.000000000000002,9.000000000000002,1); Rect(1,39.000000000000007,9.000000000000002,31.000000000000007); Oval(11.000000000000002,29.000000000000007,19.000000000000004,21.000000000000004); 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); 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); SetClFPat('Dimension',1); SetClLS('Dimension',2); SetClLW('Dimension',1); SetClUseGraphic('Dimension',FALSE); {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(0,65535,65535); {End of Default Attributes} END; Run(LoadFile);