diff --git a/demos/second/Makefile b/demos/second/Makefile
index cec20820..28217e90 100644
--- a/demos/second/Makefile
+++ b/demos/second/Makefile
@@ -62,7 +62,6 @@ second.o:	second.s zx02_optim.s \
 	graphics/icekngdm.hgr.zx02 \
 	graphics/final3.hgr.zx02 \
 	graphics/mntscrl3.hgr.zx02 \
-	roto.s rotozoom.s \
 	zp.inc hardware.inc qload.inc music.inc
 	ca65 -o second.o second.s -l second.lst
 
diff --git a/demos/second/part18_3d/auto/NOTES b/demos/second/part18_3d/auto/NOTES
index 5f6954c7..fb4b4350 100644
--- a/demos/second/part18_3d/auto/NOTES
+++ b/demos/second/part18_3d/auto/NOTES
@@ -8,11 +8,9 @@ todo, compressed:
 	+ ???
 
 
-try1: all plots, even zeros
-	+ 2c2 - 20c2 = 7680 bytes (4 bytes each pixel)
-
-try2: all plots, don't write black pixels
-	+ 2c2 - 147b = 4537 bytes
-
-try3: only do color if it changes
-	+ 2c2 - 1137 = 3701 bytes
+7680 bytes: try1: all plots, even zeros (4 bytes each pixel)
+4537 bytes: try2: all plots, don't write black pixels
+3701 bytes: try3: only do color if it changes
+2568 bytes: try4: use compact form (only change type if changed)
+1194 bytes: try5: use hlin (essentially RLE)
+ 906 bytes: try6: sort by color first
diff --git a/demos/second/part18_3d/auto/box_convert.c b/demos/second/part18_3d/auto/box_convert.c
index 4dc9f224..36378d17 100644
--- a/demos/second/part18_3d/auto/box_convert.c
+++ b/demos/second/part18_3d/auto/box_convert.c
@@ -60,7 +60,7 @@ static struct {
 } primitive_list[4096];
 
 static int framebuffer[40][48];
-
+static int background_color=0;
 
 int create_using_plots(void) {
 
@@ -82,6 +82,81 @@ int create_using_plots(void) {
 	return current_primitive;
 }
 
+
+int create_using_hlins(void) {
+
+	int current_primitive=0;
+	int row,col,start_x;
+	int current_color,prev_color;
+	int len;
+
+	/* Initial Implementation, All Plots */
+
+	for(row=0;row<48;row++) {
+		prev_color=framebuffer[0][row]; len=0; start_x=0;
+		for(col=0;col<40;col++) {
+			if (framebuffer[col][row]!=prev_color) {
+				primitive_list[current_primitive].color=
+					prev_color;
+				primitive_list[current_primitive].x1=start_x;
+				primitive_list[current_primitive].x2=start_x+len;
+				primitive_list[current_primitive].y1=row;
+				primitive_list[current_primitive].type=ACTION_HLIN;
+				current_primitive++;
+				len=0;
+				prev_color=framebuffer[col][row];
+				start_x=col;
+			}
+			else {
+				len++;
+			}
+
+		}
+	}
+	return current_primitive;
+}
+
+int create_using_hlins_by_color(void) {
+
+	int current_primitive=0;
+	int row,col,start_x;
+	int current_color,prev_color;
+	int len;
+
+	/* Initial Implementation, All Plots */
+	for(current_color=0;current_color<16;current_color++) {
+
+	if (current_color==background_color) continue;
+
+	for(row=0;row<48;row++) {
+		prev_color=framebuffer[0][row]; len=0; start_x=0;
+		for(col=0;col<40;col++) {
+			if (framebuffer[col][row]!=prev_color) {
+				if (prev_color==current_color) {
+				primitive_list[current_primitive].color=
+					prev_color;
+				primitive_list[current_primitive].x1=start_x;
+				primitive_list[current_primitive].x2=start_x+len;
+				primitive_list[current_primitive].y1=row;
+				primitive_list[current_primitive].type=ACTION_HLIN;
+				current_primitive++;
+				}
+				len=0;
+				prev_color=framebuffer[col][row];
+				start_x=col;
+			}
+			else {
+				len++;
+			}
+
+		}
+	}
+	}
+	return current_primitive;
+}
+
+
+
 int main(int argc, char **argv) {
 
 	int row=0;
@@ -151,7 +226,8 @@ int main(int argc, char **argv) {
 		printf("; $%02X %s: %d\n",i,color_names[i],color_count[i]);
 	}
 
-	create_using_plots();
+//	max_primitive=create_using_hlins();
+	max_primitive=create_using_hlins_by_color();
 
 	/* Dump results */
 	for(i=0;i<max_primitive;i++) {
@@ -172,6 +248,22 @@ int main(int argc, char **argv) {
 			case ACTION_BOX:
 					break;
 			case ACTION_HLIN:
+				if (primitive_list[i].type==previous_primitive) {
+					printf("\t.byte %d,%d,%d\n",
+						primitive_list[i].x1,
+						primitive_list[i].x2,
+						primitive_list[i].y1);
+					total_size+=3;
+				}
+				else {
+					printf("\t.byte HLIN,%d,%d,%d\n",
+						primitive_list[i].x1,
+						primitive_list[i].x2,
+						primitive_list[i].y1);
+					total_size+=4;
+					previous_primitive=ACTION_HLIN;
+
+				}
 					break;
 			case ACTION_VLIN:
 					break;