{This macro makes a 2-D drawing based on the
3-D tracing drawn by the user.  Only the tracing
in the currently active window will be drawn.}
{E.S.Ruthazer, 2001}

macro 'project drawing[d]';
var PID,i,top,left,top2,left2,width,height,win:integer;
begin;
win:=StringtoNum(WindowTitle);
PID:=PicNumber;
SetBackgroundColor(1);
SetForegroundColor(255);
MakeNewWindow('Tree');
for i:=1 to nCount  do begin
     if GetValue('window',i) = win then
        begin
  SelectPic(PID);
  SelectCell(i);
  ObjectToRoi;
  GetROI(left,top,width,height);
  Copy;
  SelectWindow('Tree');
  Paste;
  Undo;
  RestoreROI;
  GetROI(left2,top2,width,height);
  MoveROI(left-left2,top-top2);
  Fill;
end;
end;
SelectAll;
end;