//macro "StackExploder [x]"{

	getDimensions(w,h,chs,sls,frms);
	getVoxelSize(pw,ph,pd, unit);
	dims=newArray("slice","frame");
	x=0;
	if(sls==1) x=1;
	
	Dialog.create("SE");
	Dialog.addNumber("Explode factor? (neg means shrink)",4);
	Dialog.addChoice("Which dimension?",dims,dims[x]);
	Dialog.show();
	expl=Dialog.getNumber();
	dim=Dialog.getChoice();

	end=sls; dofrms=false; nextend=frms;
	if(dim=="frame") {end=frms; nextend=sls; dofrms=true;}
	
	if(expl>0){
		for(i=(end-1);i>=0;i--){
			for(j=1;j<expl;j++){
				if(dofrms) Stack.setFrame(i+1); else Stack.setSlice(i+1);
				run("Add Slice", "add="+dim);
				for(k=0;k<nextend;k++){
					if(dofrms){sl=k;fr=i;} else {sl=i;fr=k;}
					for(ch=0;ch<chs;ch++){
						Stack.setPosition(ch+1,sl+1,fr+1);
						run("Copy");
						sllbl=getMetadata("label");
						if(dofrms)Stack.setPosition(ch+1,sl+1,fr+2); else Stack.setPosition(ch+1,sl+2,fr+1);
						run("Paste");
						setMetadata("label",sllbl);
					}
				}
			}
		}
		setVoxelSize(pw,ph,pd/expl,unit);
	}
	else if(expl<0){
		if(chs==1){
			Stack.setSlice(1);
			if(((-expl)>nSlices)||(nSlices%-expl>0)) exit("Not right: must be exact multiple");
			while((getSliceNumber()-expl-1)<nSlices){
				run("Next Slice [>]");
				for(i=0;i>expl;i--) {run("Delete Slice");run("Next Slice [>]"); }
			}
		} else {
			exit("shrinking hyperstack not coded yet");
		}
		setVoxelSize(pw,ph,pd*(-(expl)),unit);
	}
//}