home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Applications / NIH Image 1.55 / Source / Globals.p < prev    next >
Encoding:
Text File  |  1994-05-04  |  37.4 KB  |  1,152 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. {Global declarations for NIH Image program.}
  4.  
  5. interface
  6.  
  7.     uses
  8.         QuickDraw, Palettes, PrintTraps;
  9.  
  10.     const
  11.         Version = 155;
  12.  
  13.         UsingFPU = true; {If true, select 68881/68882 in Compile Options dialog box.}
  14.  
  15.         AppleMenu = 128;
  16.  
  17.         FileMenu = 129;
  18.         NewItem = 1;
  19.         OpenItem = 2;
  20.         ImportItem = 3;
  21.         CloseItem = 5;
  22.         SaveItem = 6;
  23.         SaveAsItem = 7;
  24.         ExportItem = 8;
  25.         RecordPreferencesItem = 10;
  26.         RevertItem = 11;
  27.         DuplicateItem = 12;
  28.         GetInfoItem = 13;
  29.         AcquireItem = 15;
  30.         PlugInExportItem = 16;
  31.         SetHalftoneItem = 18;
  32.         PageSetupItem = 19;
  33.         PrintItem = 20;
  34.         QuitItem = 22;
  35.  
  36.         AcquireMenu = 42; {Sub Menu}
  37.  
  38.         ExportMenu = 44; {Sub Menu}
  39.  
  40.         EditMenu = 130;
  41.         UndoItem = 1;
  42.         CutItem = 3;
  43.         CopyItem = 4;
  44.         PasteItem = 5;
  45.         ClearItem = 6;
  46.         FillItem = 8;
  47.         InvertItem = 9;
  48.         DrawBoundaryItem = 10;
  49.         DrawScaleItem = 11;
  50.         SelectAllItem = 13;
  51.         ScaleAndRotateItem = 14;
  52.         RotateLeftItem = 16;
  53.         RotateRightItem = 17;
  54.         FlipVerticalItem = 18;
  55.         FlipHorizontalItem = 19;
  56.         UnzoomItem = 21;
  57.         ShowClipboardItem = 22;
  58.  
  59.         OptionsMenu = 131;
  60.         GrayscaleItem = 1;
  61.         ColorTablesItem = 2;
  62.         LutOptionsItem = 3;
  63.         PreferencesItem = 9;
  64.         PlotOptionsItem = 10;
  65.         ScaleToFitItem = 11;
  66.         ThresholdItem = 12;
  67.         SliceItem = 13;
  68.         PropagateItem = 14;
  69.  
  70.         FontMenu = 32; {Sub Menu}
  71.  
  72.         SizeMenu = 33; {Sub Menu}
  73.  
  74.         StyleMenu = 34; {Sub Menu}
  75.         LeftItem = 8;
  76.         CenterItem = 9;
  77.         RightItem = 10;
  78.         NoBackgroundItem = 12;
  79.         WithBackgroundItem = 13;
  80.  
  81.         ColorTablesMenu = 41; {Sub Menu}
  82.         SystemPaletteItem = 1;
  83.         Pseudo20Item = 2;
  84.         Pseudo32Item = 3;
  85.         RainbowItem = 4;
  86.         Fire1Item = 5;
  87.         Fire2Item = 6;
  88.         IceItem = 7;
  89.         GraysItem = 8;
  90.         SpectrumItem = 9;
  91.  
  92.         PropagateMenu = 38;   {Sub Menu}
  93.         LUTItem = 1;
  94.         SpatialItem = 2;
  95.         DensityItem = 3;
  96.         AllItem = 4;
  97.  
  98.         EnhanceMenu = 132;
  99.         SmoothItem = 1;
  100.         SharpenItem = 2;
  101.         ShadowItem = 3;
  102.         EdgeDetectItem = 4;
  103.         ReduceNoiseItem = 5;
  104.         DitherItem = 6;
  105.         ConvolveItem = 7;
  106.         FilterItem = 8;
  107.         BinaryItem = 10;
  108.         ConstMathItem = 11;
  109.         ImageMathItem = 12;
  110.         BackgroundItem = 13;
  111.         ApplyItem = 14;
  112.         EnhanceItem = 15;
  113.         EqualizeItem = 16;
  114.         FixColorsItem = 17;
  115.  
  116.         FilterMenu = 43; {Sub Menu}
  117.  
  118.         BinaryMenu = 35; {Sub Menu}
  119.         MakeBinaryItem = 1;
  120.         ErosionItem = 3;
  121.         DilationItem = 4;
  122.         OpeningItem = 5;
  123.         ClosingItem = 6;
  124.         SetCountItem = 7;
  125.         IterationsItem = 8;
  126.         OutlineItem = 10;
  127.         SkeletonizeItem = 11;
  128.  
  129.         ArithmeticMenu = 37; {Sub Menu}
  130.         AddItem = 1;
  131.         SubtractItem = 2;
  132.         MultiplyItem = 3;
  133.         DivideItem = 4;
  134.         LogItem = 5;
  135.  
  136.         BackgroundMenu = 40; {Sub Menu}
  137.         HorizontalItem = 1;
  138.         VerticalItem = 2;
  139.         Sub2DItem = 3;
  140.         RemoveStreaksItem = 4;
  141.         FasterItem = 6;
  142.         RadiusItem = 7;
  143.  
  144.         AnalyzeMenu = 133;
  145.         MeasureItem = 1;
  146.         AnalyzeItem = 2;
  147.         ShowItem = 3;
  148.         HistogramItem = 4;
  149.         PlotItem = 5;
  150.         PlotSurfaceItem = 6;
  151.         OptionsItem = 7;
  152.         SetScaleItem = 9;
  153.         CalibrateItem = 10;
  154.         RedoItem = 11;
  155.         DeleteItem = 12;
  156.         ResetItem = 13;
  157.         RestoreItem = 14;
  158.         MarkItem = 15;
  159.  
  160.         SpecialMenu = 140;
  161.         StartItem = 1;
  162.         AverageItem = 2;
  163.         SaveBlankFieldItem = 3;
  164.         VideoControlItem = 4;
  165.         PhotoModeItem = 5;
  166.         LoadMacrosItem = 7;
  167.         FirstMacroItem = 9;
  168.  
  169.         StacksMenu = 141;
  170.         StackFromWindowsItem = 1;
  171.         WindowsFromStackItem = 2;
  172.         AddSliceItem = 3;
  173.         DeleteSliceItem = 4;
  174.         NextSliceItem = 5;
  175.         PreviousSliceItem = 6;
  176.         MakeMovieItem = 8;
  177.         CaptureFramesItem = 9;
  178.         AnimateItem = 10;
  179.         AverageSlicesItem = 11;
  180.         MakeMontageItem = 12;
  181.         CaptureColorItem = 14;
  182.         RGBToColorItem = 15;
  183.         ColorToRGBItem = 16;
  184.         RGBToHSVItem = 17;
  185.         RegisterItem = 19;
  186.         ProjectItem = 20;
  187.         ResliceItem = 21;
  188.         ResliceOptionsItem = 22;
  189.  
  190.         WindowsMenu = 138;
  191.         NextImageItem = 1;
  192.         StackImagesItem = 2;
  193.         CascadeImagesItem = 3;
  194.         PasteControlItem = 4;
  195.         SelectToolsItem = 6;
  196.         SelectGrayMapItem = 7;
  197.         SelectLutItem = 8;
  198.         SelectInfoItem = 9;
  199.         SelectHistogramItem = 10;
  200.         SelectPlotItem = 11;
  201.         SelectResultsItem = 12;
  202.  
  203.         UserMenu = 139;
  204.  
  205.         TransferModeMenu = 200;  {Popup Menu in Paste Control window}
  206.         CopyModeItem = 1;
  207.         AndItem = 2;
  208.         OrItem = 3;
  209.         XorItem = 4;
  210.         ReplaceItem = 5;
  211.         BlendItem = 6;
  212.  
  213.         LineToolMenu = 201;
  214.         StraightItem = 1;
  215.         SegmentedItem = 2;
  216.         FreehandItem = 3;
  217.  
  218.         ImageMathOpsMenu = 202;
  219.         ImageListMenu = 203;
  220.         UnitsMenu = 204;
  221.  
  222.         InvertID = 1;
  223.         HighLightID = 2;
  224.         OscillatingID = 3;
  225.         TriggerID = 4;
  226.         BlindID = 5;
  227.         FirstChannelID = 7;
  228.         OffsetID = 13;
  229.         GainID = 14;
  230.         ResetID = 15;
  231.         OffsetUpID = 16;
  232.         OffsetDownID = 17;
  233.         GainUpID = 18;
  234.         GainDownID = 19;
  235.         SyncID = 20;
  236.  
  237.         MinFree = 150000;
  238.         HeaderSize = 512;
  239.         TiffDirSize = 256;
  240.         MaxLine = 4096;
  241.         tleft = 36;
  242.         ttop = 40;
  243.         twidth = 44;
  244.         tmiddle = 22;
  245.         theight = 277;
  246.         gmleft = 2;
  247.         gmtop = 338;
  248.         gmwidth = 78;
  249.         gmheight = 118;
  250.         gmRectLeft = 7;
  251.         gmRectTop = 6;
  252.         gmRectRight = 71;
  253.         gmRectBottom = 70;
  254.         gmSlideWidth = 68;
  255.         gmSlideHeight = 7;
  256.         gmSlide1Offset = 8;
  257.         gmSlide2Offset = 19;
  258.         gmIconWidth = 17;
  259.         gmIconHeight = 14;
  260.         gmIconOffset = 31;
  261.         gmIcon1Left = 17;
  262.         gmIcon2Left = 46;
  263.         cleft = 2;
  264.         ctop = 40;
  265.         cwidth = 30;
  266.         rwidth = 200;
  267.         rheight = 225;
  268.         hleft = 220;
  269.         hwidth = 256;
  270.         hheight = 120;
  271.         pcwidth = 186;
  272.         pcheight = 85;
  273.         MaxPseudoColors = 32;
  274.         MaxPseudoColorsLessOne = 31;
  275.         PicKind = 88;
  276.         HistoKind = 89;
  277.         ProfilePlotKind = 90;
  278.         LUTKind = 91;
  279.         MapKind = 92;
  280.         ToolKind = 93;
  281.         InfoKind = 94;
  282.         CalibrationPlotKind = 95;
  283.         PasteControlKind = 96;
  284.         ResultsKind = 97;
  285.         TextKind = 98;
  286.         IOErrorID = 400;
  287.         AboutID = 256;
  288.         VersItem = 2;
  289.         MemItem = 3;
  290.         StackSize = 40000;
  291.         ToolFont = 249;      {Bits 7-14 of font resource ID(31884) }
  292.         WindowsMenuItems = 13;       {Items in Windows menu before images - nTextWindows}
  293.         WhiteIndex = 0;
  294.         BlackIndex = 255;
  295.         OvalSize = 15;
  296.         LinesLeft = 13;
  297.         LinesRight = 40;
  298.         nLinetypes = 6;
  299.         CheckMarkChar = 65;
  300.         TxPlain = 1;
  301.         TxBold = 2;
  302.         TxItalic = 3;
  303.         TxUnderLine = 4;
  304.         TxOutLine = 5;
  305.         TxShadow = 6;
  306.         FileID8 = 'IPICIMAG';
  307.         DefaultBufferSize = 307200; {Enough for 640x480 image}
  308.         PickerCursorID = 111;
  309.         LUTCursorID = 112;
  310.         gmCursorID = 113;
  311.         GrabberCursorID = 114;
  312.         PencilCursorID = 115;
  313.         CrossCursorID = 117;
  314.         CrossCursorPlusID = 118;
  315.         CrossCursorMinusID = 119;
  316.         BucketCursorID = 120;
  317.         GlassCursorPlusID = 121;
  318.         GlassCursorMinusID = 122;
  319.         WandCursorID = 123;
  320.         WandPlusCursorID = 124;
  321.         WandMinusCursorID = 125;
  322.         TextCursorID = 126;
  323.         EraserCursorID = 127;
  324.         SprayCursorID = 128;
  325.         BrushCursorID = 129;
  326.         FirstAnimatedWatchID = 130;
  327.         AppleDefaultCLUT = 8;
  328.         SpectrumCLUT = 200;
  329.         KlutzID = 200;
  330.         PixelPaintID = 999; {Used for PixelPaint and Canvas CLUTs}
  331.         GhostWindow = $A84;
  332.         GrayRgnGlobal = $9EE;
  333.         MBarHeight = $BAA;
  334.         MaxPics = 250;
  335.         FirstExtraColorsEntry = 1;
  336.         MaxExtraColors = 6;
  337.         MaxExtraPlus2 = 8;
  338.         ExtraColorsHeight = 10;
  339.         MyMaxLong = 2000000000;
  340.         MaxTextBufSize = 32700;
  341.         MaxMaxRegions = 8000;
  342.         MaxStandards = 20;
  343.         BadReal = 808080.0;
  344.         NoValue = -808080.0;
  345.         TabSpacing = 12;
  346.         MaxPolyVertices = 4000;
  347.         pi = 3.1415926535898;
  348.         InfoVStart = 11;
  349.         InfoHStart = 4;
  350.     {TIFF Constants}
  351.         short = 3;
  352.         long = 4;
  353.         NewSubfileType = 254;
  354.         ImageWidth = 256;
  355.         ImageLength = 257;
  356.         BitsPerSample = 258;
  357.         Compression = 259;
  358.         PhotoInterp = 262;
  359.         StripOffsets = 273;
  360.         SamplesPerPixel = 277;
  361.         RowsPerStrip = 278;
  362.         StripByteCount = 279;
  363.         XResolution = 282;
  364.         YResolution = 283;
  365.         ResolutionUnit = 296;
  366.         ColorMapTag = 320;
  367.         ImageHdrTag = -22222; {43314}
  368.         TiffFillerSize = 67;
  369.         RoiHandleSize = 5;
  370.         CancelResetID = 3;
  371.         npcItems = 7;
  372. {Blend = 32;}
  373. {Transparent = 36;}
  374.         LeftArrow = 28;
  375.         RightArrow = 29;
  376.         UpArrow = 30;
  377.         DownArrow = 31;
  378.         hPicOffset = 8;
  379.         vPicOffset = 16;
  380.         fgRowBytes = 1024;
  381.         FunctionKey = 16;
  382.  
  383.         MaxMacroSize = 15000;
  384.         MaxMacroFileSize = 30000;
  385.         MaxSymbols = 500;
  386.         MaxMacroStackSize = 150;
  387.         MaxMacros = 100;
  388.         SymbolSize = 12;
  389.         BlankSymbol = '            ';
  390.         StackOverflow = 'Stack overflow';
  391.  
  392.         MaxPicSize = 16383;
  393.         ScrollBarWidth = 15;
  394.         PrefsName = 'Image Prefs';
  395.         StraightChar = 97;
  396.         SegmentedChar = 98;
  397.         FreehandChar = 99;
  398.         MaxSlices = 1000;
  399.         HomeKey = 1;
  400.         EndKey = 4;
  401.         PageUp = 11;
  402.         PageDown = 12;
  403.         osEvt = 15;
  404.         Pseudo20ID = 1001;
  405.         Pseudo32ID = 1002;
  406.         RainbowID = 1003;
  407.         Fire1ID = 1004;
  408.         Fire2ID = 1005;
  409.         IceID = 1006;
  410.         GraysID = 1007;
  411.         MaxColor = 15000;
  412.         MaxCoordinates = 10000;
  413.         DefaultLG3DacLow = 50;    {0.39V}
  414.         DefaultLG3DacHigh = 150; {1.18V}
  415.         MaxTextWindows = 10;
  416.  
  417.  
  418.     type
  419.         UnsignedByte = 0..255;
  420.         LineType = packed array[0..MaxLine] of UnsignedByte;
  421.         LinePtr = ^LineType;
  422.         rLineType = array[0..MaxLine] of real;
  423.         rLinePtr = ^rLineType;
  424.         RealLine = array[1..MaxLine] of real;
  425.         ClutTable = packed array[0..255] of integer;
  426.         ColorArray = packed array[0..MaxPseudoColorsLessOne] of byte;
  427.         LutArray = packed array[0..255] of byte;
  428.         PicType = (pdp11, NewPicture, normal, PictFile, Leftover, imported, FrameGrabberType, NullPicture, BlankField, TiffFile, InvertedTIFF, FourBitTIFF, ScionType, PicsFile);
  429.         LUTModeType = (PseudoColor, OldAppleDefault, OldSpectrum, GrayScale, ColorLut, CustomGrayscale);
  430.         ColorTableType = (CustomTable, AppleDefault, Pseudo20, Pseudo32, Rainbow, Fire1, Fire2, Ice, Grays, Spectrum);
  431.         ExtraColorsArray = array[1..MaxExtraColors] of rgbColor;
  432.         MyCSpecArray = array[0..255] of ColorSpec;
  433.         CoefficientArray = array[1..6] of double;
  434.         CurveFitType = (StraightLine, Poly2, Poly3, Poly4, Poly5, ExpoFit, PowerFit, LogFit, RodbardFit, SpareFit1, SpareFit2, UncalibratedOD);
  435.         UnitsType = (Nanometers, Micrometers, Millimeters, Centimeters, Meters, Kilometers, Inches, Feet, Miles, Pixels, OtherUnits);
  436.         UnitType = string[11];
  437.         FileDepthType = (EightBits, SixteenBitsUnsigned, SixteenBitsSigned);
  438.         RoiTypeType = (PolygonRoi, RectRoi, OvalRoi, LineRoi, FreeLineRoi, SegLineRoi, NoRoi, FreehandRoi);
  439.  
  440.         PicHeader = record
  441.                 FileID: packed array[1..8] of char; {8  8}
  442.                 hnlines: integer;                    {2  10}
  443.                 hPixelsPerLine: integer;        {2  12}
  444.                 hversion: integer;                   {2  14}
  445.                 hOldLutMode: LutModeType;    {2  16}
  446.                 hOldnColors: integer;                {2  18}
  447.                 hr, hg, hb: ColorArray;              {96 114}
  448.                 hOldColorStart: integer;             {2  116}
  449.                 hColorWidth: integer;                 {2  118}
  450.                 hExtraColors: ExtraColorsArray;   {36 154}
  451.                 hnExtraColors: integer;              {2  156}
  452.                 hForegroundIndex: integer;     {2  158}
  453.                 hBackgroundIndex: integer;      {2  160}
  454.                 hXSpatialScale: double;        {8  168}
  455.                 Unused2: integer;                    {2  170}
  456.                 Unused3: integer;                    {2  172}
  457.                 hUnitsID: integer;                   {2  174}
  458.                 hp1x, hp1y, hp2x, hp2y: integer;     {8  182}
  459.                 hfit: CurveFitType;                  {2  184}
  460.                 hnCoefficients: integer;           {2  186}
  461.                 hCoeff: CoefficientArray;         {48 234}
  462.                 hUM: string[15];                   {16 250}
  463.                 UnusedBoolean: boolean;          {1  251}
  464.                 hBinaryPic: boolean;               {1  252}
  465.                 hSliceStart: integer;           {2 254}
  466.                 hSliceEnd: integer;              {2  256}
  467.                 hScaleMagnification: real;   {4  260}
  468.                 hNSlices: integer;                 {2 262}
  469.                 hSliceSpacing: real;          {4 266}
  470.                 hCurrentSlice: integer;        {2 268}
  471.                 hLoopTime: real;                   {4  272}
  472.                 hPixelAspectRatio: real;       {4  276}
  473.                 hColorStart: integer;             {2  278}
  474.                 hColorEnd: integer;               {2  280}
  475.                 hnColors: integer;                  {2  282}
  476.                 hFill1, hFill2: RGBColor;    {12  294}
  477.                 hTable: ColorTableType;       {1  295}
  478.                 hLutMode: LutModeType;      {1  296}
  479.                 hInvertedTable: boolean;      {1  297}
  480.                 hZeroClip: boolean;               {1  298}
  481.                 hXUnit: string[11];            {12 310}
  482.                 UnusedBytes: packed array[1..202] of byte;
  483.             end;
  484.  
  485.         StackInfoRec = record
  486.                 nSlices: integer;
  487.                 CurrentSlice: integer;
  488.                 PicBaseH: array[1..MaxSlices] of handle;
  489.                 SliceSpacing: real; {Pixels}
  490.                 LoopTime: real;
  491.             end;
  492.         StackInfoPtr = ^StackInfoRec;
  493.  
  494.         PaletteHeader = record
  495.                 pID: packed array[1..4] of char;  {4  4}
  496.                 pVersion: integer;                              {2  6}
  497.                 pnColors: integer;                              {2  8}
  498.                 pColorStart: integer;                         {2  10}
  499.                 pColorEnd: integer;                            {2  12}
  500.                 pFill1: rgbColor;                               {6  18}
  501.                 pFill2: rgbColor;                               {6  24}
  502.                 pUnused: array[1..4] of integer;     {8  32}
  503.             end;
  504.  
  505.         RoiHeader = record
  506.                 rID: packed array[1..4] of char;  {4   4}
  507.                 rVersion: integer;                              {2   6}
  508.                 rRoiType: RoiTypeType;                    {2   8}
  509.                 rRoiRect: rect;                                   {8   16}
  510.                 rNCoordinates: integer;                     {2   18}
  511.                 rX1, rY1, rX2, rY2: real;                 {16 34}
  512.                 rLineWidth: integer;                          {2   36}
  513.                 rUnused: array[1..14] of integer;    {28 64}
  514.             end;
  515.  
  516.         PicInfo = record
  517.                 nlines, PixelsPerLine: integer;
  518.                 ImageSize: LongInt;
  519.                 BytesPerRow: integer;
  520.                 PicBaseAddr: ptr;
  521.                 PicBaseHandle: handle;
  522.                 osPort: cGrafPtr;         {Offscreen Port}
  523.                 PicRect: rect;
  524.                 RoiRect: rect;
  525.                 roiRgn: rgnHandle;
  526.                 RoiType: RoiTypeType;
  527.                 SrcRect: rect;
  528.                 wrect: rect;
  529.                 initwrect: rect;
  530.                 savewrect, SaveSrcRect: rect;
  531.                 SaveMagnification: extended;
  532.                 savehloc, savevloc: integer;  {Old window location in global coordinates}
  533.                 RoiShowing: boolean;
  534.                 title: string[31];
  535.                 NewPic: boolean;
  536.                 Magnification: extended;
  537.                 vref: integer;
  538.                 PictureType: PicType;
  539.                 wptr: WindowPtr;
  540.                 PicNum, PidNum: integer;
  541.                 ScaleToFitWindow: boolean;
  542.                 Changes: boolean;
  543.                 RedLUT, GreenLUT, BlueLUT: LutArray;
  544.                 nColors: integer;
  545.                 ColorStart, ColorEnd, SaveColorStart, SaveColorEnd: LongInt;
  546.                 FillColor1, FillColor2, SaveFill1, SaveFill2: RGBColor;
  547.                 LUTMode: LUTModeType;
  548.                 ColorTable: ColorTableType;
  549.                 InvertedColorTable: boolean;
  550.                 cTable: MyCSpecArray;
  551.                 IdentityFunction: boolean;
  552.                 PixMapSize: LongInt;
  553.                 xSpatialScale, ySpatialScale, PixelAspectRatio: extended;
  554.                 xUnit: UnitType;  {Someday there may be yUnit}
  555.                 UnitOfMeasure: string[15];
  556.                 HeaderOffset, ImageDataOffset, ColorMapOffset: LongInt;
  557.                 Fit: CurveFitType;
  558.                 nCoefficients: integer;
  559.                 Coefficient: CoefficientArray;
  560.                 DensityCalibrated, SpatiallyCalibrated: boolean;
  561.                 ZeroClip: boolean;
  562.                 BinaryPic: boolean;
  563.                 WindowState: (NormalWindow, TiledSmall, TiledSmallScaled, TiledBig, TiledBigScaled);
  564.                 Revertable: boolean;
  565.                 LX1, LY1, LX2, LY2, LAngle: real;
  566.                 StackInfo: StackInfoPtr;
  567.                 Thresholding: boolean;
  568.                 iVersion: integer;
  569.                 DataType: FileDepthType;
  570.                 AbsoluteMin, AbsoluteMax, CurrentMin, CurrentMax: LongInt;
  571.                 LittleEndian: boolean;
  572.                 DataH: handle;
  573.             end;
  574.  
  575.         InfoPtr = ^PicInfo;
  576.         ToolType = (MagnifyingGlass, SelectionTool, Grabber, OvalSelectionTool, Pencil, PolygonTool, Eraser, FreehandTool, Brush, LineTool, ruler, LUTTool, PaintBucket, TextTool, PlotTool, SprayCanTool, Wand, PickerTool, AngleTool, CrossHairTool);
  577.         OpType = (InvertOp, PaintOp, FrameOp, EraseOp, PasteOp, AddOp, SubtractOp, MultiplyOp, DivideOp);
  578.         ObjectType = (lineObj, oval, SelectionOval, Rectangle, SelectionRect, BrushObj);
  579.         FilterType = (WeightedAvg, UnweightedAvg, fsharpen, fshadow, EdgeDetect, ReduceNoise, dither, erosion, dilation, OutlineFilter, skeletonize);
  580.         rhptr = ^RgnHandle;
  581.         FlipRotateType = (RotateLeft, RotateRight, FlipVertical, FlipHorizontal);
  582.         TextBackType = (NoBack, WithBack);
  583.         HistogramType = array[0..255] of LongInt;
  584.         str4 = packed array[1..4] of char;
  585.         LookupTable = packed array[0..255] of UnsignedByte;
  586.         TextBufType = packed array[1..MaxTextBufSize] of char;
  587.         TextBufPtr = ^TextBufType;
  588.         StandardsArray = array[1..MaxStandards] of extended;
  589.         MeasurementTypes = (AreaM, MeanM, StdDevM, xyLocM, ModeM, LengthM, MajorAxisM, MinorAxisM, AngleM, IntDenM, MinMaxM, User1M, User2M);
  590.         TiffHdr = record
  591.                 ByteOrder: packed array[1..2] of char;
  592.                 Version: integer;
  593.                 FirstIFDOffset: LongInt;
  594.             end;
  595.         TiffEntry = record
  596.                 TagField: integer;
  597.                 ftype: integer;
  598.                 length: LongInt;
  599.                 offset: LongInt;
  600.             end;
  601.         pcItemType = (pcPopupMenu, pcCheckBox, pcButton);
  602.         WhatToImportType = (ImportTIFF, ImportMCID, ImportLUT, ImportText, ImportCustom);
  603.         FateTable = array[0..255] of integer;
  604.         SaveAsWhatType = (asTIFF, asPICT, asMacPaint, asPICS, AsPalette, AsOutline, AsRawData, SaveAsMCID);
  605.         ExportAsWhatType = (AsRaw, asMCID, asText, AsLUT, asMeasurements, asPlotValues, asHistogramValues, asCoordinates);
  606.  
  607.         RealArray = array[0..MaxMaxRegions] of real;
  608.         meanType = RealArray;
  609.         sdType = RealArray;
  610.         PixelCountType = array[0..MaxMaxRegions] of LongInt;
  611.         AreaType = RealArray;
  612.         modeType = RealArray;
  613.         IntegratedDensityType = RealArray;
  614.         idBackgroundType = RealArray;
  615.         xcenterType = RealArray;
  616.         ycenterType = RealArray;
  617.         MajorAxisType = RealArray;
  618.         MinorAxisType = RealArray;
  619.         orientationType = RealArray;
  620.         MinType = RealArray;
  621.         MaxType = RealArray;
  622.         plengthType = RealArray;
  623.         User1Type = RealArray;
  624.         User2Type = RealArray;
  625.  
  626.         meanPtr = ^meanType;
  627.         sdPtr = ^sdType;
  628.         PixelCountPtr = ^PixelCountType;
  629.         AreaPtr = ^AreaType;
  630.         modePtr = ^modeType;
  631.         IntegratedDensityPtr = ^IntegratedDensityType;
  632.         idBackgroundPtr = ^idBackgroundType;
  633.         xcenterPtr = ^xcenterType;
  634.         ycenterPtr = ^ycenterType;
  635.         MajorAxisPtr = ^MajorAxisType;
  636.         MinorAxisPtr = ^MinorAxisType;
  637.         orientationPtr = ^orientationType;
  638.         MinPtr = ^MinType;
  639.         MaxPtr = ^MaxType;
  640.         plengthPtr = ^plengthType;
  641.         User1Ptr = ^User1Type;
  642.         User2Ptr = ^User2Type;
  643.         SyncModeType = (NormalSync, SeparateSync, SyncOnGreen);
  644.  
  645.         TokenType = (NullT, MacroT, NewLineT, beginT, endT, Identifier, UnknownIdentifier, DoneT, LeftParen, {}
  646.             RightBracket, comma, colon, SemiColon, StringLiteral, NumericLiteral, VarT, IntegerT, RealT, BooleanT, CommandT,{}
  647.             FunctionT, ArrayT, AssignOp, ForT, ToT, DoT, IfT, ThenT, ElseT, whileT, repeatT, untilT, Variable, PlusOp,{}
  648.             MinusOp, MulOp, DivOp, eqOP, ltOp, gtOp, neOp, leOp, geOp, orOp, IntDivOp, modOp, andOp, NotOp, ProcedureT,{}
  649.             ProcIdT, TrueT, FalseT, RightParen, LeftBracket, StringT, StringVariable, {}
  650.             StringFunctionT, UserCommandT, UserFuncT, UserStrFuncT);
  651.         CommandType = (InvertLUTC, UserCodeC, MoveWindowC, AutoThresholdC, SetExportC, SubtractBackgroundC,{}
  652.             SetUser1C, SetUser2C, GetPlotDataC, PlotDataC, RequiresC, SetOptionsC, BufferC, GetSpacingC, SetSpacingC, {}
  653.             PropagateLutC, PropagateDensityC, PropagateSpatialC, SetCountC, ShowMsgC, UpdateLutC, SetCounterC, RedLutC,{}
  654.             GreenLutC, BlueLutC, SaveStateC, RestoreStateC, GetTimeC, SetScaleC, MakeLineC, PlotProfileC, ResliceC, CopyModeC,{}
  655.             TriggerC, AverageFramesC, AddSliceC, DeleteSliceC, MakeStackC, GetSliceC, nSlicesC, SelectSliceC, ChooseSliceC, {}
  656.             GetMouseC, SetMajorC, SetMinorC, CascadeC, rAreaC, rMeanC, rStdDevC, rAngleC, rXC, rYC, rLengthC, rMajorC, {}
  657.             rMinorC, rMinC, rMaxC, rUser1C, rUser2C, UpdateResultsC, rCountC, HistogramC, ChangeC, ExportC, PicNumC,{}
  658.             ScaleSelectionC, ScalingOptionsC, PutPixelC, ChoosePicC, WriteC, WritelnC,{}
  659.             SetPrecisionC, SetParticleSizeC, AdjustC, IgnoreC,{}
  660.             OutlineParticlesC, LabelC, IncludeC, AutoC, PlotXYZC, CalibratedC, cValueC, SameSizeC, GetColumnC, PutColumnC, {}
  661.             GetRowC, PutRowC, ShowResultsC, SetWidthC, ScaleMathC, InvertYC, AndC, OrC, XorC, BlendC, ReplaceC, AddC, SubC, {}
  662.             MulC, DivC, SetOptionC, GetResultsC, SetLabelsC, SetPlotScaleC, SetDimC, ColumnC, ChannelC, ShowPasteC, NullC,{}
  663.             RotateRC, RotateLC, FlipVC, FlipHC, CopyC, SelectC, ClearC, FillC, InvertC, FrameC, PasteC, KillC, RestoreC, AnalyzeC,{}
  664.             ConvolveC, NextC, MarkC, MeasureC, ThresholdC, ResetgmC, MakeBinC, DitherC, SmoothC, SharpenC, ShadowC, {}
  665.             TraceC, ReduceC, SetSliceC, RedirectC, WaitC, ResetmC, UndoC, SetForeC, SetBackC, ScaleC, HistoC, EnhanceC, {}
  666.             EqualizeC, ErodeC, DilateC, OutlineC, ThinC, AddConstC, MulConstC, RevertC, BeepC, NopC, MakeC, MakeOvalC, {}
  667.             MoveC, InsetC, MoveToC, LineToC, DrawTextC, DrawNumC, SetFontC, SetFontSizeC, SetTextC, GetPicSizeC, PutMsgC, {}
  668.             ExitC, GetRoiC, TruncC, RoundC, GetNumC, StartC, StopC, CaptureC, RandomC, MakeNewC, DrawScaleC, SetPaletteC, {}
  669.             GetPixelC, ButtonC, oddC, absC, sqrtC, sinC, cosC, expC, lnC, arctanC, sqrC, OpenC, ImportC, SetImportC, SetMinMaxC,{}
  670.             SetCustomC, nPicsC, SelectPicC, SetPicNameC, ApplyLutC, SetSizeC, SaveC, SaveAllC, SaveAsC, CopyResultsC, CloseC, {}
  671.             DisposeC, DisposeAllC, DupC, GetInfoC, PrintC, GetLineC, xCoordinatesC, yCoordinatesC, nCoordinatesC, GetStringC, {}
  672.             OpenSerialC, GetSerialC, PutSerialC, ChrC, OrdC, SetCursorC, TickCountC, ConcatC, SetVideoC, StringToNumC, AcquireC,{}
  673.             UndoSizeC, ScionC, FilterC, PhotoModeC, RGBToIndexedC, SurfacePlotC, SelectWindowC, NewTextWindowC, CaptureColorC,{}
  674.             GetThresholdC, AverageSlicesC, BitAndC, BitOrC, PidNumC, SortPaletteC, ProjectC, WindowTitleC, ScaleConvolutionsC,{}
  675.             ImageMathC, PasteLiveC, PidExistsC, PosC, DeleteC, LengthC, GetScaleC, AutoOutlineC);
  676.         SymbolType = packed array[1..SymbolSize] of char;
  677.         VarType = (IntVar, RealVar, BooleanVar, StringVar);
  678.         SymTabRec = record
  679.                 Symbol: SymbolType;
  680.                 tType: TokenType;
  681.                 cType: CommandType;
  682.                 loc: integer;
  683.             end;
  684.         str255P = ^str255;
  685.         str255H = ^str255P;
  686.         StackRec = record
  687.                 SymbolTableIndex: integer;
  688.                 Value: extended;
  689.                 vType: VarType;
  690.                 StringH: str255H;
  691.             end;
  692.         MacrosRec = record
  693.                 Macros: packed array[0..MaxMacroSize] of char;
  694.                 SymbolTable: array[1..MaxSymbols] of SymTabRec;
  695.                 stack: array[1..MaxMacroStackSize] of StackRec;
  696.                 aLine: LineType;
  697.             end;
  698.         MacrosPtr = ^MacrosRec;
  699.         rsMethodType = (Bilinear, NearestNeighbor);
  700.         TiffColorMapType = array[1..3] of array[0..255] of integer;
  701.         StackIFDType = record
  702.                 nEntries: integer; {2}
  703.                 TiffDir: array[1..6] of TiffEntry; {72}
  704.                 NextIFD: LongInt;  {4}
  705.             end;
  706.  
  707.         SettingsType = record
  708.                 sID: packed array[1..4] of char;
  709.                 sVersion: integer;
  710.                 sForegroundIndex, sBackgroundIndex: integer;
  711.                 sBrushHeight, sBrushWidth: integer;
  712.                 sSprayCanDiameter: integer;
  713.                 sLUTMode: LUTModeType;
  714.                 sOldColorStart: integer;
  715.                 sOldColorWidth: integer;
  716.                 sCurrentFontID: integer;
  717.                 sCurrentStyle: style;
  718.                 sCurrentSize: integer;
  719.                 sTextJust: integer;
  720.                 sTextBack: TextBackType;
  721.                 snExtraColors: integer;
  722.                 sExtraColors: ExtraColorsArray;
  723.                 sInvertVideo: boolean;
  724.                 sMeasurements: set of MeasurementTypes;
  725.                 sInvertPlots, sAutoScalePlots, sLinePlot, sDrawPlotLabels, sFixedSizePlot: boolean;
  726.                 sUnused1: packed array[1..12] of integer;
  727.                 sProfilePlotWidth, sProfilePlotHeight: integer;
  728.                 sFramesToAverage: integer;
  729.                 sNewPicWidth, sNewPicHeight: integer;
  730.                 sBufferSize: LongInt;
  731.                 sMaxScionWidth: integer;
  732.                 sThresholdToForeground, sNonThresholdToBackground: boolean;
  733.                 sVideoChannel: integer;
  734.                 sWhatToImport: WhatToImportType;
  735.                 sImportCustomWidth, sImportCustomHeight: integer;
  736.                 sImportCustomOffset: LongInt;
  737.                 sWandAutoMeasure, sWandAdjustAreas: boolean;
  738.                 sBinaryIterations: integer;
  739.                 sScaleArithmetic: boolean;
  740.                 sInvertPixelValues: boolean;
  741.                 sInvertYCoordinates: boolean;
  742.                 sFieldWidth, sPrecision: integer;
  743.                 sMinParticleSize, sMaxParticleSize: LongInt;
  744.                 sIgnoreParticlesTouchingEdge, sLabelParticles, sOutlineParticles, sIncludeHoles: boolean;
  745.                 sKernelsVRefNum: integer;
  746.                 sKernelsDirID: LongInt;
  747.                 sDefaultVRefNum: integer;
  748.                 sDefaultDirID: LongInt;
  749.                 sOscillatingMovies: boolean;
  750.                 sDriverHalftoning: boolean;
  751.                 sMaxMeasurements: integer;
  752.                 sImportCustomDepth: FileDepthType;
  753.                 sImportSwapBytes, sImportCalibrate, sImportAutoscale: boolean;
  754.                 sUnused2: packed array[1..12] of integer;
  755.                 sShowHeadings: boolean;
  756.         {Added with V1.40}
  757.                 sProfilePlotMin, sProfilePlotMax: real;
  758.                 sImportMin, sImportMax: real;
  759.                 sHighlightPixels: boolean;
  760.         {Added with V1.41}
  761.                 sBallRadius: integer;
  762.                 sFasterBackgroundSubtraction: boolean;
  763.                 sScaleConvolutions: boolean;
  764.        {Added with V1.42}
  765.                 sBinaryCount: integer;
  766.                 sColorTable: ColorTableType;
  767.                 sColorStart, sColorEnd: integer;
  768.                 sInvertedTable: boolean;
  769.        {Added with V1.44}
  770.                 sHalftoneFrequency, sHalftoneAngle: integer;
  771.                 sHalftoneDotFunction: boolean;
  772.        {Added with V1.46}
  773.                 sLG3DacLow, sLG3DacHigh: integer;
  774.       {Added with V1.47}
  775.                 sSyncMode: SyncModeType;
  776.       {Added with V1.49}
  777.                 sSwitchLUTOnSuspend: boolean;
  778.                 sVideoRateAveraging: boolean;
  779.       {Added with V1.50}
  780.                 sImportInvert: boolean;
  781.       {Added with V1.52}
  782.                 sTextCreator: packed array[1..4] of char;
  783.                 sUnused: array[1..10] of LongInt;
  784.             end;
  785.  
  786.         TiffInfoRec = record
  787.                 Width, Height: integer;
  788.                 BitsPerPixel: integer;
  789.                 ZeroIsBlack: boolean;
  790.                 OffsetToData, OffsetToColorMap, OffsetToImageHeader: LongInt;
  791.                 Resolution: extended;
  792.                 ResUnits: (tCentimeters, tInches, tNoUnits);
  793.                 NextIFD: LongInt;
  794.             end;
  795.  
  796.         TiffIFDTable = array[1..MaxSlices] of record
  797.                 iWidth, iHeight: integer;
  798.                 Offset: LongInt;
  799.                 Invert: boolean;
  800.             end;
  801.  
  802.         PaletteRecType = record
  803.                 NumberOfColors: integer;
  804.                 RedData: ColorArray;
  805.                 GreenData: ColorArray;
  806.                 BlueData: ColorArray;
  807.             end;
  808.  
  809.         ProjectionMethodType = (NearestPoint, BrightestPoint, MeanValue);
  810.         AxisType = (XAxis, YAxis, ZAxis);
  811.         FiducialMethodType = (OnScreen, FromFile);
  812.  
  813.         CoordinatesType = array[1..MaxCoordinates] of integer;
  814.         xCoordinatesPtr = ^CoordinatesType;
  815.         yCoordinatesPtr = ^CoordinatesType;
  816.         WhatToUndoType = (NothingToUndo, UndoEdit, UndoFlip, UndoRotate, UndoFilter, UndoPaste, UndoTransform, UndoClear, UndoMeasurement, UndoPoint, UndoZoom, UndoOutline, UndoSliceDelete, UndoFirstSliceDelete, UndoLUT);
  817.  
  818.         TextInfoRec = record
  819.                 TextWindowPtr: WindowPtr;
  820.                 TextLeft, TextTop, TextWidth, TextHeight: integer;
  821.                 hTextScrollBar, vTextScrollBar: ControlHandle;
  822.                 hTextPageSize, vTextPageSize: integer;
  823.                 TextTE: TEHandle;
  824.                 TextTitle: string[31];
  825.                 TextRefNum: integer;
  826.                 Changes, TooBig: boolean;
  827.                 WindowNum: integer;
  828.             end;
  829.         TextInfoPtr = ^TextInfoRec;
  830.  
  831.         packedUnsigned = packed record
  832.                 u: 0..255
  833.             end;
  834.         pup = ^packedUnsigned;
  835.  
  836.     var
  837.         TraceInfo: str4;
  838.         finished: boolean;
  839.         trect, gmrect, MapRect1, MapRect2, crect, HistoRect: rect;
  840.         gmSlide1, gmslide2, gmSlide1i, gmSlide2i, gmicon1, gmicon2: rect;
  841.         ToolWindow, MapWindow, LUTWindow, InfoWindow, HistoWindow, PlotWindow, PasteControl: WindowPtr;
  842.         BuggyWatch: CursHandle;
  843.         cr, tab, BackSpace, eof: char;
  844.         CharCount: LongInt;
  845.         ScreenPort: GrafPtr;
  846.         CScreenPort: cGrafPtr;
  847.         ticks: LongInt;
  848.         MonoFunction: ClutTable;
  849.         Info: InfoPtr;
  850.         ToolCursor: array[ToolType] of Cursor;
  851.         AnimatedWatch: array[1..8] of Cursor;
  852.         WatchIndex: integer;
  853.         PickerCursor, LUTCursor, gmCursor, CrossPlusCursor, CrossMinusCursor, GlassMinusCursor, watch, WandPlusCursor, WandMinusCursor: Cursor;
  854.         CurrentTool, PreviousTool, FirstTool, LastTool: ToolType;
  855.         ToolRect: array[ToolType] of rect;
  856.         ToolTime, LutTime: longInt;
  857.         nPics, nextPid: integer;
  858.         PicWindow: array[1..MaxPics] of WindowPtr;
  859.         ScreenWidth, ScreenHeight: integer;
  860.         ScreenBase: ptr;
  861.         ScreenRowBytes: LongInt;
  862.         ScreenPixMap: PixMapHandle;
  863.         Histogram: HistogramType;
  864.         HistogramSliceStart, HistogramSliceEnd: integer;
  865.         ForegroundIndex, BackgroundIndex: integer;
  866.         lines: array[1..nLineTypes] of rect;
  867.         CheckRect: rect;
  868.         LineWidth, LineIndex: integer;
  869.         StartOfLines: integer;
  870.         MaskRgn: RgnHandle;
  871.         PlotPICT: PicHandle;
  872.         PlotLeft, PlotTop, PlotWidth, PlotHeight, PlotPicNum: integer;
  873.         PlotMin, PlotMax, ActualPlotMin, ActualPlotMax: real;
  874.         PlotCount, PlotAvg: integer;
  875.         PlotData: rLinePtr;
  876.         PlotAngle, PlotScale: extended;
  877.         PlotStart: point;
  878.         PlotXUnits, PlotYUnits: string[15];
  879.         InvertPlots, AutoscalePlots, LinePlot, DrawPlotLabels, FixedSizePlot: boolean;
  880.         ProfilePlotMin, ProfilePlotMax: extended;
  881.         ProfilePlotWidth, ProfilePlotHeight: integer;
  882.         UndoBuf, ClipBuf, BigBuf: ptr;
  883.         ClipBufSize, UndoBufSize, BigBufSize: LongInt;
  884.         UndoInfoRec: PicInfo;
  885.         UndoInfo: InfoPtr;
  886.         CurrentUndoSize: LongInt;
  887.         SprayCanDiameter, SprayCanRadius, SprayCanRadius2: integer;
  888.         BrushHeight, BrushWidth: integer;
  889.         CurrentFontID, CurrentSize, NumFontItems: integer;
  890.         CurrentStyle: Style;
  891.         InsertionPoint: point; {Offscreen coordinates}
  892.         IsInsertionPoint: boolean;
  893.         TextJust: integer;
  894.         TextBack: TextBackType;
  895.         TextStr: str255;
  896.         TextRect: rect;
  897.         TextStart: point;
  898.         BlinkTime: LongInt;
  899.         pat: array[0..7] of pattern;
  900.         PatIndex: integer;
  901.         OpPending: boolean;
  902.         CurrentOp: OpType;
  903.         IsOK: boolean;
  904.         PicLeftBase, PicTopBase, PicLeft, PicTop: integer;
  905.         ClipBufInfoRec: PicInfo;
  906.         ClipBufInfo: InfoPtr;
  907.         MouseState: (NotInRoi, InRoi, DownInRoi);
  908.         osMouseDownLoc: point;
  909.         OldRoiRect: rect;
  910.         WhatsOnClip: (NothingOnClip, AColor, RectPic, NonRectPic, ImportedPic, CameraPic, TextOnClip, LivePic);
  911.         ClipTextInBuffer: boolean;
  912.         ExtraColors: ExtraColorsArray;
  913.         nExtraColors: integer;
  914.         PasteTransferMode: integer;
  915.         cheight: integer;
  916.         ExtraColorsRect: array[1..MaxExtraPlus2] of rect;
  917.         ExtraColorsEntry: array[1..MaxExtraPlus2] of integer;
  918.         RoiMode: (MoveMode, StretchMode, LeftEndMode, RightEndMode);
  919.         OldScrapCount: integer;
  920.         ClipboardConverted: boolean;
  921.         results: record
  922.                 UncalibratedMean: extended;
  923.                 MinIndex, MaxIndex, imode: integer;
  924.             end;
  925.         FrameGrabber: (QuickCapture, Scion, ScionLG3, NoFrameGrabber);
  926.         fgSlotBase: LongInt;
  927.         ControlReg, ChannelReg, BufferReg, DacHighReg, DacLowReg: ptr;
  928.         Digitizing: boolean;
  929.         debugging: boolean;
  930.         NoInfo: InfoPtr;
  931.         NoInfoRec: PicInfo;
  932.         UndoFromClip: boolean;
  933.         DensitySlicing, ThresholdToForeground, NonThresholdToBackground: boolean;
  934.         SliceStart, SliceEnd: integer;
  935.         SliceColor: RGBColor;
  936.         BlankFieldInfo: InfoPtr;
  937.         BlankFieldMean: integer;
  938.         InvertVideo, HighlightSaturatedPixels: boolean;
  939.         VideoChannel: integer;
  940.         TextBufSize, TextBufColumn, TextBufLineCount: integer;
  941.         TextBufP: TextBufPtr;
  942.         BitInfoCount: integer;
  943.         mCount, mCount2: integer;
  944.         nPoints, nLengths, nAngles: integer;
  945.         umean: array[0..MaxStandards] of real; {Uncalibrated means}
  946.         StandardValues: StandardsArray;
  947.         nStandards: integer;
  948.         cvalue: array[0..255] of extended;
  949.         MinValue, MaxValue, FitGoodness, FitSD: extended;
  950.         PlotLeftMargin, PlotTopMargin, PlotBottomMargin, PlotRightMargin: integer;
  951.         WhatToUndo: WhatToUndoType;
  952.         WhatToCopy: (NothingToCopy, CopySelection, CopyCLUT, CopyGrayMap, CopyTools, CopyPlot, CopyCalibrationPlot, CopyHistogram, CopyMeasurements, CopyColor, CopyText);
  953.         WhatToPrint: (NothingToPrint, PrintImage, PrintSelection, PrintMeasurements, PrintPlot, PrintHistogram, PrintText);
  954.         PrintRecord: THPrint;
  955.         isLaserWriter: boolean;
  956.         printing: boolean;
  957.         HalftoneFrequency, HalftoneAngle: integer;
  958.         HalftoneDotFunction: boolean;
  959.         AppleMenuH, FileMenuH, AcquireMenuH, ExportMenuH, EditMenuH, OptionsMenuH, ColorTablesMenuH, {}
  960.         PropagateMenuH, EnhanceMenuH, FilterMenuH, BinaryMenuH, ArithmeticMenuH, BackgroundMenuH, {}
  961.         AnalyzeMenuH, SpecialMenuH, StacksMenuH, SortPaletteMenuH, FontMenuH, SizeMenuH, StyleMenuH, {}
  962.         WindowsMenuH, UserMenuH, TransferModeMenuH, LineToolMenuH, ImageMathOpsMenuH, ImageListMenuH, UnitsMenuH: MenuHandle;
  963.         rleft, rtop: integer;
  964.         ListDone: boolean;
  965.         ResultsWindow: WindowPtr;
  966.         hScrollBar, vScrollBar: ControlHandle;
  967.         ListTE: TEHandle;
  968.         hListPageSize, vListPageSize: integer;
  969.         measuring: boolean;
  970.         Measurements: set of MeasurementTypes;
  971.         nListColumns: integer;
  972.         FramesToAverage: integer;
  973.         xLabel, yLabel, zLabel: string[31];
  974.         xValueLoc, yValueLoc, zValueLoc: integer;
  975.         MenuBarHeight: integer;
  976.         NewPicWidth, NewPicHeight: integer;
  977.         RestoreUndoBuf: boolean;
  978.         WhatToOpen: (OpenImage, OpenPICT2, OpenTIFF, OpenMCID, OpenUnknown, OpenImported, OpenCustom);
  979.         WhatToImport: WhatToImportType;
  980.         ImportCustomWidth, ImportCustomHeight, ImportCustomSlices: integer;
  981.         ImportCustomOffset: LongInt;
  982.         ImportCustomDepth: FileDepthType;
  983.         ImportSwapBytes, ImportAll, ImportCalibrate, ImportInvert: boolean;
  984.         IntelByteOrder: boolean;
  985.         BufferSize: LongInt;
  986.         MaxScionWidth: integer;
  987.         isSelectionTool: boolean;
  988.         SelectionMode: (NewSelection, AddSelection, SubSelection);
  989.         RoiMovementState: (Unconstrained, Constrained, ConstrainedH, ConstrainedV);
  990.         pcItem: array[1..npcItems] of record
  991.                 r: rect;
  992.                 itype: pcItemType;
  993.                 str: string[20];
  994.             end;
  995.         PictF: integer;
  996.         PictBuffer, curPictBufPtr: ptr;
  997.         BytesInPictBuffer: LongInt;
  998.         FitsInPictBuffer, RoiNudged, GrayMapReady, RedoSelection: boolean;
  999.         ThresholdingMode: (DensitySlice, GrayMapThresholding, BinaryImage, NoThresholding);
  1000.         WandAutoMeasure, WandAdjustAreas, RedirectSampling: boolean;
  1001.         LabelParticles, OutlineParticles, IgnoreParticlesTouchingEdge, IncludeHoles: boolean;
  1002.         MinParticleSize, MaxParticleSize: LongInt;
  1003.         OptionKeyWasDown, ScaleArithmetic, FitEllipse, AnalyzingParticles: boolean;
  1004.         WhiteRGB, BlackRGB: RGBColor;
  1005.         BinaryIterations: integer;
  1006.         nMonitors: integer;
  1007.         Monitors: array[1..6] of GDHandle;
  1008.         InfoMessage: str255;
  1009.         fgStartTicks, fgFrameCount: LongInt;
  1010.         SaveAsWhat: SaveAsWhatType;
  1011.         ExportAsWhat: ExportAsWhatType;
  1012.         SaveAllState: (NoSaveAll, SaveAllStage1, SaveAllStage2);
  1013.         InvertPixelValues, InvertYCoordinates, ContinuousHistogram: boolean;
  1014.         fgPort: cGrafPtr;
  1015.         fgWidth, fgHeight: integer;
  1016.         RoiUpdateTime: LongInt; {Time required to draw ROI outline. Set to 0 to force redraw.}
  1017.         FieldWidth: integer;
  1018.         Precision: integer; {Digits to right of decimal point}
  1019.         MeasurementToRedo: integer;
  1020.         Has32BitQuickDraw: boolean;
  1021.         DefaultRefNum, KernelsRefNum, MacrosRefNum: integer;
  1022.         LaunchVRefNum, PlugInsVRefNum: integer;
  1023.         LaunchDirID, PlugInsDirID: LongInt;
  1024.         DefaultFileName: string[63];
  1025.         rsHScale, rsVScale, rsAngle: real; {Rotate and Scale Parameters}
  1026.         rsMethod: rsMethodType;
  1027.         rsCreateNewWindow: boolean;
  1028.         rsInteractive: boolean;
  1029.         TextEol, TextEof: boolean;
  1030.         Textf, TextIndex: integer;
  1031.         TextFileSize: LongInt;
  1032.         nMacros, nSymbols: integer;
  1033.         pcStart, TopOfStack, CurrentX, CurrentY, EndMacros: integer;
  1034.         nProcedures, TokenLoc, TokenStackLoc, SavePC, nGlobals, SymbolTableLoc: integer;
  1035.         LegalWithoutImage: set of CommandType;
  1036.         MacroTicks: LongInt;
  1037.         SaveForeground: integer;
  1038.         PC: integer; {"program counter" used by macro interpreter}
  1039.         MacroLineNumber: integer;
  1040.         MacroStart: array[1..MaxMacros] of integer;
  1041.         MacroKey: packed array[1..MaxMacros] of char;
  1042.         Token, SaveToken: TokenType;
  1043.         TokenStr: str255;
  1044.         TokenSymbol, MacroOrProcName: SymbolType;
  1045.         TokenValue: extended;
  1046.         Macro: boolean; {True if macro is running.}
  1047.         MacrosP: MacrosPtr;
  1048.         MacroCommand: CommandType;
  1049.         SerialIn, SerialOut: integer;
  1050.         SerialBufferP: ptr;
  1051.         ImportAutoScale: boolean;
  1052.         ImportMin, ImportMax: extended;
  1053.         OscillatingMovies, DriverHalftoning: boolean;
  1054.         ExplicitPalette: PaletteHandle;
  1055.         LivePasteMode: boolean;
  1056.         ShowCount: boolean;
  1057.         PasteControlLeft, PasteControlTop: integer;
  1058.         MaxMeasurements: integer;
  1059.         mean: meanPtr;
  1060.         sd: sdPtr;
  1061.         PixelCount: PixelCountPtr;
  1062.         mArea: AreaPtr;
  1063.         mode: modePtr;
  1064.         IntegratedDensity: IntegratedDensityPtr;
  1065.         idBackground: idBackgroundPtr;
  1066.         xcenter: xcenterPtr;
  1067.         ycenter: ycenterPtr;
  1068.         MajorAxis: MajorAxisPtr;
  1069.         MinorAxis: MinorAxisPtr;
  1070.         orientation: orientationPtr;
  1071.         mMin: MinPtr;
  1072.         mMax: MaxPtr;
  1073.         plength: plengthPtr;
  1074.         User1: User1Ptr;
  1075.         User2: User2Ptr;
  1076.         ResultsLeft, ResultsTop, ResultsWidth, ResultsHeight: integer;
  1077.         UnsavedResults: boolean;
  1078.         MajorLabel, MinorLabel, User1Label, User2Label: string[9];
  1079.         OldSystem, System7: boolean;
  1080.         SystemRefNum: integer;
  1081.         ShowHeadings: boolean;
  1082.         MakingLOI: boolean;
  1083.         LOIType: (Straight, Freehand, Segmented);
  1084.         MakingStack: boolean;
  1085.         FramesWanted: integer;
  1086.         ScaleConvolutions: boolean;
  1087.         FasterBackgroundSubtraction: boolean;
  1088.         BallRadius: integer;
  1089.         DelayTicks: integer;
  1090.         CmdPeriodToStop: string[21];
  1091.         CommandKey: char;
  1092.         BinaryCount, BinaryThreshold: integer;
  1093.         ClipboardColor: rgbColor;
  1094.         InitAngle, TotalAngle, AngleInc,                 {initial, total, and incremental angles of volume rotation}
  1095.         TransparencyLower,                                   {pixels below this threshold are transparent}
  1096.         TransparencyUpper,                                   {pixels above this threshold are transparent}
  1097.         Opacity,                                                       {percentage nearest-point in a combined projection}
  1098.         DepthCueSurf,                                             {depth-cueing constant for nearest-pt component}
  1099.         DepthCueInt: integer;                                  {depth-cueing constant for other projection components}
  1100.         AxisOfRotation: AxisType;                           {project volume as it rotates about x,y,or z-axis}
  1101.         SaveProjections,                                         {if TRUE, save and close proj frames once created}
  1102.         MinProjSize: boolean;                                {if FALSE, make windows same size regardless of rotation axis}
  1103.         ProjectionMethod: ProjectionMethodType;
  1104.         MeterWindow: WindowPtr;
  1105.         xCoordinates: xCoordinatesPtr;
  1106.         yCoordinates: yCoordinatesPtr;
  1107.         nCoordinates: integer;
  1108.         CoordinatesWidth, CoordinatesHeight: integer;
  1109.         CoordinatesRoiType: RoiTypeType;
  1110.         SwitchLUTOnSuspend: boolean;
  1111.         SumFrames, ExternalTrigger, BlindMovieCapture, ShowIntegratedValues, FixIntegrationScale: boolean;
  1112.         IntegrationMin, IntegrationMax: LongInt;
  1113.         LG3DacHigh, LG3DacLow: integer;
  1114.         MaxLG3Frames: integer;
  1115.         VideoRateAveraging: boolean;
  1116.         VideoControl: DialogPtr;
  1117.         SyncMode: SyncModeType;
  1118.         DitherColor: boolean;
  1119.         RGBLut: (ExistingLUT, SystemLUT, CustomLUT);
  1120.         Highlight1, Highlight254: rgbColor;
  1121.         HighlightMode: boolean;
  1122.         OpeningPlugInWindow: boolean;
  1123.         DacAReg, DacBReg: ptr;
  1124.         LG3DacA, LG3DacB, LG3DataOut: integer;
  1125.         nAcqPlugIns, nExportPlugIns, nFilterPlugIns: integer;
  1126.         LastAcqPlugIn, LastFilterPlugIn, LastExportPlugIn, NewTitle: string[31];
  1127.         TextInfo: TextInfoPtr;
  1128.         nTextWindows: integer;
  1129.         TextWindow: array[1..MaxTextWindows] of WindowPtr;
  1130.         SearchString: string[31];
  1131.         CurrentWPtr: WindowPtr;
  1132.         CurrentKind: integer;
  1133.         ToolBits: BitMap;
  1134.         TextCreator: packed array[1..4] of char;
  1135.         CurrentMathOp: (AddMath, SubMath, MulMath, DivMath, AndMath, OrMath, XorMath, MaxMath, MinMath, CopyMath);
  1136.         MathSrc1, MathSrc2: integer;
  1137.         MathGain: real;
  1138.         MathOffset: LongInt;
  1139.         MathResult: string[31];
  1140.         PrintOptionsSet: boolean;
  1141.         APReset: boolean;
  1142.         ShowPlot: boolean;
  1143.         osGDevice: GDHandle;
  1144.         gCopyMode: integer;
  1145.         SaveScreenDepth: integer;
  1146.         FiducialMethod: FiducialMethodType;
  1147.         ConfirmFidClicks: boolean;
  1148.         WireframeSurfacePlots, GrayscaleSurfacePlots: boolean;
  1149.  
  1150. implementation
  1151.  
  1152. end.