FindGraph: Automation enable user to create new series or rectangle area

Automation

To add one point to new series, follow these steps:

1. Create new series
   dwId = FindGraph.DotsNew( Color, Shape, Width, Aspect, Name)
2. See The parameters of series,
   dwId - identifier of a series.
3. Add single point to series with dwId
   FindGraph.DotsAddPoint( dwId, X, Y, Z)
4. Repaint points
   FindGraph.DotsUpdate(dwId)

To add at once some points to new series, follow these steps:

1. Create new series
   dwId = FindGraph.DotsNew( Color, Shape, Width, Aspect, Name)
2. Use variant array. Set the identifier of a series
   FindGraph.ArrayId = dwId
   Fill array va[3N] of dimension 3N with points (X, Y, Z).
3. Add at once array to series with dwId
   FindGraph.ArrayVar = va
4. Repaint points
   FindGraph.DotsUpdate(dwId)

To create rectangle area and to select it, follow these steps:

1. Create rectangle area
   dwId = FindGraph.ClipNewRect( Color, Left, Top, Right, Bottom)
   Left, Top, Right, Bottom - physical coordinates (X, Y) of marks.
2. Select all points in area dwId
3. FindGraph.ClipSelect( dwId, 1)

To get single selected point, follow these steps:

1. Copy selected points (X, Y, Z) and put it on the buffer.
   N = FindGraph.SelectedGetStart( 0)
   N - number of points selected.
2. In cycle we choose points:
   for i=1 to N
   X = SelectedGetX(i)
   Y = SelectedGetY(i)
   Z = SelectedGetZ(i)
   next i
   Free memory
   FindGraph.SelectedGetStop( 0);

To get whole array of selected points at once, follow these steps:

1. Copy selected points (X, Y, Z) and put it on the buffer.
   N = FindGraph.SelectedGetStart( 0)
   N - number of points selected.
2. Use variant array va. Fill array va[3N] of dimension 3N with points (X, Y, Z).
   va = FindGraph.ArrayVar
   array dimension (UBound(va) + 1) / 3
3. Free memory
   FindGraph.SelectedGetStop( 0);

To display picture and digitize it, follow these steps:

Display the background picture.
FindGraph.DocPictFileName = strFileName

Create rectangle area with color number 2.
dwIdArea = FindGraph.ClipNewRect(Color, fLeft, fTop, fRight, fBottom)

Select area.
FindGraph.ClipSelect(dwIdArea, 1)

Digitize points inside rectangle.
FindGraph.DotsFromPict(Color, Width, "FromPict")

Free memory
FindGraph.SelectedGetStop( 0);