// usage : ImageJ -macro rhp.txt {directory}

HP=getArgument; if (HP=="") HP=getDirectory("choose a HiPic directory");

n=getFileList(HP);
QIMG=newArray(n.length);
for (i=0; i<n.length; i++)
  if (n[i]=="output.log")
    OLOG=split(File.openAsString(HP+File.separator+n[i]),"\n");
  else if (n[i]=="dark.img" || n[i]=="d.img")
    DIMG=n[i];
  else if (startsWith(n[i],"q") && endsWith(n[i],".img"))
    QIMG[parseInt(substring(n[i],1,lengthOf(n[i])-4))]=n[i];

setBatchMode(true);
s=1; print(s,DIMG);
open(HP+File.separator+DIMG); run("Copy"); w=getWidth; h=getHeight; close();
newImage(HP,"16-bit Black",w,h,1); ID=getImageID; run("Paste");

for (i=0; i<OLOG.length; i++) {
  l=split(OLOG[i]," \t\r");
  if (l.length>=4) {
    s++; q=QIMG[parseInt(l[0])]; print(s,q,l[1],l[2],l[3]);
    open(HP+File.separator+q); run("Copy"); close();
    selectImage(ID); run("Add Slice"); run("Paste");
  }
}
setSlice(1); run("Select None");
setBatchMode(false);

run("Brightness/Contrast...");