number = CImExtract:Count()

E = new_imextract()

-- create a CImExtract

-- select the image from an image window

V = attachlist_imageview()

-- get an image window

Assert( V, "No Image window selected")

-- exit if no image window selected

-- choose the image if image set has > 1 image

if V:Count() > 1 then

-- return the number of sources found

  I = attachviewlist_image( V )

  if I == nil then

    Assert( I, "No Images are available")

  end

else

bSuccess = E:Extract( I )

-- extract sources from CImage I

if not bSuccess then Exit("Extract failed") end

nSources = E:Count()

-- Get the number of sources

for n = 1,nSources do

  local S = E:GetSource(n)

-- t is a table of data for source n

  if S ~= nil then

    Printf("%d:%lg,%lg\n", n, S.nCenterX, S.nCenterY)

-- list x,y of source n

  end

end