点群の 0 初期化

Namespace: FVIL.GDI
Assembly: FVILbasic (in FVILbasic.dll) Version: 3.1.0.0 (3.1.0.17)

Syntax

C#
public virtual void Reset()
Visual Basic
Public Overridable Sub Reset

Remarks

全ての要素を 0 初期化します。
確保されていない場合は無視します。

Examples

ソースコード:
C# Copy imageCopy
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;    // FvPluginXXXX attribute requires fvalgcli

namespace User.SampleCode.GDI
{
    public partial class GdiPoints
    {
        // ============================================================
        /// <summary>
        /// リセット.
        /// </summary>
        [FvPluginExecute]
        public void Reset()
        {
            // 0) 配列の作成.
            fvalgcli.PNT_T[] datas = new fvalgcli.PNT_T[10];
            for (int i = 0; i < 10; i++)
            {
                datas[i].x = i * 10 + i;
                datas[i].y = i * 10 + i;
            }
            FVIL.PNT_T_ARRAY pnts = new FVIL.PNT_T_ARRAY(datas);

            // 1) インスタンスの準備と生成.
            FVIL.GDI.CFviGdiPoints src = new FVIL.GDI.CFviGdiPoints(pnts);

            // 2) 処理実行.
            src.Reset();

            // E) 確認.
            Assert.IsTrue(10 == src.Count, "src.Count={0}", src.Count);

            for (int i = 0; i < src.Count; i++)
            {
                Console.Write("({0} {1})\n", src[i].X, src[i].Y);
            }
            Console.Write("\n");
        }
    }
}

Visual Basic Copy imageCopy
Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode.GDI
    Public Partial Class GdiPoints
        ' ============================================================
        ''' <summary>
        ''' リセット.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub Reset()
            ' 0) 配列の作成.
            Dim datas As fvalgcli.PNT_T() = New fvalgcli.PNT_T(9) {}
            For i As Integer = 0 To 9
                datas(i).x = i * 10 + i
                datas(i).y = i * 10 + i
            Next
            Dim pnts As New FVIL.PNT_T_ARRAY(datas)

            ' 1) インスタンスの準備と生成.
            Dim src As New FVIL.GDI.CFviGdiPoints(pnts)

            ' 2) 処理実行.
            src.Reset()

            ' E) 確認.
            Assert.IsTrue(10 = src.Count, "src.Count={0}", src.Count)

            For i As Integer = 0 To src.Count - 1
                Console.Write("({0} {1})" & vbLf, src(i).X, src(i).Y)
            Next
            Console.Write(vbLf)
        End Sub
    End Class
End Namespace

See Also