wocaonima.txt

VC开发的等值线分析代码 -高斯法计算曲面方程值并计算网格点值 这个是简单的用于画直线,圆,以及图象填充等经典算法的实现,跟CAD的画图界面很类似,但是十分简单.

set fgh=form1.vbfgh.text
float CContourOCX::GetMinYPos()
{
	float result;
	GetProperty(0x1, VT_R4, (void*)&result);
	return result;
}

void CContourOCX::SetMinYPos(float propVal)
{
	SetProperty(0x1, VT_R4, propVal);
}

float CContourOCX::GetMaxXPos()
{
	float result;
	GetProperty(0x2, VT_R4, (void*)&result);
	return result;
}

void CContourOCX::SetMaxXPos(float propVal)
{
	SetProperty(0x2, VT_R4, propVal);
}

float CContourOCX::GetMaxYPos()
{
	float result;
	GetProperty(0x3, VT_R4, (void*)&result);
	return result;
}

void CContourOCX::SetMaxYPos(float propVal)
{
	SetProperty(0x3, VT_R4, propVal);
}

float CContourOCX::GetMinXPos()
{
	float result;
	GetProperty(0x4, VT_R4, (void*)&result);
	return result;
}

void CContourOCX::SetMinXPos(float propVal)
{
	SetProperty(0x4, VT_R4, propVal);
}

/////////////////////////////////////////////////////////////////////////////
// CContourOCX operations

void CContourOCX::AddPoint(long row, long col, double x, double y, double value)
{
	static BYTE parms[] =
		VTS_I4 VTS_I4 VTS_R8 VTS_R8 VTS_R8;
	InvokeHelper(0x5, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 row, col, x, y, value);
}

void CContourOCX::Calculate(long Compensate, long CompensateValue)
{
	static BYTE parms[] =
		VTS_I4 VTS_I4;
	InvokeHelper(0x6, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 Compensate, CompensateValue);
}

void CContourOCX::FreeData()
{
	InvokeHelper(0x9, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CContourOCX::HWIN(LPCTSTR p_)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xa, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 p_);
}

void CContourOCX::SetMapScale(float MinX, float MinY, float MaxX, float MaxY)
{
	static BYTE parms[] =
		VTS_R4 VTS_R4 VTS_R4 VTS_R4;
	InvokeHelper(0xb, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 MinX, MinY, MaxX, MaxY);
}

void CContourOCX::DrawMap(float DispX1, float DispX2, float DispY1, float DispY2, long RectX1, long RectX2, long RectY1, long RectY2, LPCTSTR dc)
{
	static BYTE parms[] =
		VTS_R4 VTS_R4 VTS_R4 VTS_R4 VTS_I4 VTS_I4 VTS_I4 VTS_I4 VTS_BSTR;
	InvokeHelper(0xc, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 DispX1, DispX2, DispY1, DispY2, RectX1, RectX2, RectY1, RectY2, dc);
}

void CContourOCX::DrawContours(long* dc, float DispX1, float DispX2, float DispY1, float DispY2, long RectX1, long RectX2, long RectY1, long RectY2, long rad)
{
	static BYTE parms[] =
		VTS_PI4 VTS_R4 VTS_R4 VTS_R4 VTS_R4 VTS_I4 VTS_I4 VTS_I4 VTS_I4 VTS_I4;
	InvokeHelper(0xd, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 dc, DispX1, DispX2, DispY1, DispY2, RectX1, RectX2, RectY1, RectY2, rad);
}

void CContourOCX::InitialFromStr(LPCTSTR filePath)
{
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0xe, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 filePath);
}

void CContourOCX::InitialFromFile(LPCTSTR filePath, float ValueStep, float XYIntervalRate)
{
	static BYTE parms[] =
		VTS_BSTR VTS_R4 VTS_R4;
	InvokeHelper(0xf, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 filePath, ValueStep, XYIntervalRate);
}

void CContourOCX::InitialFromMatrixFile(LPCTSTR filePath, float ValueStep)
{
	static BYTE parms[] =
		VTS_BSTR VTS_R4;
	InvokeHelper(0x10, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 filePath, ValueStep);
}

void CContourOCX::SetConfigue()
{
	InvokeHelper(0x11, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void CContourOCX::GetLineColor(long LineIndex, long* LineColor)
{
	static BYTE parms[] =
		VTS_I4 VTS_PI4;
	InvokeHelper(0x12, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 LineIndex, LineColor);