Direct2D教程VII——变换几何(TransformedGeometry)对象

简介:

目前博客园中成系列的Direct2D的教程有

1、万一的 Direct2D 系列,用的是Delphi 2009

2、zdd的 Direct2D 系列,用的是VS中的C++

3、本文所在的 Direct2D教程 系列,用的是VS2010的Visual Basic语言(可以很方便的转为C#),基于Windows API Code Pack 1.1。

 

还有官方的说明文档 Direct2D ,用的是C++。

 

本系列的前几篇文章:

Direct2D教程I——简介及首个例子

Direct2D教程II——绘制基本图形和线型(StrokeStyle)的设置详解

Direct2D教程III——几何(Geometry)对象

Direct2D教程IV——笔刷(Brush)对象

Direct2D教程V——位图(Bitmap)和位图笔刷(BitmapBrush)

Direct2D教程VI——转换(Transform)

 

 

变换几何(TransformedGeometry)的运用

在一些精度要求不高的场景下,为了提高效率,重视元件重用(即一个元件,多次使用)。变换几何(TransformedGeometry)就应运而生,它是把一个源元件通过转换(Transform)得到一个新元件,而不需要重新用大量的代码增加新元件(可以省去很多的关于点的计算)。

 

和其他的几何对象一样,变换几何(TransformedGeometry)也得通过D2DFactory对象的CreateTransformedGeometry方法来创建,来看看该方法的原型定义

  
Public  Function CreateTransformedGeometry(sourceGeometry  As Direct2D1. Geometry, transform  As Direct2D1. Matrix3x2FAs Direct2D1. TransformedGeometry

 

从该函数的原型定义来看,只有两个参数:sourceGeometry,源几何对象,类型是Geometry类;transform,对源几何对象进行的转换,类型是结构Matrix3x2F。

通过该方法获得一个新的几何对象

 

接下来,我们用一个例子来说明变换几何(TransformedGeometry)的用法

image

上图是一个简单的图形,分为左山、右山、小河、太阳、太阳光芒这几部分。

我们先用路径几何(PathGeometry)对象创建右山,然后利用CreateTransformedGeometry方法创建了左山,并对它进行了缩放转换(SacleTransform)。

太阳光芒的部分,先用路径几何(PathGeometry)对象创建基本的光芒,然后利用CreateTransformedGeometry方法创建光芒数组,并依次对数组中的光芒进行了旋转转换(RotateTransform)。

下面是示例代码

  
Public  Class  clsDirect2DSample16 
     Inherits  clsDirect2DSample 

     Public  Shadows  Sub Render() 
         If  Not _renderTarget  Is  Nothing  Then 

             Dim ColorBackground  As  New Direct2D1. ColorF( Color.Chocolate.ToArgb) 
             Dim ColorBorder  As  New Direct2D1. ColorF(0, 0, 0) 

             Dim ColorLeftMountain  As  New Direct2D1. ColorF( Color.OliveDrab.ToArgb) 
             Dim ColorRightMountain  As  New Direct2D1. ColorF( Color.YellowGreen.ToArgb) 
             Dim ColorRiver  As  New Direct2D1. ColorF( Color.LightSkyBlue.ToArgb) 


             'Create Sun Brush 
             Dim gradientStops(2)  As Direct2D1. GradientStop 

            gradientStops(0).Color =  New Direct2D1. ColorF( Color.Gold.ToArgb) 
            gradientStops(0).Position = 0 

             Dim TC  As  New Direct2D1. ColorF( Color.Orange.ToArgb) 
            TC.Alpha = 0.8 
            gradientStops(1).Color = TC 
            gradientStops(1).Position = 0.85 

            TC =  New Direct2D1. ColorF( Color.OrangeRed.ToArgb) 
            TC.Alpha = 0.7 
            gradientStops(2).Color = TC 
            gradientStops(2).Position = 1 

             Dim GS  As Direct2D1. GradientStopCollection = _renderTarget.CreateGradientStopCollection(gradientStops, Direct2D1. Gamma.Linear, Direct2D1. ExtendMode.Clamp) 
             Dim RBS  As Direct2D1. RadialGradientBrushProperties 

            RBS.Center =  New Direct2D1. Point2F(185, 250) 
            RBS.GradientOriginOffset =  New Direct2D1. Point2F(80, 80) 
            RBS.RadiusX = 85 
            RBS.RadiusY = 85 

             Dim RB  As Direct2D1. RadialGradientBrush = _renderTarget.CreateRadialGradientBrush(RBS, GS) 

             Dim BorderBrush  As Direct2D1. SolidColorBrush = _renderTarget.CreateSolidColorBrush(ColorBorder) 
             Dim FillBrush  As Direct2D1. SolidColorBrush = _renderTarget.CreateSolidColorBrush(ColorBorder) 


             'Create Right Mountain 
             Dim rightMountainGeometry  As Direct2D1. PathGeometry = _d2DFactory.CreatePathGeometry() 
             Dim sink  As Direct2D1. GeometrySink = rightMountainGeometry.Open 
            sink.SetFillMode(Direct2D1. FillMode.Winding) 
            sink.BeginFigure( New Direct2D1. Point2F(395, 263), Direct2D1. FigureBegin.Filled) 
             Dim points()  As Direct2D1. Point2F = { _ 
                                                             New Direct2D1. Point2F(301, 146), _ 
                                                             New Direct2D1. Point2F(269, 181), _ 
                                                             New Direct2D1. Point2F(253, 159), _ 
                                                             New Direct2D1. Point2F(221, 214), _ 
                                                             New Direct2D1. Point2F(201, 199), _ 
                                                             New Direct2D1. Point2F(143, 263), _ 
                                                             New Direct2D1. Point2F(395, 263) 
                                                            } 

            sink.AddLines(points) 
            sink.EndFigure(Direct2D1. FigureEnd.Closed) 
            sink.Close() 


             'Create Left Mountain 
             Dim leftMountainGeometry  As Direct2D1. TransformedGeometry = _d2DFactory.CreateTransformedGeometry(rightMountainGeometry, Direct2D1. Matrix3x2F.Scale(-0.5, 0.6,  New Direct2D1. Point2F(160, 250))) 


             'Create Sun 
             Dim sunGeometry  As Direct2D1. PathGeometry = _d2DFactory.CreatePathGeometry 
            sink = sunGeometry.Open 
            sink.SetFillMode(Direct2D1. FillMode.Winding) 
            sink.BeginFigure( New Direct2D1. Point2F(100, 250), Direct2D1. FigureBegin.Filled) 

            sink.AddArc( New Direct2D1. ArcSegment( New Direct2D1. Point2F(270, 250), _ 
                                                                   New Direct2D1. SizeF(85, 85), _ 
                                                                  0, Direct2D1. SweepDirection.Clockwise, Direct2D1. ArcSize.Small)) 

            sink.EndFigure(Direct2D1. FigureEnd.Closed) 
            sink.Close() 


             'Create Base Sun Light 
             Dim sunLightGeometry  As Direct2D1. PathGeometry = _d2DFactory.CreatePathGeometry 
            sink = sunLightGeometry.Open 

            sink.BeginFigure( New Direct2D1. Point2F(185, 140), Direct2D1. FigureBegin.Hollow) 
            sink.AddBezier( New Direct2D1. BezierSegment( New Direct2D1. Point2F(170, 125), _ 
                                                                          New Direct2D1. Point2F(200, 125), _ 
                                                                          New Direct2D1. Point2F(185, 110))) 
            sink.EndFigure(Direct2D1. FigureEnd.Open) 
            sink.Close() 

             'Create some Sun Lights 
             Dim sunLights(4)  As Direct2D1. TransformedGeometry 
             Dim I  As  Integer 

             For I = 0  To 4 
                sunLights(I) = _d2DFactory.CreateTransformedGeometry(sunLightGeometry, Direct2D1. Matrix3x2F.Rotation(I * 20 - 40,  New Direct2D1. Point2F(185, 250))) 
             Next 

             'Create River 
             Dim riverGeometry  As Direct2D1. PathGeometry = _d2DFactory.CreatePathGeometry 
            sink = riverGeometry.Open 
            sink.SetFillMode(Direct2D1. FillMode.Winding) 
            sink.BeginFigure( New Direct2D1. Point2F(23, 392), Direct2D1. FigureBegin.Filled) 
            sink.AddBezier( New Direct2D1. BezierSegment( New Direct2D1. Point2F(58, 284), _ 
                                                                          New Direct2D1. Point2F(312, 345), _ 
                                                                          New Direct2D1. Point2F(196, 303))) 
            sink.AddBezier( New Direct2D1. BezierSegment( New Direct2D1. Point2F(77, 261), _ 
                                                                          New Direct2D1. Point2F(163, 256), _ 
                                                                          New Direct2D1. Point2F(163, 256))) 
            sink.AddBezier( New Direct2D1. BezierSegment( New Direct2D1. Point2F(165, 257), _ 
                                                                          New Direct2D1. Point2F(81, 261), _ 
                                                                          New Direct2D1. Point2F(251, 306))) 
            sink.AddBezier( New Direct2D1. BezierSegment( New Direct2D1. Point2F(414, 350), _ 
                                                                          New Direct2D1. Point2F(128, 324), _ 
                                                                          New Direct2D1. Point2F(136, 392))) 
            sink.EndFigure(Direct2D1. FigureEnd.Open) 
            sink.Close() 



             With _renderTarget 
                .BeginDraw() 

                .Clear(ColorBackground) 

                .DrawGeometry(sunGeometry, BorderBrush, 2) 
                .FillGeometry(sunGeometry, RB) 

                 For I = 0  To 4 
                    .DrawGeometry(sunLights(I), BorderBrush, 1) 
                 Next 

                .DrawGeometry(riverGeometry, BorderBrush, 2) 
                FillBrush.Color = ColorRiver 
                .FillGeometry(riverGeometry, FillBrush) 

                .DrawGeometry(rightMountainGeometry, BorderBrush, 2) 
                FillBrush.Color = ColorRightMountain 
                .FillGeometry(rightMountainGeometry, FillBrush) 

                .DrawGeometry(leftMountainGeometry, BorderBrush, 2) 
                FillBrush.Color = ColorLeftMountain 
                .FillGeometry(leftMountainGeometry, FillBrush) 

                .EndDraw() 
             End  With 
         End  If 
     End  Sub 
End  Class

 

通过上面的示例代码说明了变换几何(TransformedGeometry)对象的用法。它实际上是一种元件复用的思路,利用已知的元件,通过转换(Transform)得到一个新的元件,简化绘图的难度。当然,变换几何(TransformedGeometry)对象要想用的好,得和转换(Transform)配合起来才行。



    本文转自万仓一黍博客园博客,原文链接:http://www.cnblogs.com/grenet/p/3279218.html,如需转载请自行联系原作者


相关文章
|
4月前
|
Serverless 计算机视觉
语义分割笔记(三):通过opencv对mask图片来画分割对象的外接椭圆
这篇文章介绍了如何使用OpenCV库通过mask图像绘制分割对象的外接椭圆。首先,需要加载mask图像,然后使用`cv2.findContours()`寻找轮廓,接着用`cv2.fitEllipse()`拟合外接椭圆,最后用`cv2.ellipse()`绘制椭圆。文章提供了详细的代码示例,展示了从读取图像到显示结果的完整过程。
92 0
语义分割笔记(三):通过opencv对mask图片来画分割对象的外接椭圆
|
8月前
|
存储 机器学习/深度学习 算法
python 五种算法转置后翻转、层次旋转、递归分块、一次性旋转、环状替换 实现旋转图像【力扣题48】
python 五种算法转置后翻转、层次旋转、递归分块、一次性旋转、环状替换 实现旋转图像【力扣题48】
|
9月前
|
算法 图形学
【计算机图形学】实验三 用Cohen-Sutherland裁剪算法实现直线段裁剪
【计算机图形学】实验三 用Cohen-Sutherland裁剪算法实现直线段裁剪
695 2
|
9月前
|
数据可视化
R语言进行数据结构化转换:Box-Cox变换、“凸规则”变换方法
R语言进行数据结构化转换:Box-Cox变换、“凸规则”变换方法
ArcGIS:如何进行离散点数据插值分析(IDW)、栅格数据的重分类、栅格计算器的简单使用、缓冲区分析、掩膜?
ArcGIS:如何进行离散点数据插值分析(IDW)、栅格数据的重分类、栅格计算器的简单使用、缓冲区分析、掩膜?
570 0
|
9月前
|
计算机视觉
OpenCV(二十七):图像距离变换
OpenCV(二十七):图像距离变换
94 0
|
9月前
|
算法 计算机视觉 芯片
[Halcon&定位] 二维仿射变换原理与算子解析
[Halcon&定位] 二维仿射变换原理与算子解析
418 0
|
算法
ENVI_IDL:使用反距离权重法选取最近n个点插值(底层实现)并输出为Geotiff格式(效果等价于Arcgis中反距离权重插值)
ENVI_IDL:使用反距离权重法选取最近n个点插值(底层实现)并输出为Geotiff格式(效果等价于Arcgis中反距离权重插值)
352 0
|
图形学
unity基础-坦克炮管旋转发射炮弹(向量基础,射线碰撞,物体实例化)
unity基础-坦克炮管旋转发射炮弹(向量基础,射线碰撞,物体实例化)
453 0

热门文章

最新文章