//macro "StackExploder [x]"{

	expl=getNumber("Explode factor? (neg means shrink)",4);
	getDimensions(w,h,chs,sls,frms);
	getVoxelSize(pw,ph,pd, unit);
	
	if(expl>0){
		for(i=sls;i>0;i--){
			for(j=1;j<expl;j++){
				Stack.setSlice(i);
				run("Add Slice", "add=slice");
				for(fr=0;fr<frms;fr++){
					for(ch=0;ch<chs;ch++){
						Stack.setPosition(ch+1,i,fr+1);
						run("Copy");
sllbl=getMetadata("label");
						Stack.setPosition(ch+1,i+1,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);
	}
//}