zw版【转发·台湾nvp系列Delphi例程】HALCON HomMat2dRotate1
zw版【转发·台湾nvp系列Delphi例程】HALCON HomMat2dRotate1
procedure TForm1.Button1Click(Sender: TObject);
var
img : HImageX;
rg : HRegionX;
w, h : OleVariant;
hv_HomMat2DIdentity, hv_HomMat2DRotate : HHomMat2DX;
begin
HWindowXCtrl1.HalconWindow.SetDraw('margin');
HWindowXCtrl1.HalconWindow.SetColor('red');
HWindowXCtrl2.HalconWindow.SetDraw('margin');
HWindowXCtrl2.HalconWindow.SetColor('red');
img := CoHImageX.Create;
img.ReadImage('ic1');
w := img.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg := CoHRegionX.Create;
rg.GenRectangle1(h / 2 - 100, w / 2 - 100, h / 2 + 100, w / 2 + 100);
img.DispObj(HWindowXCtrl1.HalconWindow);
rg.DispObj(HWindowXCtrl1.HalconWindow);
hv_HomMat2DIdentity := CoHHomMat2DX.Create;
hv_HomMat2DIdentity.HomMat2dIdentity;
hv_HomMat2DRotate := hv_HomMat2DIdentity.HomMat2dRotate(Pi / 180 * 45, h / 2, w / 2);
rg := hv_HomMat2DRotate.AffineTransRegion(rg, 'false');
img.DispObj(HWindowXCtrl2.HalconWindow);
rg.DispObj(HWindowXCtrl2.HalconWindow);
end;
最新文章
- Centos下设置VNC为3389端口
- sql server 按分组拼接数据
- man curl_global_init(原创)
- 不变(Invariant), 协变(Covarinat), 逆变(Contravariant) : 一个程序猿进化的故事
- oracle 闪回技术
- 【c++内存分布系列】虚基类表
- Keil MDK从未有过的详细使用讲解
- FusionWidgets之AngularGauge图
- js判断flash文件是否加载完毕
- SQL执行计划分析
- lumen----------A facade root has not been set.
- Java NIO学习之Buffer
- oracle 建表默认空间
- 6-9 天平 uva839
- p中不能包含div
- ql.io来自ebay的api快速集成的构建api的框架
- MySQL中ALTER ,CHANGE , MODIFY
- GET、POST编码问题
- Creating a Simple Web Service and Client with JAX-WS
- CSS属性之attr()