success = CPlot:SetInfo( nIndex, strInfo )

GridData = {}

-- the master table of grid data

-- get data from the grid, one row per grid row

-- sFilter is the target filter for selecting from the photometry table

-- now accumulate x, y, and ye (error bar) arrays for plotting

x = {}

-- table for x axis values

y = {}

-- table for y axis values

ye = {}

-- table for y error bars

-- each index for x, y, and ye is one row from GridData

for i = 1, nCount do

  local d = GridData[i]

-- assign a variable to the table row

  x[i] = d.nX

-- copy the airmass into x[]

  y[i] = d.nM

-- copy the magnitude into y[]

  ye[i] = d.nE

-- copy the magnitude error into ye[]

end

-- Create a scatter plot of the photometry data

-- The CPlotView V and current CPlot (plot series) P are returned

-- For the y label, concatenate the target filter with " Mag"

V, P = scattererr(x,y,nil,ye,"X",sFilter .. " Mag")

-- returns the CPlotView and CPlot

if not V then Exit("Cannot create a CPlotView") end

-- check that the CPlotView is valid

if not P then Exit("Cannot create a CPlot series") end

-- check that the CPlot is valid

-- for the current plot series, tag each point with data

for i = 1, P:Count() do

-- for all plotted points...

  local d = GridData[i]

-- assign a variable to the table row

  local sPointInfo = Sprintf("%s: X=%lf, %s=%lg\n",

-- create a string of point data

                        d.sObj, d.nX, d.sF, d.nM)

  P:SetInfo(i, sPointInfo)

-- assign the string to the point

end