From 8906c919bf79b900615266d7d515c67a4d5466bc Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 9 Jan 2017 11:43:05 -0500
Subject: [PATCH] glados: finish title screen

wasted way more time than should have trying to get 3-color
VMW logo looking right.
---
 glados3.3/Makefile                |   3 +-
 glados3.3/PORTAL_TITLE.HGR        | Bin 0 -> 8196 bytes
 glados3.3/cube.bas                |  61 ++++++++++++++++--------------
 glados3.3/images/chell.piskel     |   1 +
 glados3.3/images/portal_title.pcx | Bin 0 -> 5159 bytes
 5 files changed, 36 insertions(+), 29 deletions(-)
 create mode 100644 glados3.3/PORTAL_TITLE.HGR
 create mode 100644 glados3.3/images/chell.piskel
 create mode 100644 glados3.3/images/portal_title.pcx

diff --git a/glados3.3/Makefile b/glados3.3/Makefile
index 747d7f64..c343d983 100644
--- a/glados3.3/Makefile
+++ b/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
diff --git a/glados3.3/PORTAL_TITLE.HGR b/glados3.3/PORTAL_TITLE.HGR
new file mode 100644
index 0000000000000000000000000000000000000000..cb3459a60e0e69a196392e734d95191d241fab8b
GIT binary patch
literal 8196
zcmd6s!D{135QfWZur32)=agKmc?3bO1_^vM<g#;@FUeJqiw#1}1OiK7VJ>se(de-I
z3J&Z8WWZsM^CElL|F4!M*^Z))><rt(D2~<XuCA`Hs=8V}$tQV3i<iduo&C)~WPQ(W
zPq(u0lL(*EKqNLInI~cld+fB_;GJuW|8nSAd=+{4=Fkyc7RF4?jiUr#i!btg+d1&V
z-RimM?4=!2Z-SpOWRL`U$W4$!L(tM3y2Cd^$XAc_10UB8Bd;N+$na`*9*%}ray1+9
z({ykl#cyc!fRfqK$7acyrp9;~=8psH9sXf{NW|{C_p3X6TCb=x%8Z5`MPI((-&KC;
z(6Vdogc1FGC|J8^=4Jqk(YdFTs2m^P>8d!tuk+EaU{z*_XW#iHSDRKlRY_VN*b}eR
zd_mbF^t1CrPshx^h;qLqAoV_+r9m9T^DvQ-<ncTXQZH4_a($L7JQsdWF?D{(!gsyb
z&w<<;X6o)(%W3)N@062P($4>f?t#l5Pig}l-QUQ+pWisFOy|Vx8wdWsJ-G583a!VH
z|A&9j*M)zppW!$=PY3>$j6<0%Q*Y||t^7v|@(-q4`Hw^z{0~pe{}47^@;}(}FZn+I
zx~})&U%fym@gViUUm&9tzL=lzJA54dpYbezqWp8$l)vP7{v!vnYOXB*^m&&5VZwL(
z|K5$>zN^)8ZV+2*Ki$rMh}AO&y0uO5M|a2KduglPT@i5+V{bHuboc%nvDblr0soo<
zb&p6Lk$-rg#70|<fiK7ZxAI@bfAC+%|KC4<{QR*YRvG`L$$vy|UB-WAB<!wHroq2o
z@vm0c+y1g8Em`1wcKG*fHZ+6>XvTkbm6P%xYffvQp`>0oPL~>YO?*AI@psGrpviy5
z-?98BQI3p9b*!svdDL7T@UOc68T_}1cJQ^;6Zm&(+1!}S*?T<~4tag?_$K}(apoUX
zZyd;emVdjm1l5kUJYfa`KS*n@`S;-wwz;8p)-#QJ{GVLS<`-wtnDKwIxEM`?3wf3Q
zAlCTrGqRA#1?)1nUSD(lD*tBwi@xZMD5SYlU;9ff|2g^RSjhhw|H(h*-sQhs`5yn1
z#WDH6)qkd5Ae3+vo`nhcKbKKFn9gN{?^N~le{K9DGwSXCBti7|x+Ciz|GH-NywDoo
z_0_*F?!*tfPp<r%Yh$qAZVh?01OKbXTPb)}b!fD2aHdhHvpd;;a^e5}ha>-~ojC_Z
zAYclXQZMtsSK{-ZM#V}j%m1I%?<e?>*~mi;Kogp!f$c5-H(=0C^4|PQQt}V_Gx9Ik
zmjyk5WrJsem-$EL0ulS#e{3!}m+pe{KT`geTmGx_H?-2=U$v(EL32m(FJ=j!-)aB*
z{8#6X|1JN|j@Ak9XKp&zUk(QT9mZWf-rEXTw+ONB-laojlVg1c)h_&RT%=Utw)~@t
z)!-l1QcM3&<sWBy*mZVY^ACTt<$n$itN8Edw0X7v)5L$(#cPi}{;RsO;N(IU`tq;m
zo6`S>k_Bl1{*i+z|EvRemQB__YyK}!$bW{qx~=iOzW%EI$GW<%xr+bvV9puz;Vkai
z_u=2Z^o{k?4sn`)j65$hh%;^tb#)j1?~08}oe*=z>iK6U=KrZJOIa7c;sE|jz1UX%
zad(1U-sOKqovz<4{+ImEE&o1F01f^J$P`NczclW3Sbyhg`r2QJsvlcd1*n~W%R=Az
zC698g0YL`xulaw2e`Nn7%E#Jw$v^7vm%3)<52v<>?|bt{{=2hJj&JARy;q}uW`@M`
z3FYk3c*;9%WBpwm`G@{ecm9jJ2RHs*>+igmq!+-B>WS0f3>-n5$iIc>Z+q9ZRS)m}
zT;l(eo<1hyFtO+F*<iAm&MyQ1fPZ^?CF5=UNBtcqU`S>8XZ~C7j;+7#@o($XTM6I#
zlXo&`*afY>VXkb;zn;FU_`k<Lt<A>&)9@d42#!-h<NmFge;m(0sxE2;ynhSNQ2$%<
l{tflNrQW}(hHC!g;Qo!W_oh$MqwdwYKP~ra9UA59{{Yg$$5sFU

literal 0
HcmV?d00001

diff --git a/glados3.3/cube.bas b/glados3.3/cube.bas
index 0e9a1a2f..8dbcbc9e 100644
--- a/glados3.3/cube.bas
+++ b/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
-50  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
-70  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
-90  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
+31  HPLOT X,Y+1 TO X+2,Y+1:                     HPLOT X+10,Y+1 TO X+12,Y+1
+32  HPLOT X,Y+2 TO X+1,Y+2:                     HPLOT X+11,Y+2 TO X+12,Y+2
+33  HPLOT X,Y+4 TO X+1,Y+4:                     HPLOT X+11,Y+4 TO X+12,Y+4
+34  HPLOT X,Y+5 TO X+1,Y+5:                     HPLOT X+11,Y+5 TO X+12,Y+5
+35  HPLOT X,Y+7 TO X+1,Y+7:                     HPLOT X+11,Y+7 TO X+12,Y+7
+36  HPLOT X,Y+8 TO X+2,Y+8:                     HPLOT X+10,Y+8 TO X+12,Y+8
+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
-120 HPLOT X+4,Y+4 TO X+8,Y+4
-130 HPLOT X+4,Y+5 TO X+8,Y+5
-140 HPLOT X+5,Y+6 TO X+7,Y+6
-150 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
-'130 HPLOT 4,5 TO 10,5
-'140 HPLOT 5,6 TO 9,6
-'150 HPLOT 6,7 TO 8,7
-'160 HPLOT 7,8
+38 HPLOT X+4,Y+3 TO X+5,Y+3:HPLOT X+7,Y+3 TO X+8,Y+3
+39 HPLOT X+4,Y+4 TO X+8,Y+4
+40 HPLOT X+4,Y+5 TO X+8,Y+5
+41 HPLOT X+5,Y+6 TO X+7,Y+6
+42 HPLOT X+6,Y+7
+'
+45 FOR I=0 TO 13:X=100+I:Y=I*10
+51 HCOLOR=5:REM RED
+52 HPLOT X+0,Y+0 TO X+8,Y+0:HPLOT X+0,Y+1 TO X+8,Y+1
+53 HPLOT X+2,Y+2 TO X+6,Y+2:HPLOT X+2,Y+3 TO X+6,Y+3
+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
diff --git a/glados3.3/images/chell.piskel b/glados3.3/images/chell.piskel
new file mode 100644
index 00000000..397b7bfc
--- /dev/null
+++ b/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=\"}"]}}
\ No newline at end of file
diff --git a/glados3.3/images/portal_title.pcx b/glados3.3/images/portal_title.pcx
new file mode 100644
index 0000000000000000000000000000000000000000..41ffa64bc94f984e4bc45a4b7109717f3ccfac13
GIT binary patch
literal 5159
zcmeI0U2+^n49B%KHB}VF4RVD%avP2WC*Xy<%-7ED?AmJ^Q?ap)lh_G_gb>KHhu>eC
zuT6H1Q@l}$cik=NFSS}yt2_QOoqb{a`__K2$Fs*X%|Gei>^u8(rE!JUT07u--|wF+
zPg;9#Css55WyiK;eCMMvdutm@GFv2;LH%Ke;4`qU_6GB10+l)W+Q~us+SWElG*7HR
z_jg-iCbMcJmyqa}NM9jsAd8-CAPdZbZ|yg0@T<ayfvl4na}q6Cq3K1xLYB#a1yEFx
z9L1UyxDuU$vA|r8^%A{;4TwLt1)Lm?b|qITBn6V(zj7~!E}Rx$8Zfft@WBcz)P?3#
z4VD#$UDlU4zCi(SiNl#YJq631;LDYYohmy*7mV?ZO=%umR#5fLJNbIh^tgPiC}Y(`
z>5~+t+^;q&)+}{I+*BM2X!xo?$Gl>kYD%so)K;_0V>Ds7OWM8kR2?~A;q=vBx9|##
zHr{9RK7~_|+i2x_YF<^;n;+4AwbY>dn8_K{SDh?yzD!Qt195UV3wJr9D<t)<o#&L`
z2rd8$%$8+!YFU0pfOjc`G&I7xQZdyi@F$L4jU6o`X|EAskCaGLYv4q3GUzD$l1Ir^
z9`>MBZc10+<J<^a!|&}zWhs{1Iz%BS%lnja8FnS*Iu=@}CUS~O(GXJso311!oqxsQ
zBPFF)TaT0opzTJAN|LE25s4&au~KVyI{mOuVYK$LqkcqDR6|UTk@oWqG;L{aZdRsa
z35L?AO1@Yc)s}FdT0i8AT2zRdu=<k^xa-&){f-G|V1}_UvL;+^gxnP!1|5AI54-eF
zFyMjWQyGm_Ubs6o&WPnA{{=iW_zeUN%mk;mAvdyQNjSV+%0%f7E1dDsmKB0QS^J0X
zchJZI5zVOG`Ryk5>637R=-NtnLn{@u`}oHDP~u_)!o6@VG+ZU4Pt1ZVs#Gsl#Z7HR
zwV;a5U`82>P>ePd2)9vz)8+MwE0O~ex1_E}k!p%MQLX7hMO?cJB6a(snBiG#Z-Uf)
z{U^6HUN=nN+7X_|?8Fy&XQyuM?|*p;yigR<)}Gs~RgBN<#^xy|pTb(gxQ5kq<BIVY
zBx@h9txTz7pI=#OMOry^g-(&u43S*frAufD1C^%>$6X>TQ|@Xcmv#XzPn$hdIg!X=
zLWb6b{cLHH@1=^AP<A-YQ{SqzrqnrJjIwiNhmL$tXl{)=mIOM_vQ$rorEQWGIXNUv
zN642H+$a~dEpMpFQ7&r33Db)p^jDm(BHgfm*<aBuBv<2jm|VqEZP^Hp%IauhM-}TW
z+t<p;U9?T%HdyG_+l?#P^M^P!R=$JpaeoJHp2YgP6a$y1C%(h~j>7XDwsf5H4_4iU
zjMwaaNJU282eR;;E7Rfm)aHm(+n6FHQEa%;$m*DpL#k>UsYW;=SKZ3ns1*psPqrG*
z)Pc8}am9uT=n+e=t%o8?ug0ik9z5MDwO^|TtfpF(R8OB?N`s1fcM6zuGz7?K1OQYm
zisNdqAZi3CTe}g8nM{m`wa%b>5jI9doFnWKq4EJJ+1+hREn8<&XIr`6hblb&`%sxW
zpJ!O-DNv<4#Ke1E?2hWIXGAruDt*Oi7fMenuD5$o%GQ0TIL8fpluz5XxZhIgs$O-9
zw^2`!3ZXmT36;(180OJugHPSTzqT{R%xK(Oq<ZN@I+BI@pE{-Po-;;td-B{(sjhV0
zJhh<J!bCrV7CcY6x<*pB*K>M(p7OtfZeB32eSYD5;cvJ{3QWaCcnekG3fD@@op|Y&
z;0rD?sl8;JbKUe$2!Dc6raBEU^@0;Yqm5?dZv#XwJtuA@$`l8X`0;5xAG#M-sJplq
z_VP3Si;i-bj#*HkwIX=lQ2b05*ECDcLsK&U$u;z5dBZpny5XHW9@8`aK)`;xA6aws
xxZ_;Q_D;D>=T-`5dmkTP@dt}X&FtpuyS8oD-^?C;e>eUK<MZru1pe<4_y-rmI7t8i

literal 0
HcmV?d00001