--- ray/src/hd/rholo4.c	1997/12/11 17:40:04	3.12
+++ ray/src/hd/rholo4.c	1997/12/16 12:26:04	3.15
@@ -124,7 +124,7 @@ int	block;
 		disp_result(DS_STARTIMM, 0, NULL);
 		bundle_set(BS_ADD, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD));
 		disp_result(DS_ENDIMM, 0, NULL);
-		disp_check(0);		/* hack -- delete usu. follows add */
+		disp_flush();
 		break;
 	case DR_ADJSET:		/* adjust calculation set members */
 		if (msg.nbytes % sizeof(PACKHEAD))
@@ -145,6 +145,34 @@ int	block;
 					/* send acknowledgement */
 		disp_result(DS_ACKNOW, 0, NULL);
 		return(disp_check(1));	/* block on following request */
+	case DR_KILL:		/* kill computation process(es) */
+		if (msg.nbytes)
+			error(INTERNAL, "bad DR_KILL from display process");
+		if (nprocs > 0)
+			done_rtrace();
+		else
+			error(WARNING, "no rtrace process to kill");
+		break;
+	case DR_RESTART:	/* restart computation process(es) */
+		if (msg.nbytes)
+			error(INTERNAL, "bad DR_RESTART from display process");
+		if (ncprocs > nprocs)
+			new_rtrace();
+		else if (nprocs > 0)
+			error(WARNING, "rtrace already runnning");
+		else
+			error(WARNING, "holodeck not open for writing");
+		break;
+	case DR_CLOBBER:	/* clobber holodeck */
+		if (msg.nbytes)
+			error(INTERNAL, "bad DR_CLOBBER from display process");
+		if (!force || !ncprocs)
+			error(WARNING, "request to clobber holodeck denied");
+		else {
+			error(WARNING, "clobbering holodeck contents");
+			hdclobber(NULL);
+		}
+		break;
 	case DR_SHUTDOWN:	/* shut down program */
 		if (msg.nbytes)
 			error(INTERNAL, "bad DR_SHUTDOWN from display process");