glados: finish title screen

wasted way more time than should have trying to get 3-color
VMW logo looking right.

glados3.3/Makefile

@@ -31,9 +31,10 @@ SOUND_TEST.BAS:	sound_test.bas
 	$(TXT2BAS) < sound_test.bas > SOUND_TEST.BAS
 
 glados33.dsk:	STILL_ALIVE.BAS OBJECTS.SHAPE SHAPE_TEST.BAS SOUND_TEST.BAS \
-		PORTAL.BAS CUBE.BAS
+		PORTAL.BAS CUBE.BAS PORTAL_TITLE.HGR
 	$(DOS33) -y glados33.dsk SAVE A STILL_ALIVE.BAS
 	$(DOS33) -y glados33.dsk SAVE B OBJECTS.SHAPE
+	$(DOS33) -y glados33.dsk SAVE B PORTAL_TITLE.HGR
 	$(DOS33) -y glados33.dsk SAVE A SHAPE_TEST.BAS
 	$(DOS33) -y glados33.dsk SAVE A SOUND_TEST.BAS
 	$(DOS33) -y glados33.dsk SAVE A PORTAL.BAS

glados3.3/cube.bas

@@ -1,24 +1,14 @@
 10 HGR
 20 HCOLOR=3
-' CUBE
-'30 HPLOT 0,1 TO 4,1:HPLOT 10,1 TO 14,1
-'40 HPLOT 0,2 TO 2,2:HPLOT 12,2 TO 14,2
-'50 HPLOT 0,3 TO 1,3:HPLOT 13,3 TO 14,3
-'60 HPLOT 0,4 TO 1,4:HPLOT 13,4 TO 14,4
-'70 HPLOT 0,6 TO 1,6:HPLOT 13,6 TO 14,6
-'80 HPLOT 0,7 TO 1,7:HPLOT 13,7 TO 14,7
-'90 HPLOT 0,8 TO 2,8:HPLOT 12,8 TO 14,8
-'100 HPLOT 0,9 TO 4,9:HPLOT 10,9 TO 14,9
-'
 25 X=10:Y=10
 30  HPLOT X,Y   TO X+3,Y  :HPLOT X+5,Y TO X+7,Y:HPLOT X+9,Y    TO X+12,Y
-40  HPLOT X,Y+1 TO X+2,Y+1:                     HPLOT X+10,Y+1 TO X+12,Y+1
+31  HPLOT X,Y+1 TO X+2,Y+1:                     HPLOT X+10,Y+1 TO X+12,Y+1
-50  HPLOT X,Y+2 TO X+1,Y+2:                     HPLOT X+11,Y+2 TO X+12,Y+2
+32  HPLOT X,Y+2 TO X+1,Y+2:                     HPLOT X+11,Y+2 TO X+12,Y+2
-60  HPLOT X,Y+4 TO X+1,Y+4:                     HPLOT X+11,Y+4 TO X+12,Y+4
+33  HPLOT X,Y+4 TO X+1,Y+4:                     HPLOT X+11,Y+4 TO X+12,Y+4
-70  HPLOT X,Y+5 TO X+1,Y+5:                     HPLOT X+11,Y+5 TO X+12,Y+5
+34  HPLOT X,Y+5 TO X+1,Y+5:                     HPLOT X+11,Y+5 TO X+12,Y+5
-80  HPLOT X,Y+7 TO X+1,Y+7:                     HPLOT X+11,Y+7 TO X+12,Y+7
+35  HPLOT X,Y+7 TO X+1,Y+7:                     HPLOT X+11,Y+7 TO X+12,Y+7
-90  HPLOT X,Y+8 TO X+2,Y+8:                     HPLOT X+10,Y+8 TO X+12,Y+8
+36  HPLOT X,Y+8 TO X+2,Y+8:                     HPLOT X+10,Y+8 TO X+12,Y+8
-100 HPLOT X,Y+9 TO X+3,Y+9:HPLOT X+5,Y+9 TO X+7,Y+9:HPLOT X+9,Y+9 TO X+12,Y+9
+37 HPLOT X,Y+9 TO X+3,Y+9:HPLOT X+5,Y+9 TO X+7,Y+9:HPLOT X+9,Y+9 TO X+12,Y+9
 '  0123456789012
 '0 #### ### ####
 '1 ###       ###
@@ -31,17 +21,32 @@
 '8 ###       ###
 '9 #### ### ####
 ' HEART
-110 HPLOT X+4,Y+3 TO X+5,Y+3:HPLOT X+7,Y+3 TO X+8,Y+3
+38 HPLOT X+4,Y+3 TO X+5,Y+3:HPLOT X+7,Y+3 TO X+8,Y+3
-120 HPLOT X+4,Y+4 TO X+8,Y+4
+39 HPLOT X+4,Y+4 TO X+8,Y+4
-130 HPLOT X+4,Y+5 TO X+8,Y+5
+40 HPLOT X+4,Y+5 TO X+8,Y+5
-140 HPLOT X+5,Y+6 TO X+7,Y+6
+41 HPLOT X+5,Y+6 TO X+7,Y+6
-150 HPLOT X+6,Y+7
+42 HPLOT X+6,Y+7
-'110 HPLOT 5,3 TO 6,3:HPLOT 8,3 TO 9,3
+'
-'120 HPLOT 4,4 TO 10,4
+45 FOR I=0 TO 13:X=100+I:Y=I*10
-'130 HPLOT 4,5 TO 10,5
+51 HCOLOR=5:REM RED
-'140 HPLOT 5,6 TO 9,6
+52 HPLOT X+0,Y+0 TO X+8,Y+0:HPLOT X+0,Y+1 TO X+8,Y+1
-'150 HPLOT 6,7 TO 8,7
+53 HPLOT X+2,Y+2 TO X+6,Y+2:HPLOT X+2,Y+3 TO X+6,Y+3
-'160 HPLOT 7,8
+54 HPLOT X+4,Y+4 TO X+4,Y+5
+61 HCOLOR=1:REM GREEN
+62 HPLOT X+12,Y+0 TO X+12,Y+1
+63 HPLOT X+10,Y+2 TO X+14,Y+2:HPLOT X+10,Y+3 TO X+14,Y+3
+64 HPLOT X+8,Y+4 TO X+16,Y+4:HPLOT X+8,Y+5 TO X+16,Y+5
+65 HPLOT X+26,Y+0 TO X+26,Y+1
+66 HPLOT X+24,Y+2 TO X+28,Y+2:HPLOT X+24,Y+3 TO X+28,Y+3
+67 HPLOT X+22,Y+4 TO X+30,Y+4:HPLOT X+22,Y+5 TO X+30,Y+5
+71 HCOLOR=2:REM PURPLE
+72 HPLOT X+15,Y+0 TO X+23,Y+0:HPLOT X+15,Y+1 TO X+23,Y+1
+73 HPLOT X+17,Y+2 TO X+21,Y+2:HPLOT X+17,Y+3 TO X+21,Y+3
+74 HPLOT X+19,Y+4 TO X+19,Y+5
+75 HPLOT X+29,Y+0 TO X+37,Y+0:HPLOT X+29,Y+1 TO X+37,Y+1
+76 HPLOT X+31,Y+2 TO X+35,Y+2:HPLOT X+31,Y+3 TO X+35,Y+3
+77 HPLOT X+33,Y+4 TO X+33,Y+5
+80 NEXT I
 '
 200 REM SPRITE EDIT
 210 X=0:Y=0:ROT=0:SCALE=1

glados3.3/images/chell.piskel

@@ -0,0 +1 @@
+{"modelVersion":2,"piskel":{"name":"chell","description":"","fps":0,"height":14,"width":10,"layers":["{\"name\":\"Layer 1\",\"opacity\":1,\"frameCount\":9,\"base64PNG\":\"data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAFoAAAAOCAYAAACvtwvjAAABHElEQVRYhe2W3Q2DMAyEMwTj9LHLMC0TRdeHNsgK/k1NgypOQhUQx8dX21BKKQVExamRGE3LVl37YH2w6ywfWT6H1QxEIUdjNDXIFuwGOQp7OuRmIlqdIzGa/gW0yuTsseFZkw269/dL0GI+AMD6ADVvGeVirOSSergS7D6XBrsHbnnM0s5Fytmg7QdZKLYjWW8l1+5ng2451QfW4pxdyq37XLNB9xtprSD9MVK8ZO4s0JJvLWbZKpatqrABAM/6PqRO94J2GSMxWiVMq+jg2MgCTX/Zh/gWtJRgBuhRZYwOdY8oaO7tf6WKniGpug8XvMbbHOJiIq1KlfV5N0uuIouAppC581HdoJnAG/RR7rHphS2+ZRNhW7oaZK9e6F0Vlyk47nEAAAAASUVORK5CYII=\"}"]}}