MODULE SupGUIBundle;
Generated by m3bundle; see its manpage.
IMPORT Bundle, BundleRep, Text;
IMPORT Thread, Wr, TextWr;
TYPE T = Bundle.T OBJECT OVERRIDES
get := LookUp;
getNames := GetNames;
END;
TYPE Texts = REF ARRAY OF TEXT;
VAR
bundle: T := NIL;
names : Texts := NIL;
PROCEDURE Get(): Bundle.T =
BEGIN
IF (bundle = NIL) THEN bundle := NEW (T) END;
RETURN bundle;
END Get;
PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
BEGIN
IF names = NIL THEN
names := NEW (Texts, NUMBER (Names));
names^ := Names;
END;
RETURN names;
END GetNames;
PROCEDURE LookUp (<*UNUSED*> self: T; element: TEXT): TEXT =
BEGIN
FOR i := 0 TO LAST (Names)-1 DO
IF Text.Equal (Names[i], element) THEN
IF Elements[i] = NIL THEN Elements[i] := GetElt (i) END;
RETURN Elements[i];
END;
END;
RETURN NIL;
END LookUp;
CONST Names = ARRAY [0..7] OF TEXT {
"disk.pbm",
"info.pbm",
"SupGUI.fv",
"tape_play.pbm",
"exit.pbm",
"Copyright.txt",
"stop.pbm",
NIL
};
VAR Elements := ARRAY [0..7] OF TEXT {
E0,
E1,
NIL (* E2 .. E2_3 *),
E3,
E4,
E5,
E6,
NIL
};
PROCEDURE GetElt (n: INTEGER): TEXT =
<*FATAL Thread.Alerted, Wr.Failure *>
VAR wr := TextWr.New ();
BEGIN
CASE n OF
| 2 =>
Wr.PutText (wr, E2);
Wr.PutText (wr, E2_0);
Wr.PutText (wr, E2_1);
Wr.PutText (wr, E2_2);
Wr.PutText (wr, E2_3);
ELSE (*skip*)
END;
RETURN TextWr.ToText (wr);
END GetElt;
CONST E0 =
"P1\n16 16\n0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 "
& "0 0 1 0 0\n0 1 0 0 0 1 0 1 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 "
& "0 0 0 1 1\n1 1 1 1 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 0 1 0 0 1 1 1 1 1 1 1 1 1 0 0 1 0 1 0 1 0 0 0 0 "
& "0 0 0 0 0\n1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 "
& "0 0 1 0 1\n0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 "
& "0 1 0 1 0\n1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E1 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 "
& "0 1 1 1 1\n1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 "
& "1 1 0 0 0\n0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E2 =
"; Copyright 1996-2003 John D. Polstra.\n; All rights reserved.\n;\n; Re"
& "distribution and use in source and binary forms, with or without\n; mod"
& "ification, are permitted provided that the following conditions\n; are "
& "met:\n; 1. Redistributions of source code must retain the above copyrig"
& "ht\n; notice, this list of conditions and the following disclaimer.\n"
& "; 2. Redistributions in binary form must reproduce the above copyright\n"
& "; notice, this list of conditions and the following disclaimer in th"
& "e\n; documentation and/or other materials provided with the distribu"
& "tion.\n; 3. All advertising materials mentioning features or use of thi"
& "s software\n; must display the following acknowledgment:\n; Thi"
& "s product includes software developed by John D. Polstra.\n; 4. The nam"
& "e of the author may not be used to endorse or promote products\n; de"
& "rived from this software without specific prior written permission.\n;\n"
& "; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS O"
& "R\n; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR"
& "RANTIES\n; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE "
& "DISCLAIMED.\n; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, I"
& "NDIRECT,\n; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (I"
& "NCLUDING, BUT\n; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SER"
& "VICES; LOSS OF USE,\n; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWE"
& "VER CAUSED AND ON ANY\n; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRI"
& "CT LIABILITY, OR TORT\n; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN"
& " ANY WAY OUT OF THE USE OF\n; THIS SOFTWARE, EVEN IF ADVISED OF THE POS"
& "SIBILITY OF SUCH DAMAGE.\n;\n; $Id: SupGUI.fv,v 1.1.1.1 2009-04-09 17:0"
& "1:40 jkrell Exp $\n\n(Shape\n (Width 700 - 350 + Inf)\n\n (Color \"Na"
& "vyBlue\")\n (LightShadow HSV 0.000 0.250 1.000)\n (BgColor HSV 0."
& "000 0.400 1.000)\n (DarkShadow HSV 0.000 0.600 1.000)\n\n (Macro TLA"
& " BOA (x) `(Text LeftAlign ,x))\n (Macro TRA BOA (x) `(Text RightAlign "
& ",x))\n\n (Macro ABOUT ()\n `(VBox\n (Text (Labe";
CONST E2_0 =
"lFont (WeightName \"bold\") (PointSize 180)) \"CVSup\\256\")\n (Te"
& "xt (LabelFont (WeightName \"bold\"))\n\t\"Copyright \\251 1996-2003 Joh"
& "n D. Polstra\")\n (Glue 6)\n (HBox\n\t(Fill)\n\t(Shape (Width"
& " + 0 - 0) \"Software version: \")\n\t(Shape (Width + 0 - 0) (Text %clie"
& "ntVersion \"0.0\"))\n\t(Fill))\n (HBox\n\t(Fill)\n\t(Shape (Width "
& "+ 0 - 0) \"Protocol version: \")\n\t(Shape (Width + 0 - 0) (Text %proto"
& "Version \"0.0\"))\n\t(Fill))\n (HBox\n\t(Fill)\n\t(Shape (Width + "
& "0 - 0) \"Operating system: \")\n\t(Shape (Width + 0 - 0) (Text %target "
& "\"Unknown\"))\n\t(Fill))\n \"http://www.cvsup.org/\"\n \"Repo"
& "rt problems to cvsup-bugs@polstra.com\"\n (Glue 6)\n (Chisel)"
& "\n (Glue 6)\n \"This is free software. See\"\n (HBox\n\t"
& "(Fill)\n\t(Shape (Width + 0 - 0)\n\t (HBox\n\t \"the \"\n\t (Pop"
& "Button %license (For licenseWindow) \"fine print\")\n\t \" for detai"
& "ls.\"))\n\t(Fill))\n (Glue 6)\n (Chisel)\n (Glue 6)\n "
& " \"CVSup is a registered trademark of John D. Polstra.\"))\n\n (Macr"
& "o COPYRIGHT ()\n `(Shape (Width 500 - 250 + Inf) (Height 200 - 100 +"
& " Inf)\n (TextEdit ReadOnly (From \"Copyright.txt\"))))\n\n (Macro"
& " MESSAGES ()\n `(ZSplit\n (ZBackground\n\t(VBox\n\t (Shape (He"
& "ight + 0) \"Messages\")\n\t (Chisel)\n\t (TextEdit %messages ReadOnly"
& ")))\n (ZChild Open (At 1.0 1.0 SE)\n\t(LightShadow HSV 0.000 0.000"
& " 1.000)\n\t(BgColor HSV 0.000 0.000 0.750)\n\t(DarkShadow HSV 0.00"
& "0 0.000 0.500)\n\t(Filter Dormant\n\t (Button %save\n\t (Pixmap \"d"
& "isk.pbm\"))))))\n\n (Macro BRIEFTRACE BOA (name label)\n `(Shape (H"
& "eight + 0)\n (HBox\n\t(Shape (Width 50 + 0)\n\t (TLA ,label))\n\t"
& "(Text ,name LeftAlign (LabelFont \"fixed\") \"\"))))\n\n\n (Macro STAT"
& "SROW BOA (name label)\n `(Shape (Height + 0)\n (HBox\n\t(Shape "
& "(Width 0 + 20000)\n\t (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t"
& " (Shape (Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth"
& " name 1)) \"Count\"))\n\t RightAlign \"0\"))\n\t (Shape (Width 0 "
& "+ 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"FileKB"
& "\"))\n\t RightAlign \"0\"))\n\t (Shape ";
CONST E2_1 =
"(Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1))"
& " \"WireKB\"))\n\t RightAlign \"0\"))\n\t (Shape (Width 0 + 10000)"
& "\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"Compr\"))\n\t "
& " RightAlign \"0.0\"))))))\n\n (Macro COMMROW BOA (name label valIn"
& " valOut)\n `(Shape (Height + 0)\n (HBox\n\t(Shape (Width 0 + 10"
& "000)\n\t (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t (Shape (Wid"
& "th 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"C"
& "ommIn\"))\n\t RightAlign ,valIn))\n\t (Shape (Width 0 + 10000)\n\t"
& " (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"CommOut\"))\n\t "
& " RightAlign ,valOut))\n\t (Shape (Width 0 + 10000)\n\t (Text %,(I"
& "ntern (Cat (SymbolName (Nth name 1)) \"WireIn\"))\n\t RightAlign ,"
& "valIn))\n\t (Shape (Width 0 + 10000)\n\t (Text %,(Intern (Cat (Symb"
& "olName (Nth name 1)) \"WireOut\"))\n\t RightAlign ,valOut))\n\t ("
& "Shape (Width 0 + 10000)\n\t (Text %,(Intern (Cat (SymbolName (Nth na"
& "me 1)) \"WireTot\"))\n\t RightAlign \"0\"))))))\n\n (Macro COMMST"
& "ATS ()\n `(VBox\n (HBox\n\t(Shape (Width 0 + 10000) (TLA \"Modu"
& "le\"))\n\t(Shape (Width 0 + 10000) (TRA \"Proto In\"))\n\t(Shape (Width"
& " 0 + 10000) (TRA \"Proto Out\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wir"
& "e In\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wire Out\"))\n\t(Shape (Wid"
& "th 0 + 10000) (TRA \"Wire Tot\")))\n (Chisel)\n (COMMROW %lis"
& "ter \"Lister\" \"-\" \"0\")\n (COMMROW %detailer \"Detailer\" "
& "\"0\" \"0\")\n (COMMROW %updater \"Updater\" \"0\" \"-\")\n "
& " (Chisel)\n (COMMROW %tot \"Total\" \"0\" \"0\")))\n\n (M"
& "acro CLOCK ()\n `(Shape (Width + 0)\n (Frame Lowered\n\t(Text %"
& "clock (LabelFont \"fixed\") \"00:00:00\"))))\n\n (Macro STATS ()\n "
& "`(VBox %statistics\n (Shape (Height + 0) \"Statistics\")\n (C"
& "hisel)\n (Rim (Pen 5.0)\n\t(Shape (Height + 0)\n\t (VBox\n\t ("
& "HBox\n\t (Shape (Width 0 + 20000) (TLA \"Update Type\"))\n\t "
& "(Shape (Width 0 + 10000) (TRA \"Files\"))\n\t (Shape (Width 0 + 10"
& "000) (TRA \"File KB\"))\n\t (Shape (Width 0 + 10000) (TRA \"Wire K"
& "B\"))\n\t (Shape (Width 0 + 10000) (";
CONST E2_2 =
"TRA \"Compr %\")))\n\t (Chisel)\n\t (STATSROW %edit \"Edit\")\n\t"
& " (STATSROW %co \"Checkout\")\n\t (STATSROW %rsync \"Rsync\")\n"
& "\t (STATSROW %app \"Append\")\n\t (STATSROW %touch \"Touch\")\n"
& "\t (STATSROW %add \"Create\")\n\t (STATSROW %del \"Delete\")\n"
& "\t (STATSROW %repl \"Replace\")\n\t (STATSROW %fixup \"Fixup\")\n"
& "\t (STATSROW %other \"Other\")\n\t (Chisel)\n\t (STATSROW %tot"
& " \"Total\")\n\n\t (Glue 12.0)\n\t (COMMSTATS)\n\t (Glue 12.0"
& ")\n\n\t (HBox\n\t (Shape (Width + 0)\n\t\t(TLA \"Elapsed time\""
& "))\n\t (Glue 3.0)\n\t (Shape (Width + 0)\n\t\t(Text %clock (L"
& "abelFont \"fixed\") \"00:00:00\"))\n\t (Fill)\n\t (Shape (Wid"
& "th + 0)\n\t\t(TLA \"Update rate\"))\n\t (Shape (Width + 0)\n\t\t(T"
& "ext %xferRate RightAlign (LabelFont \"fixed\")\n\t\t \" 0.0 KB/sec\""
& ")))\n\n\t (Glue 12.0)\n\t (BRIEFTRACE %lister \"Listing\")\n\t "
& " (BRIEFTRACE %detailer \"Detailing\"))))\n (Fill)))\n\n (Macro FI"
& "LTER ()\n `(Shape (Height + 0 - 0)\n (HBox\n\t(Glue 5.0)\n\t(Sh"
& "ape (Width + 0 - 0)\n\t (TLA \"Filter \"))\n\t(Frame Lowered\n\t (Sha"
& "pe (Width + Inf - Inf)\n\t (Filter Passive\n\t (TypeIn %filter "
& "ExpandOnDemand))))\n\t(Glue 1.0))))\n\n (Macro CONTROLS ()\n `(Shap"
& "e (Height + 0 - 0)\n (HBox\n\t(Shape (Width + 0)\n\t (HBox\n\t "
& " (LightShadow HSV 0.000 0.000 1.000)\n\t (BgColor HSV 0.000 0.00"
& "0 0.750)\n\t (DarkShadow HSV 0.000 0.000 0.500)\n\t (TSplit\n\t "
& " (Filter Dormant\n\t\t(Button %quit (Color \"DarkRed\")\n\t\t (Pix"
& "map \"exit.pbm\")))\n\t (Filter Dormant\n\t\t(Button %abort (Color"
& " \"DarkRed\")\n\t\t (Pixmap \"stop.pbm\"))))\n\t (Filter Dormant\n\t"
& " (Button %start (Color \"QuiteDarkGreen\")\n\t\t(Pixmap \"tape_pla"
& "y.pbm\")))))\n\t(Glue 3.0)\n\t(Shape (Width + Inf - Inf)\n\t (Text %st"
& "atus (LabelFont \"fixed\") LeftAlign \"\"))\n\t(Shape (Width + 0 - 0)\n"
& "\t (HBox\n\t (LightShadow HSV 0.000 0.000 1.000)\n\t (BgColor "
& " HSV 0.000 0.000 0.750)\n\t (DarkShadow HSV 0.000 0.000 0.500)\n\t"
& " (PopButton %about (For aboutWindow)\n\t (Pixmap \"info.pbm\"))"
& ")))))\n\n (ZSplit\n (ZBackground\n (VBox\n\t(HBox\n\t (Shape "
& "(Width 0 + 1";
CONST E2_3 =
"0000)\n\t (STATS))\n\t (Chisel)\n\t (Shape (Width 0 + 10000)\n\t "
& " (Font \"fixed\")\n\t (MESSAGES)))\n\t(Chisel)\n\t(FILTER)\n\t(Chis"
& "el)\n\t(CONTROLS)))\n (ZChassis %aboutWindow (Title \"About CVSup\")"
& "\n (Color \"SomewhatDarkBlue\")\n (LightShadow HSV 0.000 0.00"
& "0 1.000)\n (BgColor HSV 0.000 0.000 0.750)\n (DarkShadow "
& " HSV 0.000 0.000 0.500)\n (Rim (Pen 10)\n\t(LabelFont\n\t (Weight"
& "Name \"medium\")\n\t (Width \"normal\")\n\t (PointSize 120))\n\t(ABOU"
& "T)))\n (ZChassis %licenseWindow (Title \"License\")\n (Color \""
& "Black\")\n (LightShadow HSV 0.000 0.000 1.000)\n (BgColor "
& " HSV 0.000 0.000 0.750)\n (DarkShadow HSV 0.000 0.000 0.500)\n "
& " (Font \"fixed\")\n (COPYRIGHT)))\n)\n";
CONST E3 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 "
& "0 0 0 0 1\n1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 "
& "0 1 1 0 0\n0 1 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 0 1 1 "
& "0 0 0 1 1\n1 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 1 1 0 1 1 "
& "1 0 0 0 0\n0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E4 =
"P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 0 0 1 0 1 1 1 1 "
& "0 0 0 1 0\n0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 0 0 1 1 0 0 1 0 1 0 0 0 0 "
& "1 1 0 0 0\n1 1 0 0 1 0 1 0 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 "
& "0 1 0 0 1\n0 1 0 1 0 0 0 0 1 1 1 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 "
& "1 0 0 0 0\n0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";
CONST E5 =
"Copyright \251 1996-2003 John D. Polstra.\nAll rights reserved.\n\nRedi"
& "stribution and use in source and binary forms, with or without\nmodific"
& "ation, are permitted provided that the following conditions\nare met:\n"
& "1. Redistributions of source code must retain the above copyright\n n"
& "otice, this list of conditions and the following disclaimer.\n2. Redist"
& "ributions in binary form must reproduce the above copyright\n notice,"
& " this list of conditions and the following disclaimer in the\n docume"
& "ntation and/or other materials provided with the distribution.\n3. All "
& "advertising materials mentioning features or use of this software\n m"
& "ust display the following acknowledgment:\n This product includes s"
& "oftware developed by John D. Polstra.\n4. The name of the author may no"
& "t be used to endorse or promote products\n derived from this software"
& " without specific prior written permission.\n\nTHIS SOFTWARE IS PROVIDE"
& "D BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS OR\nIMPLIED WARRANTIES, INC"
& "LUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES\nOF MERCHANTABILITY "
& "AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.\nIN NO EVENT SHALL"
& " THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,\nINCIDENTAL, SPECIAL, E"
& "XEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\nNOT LIMITED TO, PRO"
& "CUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\nDATA, OR PROFIT"
& "S; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\nTHEORY OF LIABI"
& "LITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIG"
& "ENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF\nTHIS SOFTWARE,"
& " EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\nCVSup is a regis"
& "tered trademark of John D. Polstra.\n";
CONST E6 =
"P1\n16 16\n0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 "
& "0 0 0 0 0\n1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 "
& "1 1 1 1 1\n1 1 1 1 1 1 1 1 1 0 1 1 0 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 "
& "1 0 1 1 0\n1 0 1 0 1 0 1 1 0 1 1 1 0 1 1 0 1 0 1 0 1 0 1 1 1 0 1 1 0 1 "
& "1 0 1 0 1\n0 0 1 1 1 1 0 1 1 0 1 1 0 1 0 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 "
& "1 1 0 1 1\n1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 "
& "1 0 0 0 0\n0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 "
& "0 0 0 0 0\n1 1 1 1 1 1 0 0 0 0 0\n";
BEGIN
END SupGUIBundle.