{
BIO-RAD CONVERSION MACROS
written by Charles Thomas, Pete DeVries and Pete Smith for the Integrated Microscopy
Resource, University of Wisconsin-Madison, 1675 Observatory Drive, Madison, WI  53706.  Please send  reports of any bugs to Charlest@macc.wisc.edu.
}


macro 'Convert BioRad PIC File to NIH Image Files';
{
Written by Pete Smith, Pete DeVries, Charles Thomas 1-4-94


Converts a BioRad z-series to NIH-Tiff files with names 01, 02, ...  As long as the converted files are saved in the same folder, you should only see two file dialog boxes (one for the first Import and one for the first Export).  
}
Var
  file, pic, nFiles, nPic, width, height, offset, PicSize:  integer;
  
begin
  SetImport('8-bits');     { Sets import default }
  SetCustom(6,6,0);     { Imports first 6 bytes, which contain the width, height,   }
  Import('');   { and number of pictures in the file.}
  width := (GetPixel(1,0)*256) + GetPixel(0,0);    { 1 & 0, 3 &2, and 5 & 4 are three}
  height := (GetPixel(3,0)*256) + GetPixel(2,0);   { 16-bit numbers expressing the  }
  PutMessage('The X,Y dimensions of these images are: ',width:1,' x ',height:1);
  PicSize:=width*height;
  nPic := (GetPixel(5,0)*256) + GetPixel(4,0);      { width, height, and number.         }
  PutMessage('The number of slices is: ',nPic:1);
  Dispose;                                                               { Closes window without save. }
  for pic:= 1 to nPic do                                           { Does each picture, one by one   }
    begin
        offset:=(pic-1)*PicSize+76;   { Offset increments by the size of the  picture }
        SetCustom(width,height,offset);
        Import('');
        SetPicName(pic:2);                { Renames each picture 01, 02, ... }
        SaveAs;                                          { Creates file using Tiff. }
        Dispose;                                        { Closes window. }
     end; {for pic}
  end; {Convert Biorad PIC File to NIH Image Files}
-----------------------------------------------------------------------------
macro 'Convert BioRad Z-Series File to VoxelView Slices';
{
Written by Pete Smith, Pete DeVries, Charles Thomas 3-1-93


Converts a set of BioRad data files(all in the same folder) with names
to raw binary (1, 2, ...).  As long as the converted files are saved in the same folder, you should only see two file dialog boxes (one for the first Import and one for
the first Export).  
}
Var
  file, pic, nFiles, nPic, width, height, offset, PicSize:  integer;
  
begin
  SetImport('8-bits');                                                 { Sets import default }
  SetCustom(6,6,0);     { Imports first 6 bytes, which contain the width, height,   }
  Import('');   { and number of pictures in the file.                                   }
  width := (GetPixel(1,0)*256) + GetPixel(0,0);    { 1 & 0, 3 &2, and 5 & 4 are three}
  height := (GetPixel(3,0)*256) + GetPixel(2,0);   { 16-bit numbers expressing the  }
  PutMessage('The X,Y dimensions of these images are: ',width:1,' x ',height:1);
  PicSize:=width*height;
  nPic := (GetPixel(5,0)*256) + GetPixel(4,0);      { width, height, and number.         }
  PutMessage('The number of slices is: ',nPic:1);
  Dispose;                                                               { Closes window without save. }
  for pic:= 1 to nPic do                                           { Does each picture, one by one   }
    begin
        offset:=(pic-1)*PicSize+76;   { Offset increments by the size of the  picture }
        SetCustom(width,height,offset);
        Import('');
        SetPicName(pic:1);                { Renames each picture1, 2, ... }
        Export;                                          { Creates file using binary (raw data). }
        Dispose;                                        { Closes window. }
     end; {for pic}
  end; {Convert Biorad PIC File to VoxelView Slices}
{---------------------------------------------------------------------------}

macro 'Convert BioRad Z-Series File to Stack';
{
Written by Charles Thomas, Pete Devries and Pete Smith 4-22-94

Converts a BioRad data file with multiple images into a stack that can be read by VoxelView
}
Var
  pic, NumSlices, width, height, offset, PicSize, numberbin, NewStack:  integer;

begin
  numberbin:=0;
  SetImport('8-bits');                                                 { Sets import default }
  SetCustom(6,6,0);     { Imports first 6 bytes, which contain the width, height,     }
  Import('');                  { and number of pictures in the file.                                     }
  width := (GetPixel(1,0)*256) + GetPixel(0,0);    { 1 & 0, 3 &2, and 5 & 4 are three}
  height := (GetPixel(3,0)*256) + GetPixel(2,0);   { 16-bit numbers expressing the  }
  PicSize:=width*height;
  NumSlices := (GetPixel(5,0)*256) + GetPixel(4,0);      { width, height, and number.         }
  Dispose;                                                             { Closes window without save.     }
  if NumSlices<=1 then begin
    PutMessage('This macro requires a file containing at least two images.');
    exit;
  end;
  {if odd(Width) then Width:=Width-1;}
  SaveState;
  SetNewSize(Width,Height);
  MakeNewStack('');
		NewStack:=PidNumber;
  for pic:= 1 to NumSlices do                                           { Does each picture, one by one   }
  	begin
  				offset:=(pic-1)*PicSize+76;   { Offset increments by the size of the  picture }
    	SetCustom(width,height,offset);
  			Import('');
  			MakeRoi(0,0,Width,Height);
  			copy;
  			dispose;
					ChoosePic(NewStack);
  			paste;
  			if pic < NumSlices then 
									Addslice;
  	end; {for pic}
 SaveAs;
  KillROI;
  end; {'Convert BioRad PIC Files to Stack'}
{---------------------------------------------------------------------------}
macro 'Convert BioRad  Files to TIF';
{
Written by Charles Thomas, Pete Smith and Pete DeVries 4-22-94
Converts a BioRad z-series toTiff files with names 01, 02, ...  As long as the converted files are saved in the same folder, you should only see two file dialog boxes (one for the first Import and one for the first Export).  
}
Var
  file, pic, nFiles, nPic, width, height, offset, PicSize:  integer;
  
begin
  SetImport('8-bits');     { Sets import default }
  SetCustom(6,6,0);     { Imports first 6 bytes, which contain the width, height,   }
  Import('');   { and number of pictures in the file.}
  width := (GetPixel(1,0)*256) + GetPixel(0,0);    { 1 & 0, 3 &2, and 5 & 4 are three}
  height := (GetPixel(3,0)*256) + GetPixel(2,0);   { 16-bit numbers expressing the  }
  PicSize:=width*height;
  nPic := (GetPixel(5,0)*256) + GetPixel(4,0);      { width, height, and number.         }
  Dispose;                                                               { Closes window without save. }
  for pic:= 1 to nPic do                                           { Does each picture, one by one   }
    begin
        offset:=(pic-1)*PicSize+76;   { Offset increments by the size of the  picture }
        SetCustom(width,height,offset);
        Import('');
        SetPicName(pic:2);                { Renames each picture 01, 02, ... }
        SaveAs;                                          { Creates file using Tiff. }
        Dispose;                                        { Closes window. }
     end; {for pic}
  end;   {Convert Biorad Pic Files to TIF}
{---------------------------------------------------------------------------}
macro 'Convert BioRad PIC Files to binary';
{
Written by Pete Smith and Pete DeVries 7-1-92

Converts a set of BioRad data files to raw binary files numbered 01, 02, etc.  As long as the converted files are saved in the same folder, you should
only see two file dialog boxes (one for the first Import and one for
the first Export).  
}
Var
  file, pic, nFiles, nPic, width, height, offset, PicSize:  integer;
  
begin
  SetImport('8-bits');                                                 { Sets import default }
  SetCustom(6,6,0);     { Imports first 6 bytes, which contain the width, height,   }
  Import('');   { and number of pictures in the file.                                   }
  width := (GetPixel(1,0)*256) + GetPixel(0,0);    { 1 & 0, 3 &2, and 5 & 4 are three}
  height := (GetPixel(3,0)*256) + GetPixel(2,0);   { 16-bit numbers expressing the  }
  PicSize:=width*height;
  nPic := (GetPixel(5,0)*256) + GetPixel(4,0);      { width, height, and number.         }
  Dispose;                                                               { Closes window without save. }
  for pic:= 1 to nPic do                                           { Does each picture, one by one   }
    begin
        offset:=(pic-1)*PicSize+76;   { Offset increments by the size of the  picture }
        SetCustom(width,height,offset);
        Import('');
        SetPicName(pic:2);                { Renames each picture 01, 02, ... }
        Export;                                          { Creates file using binary (raw data). }
        Dispose;                                        { Closes window. }
     end; {for pic}
  end;   {Convert Biorad PIC Files to binary}
{---------------------------------------------------------------------------}
macro 'Read First Numbers in COMOS file';
{
Written by Pete DeVries 2-11-93

Reads the first 7 words in a BioRad file. This Macro is useful in determining file
info and format. }

Var
	file, pic, nFiles, nPic, offset, PicSize: integer;
	Wrd1, Wrd2, Wrd3, Wrd4, Wrd5, Wrd6, Wrd7 : integer;
 
begin
	SetImport('8-bits');                                                 { Sets import default }
	SetCustom(76,1,0);     { Imports first 6 bytes, which contain the width, height,   }
	Import('');                    { and number of pictures in the file.} 
	Wrd1 := (GetPixel(1,0)*256) + GetPixel(0,0);
	Wrd2 := (GetPixel(3,0)*256) + GetPixel(2,0);
	Wrd3 := (GetPixel(5,0)*256) + GetPixel(4,0);
	Wrd4 := (GetPixel(7,0)*256) + GetPixel(6,0);
	Wrd5 := (GetPixel(9,0)*256) + GetPixel(8,0);
	Wrd6 := (GetPixel(11,0)*256) + GetPixel(10,0);
	Wrd7 := (GetPixel(13,0)*256) + GetPixel(12,0); 
	PutMessage('The value of Word1 is  ',Wrd1:3:0);
	PutMessage('The value of Word2 is  ',Wrd2:3:0);
	PutMessage('The value of Word3 is  ',Wrd3:3:0);
	PutMessage('The value of Word4 is  ',Wrd4:3:0);
	PutMessage('The value of Word5 is  ',Wrd5:3:0);
	PutMessage('The value of Word6 is  ',Wrd6:3:0);
	PutMessage('The value of Word7 is  ',Wrd7:3:0);
	Dispose;                                                               { Closes window without save. }
end; {Read COMOS File Format}
-----------------------------------------------------------------------------