From 11661c51cb0a84604b4145ddc68cd2dfa4784a30 Mon Sep 17 00:00:00 2001
From: Epic Morphism <epimorphism@hashbang.sh>
Date: Mon, 20 May 2019 00:03:24 +0200
Subject: [PATCH] smaller leaf, thanks desvox

---
 vantabot.ml | 33 +++++++++++++++++++--------------
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/vantabot.ml b/vantabot.ml
index d73a65d..aff297d 100644
--- a/vantabot.ml
+++ b/vantabot.ml
@@ -53,23 +53,28 @@ let inc_tokers_count () =
 
 
 let leaf = [
-"        W        ";
-"       WWW       ";
-"       WWW       ";
-"      WWWWW      ";
-"W     WWWWW     W";
-"WWW   WWWWW   WWW";
-" WWW  WWWWW  WWW ";
-"  WWW  WWW  WWW  ";
-"   WWW WWW WWW   ";
-"    WWWWWWW      ";
-"  WWWW  |  WWWW  ";
-"        |        ";
-"        |        "]
+" W ";
+"WWW";
+" | "]
+
+(* let leaf = [
+ * "        W        ";
+ * "       WWW       ";
+ * "       WWW       ";
+ * "      WWWWW      ";
+ * "W     WWWWW     W";
+ * "WWW   WWWWW   WWW";
+ * " WWW  WWWWW  WWW ";
+ * "  WWW  WWW  WWW  ";
+ * "   WWW WWW WWW   ";
+ * "    WWWWWWW      ";
+ * "  WWWW  |  WWWW  ";
+ * "        |        ";
+ * "        |        "] *)
 
 let show_leaf connection =
   leaf |> Lwt_list.iter_s (fun l ->
-    C.send_msg connection ~is_big:true (bold_text (color_text ~fg:Green ~bg:Black l)))
+    C.send_msg connection ~is_big:false (bold_text (color_text ~fg:Green ~bg:Black l)))
 
 let start_toke connection =
   toke_in_progress := true;