{
From: wacb@aplcomm.jhuapl.edu (Bill Christens-Barry)
To: Multiple recipients of list <nih-image@Soils.Umn.EDU>
Subject: SelectTool(*) default macro set

I've uploaded a macro (text) file named 'SelectTool()_macros.txt' that maps
the Tools palette to the numeric keypad.  The macros in the file rely
heavily upon the SelectTool() command that was implemented by Wayne in
recent versions (at least v1.60) of NIH Image.  The macro file was uploaded
to the /pub/nih-image/contrib folder at zippy.nimh.nih.gov, although it
will probably be moved to the /pub/nih-image/user-macros folder.  The text
of this file is also given below.

You may recall that if a macro file with the name 'Image macros' exists in
the NIH Image preferences folder (in the System Folder) or in the folder
containing the NIH Image application, then it is loaded when NIH Image
starts up (I'm not sure of the precedence if a macro with this name exists
in both places).  So, rename the macro file to 'Image macros' before using
it.

The Tools palette in NIH Image has two columns (toward the left and toward
the right of the palette) of 10 tools.  Using this set of macros, the tools
on the left (from top to bottom) can be selected using the '0' through '9'
keypad keys.  Use these keys while simultaneously holding down the
<option>-key to select the corresponding tools in the right column.

The drawline tool (right column, fifth tool down, selected using
<option>-4) has several subchoices, which can be selected using various
combinations of the <control> and <shift> keys together with the <option>-4
keys.  Try it and see.

Also, the keypad '*' key will dispose all open image windows without any
Save dialog (i.e. it uses the macro language command 'DisposeAll'). Use of
<option>-*  recreates the currently selected image window, disposes all
(other) existing windows, and then selects the 'crosshair' tool.  It does
this by copying the contents of this window and noting its name and size
before disposing all, and recreates the window with the same name.  Since
this is only a duplicate of the original, saving it will cause a Save
dialog and its PID etc will be different from the original.

Finally, the line thickness selection tools at the bottom of the Tools
palette are not implemented in thes macros.
}

var
  name: string;
  width, height: integer;

macro 'DisposeAll-ButOne [*]';
begin
  if KeyDown('option')<>1 then DisposeAll;
  if KeyDown('option') then begin
    name:=WindowTitle;
    GetPicSize(width,height);
    SelectAll;
    Copy;
    DisposeAll;
    MakeNewWindow(name,width,height);
    SetPicName(name);
    Paste;
    SelectTool('crosshair');
  end;
end;

macro 'Mag-Rect [0]';
begin
  if KeyDown('option')<>1 then SelectTool('magnifier');
  if KeyDown('option') then SelectTool('rect');
end;

macro 'hand-oval [1]';
begin
  if KeyDown('option')<>1 then SelectTool('grabber');
  if KeyDown('option')=1 then SelectTool('oval');
end;

macro 'pencil-poly [2]';
begin
  if KeyDown('option')<>1 then SelectTool('pencil');
  if KeyDown('option')=1 then SelectTool('polygon');
end;

macro 'eraser-freehand [3]';
begin
  if KeyDown('option')<>1 then SelectTool('eraser');
  if KeyDown('option')=1 then SelectTool('freehand');
end;

macro 'brush-lines [4]';
begin
  if KeyDown('option')<>1 then SelectTool('brush');
  if KeyDown('option')=1 then if KeyDown('control')<>1 then if
KeyDown('shift')<>1 then SelectTool('straightline');
  if KeyDown('option')=1 then if KeyDown('control') then if
KeyDown('shift')<>1 then SelectTool('freeline');
  if KeyDown('option')=1 then if KeyDown('control')<>1 then if
KeyDown('shift') then SelectTool('segmentline');
  if KeyDown('option')=1 then if KeyDown('control') then if
KeyDown('shift') then SelectTool('segmentline');
end;

macro 'segline-LUT [5]';
begin
  if KeyDown('option')<>1 then SelectTool('drawline');
  if KeyDown('option')=1 then SelectTool('lut');
end;

macro 'paint-text [6]';
begin
  if KeyDown('option')<>1 then SelectTool('paintbucket');
  if KeyDown('option')=1 then SelectTool('text');
end;

macro 'profile-spray [7]';
begin
  if KeyDown('option')<>1 then SelectTool('profile');
  if KeyDown('option')=1 then SelectTool('spraycan');
end;

macro 'wand-picker [8]';
begin
  if KeyDown('option')<>1 then SelectTool('wand');
  if KeyDown('option')=1 then SelectTool('picker');
end;

macro 'angle-crosshair [9]';
begin
  if KeyDown('option')<>1 then SelectTool('angletool');
  if KeyDown('option')=1 then SelectTool('crosshair');
end;