Procedure monolith;
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

DrwSize(1,1);
SetUnits(0,3,0,0.0254,'m',' sq m');
PrimaryUnits(0,3,1,2,6,FALSE,FALSE);
SecondaryUnits(4,1,2,FALSE,FALSE);
SetPrefLongInt(162,3);
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(0.01);
PenGrid(0.002);
DoubLines(0.1397);
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);


NewField('NNA_SelectWallType','Current Wall Type','Frame-Wd 2x6 to 96" H.',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Class','Wall-Ext-Frame',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Height','96.00000000',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_PrefSetPointer','Path','Plug-Ins\VW_Arch\Data\Prefs_Def\',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);
NewField('NNA_PrefSetPointer','Name','VA Defaults',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);

hatchName1:= 'Default Hatch';
BeginVectorFillN(hatchName1,TRUE,FALSE,0);
AddVectorFillLayer(0,0,1,1,0.176776695,-0.176776695,1,1,255);
EndVectorFill;

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,0.247904,-0.123952,0.123952,0.123952,-0.123952);

NameClass('None');
PenSize(1);
PenPat(2);
FillPat(1);
PenFore(0,0,0);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(65535,65535,65535);
Rect(-0.102,0.078,-0.062,-0.072);

Rect(-0.062,0.078,-0.022,-0.072);

Rect(-0.022,0.078,0.018,-0.072);

Rect(0.018,0.078,0.058,-0.072);





Marker(0,0.125,15);
MoveTo(-0.1,0.054);
LineTo(-0.064,0.018);

MoveTo(-0.1,-0.014);
LineTo(-0.064,0.072);

MoveTo(-0.082,0.076);
LineTo(-0.094,-0.07);

MoveTo(-0.074,-0.07);
LineTo(-0.1,0.014);

MoveTo(-0.1,-0.038);
LineTo(-0.064,-0.002);

MoveTo(-0.064,-0.036);
LineTo(-0.1,0.02635382907248);

MoveTo(-0.064,-0.07);
LineTo(-0.094,0.076);


MoveTo(-0.06,0.064);
LineTo(-0.024,-0.04);

MoveTo(-0.042,-0.07);
LineTo(-0.028,0.076);

MoveTo(-0.048,0.076);
LineTo(-0.048,-0.07);

MoveTo(-0.06,-0.066);
LineTo(-0.024,-0.026);

MoveTo(-0.06,-0.002);
LineTo(-0.024,-0.06435382907248);

MoveTo(-0.06,0.03);
LineTo(-0.033441887617277,0.076);

MoveTo(-0.02,0.032);
LineTo(0.016,0.058);

MoveTo(-0.006,0.076);
LineTo(0.016,-0.012);

MoveTo(-0.02,-0.022);
LineTo(0.016,0.036);

MoveTo(-0.02,0.052);
LineTo(0.002,-0.07);

MoveTo(-0.008,-0.07);
LineTo(0.016,-0.028430780618347);

MoveTo(0.008,0.076);
LineTo(-0.002,-0.07);

MoveTo(-0.02,-0.044);
LineTo(0.016,-0.023215390309173);

MoveTo(0.02,0.064);
LineTo(0.056,-0.008);

MoveTo(0.02,-0.012);
LineTo(0.048,0.076);

MoveTo(0.034,0.076);
LineTo(0.052,-0.07);

MoveTo(0.034,-0.07);
LineTo(0.02,-0.045751288694036);

MoveTo(0.026,-0.07);
LineTo(0.056,0.042);

MoveTo(0.02,0.036);
LineTo(0.042,-0.07);

SetZVals(0,0);

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);

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;

Run(monolith);