procedure ExtractEvenField(NewWindow:boolean);
{
Replaces odd scan lines with average of neighboring even lines. Can be used to improve the quality of images that have even and odd fields that are out of sync as the result of subject movement during capture.
}
var
  i,width,height,row1,row2:integer;
begin
  SaveState;
  if NewWindow then Duplicate('Even Field');
  GetPicSize(width,height);
  row1:=0; row2:=0;
  for i:=1 to height/2 do begin
    GetRow(0,row1,width);
    PutRow(0,row2,width);
    row1:=row1+2;
    row2:=row2+1;
  end;
  MakeRoi(0,0,width,height/2);
  Copy;
  MakeRoi(0,height/4-1,width,height/2);
  Paste;
  RestoreRoi;
  SetScaling('Bilinear; Same Window');
  ScaleAndRotate(1,2,0);
  RestoreState;
end;

macro 'Extract Even Field->New Window';
begin
  ExtractEvenField(true);
end;

macro 'Extract Even Field->Same Window';
begin
  ExtractEvenField(false);
end;


macro 'Make Movie to DiskÉ';
{
Captures a specified number of images at a specified rate and
saves them to disk. Select an area of interest within the Camera
window before starting. Can be aborted with cmd-period.
}
var
  nFrames,n,Left,Top,Width,Height:integer;
  IntervalTicks,EndTicks,secs:integer;
begin
  RequiresVersion(1.49);
  GetRoi(Left,Top,Width,Height);
  if width=0 then begin
    PutMessage('First select the area of interest in the Camera window.');
    exit;
  end;
  nFrames:=GetNumber('Number of Frames?',10);
  IntervalTicks:=round(GetNumber('Delay Between Frames(seconds)?',60)*60);
  EndTicks:=TickCount+IntervalTicks;
  for n:=1 to nFrames do begin
    StopCapturing;
    MakeRoi(Left,Top,Width,Height);
    SaveAs('Frame ',n);
    StartCapturing;
    while TickCount<EndTicks do begin
      secs:=(EndTicks-TickCount) div 60;
      ShowMessage(n:1,'/',nFrames,' ',secs:4)
    end;
    EndTicks:=EndTicks+IntervalTicks;
    beep;
  end;
  StopCapturing;
end;


macro 'Camera and Light Source TestÉ';
  {Use to test cameras and light sources for temporal stability.}
var
  delay,nFrames:integer;
  i:real;
begin
   nFrames:=trunc(GetNumber('Number of Frames:',10));
   delay:=trunc(GetNumber('Delay in seconds:',10));
   for I:=1 to nFrames do begin
     Capture;
     Measure;
     wait(delay);
  end;
end;


macro 'Average Frames [A]';
begin
  AverageFrames;
end;


macro 'Average Frames on Trigger';
begin
  WaitForTrigger;
  AverageFrames;
end;


macro 'Capture FramesÉ';
var
  left,top,width,height,n,Camera,nFrames:integer;
begin
  GetRoi(left,top,width,height);
  if width=0 then begin
    PutMessage('Please select an area of interest in the Camera window.');
    exit;
  end;
  nFrames:=GetNumber('Number of frames:',4);
  StartCapturing;
  Camera:=nPics;
  n:=0;
  repeat
    if Button then begin
      MakeRoi(left,top,width,height);
      n:=n+1;
      Duplicate('Frame ',n:1);
      SelectPic(Camera);
      StartCapturing;
    end;
  until n=nFrames;
  StopCapturing;
  Dispose;
  SetOption; TileWindows;
end;


macro 'Dynamic 1-D Plot';
{
Displays a dynamic 1-d plot of a line in the image while the image
is being captured. You most first create a line selection in
Camera window. The macro works best if you first to a Plot Profile
and move the Plot window so it doesn't cover the Camera window. You
may have to resize the Camera window. Hold down the mouse button
to terminate.
}
var
  x1,y1,x2,y2,LineWidth:integer;
begin
  GetLine(x1,y1,x2,y2,LineWidth);
  if x1=-1 then begin
    PutMessage('Create a straight line selection in the Camera window');
    exit;
  end;
  SetPlotScale(0,255);
  repeat
    Capture;
    if button then exit;
    MakeLineRoi(x1,y1,x2,y2);
    PlotProfile;
  until button;
end;


macro 'Integrate InvertedÉ';
{
Inverts captured video to allow more than 128 frames to be
integrated without overflow. For example, the sum of 256 pixels
with an average value of 200(very dark) is 51,200, which is
greater than the 32,767 maximum, but the sum of 256 pixels
with and average value of 55(200 inverted) is 14,080.
}
var
  nFrames:integer;
begin
  nFrames:=GetNumber('Number of Frames:',200);
  SetVideo('Invert');
  AverageFrames('Integrate',nFrames);
  SetVideo(''); {Don't invert}
  Invert;
end;


macro '(-' begin end; {Menu divider}

{Note: keyboard shortcuts do not work when the Video}
{Control dialog box is the active window.}

macro 'SetChannel 1 [1]'; begin SetChannel(1) end;
macro 'SetChannel 2 [2]'; begin SetChannel(2) end;
macro 'SetChannel 3 [3]'; begin SetChannel(3) end;
macro 'SetChannel 4 [4]'; begin SetChannel(4) end;

macro '(-' begin end; {Menu divider}

macro 'Set LG-3 DAC A'; begin scion[1]:=GetNumber('DAC A(0-255):',scion[1]); end;
macro 'Set LG-3 DAC B'; begin scion[2]:=GetNumber('DAC B(0-255):',scion[2]); end;
macro 'Set LG-3 Data Out'; begin scion[4]:=GetNumber('Data Out(0-15):',scion[4]); end;
macro 'Read LG-3 Data In'; begin PutMessage('Data In=',BitAnd(scion[3],15):1); end;