{from Globals.header}
var
    Raw16Pid, Raw8Pid, RawANDPid, RawB16Pid: integer;
    RawHeight, RawMaskPid, RawWidth, rawDirID, rawVRefNum: integer;
    frameType, firstFrame, lastFrame, nextFrame, skipFrame: integer;
    fore, foredef, cropheight, cropwidth, maskheight: integer;
    maskwidth, b16Pid, i16Pid, s16Pid, m16Pid: integer;
    o16Pid, i8Pid, referencePid, smoothPid, markPid: integer;
    maskPid, mask1Pid, mask2Pid, mask3Pid, dilatePid: integer;
    flagPid, kernelPid, rbKerPid, xlate16uTo8P, std65535Pid: integer;
    std8191Pid, customLUTPid, xmax, xmin, ymax: integer;
    ymin, pack16Pid, packDirID, packMarkPid, packVRefNum: integer;
{initialize global variables}
begin
    requiresUser('Pixel16u',2);
    requiresUser('GetPutPixel',1);
    requiresUser('timer',1);
    requiresUser('utilities',1);
    requiresUser('markup',1);

{info about the raw data}
    Raw16Pid := GetMemo('Raw16Pid');
    Raw8Pid := GetMemo('Raw8Pid');
    RawANDPid := GetMemo('RawANDPid');
    RawB16Pid := GetMemo('RawB16Pid');
    RawHeight := GetMemo('RawHeight');
    RawMaskPid := GetMemo('RawMaskPid');
    RawWidth := GetMemo('RawWidth');
    rawDirID := GetMemo('rawDirID');
    rawVRefNum := GetMemo('rawVRefNum');

{raw data frame numbers}
    frameType := GetMemo('frameType');
    firstFrame := GetMemo('firstFrame');
    lastFrame := GetMemo('lastFrame');
    nextFrame := GetMemo('nextFrame');
    skipFrame := GetMemo('skipFrame');

{mark color}
    fore := GetMemo('fore');
    foredef := GetMemo('foredef');

{cropped image dimensions}
    cropheight := GetMemo('cropheight');
    cropwidth := GetMemo('cropwidth');
    maskheight := GetMemo('maskheight');
    maskwidth := GetMemo('maskwidth');

{scratch image pidNumbers}
    b16Pid := GetMemo('b16Pid');
    i16Pid := GetMemo('i16Pid');
    s16Pid := GetMemo('s16Pid');
    m16Pid := GetMemo('m16Pid');
    o16Pid := GetMemo('o16Pid');
    i8Pid := GetMemo('i8Pid');
    referencePid := GetMemo('referencePid');
    smoothPid := GetMemo('smoothPid');
    markPid := GetMemo('markPid');
    maskPid := GetMemo('maskPid');
    mask1Pid := GetMemo('mask1Pid');
    mask2Pid := GetMemo('mask2Pid');
    mask3Pid := GetMemo('mask3Pid');
    dilatePid := GetMemo('dilatePid');
    flagPid := GetMemo('flagPid');

{kernel information}
    kernelPid := GetMemo('kernelPid');
    rbKerPid := GetMemo('rbKerPid');
    xlate16uTo8P := GetMemo('xlate16uTo8P');
    std65535Pid := GetMemo('std65535Pid');
    std8191Pid := GetMemo('std8191Pid');
    customLUTPid := GetMemo('customLUTPid');
    xmax := GetMemo('xmax');
    xmin := GetMemo('xmin');
    ymax := GetMemo('ymax');
    ymin := GetMemo('ymin');

{packed stack info}
    pack16Pid := GetMemo('pack16Pid');
    packDirID := GetMemo('packDirID');
    packMarkPid := GetMemo('packMarkPid');
    packVRefNum := GetMemo('packVRefNum');
    if pidExists(GetMemo('frontPid')) then
        selectPic(GetMemo('frontPid'));

{end from Globals.header}
end;


macro '[F5] 16 bit arithmetic';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('16 bit arithmetic');
    LoadMacros;
end;

macro '[F6] Adjust 16 bit LUT';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Adjust 16 bit LUT');
    LoadMacros;
end;

macro '([F7] Calculate Intensity';
begin
end;

macro '[F8] Create Kernels';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Create Kernels');
    LoadMacros;
end;

macro '[F9] Examine Old 16 bit Stacks';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Old 16 bit Stacks');
    LoadMacros;
end;

macro '[F10] Examine Packed 16 bit stack';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Packed 16 bit stack');
    LoadMacros;
end;

macro '[F11] Examine Raw Data';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Examine Raw Data');
    LoadMacros;
end;

macro '[F12] Front Image Is ...';
begin
    SetMemo('frontPid', pidNumber);
    SelectWindow('Front Image Is ...');
    LoadMacros;
end;

macro '(-';
begin
end;

macro 'Raw16Pid';
begin
    ShowMessage('Raw16Pid = ', GetMemo('Raw16Pid'));
end;
macro 'Raw8Pid';
begin
    ShowMessage('Raw8Pid = ', GetMemo('Raw8Pid'));
end;
macro 'RawANDPid';
begin
    ShowMessage('RawANDPid = ', GetMemo('RawANDPid'));
end;
macro 'RawB16Pid';
begin
    ShowMessage('RawB16Pid = ', GetMemo('RawB16Pid'));
end;
macro 'RawHeight';
begin
    ShowMessage('RawHeight = ', GetMemo('RawHeight'));
end;
macro 'RawMaskPid';
begin
    ShowMessage('RawMaskPid = ', GetMemo('RawMaskPid'));
end;
macro 'RawWidth';
begin
    ShowMessage('RawWidth = ', GetMemo('RawWidth'));
end;
macro 'rawDirID';
begin
    ShowMessage('rawDirID = ', GetMemo('rawDirID'));
end;
macro 'rawVRefNum';
begin
    ShowMessage('rawVRefNum = ', GetMemo('rawVRefNum'));
end;
macro 'frameType';
begin
    ShowMessage('frameType = ', GetMemo('frameType'));
end;
macro 'firstFrame';
begin
    ShowMessage('firstFrame = ', GetMemo('firstFrame'));
end;
macro 'lastFrame';
begin
    ShowMessage('lastFrame = ', GetMemo('lastFrame'));
end;
macro 'nextFrame';
begin
    ShowMessage('nextFrame = ', GetMemo('nextFrame'));
end;
macro 'skipFrame';
begin
    ShowMessage('skipFrame = ', GetMemo('skipFrame'));
end;
macro 'fore';
begin
    ShowMessage('fore = ', GetMemo('fore'));
end;
macro 'foredef';
begin
    ShowMessage('foredef = ', GetMemo('foredef'));
end;
macro 'cropheight';
begin
    ShowMessage('cropheight = ', GetMemo('cropheight'));
end;
macro 'cropwidth';
begin
    ShowMessage('cropwidth = ', GetMemo('cropwidth'));
end;
macro 'maskheight';
begin
    ShowMessage('maskheight = ', GetMemo('maskheight'));
end;
macro 'maskwidth';
begin
    ShowMessage('maskwidth = ', GetMemo('maskwidth'));
end;
macro 'b16Pid';
begin
    ShowMessage('b16Pid = ', GetMemo('b16Pid'));
end;
macro 'i16Pid';
begin
    ShowMessage('i16Pid = ', GetMemo('i16Pid'));
end;
macro 's16Pid';
begin
    ShowMessage('s16Pid = ', GetMemo('s16Pid'));
end;
macro 'm16Pid';
begin
    ShowMessage('m16Pid = ', GetMemo('m16Pid'));
end;
macro 'o16Pid';
begin
    ShowMessage('o16Pid = ', GetMemo('o16Pid'));
end;
macro 'i8Pid';
begin
    ShowMessage('i8Pid = ', GetMemo('i8Pid'));
end;
macro 'referencePid';
begin
    ShowMessage('referencePid = ', GetMemo('referencePid'));
end;
macro 'smoothPid';
begin
    ShowMessage('smoothPid = ', GetMemo('smoothPid'));
end;
macro 'markPid';
begin
    ShowMessage('markPid = ', GetMemo('markPid'));
end;
macro 'maskPid';
begin
    ShowMessage('maskPid = ', GetMemo('maskPid'));
end;
macro 'mask1Pid';
begin
    ShowMessage('mask1Pid = ', GetMemo('mask1Pid'));
end;
macro 'mask2Pid';
begin
    ShowMessage('mask2Pid = ', GetMemo('mask2Pid'));
end;
macro 'mask3Pid';
begin
    ShowMessage('mask3Pid = ', GetMemo('mask3Pid'));
end;
macro 'dilatePid';
begin
    ShowMessage('dilatePid = ', GetMemo('dilatePid'));
end;
macro 'flagPid';
begin
    ShowMessage('flagPid = ', GetMemo('flagPid'));
end;
macro 'kernelPid';
begin
    ShowMessage('kernelPid = ', GetMemo('kernelPid'));
end;
macro 'rbKerPid';
begin
    ShowMessage('rbKerPid = ', GetMemo('rbKerPid'));
end;
macro 'xlate16uTo8P';
begin
    ShowMessage('xlate16uTo8P = ', GetMemo('xlate16uTo8P'));
end;
macro 'xmax';
begin
    ShowMessage('xmax = ', GetMemo('xmax'));
end;
macro 'xmin';
begin
    ShowMessage('xmin = ', GetMemo('xmin'));
end;
macro 'ymax';
begin
    ShowMessage('ymax = ', GetMemo('ymax'));
end;
macro 'ymin';
begin
    ShowMessage('ymin = ', GetMemo('ymin'));
end;
macro 'pack16Pid';
begin
    ShowMessage('pack16Pid = ', GetMemo('pack16Pid'));
end;
macro 'packDirID';
begin
    ShowMessage('packDirID = ', GetMemo('packDirID'));
end;
macro 'packMarkPid';
begin
    ShowMessage('packMarkPid = ', GetMemo('packMarkPid'));
end;
macro 'packVRefNum';
begin
    ShowMessage('packVRefNum = ', GetMemo('packVRefNum'));
end;