Janilabo

Split Test

Sep 25th, 2013
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 45.72 KB | None | 0 0
  1. const
  2.   DIST = 36;
  3.   EXAMPLE = 2; // 1-3
  4.  
  5. {==============================================================================]
  6.   Explanation: Returns all the color points from bitmap as TPointArray.
  7.                Result is based on Row-by-Row.
  8. [==============================================================================}
  9. function GetBitmapColorTPA(bmp: Integer; color: Integer): TPointArray;
  10. var
  11.   w, h, x, y, r: Integer;
  12. begin
  13.   try
  14.     GetBitmapSize(bmp, w, h);
  15.   except
  16.   end;
  17.   if ((w > 0) and (h > 0)) then
  18.   begin
  19.     SetLength(Result, (w * h));
  20.     for y := 0 to (h - 1) do
  21.       for x := 0 to (w - 1) do
  22.         if (FastGetPixel(bmp, x, y) = color) then
  23.         begin
  24.           Result[r] := Point(x, y);
  25.           Inc(r);
  26.         end;
  27.   end;
  28.   SetLength(Result, r);
  29. end;
  30.  
  31. procedure DrawBounds(var bmp: Integer; ATPA: T2DPointArray; color: Integer);
  32. var
  33.   w, h, l, i, x, y: Integer;
  34.   b: TBox;
  35. begin
  36.   GetBitmapSize(bmp, w, h);
  37.   l := Length(ATPA);
  38.   for i := 0 to (l - 1) do
  39.   begin
  40.     b := GetTPABounds(ATPA[i]);
  41.     b.X1 := (b.X1 - 1);
  42.     b.Y1 := (b.Y1 - 1);
  43.     b.X2 := (b.X2 + 1);
  44.     b.Y2 := (b.Y2 + 1);
  45.     for x := b.X1 to b.X2 do
  46.       if ((x > -1) and (b.Y1 > -1) and (x < w) and (b.Y1 < h)) then
  47.         FastSetPixel(bmp, x, b.Y1, color);
  48.     for y := b.Y1 to b.Y2 do
  49.       if ((b.X2 > -1) and (y > -1) and (b.X2 < w) and (y < h)) then
  50.         FastSetPixel(bmp, b.X2, y, color);
  51.     for x := b.X2 downto b.X1 do
  52.       if ((x > -1) and (b.Y2 > -1) and (x < w) and (b.Y2 < h)) then
  53.         FastSetPixel(bmp, x, b.Y2, color);
  54.     for y := b.Y2 downto b.Y1 do
  55.       if ((b.X1 > -1) and (y > -1) and (b.X1 < w) and (y < h)) then
  56.       FastSetPixel(bmp, b.X1, y, color);
  57.   end;
  58. end;
  59.  
  60. procedure DebugBitmap(bmp: Integer);
  61. var
  62.   w, h: Integer;
  63. begin
  64.   GetBitmapSize(bmp, w, h);
  65.   DisplayDebugImgWindow(w, h);
  66.   DrawBitmapDebugImg(bmp);
  67. end;
  68.  
  69. procedure Test;
  70. var
  71.   bmp, t: Integer;
  72.   TPA: TPointArray;
  73.   ATPA: T2DPointArray;
  74. begin
  75.   ClearDebug;
  76.   case EXAMPLE of
  77.     1: bmp := BitmapFromString(774, 425, 'meJzt3etyqzoSBlC//0t7qk5qXN42YAG6tFpr/ZrZJ8FCtFpfMHGeTwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFjF4z+jRwEA8I+eEeXxps8rwrfHJaNHDUBD3Xq+/YUgrsUhRQtw1lxts0Pbt7kQx504pG4BTonWM8e2fRsQoVyuKwUJcMpfw4zTNk8Fj7ppZO9o5UOyAVHd5bpSkACnPGZORJvfUuV1rw3JBkR1EhGwjoGN6yNX9B/At2uzcSeW1Io0NiBakIgmYsLhso/l0381pUlEH99bfoQqWejjUHcOAh8kolnU6iSwlONV021Nfb9EhIV8//TL+1LdDqYZ0oJEFN9jx+hxTWBv6u4bfWb8dupKtb6s3wePUEV36vnCiqi4iKxEWrhcVwqyD/vyNf03OIKossu3GNXPf+nvuL3szcadRlSriemBtHC5rhRkB5uto0o/Sa/DzJj8aCquiLqLa+9Qw0uoMBG9j/N+pDk+QvmQ6l4jeEpEUf1c9drCsQ5zYtqDaLcKah157wjDS+hU8KibRvaOVj6kRhedlR1Ul4IcpXCGXYgDHSbEnA/XrfLvvNDxNwavotZt//uwhfuOvkcjZytQNTZ1aoZdjj0dZsOEv/SvwDtd66YLQ738X4erMgMXXiL4tJBbn87AscvT67p86zAPpvoZ4EN+giuZjcgz1q232F+IRk0OdHPmXbgPHRp4u4NP4WCGFeHL7Ino2fdqamJEoxr7q5JnhKJv3yG/ltFnNlLhDJio8tNffKLeKRtYXMV91pZNOxdKa+VqlIgAzqp480EiooWbRbVmTUpEABdUSTLiENVVrKilivPCzbRGIwGYi0REKO1qaZEqlYg46/HL6AFCJxIRQXQrocS1eu28ss4GB04FHumIddwsdSuFm4bUT8qilYg4dr9dp1w48CIRMcrwyhk+gIpubnMVR0JAmUqdnjbLpvwfpyMR0V+omgk1mMse94wePq24vlSXu6gud0XtlLPCFkzYgcFlShrOkohobZZSmWWccEwZwzUSER1MUSpKmgQUMOVUy4drjxN4CIELwhZM2IFBOWUM991JRO1GRVahKifUYOAyZQxVSET0N7x+hg8AqlDJm8xJa1ln+HHD6LEztyFVpHRJQyXvMTN3lMxe4hkWhxioWzmpWzJRzHv+Zsb8HDuen73/usKsSkQM166uVCzJqOdjEhGQQ8VuH2TjCDIMclBLx97nx1wBCdxMEUFCyPswIoyH2aminyQiIKULwSZgFnr/xyGDIYEghR2cRQfkVrgXRNgyfj6zNHyEzEjZFJKIgBUcJI04WajkyzoMhkzUTCG/B9SZiYWxPvpbhHZ3dgzDB8wsIpQ3WSktyCHaj35CEdUpEiCyg7uy5UafBK2cur4qgT0aBdVdLiqlyKZahaHAcivpPLY89igMolGTfKhbEgosvYPMIw6xSWEQluLkXfViUF0rOM5FnQdDZOqB+FQpzzZloLRWcPyDlRrg6advpqJWaVQDSiu3kuurBlYmCzEjRbs4iYhrCp+y7jMY4pCFiOByEarelUlE3OFXz3hxrclBJS9LIuKmn91DMaRnByEfJb0giYgqNvdEG2V6LjGJqe3VSERU9L0/qoSUHv83eiDQliJfikRELXu7pGLI4fFm9FigHwW/DomIWnxmYz5SEDy9O3zVdPMmEVHX3hJQEqM8bhg9dgjEijhlxk4iEdGCt8+Azo47TJX+o4mVk4haH5a5fKwFVQHMTh8rMekNZ4mI1t6Xg8IAZqeP/SQRdTgs83otCrUBzG6iXb6/eZ9LlIjoaaKlAUyqW4fRyjZ99PmJ2r5ERH+zrA6AY1rZh++bQhPdJpKIGEWRAAloZe82w49E1OKwABDNFNt9B3u3g2a5TSQRAcB9Nr6D2CMRAUA07Xaolfe+4xtBU9wmkogAoJZlt7+fgUciAoClLLgDFt4CCh6KJCIAqCvyvt9CYdSRiABgQYtshaeeEYociiQiAGhkhd3w8a+bXzaQRAQA7eTeEB9bLn/ZWBIRADSVeE+UiEYdFgBmFDMD1FWSiPqPqpxEBAB95N4cJaKehwWAqSXeHyWinocFgNll3SIlop6HBYAEUu6SElGfYwJAJvETwlkSUZ9jAkA+mXbM2RPRs8HliH/KABBEmk0zQSJ6Vr0cU5wvAMSRY+vMkYieNd7QnOhkASCUBHtomkT053HD6LEDwNym3kyTJSIAYKB5Y4NEBABUNGlykIgAgLpmDA8SEQBQ3XQRwiPHALPTuglrolKUiADmpYET30R1aDUxhOqCO0p+ntXJCUIRwqZXi9ar4ZqSzCMUEYoihHebnVm7hlPKo45QRCjqEJ4FC8FKgRIXEo5QRCjqkGVdaN1NxwNTu5ZtJCJCUYqs5nIH1rph0527PUIRoShF1nG/2q0X+HAn1UhERKMaSa9i19XA4eV+pBGKiEZBklWj2rZk4CkRtWdmRjHzZNKhzerkLE4iam2FyQl7jjFHBad0Xl9hlzO0JhE19ZqWrPPz+Nfo4WyIOSooMXBZhV3R0I5E1FTiRPTYMnpQ2yKPDQ6MrVurhtVIRO18zEmmKdqMQ8HLIPLYYM/Ae0RDXhfGurOXxd8HB0qZiPYi0BSVEHx48E0igp7u/IA/xT44xOaczD5Rx7eDpiiG4MODD0Mq1jJhZdf2sil2wFFWTkTBTzP48OBD/4q1RljZhb1slu1viIM5mX26EtwmenrWmqlIRNDZ8U537SvX9HNOEkzaZg1MVxWzjBN61qp18c2cLKgk6ohDP62QiJ5blTBjYUw0VFYmEY01V1ujlscZowcbUeG05Jg9oQi66VOolsO3x9tt8LEjYQhZ6LJlE9HxPwY30VBZlkQ0xMeEmJ9lyUJnnZqfBJO5VxgzFsxco2VBHerTEviwOSFmCUqsloieWR6xfpluwCyldX2q/3cHs2GizjJjq7lwxXMUyXcomjcRPbNcFFKSiHqSiCoyY0u5fLnT1Mnme6yTnt2kw2YF7YpT2b/7ORumq9zrJ+XRA6ETiShTInomui4kIxF1UDgVZqyQRLSUmxc6R51keuPsz9SDJ7EWZanUX05NhXn76X2KTNcKJKLn4Sc2jB7aLbOPn3wkotbcI6pIIlpKlUucpk6EIuigbk2q8G+eI6rie5bMW24S0QehCFo7uCV7zegTCkciqkIiWoqmtCff2eU4C6DQwXrXCkrszZLZY0H5QtHTWoaVbK53TaCQRATvhCJgah/r3fIvdDxRppFlJUtET8sZVvJa7xZ+OYkI9iRLRE8rGlaSrH21VvTgrPmERCxqWITFDvCTPgkA8BSKAAD+IxQBADyFIgCA/3j8EgDgj1AEAPAUigAA/iMUPRv8iXYf9QYA07FTS0QA1Wl6zGjx/VoiAqhO02Ney1Zv68QiEQGr+et4+h7zWrN6JSKAuiQiEliwgCUigLokInJYbfuWiAAqem93Wh8JrFPGEhFARRIR+SxSyRIRQEUSESmtUMwSEUAtH71O6yOT9PUsEQHU8t3rdD8yyb2hS0QAtXRORForQ2QtPIkIyK1b/9l8Id2PlFIWtkQErKxig9o7jgZISvkKWyICqNKpxiYizZb+ktWbRATw506nOvjezg1Qv6WnTFu8RASs47gXNUpEN498YSS67sqGXPoc9SYRQRWKfC7Vn4KOk4ieuX5s575u79t2eJWmJCKoQpEncPki/vxGb5yxgtkLTyKC+x7+1vlUqj8CXfKNnd846/Za8G7q2nv0MvpEoSGJKIjCSyARQTvzbvoSEdz0Xt5KPb6Da3Tt8t2MYS2owzWFuu6hBlNIIoKbJKKJHF8giQgqUoewlO8lrwlENjARXT7+hQP6OXRNZy96hyJRh7AOiWguB1fnWoo49S0takO9EZx8Dis4+Am980goVP2SRUhEHlHgQ8AyCDgkoCKJKI0+iejOC531eiFJaUGbDzcOr4HhAwCa8q5ZQGfv23SLQ9e+5cJLuGu0uM2LHqEYhg8AaEciCqjkElRJCzET0ZDXIpTIlz7y2ICb/PZ9NN3eJmj9u2nXKEiCX/cId6uAFmxA0fRJRD3fa7tMQRKW4oSUHv6KRyR9np+RiEhJfQJ3SEQLunO5+//GGXwIUhtBhgFUZF0vpf8j2fDu2l3QmIUXc1QAlJCImFHYwvOsNcCkJkpENhpmoVYB5lKlb2v+tBPnc6rPmm7AACuTiJjIdJU23YABliURMZG9v+jRfyTlgg8PgGfVXq3t08Gknw3iWWuAyOp2aT2fWo4Lad4ym3fkACk1/RDsPp+wTW5ZE9Fz8sEDJPB4k/UVWUdJUYUtvLADA0gsSCYJMozFZboEJRUV+WQzXQuAyMImkLADy+19zjPN//G5xD/N+CMkK62Y9CYq8omGOrW9SU4z+bOfxezjZ0aPf40eDlQze2HPPv7Ifk7pdNM+12gLpTwpwnpsGT0ouCVlJac8qSFOTeNcE56yjWc6FyL7WD5yEVNbpHQXOc0Wrs2b2R7OJaC1zfAjETGdZSt22RO/4P5E5Zjqqc9i3pET31471WaJT3R/ZzaOVZyWBDM89SlMPXiCO7hHNHBUsEd9/mSKvklEmbgENCIRMQtleZYZe5GIknEVaOGxb/TQYIP6/MkUfZOI8lHkVCcRMSm1+s5sHJOIsnI5qEscYnbL1u2yJ36WRJS4wyc7HYAqUjb8b4ucZkUSUW4uCsCelJkh5Un1IRGl57oAHJv9nYLZxx+ERLQCywSg0ETRYqKhTkEiWocLBFAubN4IO7DZSURLcY0AzgqSQIIMIzGJCABK9H9cxwNCPUlEAHBW06AiBQ0hEQGkpCf3UTe6CEJj3Z9/VxAgFDcZenJvIZlra8eKA4jm8a/Rw1lClXl2sUIpXz4WGkBMElF/ElFWPy+KqwYQ02PL6EHlJxEltreILC6AyN5TkETU0/0ncmuNhBbel5JlBRDcx30ht4l6kohWYDUBTOE7/0hE3UhEABDB5hNEbhN9aDoPdw7uAgFAFYkT0SyncHmE8U8NACaSOA6NPUL5C3X+RoBZaHQQxEE4rLhOrx1KowBye/z/931GDwSW9rEGm94yunBkLQJITyKCsBotTIkI4MN7l9PxIKBGN4vOHlN/ABL7bnGa3ikJngdmFtUr7dTRFDmQ2F6L0/oKpfklKWZRt9gkIoA/EtEdyX5znClUr7HyAypvIKvj/qb7Hdv+JB2hiBtKnugblYgUNjCvgy27cOO+f4SsvufBtFDXq5Dei+q93qq/UJUvA4ipXRNbuT3uxUKhiDsOyua7tOrWWOHPRxVfEaAziai649gjFHHZqZqRiADOatHHlu2NJYFHKOJDSTGcrZbOiUgxAzn0/3EypfKoIxTx4efDP2MT0c8DqmQgB4novrMhRyji3V4xXK6TuRKRVQDEUasjrdnZrm1bQhE/Xa6NnolIAQPJ3G9razbGO8FGKOKlYg00qqi9Y6peIBmJ6IL7kUYo4k/8ApCIgBV41+yCWmFGKOIZ4Nnpa6+oaIFM6va0RTpk3RgjFDGF7/pUsUAmEtFZLQKMUER8EhGQWM8nMHNoF12EIoL7qMw+hWo5AB20azUpm9jjX61fosXx4ab3yuxWpZYD0JpEVK5DHPp+oXavAtcMSUR7r2WZAFU8fulwhIn0PK+sc0gCoxLR2JcGFnfcc1brSJ1TilBEWI9ff4Wt9UsDdCYRfegcUYQiYhqYiGq9rmUFnLXXNNZsJv0jilBEQGMTUa2XtqaAs777xsqdpH8+EYoIaHg1Dh8AsCYPNL4MCSdCEdFEKEUrAuhPInonFEEcmzexDwwZJJDJ8CcH4hjVWnV1KGSNAE1pMi9CEQRkXQB0FiERaf6kd6rIrQiAIYY/TSQUkVt5eVsLAAM1yiTHD4VKRCyisLatAoDhLseSs5lHImIdr5JW2wAT2YsldTOP/MM6lDrAjGQeqKt8CVgsAKHIPAAAMg8AAAAAAAAAAAAAANCf318AAJCIAAAAAAAAAAAAAAAAYBZ+GwgAQCICAJCIAIDF/cUhoQgAWJlEBAAs6PHl+x9HjxEAoLnjzCMRAQCL2Is94hDAKN/38HsaffYwzHf9WxEAA0lEMMr7ErAcIBnb33R65B4lAVseEhEkZQec0ZBLM109zDVapvCqqIdfwI/E/kUVEtGMJKJjaphG3oOQUDRWyealD3DKQamoorAkoj36IU19FJK6GuJCFtIHKCERzUgi+qYf0sF3/aioni4san2gp9knViKakUT07me70w9hdvdXsT7QWoJZlYhmJBG9lLc4zRAmVXHx6gPtJJhSiWhGEtHL2c6mE8JcWgQYoai6HFO6ciKa99QkoheJCBJrumB1g4okotnNe2oS0btriaj1qICbOuywCTbxICSiqT1m/iwRiehd+TJMsGBhEd1Wq7Zw32PL6EFdIRGNHsgVEtGHs4moz6iAy3quVp3hpvcJnHEyS+Jcgrx3QCKa4kULSUSQSf+lqjncMXUi+o5DJYlornP8SSKa4kXLbZZr7hqGlIasVi3iso+pm24mC7eJxLvJ+4nMeFJDLkfwGijJQpHHD/wZtVS1iGu+5226mTw14OnO7sPPbXG6TXPIOONPjjgECQxPRBrFKZkS0c8xpymSkvHPco4SEZDS2D6jy11wkIgmmsmSMc94XgeOz2Kic5SIgJQkornszdiMM1meiHqOqqm9c5nrHCUiIKUgiUijK5QyEW0OO2ttbF67ISO5TCIilMcvowfIHCIUTIQxTCRTInrux56s3WzvdOY6TYmIUI6rQs1QKEKTiTCGWfz8UWjGmTxORKNG1cj7Ge397/gkIkKRiKgiQpOJMIZZ5E5Er5HPey4/vZ/j9/+dhUREKBIRVURoMhHGMIuUiei5f16jx1XfRxDa/Jf4JCJCkYioIkKTiTAGhlskDm2e2nSnLBERikREFRGaTIQxEMEKiejyfw1FIiKUNCuLsSI0mQhjIILccSiT7xt6PY0+e8I5rgo1Q6EITSbCGAhCJUyhbwL6NPrsCee4KtQM5cb2GY0OptM5An0YffaEc1wVaoZyY/uMLgfAHRIRtUhEAEzk1J1Dtxk5ZVSdKFEALri2a9hr+Gl4Iur8ugDM7uzeYa+hxJB7NW4QAXBH+fZho6HcwETU7RUBSKZkE7HRcFbPiCIOAVDFzyeru42ENLq9jeX9MgBqkYhooUNWEYcAqGtvQ7HRcEfTxCIOAdDC97Zio+G+x7/CHhMAXt43FxsNtdQNMOIQAB38bTE2Gup6bOl8BAA4xUZDI5up5rjeLnwLAEB8eyGn0OjhAwBUIwsBALwIQgAAAAAAAAAAAAAAAAAAAAAAUJ0P8AEAkIgAgMX9xSGhCABY0MffvPAnMACANX2HH3EIAFjQewQShwCANb0/RCQRAVCu/HELD2YQ38dzRKOHA8AcPraMvU3k+9/tNcTkXbOYXAsgsr0eVRh+tDighDcxgciOu9PrvxZ+GcAeiYisvj/uY/SIuKIk6pQ8WVRzTEA63sckk8e/Xv/4/gWDhsZFJZesMO66+sABmwWz2/ytIs+TpFEx6rj6wB6fmcnsLlSsIp9Lxevl0gN/HlsufA3Eca0+VfVEJCKgOnsHyVwuTlU9EYkIaOFsQ9BAiEwiWkGti+WiA+8kItK4U5wKey5VrpeLDnwobwsaCGHdL07lPRGJCGhBIiIBiWg1N6+Xyw1s8lFmJHDz9+5V+FwkIqAFiYgELnw0xOanWDMLD9IDdXnXjBwuf5qEwp6XD+QEKpKIyMHnay3ozo1BgHeaCWlIRMsq/ytmLjewRyIik8I/NOPxoXzKLzrANz9Tk89HItr8U33fX0YCBxfUtQaOlfwV15KvgVA+avWjYhVwYpsX1xUHLtj7gRpmsfmOmDy/jver7IoDdxy/4wDBST48ZSGgBomIeYlDAFS0+fQFxCcOAVCRbQUgOI0a+rDQAGLy9DgANGJXDWjzw0/2PmHAJ6UAwH320JiuXRSXEgCu2fwcJ4I4dVFcQQC47PsDLQcOhhf3iACgp+8N1JY6nOeIAKCzvX22/0j46T3tSD4AUNHermrDDculAYDqjvdWOy8AsIKfmccdCQAgvcK0IxQBAImVRx03iwCAUVr/PvXZIwtFAEBPfT5n5trHAFYfBgDAh72P3WuRi64dzTtoAEBTm/mnXSi6cyihiJWpf4BGfsaeFrno5kHcLGJZKh+gulNRp24uihCrYDqvm7ejBwKQxOV4UysX1Wrpbhaxgo8VV/eGLcCaviPN2aZ6/wjP2j/k2hdI77vIlT3ANVWSTK2jVW/mfl4mvfcKX7PaK3YwpubSc1OLThInETU9LETweHuIaLVS3/wRTC5alovOTe26R5xE1PTIMNZrlS0VA46zkFy0oDV/KKCuRRLRc7H9gnU81nvX7Dj2CEVrWiQRpT/BsdZJRN1eAmiqJO1IRKtJn4hexZz4HIdbLRE93SyCmZVHHaFoHenvlH6UccpzjGDBRNT/tYBaTjUWiWgRi6QFt4laWzYRPd0sgtlcuO0jFK1gtUT0TH2aA62ciAa+KHDBta4iEaV0EI8f/xoyvHbcJmpHIhr4usApEtHKLuecZOko07lEIxG9XlqBQXASEdcuZb4CUNUtSEShBgAcuPDDvkSUz9mrmfjqJz61ISSi7zFEGAaw6VRjEYeyKrysrj6nSESb4owEeFd+m+jCDSXmcnxlXXfOkoj2aKQQU0nUEYdWcFwAPUdCDhLRsYBDgsU9/nXhC8jBPSLqkoh+0lQhmkex0SOlIYmIulp0j8vHjFzAkccGa5KFFvdxlY//L/xUt5PcPFTwAg4+PFiTLLSmzfwjFHFflZZy/yDxq1e/BYjg1Yo/2vL7/9WuuexypKn1M9os1TvLOAGy2rwpVPhfodCpeFP3fvVE1etmEcAop7anbqMiq59Rp24Weh3z/kF6mm7AAAmceguj6UhYxHfmed2HbBGHnnOWrp9BAGAFm/mnehZ6vVbFo/U078gBgHKts9DrVaofs5upBw8AlGuXhV7Hb3TkPryDBgDclyNO5DgLAGCUNFnCzSIA4LKfT3FPZ/SMAgAAAAAAAAAAAAAAAAAAENr/AEli36s=');
  78.     2: bmp := BitmapFromString(774, 425, 'meJzt3duSG7cORmG9/0trV22VpxS1muIBBH8A67tMZlo4NQmPHef5BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDAHh1OxwgAALDXz4WHjQgAAKTHRgQAAMBGBAAAwEYEAAC2CvHHktmIAADAJoH+cy02IgAIgdMY4cT6b9jZiAAgBE5jxBLuL/ZhIwIAfa+jmAMZUUT82w7ZiABAHxsRoujZhTT3IjYiABD3fg5zJkNZe+0RX4rYiABAHBsRQuhZeJSXIjYiAFB2PYQ5lg+SusGl9K86sksRGxEAKGMjUnC9tUUucRETG47gUsRGBAAi+u8IwdukiPdSU/Y/c9OoNsNsRNhNZNQBfSuvCa+Ym/czjcPtZXq3YSNCHVLT7u/rL+Th7PQUjJkLOFyaCUSfNHMT1VAr4M8YFIJEUAmup0XV8hUUrgVsRBHVPN8+sBGddf+LQgOnkwuP2j61X58iIrZgNOaIOSKfiXNe7Wr4GYNCkHfMtp/at/YOlPelTqayIrZgNOaIOSKf0XNe8F7oidknkglLG88vp5OLjQq/FElTWcQWjMYcMUekNHTIC94IPTH7RDJhdekpf19v8rWYNStcJE1lQVvQH3bQBJHS0CEveCP0xOwTyYT1tafhdHJRNSpZsMgVchQXtAX9YQdNECn1H/IK18HE1a+8LdwtMyZOJxfSzzJWq3P6BPUFbUF/2EETRFadJ7zCRWDyuTov4Pra03A6uXh6ylit1LmzCyFiC0Zjjpgjsop14S5+tNSrN1d58QYF1V/DUtVOnFoUEVswGnPEHJFVrAt38aOlXr25yos3KKLRAtYpeNa8AonYgtGYI+aIxGJduNOfrvbeTZQ9RINimatekZqnTCqWcC2YCzhcmkgs1m07HcDxyD+Mlj1Qj6JYKV2FsufLKJxwLZgLOFyayC3WVTsRhkjk78ZWnEGnkwtgvW7pK58snYhitWAl2liZYk6+Q1LBREkFu2C/BiW9lzcxKVru4mfKJahYLeh/HXK/OLh6bzG9NjdUUs36jy45Q04np86wYomLnymXoBK04JpCgqTQ73oqMgDmhkqqWf9Nu1CyS3kH83JlrX+aROJK0IJrCgmSQo/GYcgMmOssqWzlN+1CmW7kHTbVKmULcmQRWo4WvGeRIyM0dJ6BTIKtznrKln3HIpTpOt5hX61SdiFBCtHlaMGDjaiG0XOPYbD1s54UHH92Ly35lqLo8SeQpgWvRNKk81OC13/IXL6lSuSAjQidfNaVZEtR6OBzSNOCUhtRjte/02KaFUrkqVFPSo0Xz0Ul01IUN/I0MrUgUy4NaV7/HiYJ5i6RMzYitPmvKGmWoqBhZ5KpBZlyacjx7g9ZT7NCldx8LSYVxvPccpJjKTKJ+Wsp6lBoAdxsGoMQVjItUiIfX4tJhfE8+uu1BAejScCrK0VwCi2Am01jEMh0vqWqtNtHMaktngI/vj4ewCKTgA22isgUWgAfWychlqGUC9ZntwcbEf5L5EQSCWOOSbTzy0QKCi2Aj62TEFFn4jWLs9tfVSkvpI4jqWCGmIS6tE/Ep9ACOHAYhqB6Ei9bnH0ebET4P7WzSC2efiZxRkx8BRtRTV/7Xm347/SkX7k+mxSfOrwIrh+CIfVgI5rARlTQ3Qse9MXfgaXIX/GRw4vmEaQZVRsb0QQ2ooIaTa82/1dDidcsEbCP4K/LBEPqwUY0gY2omvbbHfTdNzGXb6kSAQ7UjiC1eDqxEU1gI6rmZ8ervQIfJrIuWCVgH7UjSC2eTmxEE9iISnlczH1NehNLUc1CAebUzh+1eDqxEU1gIyqls93V3oKvJnIvWyvAkNr5oxZPJzaiCWxEdTwu1r8yvaH0i9cKMCF1/kgFM4SNaAIbUR1Dva72IrT9LAJVAgzpnD86kYxiI5rARlTE48L26yto1IH6QND1LY7yLusErBPJKDaiCWxERUw0utq70OlrKagPBMWdVZ3DRyeSUWxEE9iIimAjsnJXDUoENXEHVefw0YlkFBvRBDaiItiI1v2sA1WClLgb0VPj/HlcHAljDhvRBDaiItiI1vUUgUJBBxtRghimsRFNYCOqY7TX1d6FHj2loFYQwUaUIIZpbEQT2IjqGOp1tRdhyM+aUDEoYCNKEMM0NqIJbER1sBHZalSGikFBpo3oSNjHA1jBRjSBjagONqId7upD0XBc9Mk8ewpFPwPZiCawEdXBRrTP1ypRN5zFRhT309exEU1gI6qDjWg3liJIYSOK++nr2IgmsBHVwUbk4FouqodT2Ijifvo6NqIJbER1sBG5+SgaBcQRyTYiz8gPfrQVNqIJbER1sBE5+ysdBcQR0Tei57mDKMEByEY0gY2olM52V3sLtqKMcNZ+eWO92mxE09iIJrARlcJGdAqVhJvOSQsxkGxE09iIJrARlcJGdBbFhI+fkxZlFNmIprERTWAjKoWNCKgg60bkE/aRDzXHRjSBjagUNiKgiPYL7hnJouMbkcMn7sBGNIGNqBQ2IqAINqJAn7gDG9EENqJS2IiAIu7e3HBvNBvRHDaiCWxEpbARIQ3m86evxQlXMTaiOWxEE9iIqvnZ8ceFf5BAw3VEmdKvcmxET997Oc1osRFNYCOqZnQj8o8QaPi6DjGrdz7KErRKBzeirZ+1FRvRBDaiavJtRIFCxYrGLhRrYj2xESl/1lZsRBPYiKpJsxFxJ9bR6DUz8NNfNeKWxbO5aQbJJPg01ehkm2+FikWX4GaJGzlG/WwxM/DTI91GtDWRNCNkEnyaanSyzbdCxaJr3yDKd8po5IIpYEhnW+n+TwlK4dPWTPNjEnyaanSyzbdCxaJrXx+aB8JozLKJoNNEK+l+Q4Ii+DQ009iYxJ+pID1s861QsQTad4fU/PfHGSgpNCz2jtZ/lSB3n1ZmGhiT+DMVpIdtvhUqlkD71lCY/5UIxVNDg1XLaH0+Pk3MNCom8WcqSA/bfCtUDFu177L+QbV6DnyYt4m+J+PTxExzYhJ/poL0sM23QsWwQ/v+mh7RTY+Foa19oemZ7G5fsvEwSSFZTX4yP39MokId7TvL52as875LcesFTc9hd+OSDYZJCslq8pNtvhUqBhPtS+rIzVjqxT/Ouf60O4H+99fE6XRXmaSQrCY/2eZboWJYpHAcKcRQlmzft3401nW+tlZOp7vKJIVkNfnJNt8KFWsonn6b4EEkGFJuIkUWCQOj+l9YE6fTXWWSQrKa/GSbb4WK3Xn8+1txTgeiyOT82fdKVjgezxKsrWBI+KnnVTVxOlEDJlnkK0ubbb4VKnbnwUZ0b/Hw8Tmv0p+Qp8gWVjYwNLS7ZuJ0ijZMEklZmQbbfCtU7Kv3xMsWoWH62DlycCU+JJ2FuHdCBAmMMpneaq+Dbb4VKvbVg42oaW7M2lfV7je02lFgK9yaES5goM1kbqu9CLb5VqjY1TXrmnVoGB2z9vXkc2FVOwoM+TfLStzIgQ8mE1vtFbDNt0LFrq5Z16xDw9CYtW8lt9uq2lFgwrlHOyRIAXiyEU2xzbdCxT7cpVywFA39Y9a+jzxvq2pHwSLP1jhIlg4KMhnUapNvm2+Fin24S7lgKRr6x6x9E3neU9WOgmmeTXGWODWkZzKi1WbeNt8KFXvXzrdaNRr6x6x9B3neUNWOgjmeHTkifYLIymQ+qw28bb4VKvaunW+1ajQMjVn7DnK7m6odBaOc23FWqWSRg8lkVht123wrVOxPT7KlCtIwNGbt28ftVqp2FPRzboSOsokjIpOZnDuN01BoQRQ9yZYqSMPQmB0Z3cWYi3BugSaKgBBMpnHuNE5DoQUh9GdapyYNo2PmPLcmMafn3wJZlAL6TEZx9ChORqEF+kbTLFKWhtExc55bk5gT8y9+CJQFykyGcPQoTkahBfpG0yxSlobRMXOeW5OYU/IveziUCJpMxm/0KE5GoQXi5nKsUJmGiTFzG1rDmJM5UvagqBXUMHjHVWgBG9EENqJYQtzvakGqxYMoNk0IU3dc+hasJJi+OA1zt0P7itl90dS80cSv9Z6ROBu2TiTQ9z4V5hPCvB2XvgUrCaYvTkPEeyFizCuUr/KetaeHSMBuYUDW3SQYTgiTdlzuFqxnl7s+DRFvhIgxT5O9wXv2nFEKkfvEAEE9A2AyJ4zZcblbsJ5d7vo0RLwOIsY8Qfbi/rnYLFLIwicGW0HDPm6u6StzQqeOS9wCq9QSl6gh4kUQMeYhspf1r13GkkJGPjFYCRfwcetdnnvC1hcHnVb6rswqtcQlaog4JBFj7qT8CtsdRb1EUnMLY8UrzijRHmfb2UBzgtymT7DQp5+hiOlHjLmH8r3cjm0fkQTdwpj2YCPqs6+hUUYFpXTOJKP7Eu7kf8aMuU35Ou7ZW3YTSdYtjAkPNqJfOpu42Gv9UUEpndPI0L7EOvljRdtJ/ApuLwluRFL2DKPfe2CyQR7U2bv3L1vsuPK0oJTOOWRcX3SuoYYQQU5TzqtdeU8iiTuH0enBRnSjp2vt5q70XXxsUEHn+DGlL4KXUaDwTMhm1FN8TwoV8I+hx4ON6L86+9Xf08XuKw8Pcuuf8N2RRCF4JQmGtJVgUv0t8HS2CM6f3u8jNuVQd+vs1FxDF8dAfIqQUufIMZlXCreSQgz+1LLr7MIRB+vg+dH9roHJhrpVT49MWrn4EOVZQj6dw8ZM3jlyN2leiG7U0uxvh7+DRXD76CHXwGRD3aSnOzs6uPJM5YlCJp1jxjT+5HNDqd2Dp+jk29mRg47UwedDJ1xjU452h3a+u9s3/fxqbcIRnWPGNHbad0lJXX/H6STe2ZeDjhTB4UMn3AUmG/AOX5N1btzEx5XqEU7pHDOmcZTVbSV18UlRSL+/O2c512H3x027i005ZnMfyZ5tWf+nl+oRTmEat1q5sEQuO1kKdejs0XHOddj9cdPuYlOO2dx7siKJ94QhEipy6xwzpnHF0M2lc82JUyhIf7OO8yzCvs+a0xOYbPDmHmxEwI3OMWMaTYhfbeGcrYxJN9241WHfB42aC0kzF0MPNiLgRueYMY2GBC+1oM6WaLqPR7jVYd8HjQZj+LT1R+l4WGxEtpXpeU6yLkBT55gxjTscv8sSOFirzvaJcCvCpg/qDCPo8z091jaiHdPV84QcxYe4zjFjGvfxv8UyOVWxri1EjEMddnxETwBZP26Hx9RGtHXGer4xetkRQueYMY0ODl4rcfnc+z2fq8+hCOYfMRpJ0Od7egxuRA6T1hnG6GOBUZ1jxjRC1pFLeeKaOG53EcyfP8EwGLXUrDxGNiKfeev54mRdgKbOMWMaIcvh6u/5UH27i2D+/BXTgWmmY+jRvRH9HCereev54sQdgY7OMWMaocz/am7fBZp2V8D2+YZ6ItTPwspjeSOa+7LOkFa+BljUOWZMI5T5X81dK4iYrRWwffgmd3FGid/Eo3sjeo50eWXeer64VI9wSueYMY1Qtvv27/lEfVvTN3z4PndxRonfxGNhI2oUcGUeer6+VI9wSueYMY0Q53xBL60mh+xL3/DJW92FGiiFdY+RjejJf2uGSo4cp4A553GduCaO25e+4ZN3u0YbK/51DzYiAEht6wLQ+YnKtiZu+PDdrtHGin/dY3Ajeg6O+mJIK18DAHhxvqZn9pJz9iVu+GQH14DDpbDowUYEANltXQN6Pk7ZvqytnuzjI+Bw8a97jG9Ez+5pXw9p5WsAAH88L+v57eSETVlbPdbTY2olSEMw/Z4wREIFgCic7+v9i4yNfSkbPtnNQ28l8CSYfk8YIqECQBRbl4Gej9O0L1+rJ3t66K0EngTT7wlDJFQACMT5yt68y9jYlKzVY/09/v1vuU4HcsBH1mdb2f/pNZsFACv27QOdH6dmX6ZWT/b3YCO6/EPPnk58XM1mAcAi54t7wxZjZl+ahk/292Ajuv+3W8sy/fyazQKARc53986NZtW+NA2ffESCFOb0JL6jxYvPLNsvAFixdTHo/EQFWxM0fPgRCVKY05+4Sa+tBqZsvwBgkf/1vWOlWbE1O9uHw9NEB+eabjgqTB0ATNu9IXR+6Cm787J9PvxN9LH/WwyHhHkDgHX+l/iW5WbK1rxsH46DJhraGAPbCWHYAMDKkXvcfrkZtzsp8+fjrLnOvn+L4WAwZgBgzmFV6PxcTw7pmH8EREz013AkmC4A2OfgVb5t5bnlk8imT4EO/0YzWgCwm9va0Pnp+7ilsOmDoMan3QwVALg5fqFvXYR2Z3S8ejhrX9+ZKABwJnKnh9uFvobt8IkQZNt9ZgkAjjiySPQHI7sLfY3W53OhaX0GmCIAOEvtWtffhb7G6fnRkDUxD4wQAIhQ/lmH2hbUiO1UGNDUMxVMDgCo4XIfpbOYQdndbDAzAKCJy30UFUO/9yFhYABAGT/xGEK5MIFRAYAQuOL7USsAALLi5x79KBSAnzgcgLi46HuwOgLowfkAxMVF34MqAejBEQHExU8/fqJEADpxRAChcd23UR8AnTglgNC48duoD4BOnBJAaPyuUAPFAdDp8fZ3cp6NpA5OZpjj0r9DZQB0YiNyxvmMHfhJyFeUBUA/NiJnnM/YhNG6oiYA+rERebr+ipWywwpzdUVNAPRjI3LzdR3ioIYV5uoDBQEwhI3IDRsRdmOu3lENAP0+TgkOjX0a6xDHNawwV38oBTCEN4WNyM31cOa4xg7M1Qt1APrxvjzZiLx8/eUqv4bFDte5woOXC7jHK/PyYCParzFpDCHMme4ReZxuCyCKF+fPg41ov8aMFR8/bGKxQaRyuiGAIl6fd9dkS6Xvpj1dNWcPWy3sDjmdbggghzfoXSPHCul7ao9WtcGDj4X1IZvTrQDkNF6Wau9RT3a5K+CsPVdFpg6Appkt85zT1cqgp7AVij+aVMoiHNGYq9wjB0Dc/HZywulqhddf1cT1X8klUx1OuRuqlMNmK3pZ6CzETS0mx5yuVmATJc3XBav4o9fhrLtxSjNm+4SuzOPf78ufDgS4NbaRnHa6WlFN1zNfI0yCD12B4+5mKc2M7RO0MtdGHwwGaBheSo46Xa2QFouZrxcr8UfPXcHdIKUZsH0iVuYacLgUUIf4KSQenj6TfSbfUvTkT1afw0Y0568mUYrT6GOUFFCN+CkkHp442zUm31L07DuZc2Sqg41oTqyNqB1kiBRQkPgpJB6erK/by3oBNz32rHYK0bMTdDc/mYZqhygbUWf7xLNATeKnkHh4mrbuLSmXoufNn3ZIkJemuylKM047hNiI+mNTzgJliR9E4uFp2n3FZL3FPlJIkJEsNqJRIYZztHeaWaAy8YNIPDxBPvdLylssxKWTAxvRqEDDyVKEuMQPIvHwBHlWLFl3Al060bERjYo1nP3hiSeCasQPIvHwBLldLvlusViXTnSsQ/2+1kS8UP2tFE8EpYifReLhaTqyEW36FE9sRNAUcSN6aQeZ5uhAGuL3mnh4mtiIpv0lkiYjJBB3I3o244ySAuoQv9fEw9PERjSNjQiCQm9ET/7yasQhfq+Jhydrd90eF+YfcQQbEdSk+RlL9L0OFYjfa+LhyXLeiMyffwobEdTk3oga/xzwJ361iYcni41oDhsR1CTYiH6eElESQXriV5t4eLIeF1ufb/vwg9iIoCb6LtEZoX4iqED8ahMPT9m+0uVuSsqkIOL6S5Wfrt9o8kD/rH9+jU8wQMPxl6VNPDxl+0qXuykpk4KOiemy2mrODjZLEfSJ327i4SljI5qTMilI6R+w6y40/eopTDVLEcSJ327i4SlbPD+dH6sjZVJQ07MbdDL5ODcsRVAmfruJhyfOYSMyeaaUrHlBTWPS+tehn+MqOM93IQmGimrELzjx8MSxEU1ImRRkNXaD9Y1IeZivsSlHiyLELzjx8MSxEQH6vu4GjRetcyPSfz2veZ2KBHgRv+DEw9NnW8DOoxjAkJ9LUee/ajxQ0Nesj0QCvIhfcOLh6du6EZlECOD57QcmnX4+SlPcyJGY+B0nHp4+NiIgivd3anojivJi3sUZJX6kJH7HiYen7+f5eeRRAL4aXYoa366PpcgTh3YP8TtOPLwQNm1EhhEC+PP3co1uRBHfyq8xR0xE36uqnN5t4teceHghsBEBsXQuRV+/JZyv50ncdGQ9vv348WA8msSvOfHwQmgfqtNOpwXkNP1yhX4r0yx4sr6WlMP8g/g1Jx5eCGxEQCA1N6InS1GHTYc2R/of8WtOPLwoFt+j/jcLwKLp9yvBi/l+vCRIx9zWmnC8P+VXDvHwomAjAqKovBG9sBTd8SlI5UNe/KYTDy8Q1iFA3+L7leb1ZCn6yrMaNU978ctOPDwAMMRG9Ofx778WPx2IEP9qVLt5xVcO8fAAwBAb0TtO/g+nSlGnC+Irh3h4ALb69tu2n07HaKmRTk/KyarxkjKpOfyMaDfxs0U8PADmRl/5NEdE/6rDUlSTZx0SvFATxFcO8fAAWDF5zUOfFXdhf/3nQ1+MHByaG/oNWie+coiHB2Ddjrc74okxtPlMfD2ie6zpebhPIrLEVw7x8ACs2P1exzo3HpffGpu4xQLlC0/t1ZqxeVncOZ2drhYAG55vdIjT47Gw2Kx8L4r4OhUhXg1P7kvNktPVAmDgyLssfoC8hzcR6uK3I72PCeFK/erEXjPvdLUArDr4IisfI3+BTUe4/gQk9vj3N14yHg0n9pp5p6sFYJ7IW6wQw9XD4q9o5qjEHQajh/dOs+Z0tQBMknp/pYJ5Wm8ynJYAAGgSvKClQjIPRio7AADwFL6dZQMDAADJiG8d4uEBAIAEQuwbIYIEAABxhVg2QgQJAACCCrRpBAoVAAAEEm7HCBcwAAAQF3S7CBo2AADQFHS1CBo2AAAQFHqvCB08AADQEXqpCB08AAAQkWCjSJACAAA4a9M64fm/fmYjAgAAK3bsEne70Na9iKUIAABMs10kenahTXsRGxEAAJhzdh1iKQIAAAoMV4i5dch2KWIjAgAAE6xWiJV1yHApYiMCAAATTFaI9XXIailiI6rGfKkGAARidQVIrUMsRejkM0jAIqYU2Mr2tVp/JUeWnV7rIS0+AZqOjBMwZGj2GFRgmvmxb7J+mFsPafEJ0CE1WsCd9RljSoFOmw78xbfP9rZaScQwKSjYN1rrAwb82TFRTCnQsOmoX3/jrK6nlSw2pQZ/i9NyathQ1u7hYTiBq7tjfPF4X3/dpu+gn9YDW3wC3OyYkCNThzrcBobJBD40ju6VU33xRZu7dDqtBLaeGnZzG4xTE4isjowHMwm8uzuuV47xxVds+q7ptBjbyrdjE/9J0Pl0JHB2HphG4GXH6b34fk3cKW43EUeHjqGmm3Q/blRQpjAACjHgIAbgZceJvVjbuZB8bh/G5rj+Rls13TNOBqwanY7rRAJ/dP+P+RG9WNvpW8PhxmFsjujsrGGjbUWPH5uodVktHrih9X/MT+bF2k5fFg4XDWPjprObtv3dLWVSmKPZVs2osBXnzAfbo3ixsNMXhMPlwszs1tlEw56eUidTXCm3Ujk27MDxstX61jFxNfjcKczMDv29M2yljuLpF6TfO/0IYYgjZav1rWP0RnC7RJgZQ/1dM+ygOGqSXpR+RYkT6zhJtjJZPDY5nlpxpxoXDoVKKVaDYkWLORwgDhYLO30dbL0vmJZp/s3KhOrlYN4Uh9YzSOlxbjhYLOzcFbD7mmBaRvn3KD3qGZdhL9qdNew785Mex4WD9cLOXaZbrwamZYhnawqivLFYdaG/oVatZ35y46xwYLJ+mDueVCm724E/lFqcVQsmnmPy0YxQVhwXbkw2EEPH06mG29kfNddk0oK7h/zsNacf7nBcuLE6BEyIpFMN75o/aq5m3/nztb93/3BHAIhu03WJK6tzYN16GE8OhFm8bp6otqBN20j7seZLEbOUjM+9iT+GJV3YhixjsHpUNbxrPqizoPUufH1Cz2OvX7MYDBOVw5ELFE+Bpcjw060eVRMv2m6cZpoWu/D12/ufef3KlXiYqNDm7lAOE0O2ZTzYQeZhEa/YVpRX03oXrk8YfebH1y+GxFxFNHp1+tyqNZnX0L9rjIEJ3q9NKKysxUZ8/fbRZ16/fiUqRiuW8ZWny+m0AttXPbc2MQBWeLN2oKqa1htxfcLcMx/8mKg2u1WI1hsIXcbQwQviFbNFPWXtWDxMNqLp56x/Lw5iFxIRupihg9fEu2aFSioz34imH8hGtCJfvixCxwUtbNCwxfHemaCMyszXocVnshTNeWWaMl92oYOCljdo2Pp4ARdRwDsi1WAjyiHxRvTCSXJKuDqHCzgW3sRplO4rqbKwESXwnmbWlKXemmoClTpQqHHxJs6hbldfD/aDxdmxb5g/c/qBRUaOjQi7hah2iCBz4GUcRcU+NHahU1Va/Djb7aXxhB1rWxq25VLGeXJQiIKHCDINrvh+1Opd5y7kXy42ogTYiOBDvObi4eVz8OaKhUK9a689Z5ciNqLo7rJLmTVHynGyZZcNLDfu+p8o0buehefgUrRj02Aj8sRGBGeClRcMqQ5u/AaK86G/IGxE7SdMPzbxBLZTS5k4p4oCqfpLBVMTl/4dKvNhqCDO1Vt8fpSNaPF7lbER4RSRLijEgCdX/zfU5KvpjcghsB3fzkbkoyepfIlztkg52AjGQA0LwDuqcaezMv4FZCMKjY0ICo70ggEQdL3CyraJUrRNbEQ+Ue34djYiB/0ZJcuds0WQZ1MYAGVsAk+K0OFridp8otrx7YKPzTeQZTeiZ8aMcth9cHGzhMA+UDz9HqU2osUnsxH9NJpO8fThacfxxbUSS+WVoHLuQ9TWoScbUUxzuWSqAPSZHGXcKXEN3XeJne6DLsEyLn5Q49vb/6qd6d33rkQrO5lub5nbBwHvRieK8Utj7szJ5HQH1KmVcfGzGt9+96+u//zjn0w8s4fscMoG9tSODUHpnH7YbWaHyOV0BzBmsWXtb//6b6//8FF7I3qqxqYZFYBATq0iCk7XHsMWu9b+9rt/2x6bxnfNBWny7VtpxqYZVWUcs4jIbQORcrrqmLHeuPYTRp/f+PrFUMVHVC08tXjw/NcUWgMAO7ARiVALTy0ePN+aQncAYIfdm0b/822XK6vvdaMTpE4kePfeF3oEAOYcfvZi8jVsRG50IsG7j77QJgCwtfs3znq+Zus6tP7tbhTiVIihoLk/rsmf4QQAQz4b0fPm9O480tmISsVQUPofgQKAPreN6O+LJ/4TxSIb0fN0qIEKlUydCQcAZc5LkfPDY10WbEQ1ib+DAFCE+GnMRpT+o2FSfDoIAIuUT2PxbW2HUwGHK1QmVsXnz1oDwAo2IilsRAUZbkQmzwGAsjSXooLr0It/2EELlYbmCwgABWkeyGxE098++oSghUqj7KgDgBrBH9prLmlupiP3/8sNsK7Ufz4AAOKkliKdh5wyF/zjYt9nwdDiAmwbDAAUp/PjHand7JSJ4K/rUOd1GbpQOdz1rt1KGgcAmygsRaxDT9N1iKUojY8e0TIA2Mf2jJ271g9+uo7R4Cd+vLD4ifD33iP6BQC7mS9FnQ/s/8rOp1k9yp/5D4j4MVEOfw2iUwDgYMdh27iU++/r0U+0faCn9Y2o8Q9tPxeeXg2iTQDgZt+RO/GDi7lP2fFYN6c2ormPhpt9rwwA4Kvop27o+KeDb/2GGRsRAABT4t6McSN/2bQR7f50AACying5Roz53Ur8JhvRYgwAAOQT8WaMGPM7NiIAAATFuhxjRXu1GL/VRrQeCQAA+US5HKPE2bCegsk6ZBIJAAD56N+P+hH+ZJKC1UZkFQ8AAMko34/KsfVTy0ItHgAARGhekZpRjdLMQjMqAACOU7si1eKZppmIZlQIgeEBkJ7OQacTyaL2fyNm9eeC/D8LlTE5ACpQOOsUYjiIPywNZQ/+j7Q3+LUGkM/Z15nDhI0IytiI3vGTWCC9Iy8yp8ef0TpQN7hhI5r47Wm2IyA6t1eYs+KqvyCUDm7eh63a4K0sQqxGQA67X14Oh6/YiCCo7EZkuw6xFAFx7XiFORZ+6ikOBYQnNqKeJYeNCKhg/V3mNOjHRgQp12GrM37Tiw0bEZDe0HvNITCtXTHqCU+VN6LnzW4z/b1bQwVwSuMXQbz7i9iIoKP4RvS0+9NEp/MAgJDuzk/OVXhiDl8qr0OhgweQADcRFDCHf9iIAOCU60HE0QRnbER/Kq9DoVMAkAAbEc5qz1vBaay2Dj3ZiADIeD+IOJTgjI2ouILnT449Fkip4IkEHWxExZU6f5L9cA9IiZ9a44iekWMsE6vzu/aJf9MTSIa3EkewERVXYSMq8ofBgEx4H+GPjaiyu86m6Xj/LsReBEABR9Ap/ZWnRynl3ojm1iGWIgBHcAQtWjnzh8ru9kHwdNeXBP3qHEUmFsBxnD9W9EunH2FN7b5E79rQkpNsIwodPFAKvygzZ1g9217QVmXVNiLbr5cVOnigjsYuFP0UUrBePdte0E1lPd2J3sGVjcgnQnMP/hYXQF7PLhT9LFIwXUDzdtBHcQU3okY6OU6hv7CDxg+kN7QLxT2LpIzW0LYjNFFff4Oit3JuI/KM0Mp72EFTABKb2IVCn0hShq48w47QuxDqNLTI+fMRc8QUgKzmTqHoh5KazjJatYOuRTHapuhtTX/yXGOOmAWQz+jhk+lc0vSzkndlH2oH/Qqkp7OZXsbcJ8/XgHOnDIgbfQF5Tz39rOS17EO9oFNx3fUuU08THzsm0cZKGQhheN1Jdzopaxdzugv0KLq79iVra8oDxyraWFkDUQwuO9kOKH2N62+iC3QnAZoblGGD6DWwD0uRsq/1nGgBfcmBjSgi2+7Qa2A3liJZo0tR5xMQERtROOatodeAA5YiQY1KDpWdjuTARhTLjr7Qa8AN65AUq2LSlBzYiKLYdxLSa8AZu5AINiK8YyMKhI0IyISN6CzbetKdBNiIYtnRF3oNnMJSdBAbET6wEYVj3hp6DZzFUnQEGxE+sBFFxIsM5MNS5IyDFB/YiIIybBC9BhTwkyJP/QXc8ZXQxEYUl1WP6PU+XGroMboLMT/reqr3V+TOatOR6NiIQjNpE72eM32LcevhD+Nxys/SXb9g4lsQy10H6WwUXzvFobpo/Z5ydrpgmEH3T/lZtLsvmP5GhDDdd+i4Nov2dbK6kmSdLjB+o9H+GhX7Wc/2F9CL0O7aR1tj+egX7ethchPpO11m/Eajnd2Vq7+M60+AIN6vNN5bRvt6mFxDi5eUQgwQQa99fC3URAHvvoVGAAr+3kReyR5Rbp8occIE7d7tWqWVutk+DYChx7//VvR0IDEEvWiCho1OIxsQTR/2+O+P09cr9vEQWgDo4FQctXgBaTpdVKyi75s89vwsfdNjASzilZxjto6cc7qEMEbrbT1G/sbFiYc/+Ck9gFys95TtThcMGzEAhhzKRUcApLRrgzFyujzwwzCY8CkU7QCQ1fbNZtzpkuAMpgIAABTHngwAACrjh4cAgAZuAaTXvwvxOgBATdwCqIOlCABwxUWAmtiIAAB/uAtQGUsRAODZfR2cDhPYixcBAIrjIgD+8C4AQFl3pz23AGpiKQKAsq6nPVcAimMjAoCC+BUx8BUvBQCUwkYE3OG9AIA62IiANl4NACiCdQj4ibcDACpgHQJ+4h0BAAB4YSkCAAB4YSkCAAB4vi1FpwMBAAA4jKUIAADghaUIAAAAAAAAAAAAAAAAwJ//AcpH7f4=');
  79.     3: bmp := BitmapFromString(1000, 600, 'meJzt3euWNLdtheG+/5ueLGes9qgPrCIJcOPwPr8UWZ+b2ABRXImT/PwAAAAAAAAAAAAAAAAAAAAAAAAAAACglIcDdU0AAABANbzbAWAfixQA4M38W8PnBkArHluUdQoAeMeHBtjH7XjnsVsCxuhaZrRiAQBafGWAHdyRb/zKjBOg5d5sPzAAgEt8YoAd3JFv/MoMEqDl0mRgAAA38IkJgtwy4poM+NUYJD2TbcnAAADu4/sSBNG9SJEG12TAr8Yg6W1vSgYGADCH70sEz9BI7ylFFFyTAb8ag6RnsCsZGABdsfTW8H2Re0mMAH/+CSF+FFyTAb8ag6S3vyoZGABtsfTW8H2Re/Buf/Pg3Z6fX41B0ttflQwMgLZYemv4vmh9jIsMH7zb8/OrMUh6+6uSgQHQFktvDd8XoUFWnWP8W3vwHLgmA341Bklvf1UyMADaYumt4fsiNMiqc4wP3u0l+NUYJL39VcnAAGiLpbeG74vKZVBtk3zwbi/Br8Yg6e2vSgYGYTGB8MbSW+PweSHqazdT6hnmS9WRQ+CaDPjVGCS9/VXJwCCgb/PGHMIWS28N3xeJmyk1DPO95OAhcEe+sdsoQQN0LTBmySjvctIYRVhh6a3h+3LeVETd8nyvN3gC3JG27FYmM4MQbo4Z0wgTLL01fF8OW8inSaSD4Yk/WtyOhky3JpMDsakZYyCxL/jSkx/gG74vhy3kUzjS2bFhxhCHx/Jkr0JlasYYSOwLvvTkB/iG78tJy+EUS3V/VBg2yHksT/YqJGYHjIHEvuBLT36Ab/i+HLOZTI1gzSeEkYOKx/Jkr0JiYcCYSWyKvPQegf+ftvN9OcMkljLZ7o8KwwY5j+XJXoXEwoAxk9gUeek9eLe3ZxJLvWynZoYZQygey5OlComFGWMssSny3nvwbu/NMJOq8Y6Hh7lCTB77k6WK8xZmjLHEpsh778G7PfbJvc8Z/N8wlPfqateL7AwXkWRBAT/876VCIezq+/vTAUc971cmy4HN//2PJSzxXl3telGA4S46vJ2Ap6lhYzKxL+z2e/BuD3/yFIc8dmatl9IKV4piuONIbWrkmE/sC7sDH7zbw5/8zIFx0yP2lQGAkm7uW9YyTIR9mwV/hBi+fg9Hne7AuOkR+8oAQFWXK5edDCth32bBHyGGr9/DUac7MG56xL4yAM5gRUt8jJ1enFf+uRLzbfb+u9FiX3zpBog63YFx3yPw/wkmAAewpeXIX6LPuyVOjePfjZb8zQmZku7kZw6M+x6824He2NLoptvrRVjdzg/JW7AwJ8KonU5+5sC478G7HWiMRY1uGj5gtKXt//urwl8eFfkUpTswptAXoC0WNVrp+YyRF7XzE8LM96dFNT/pDowp9AXoiV2NPjq/ZCJUtPYr2rQNZ+bw8KQ7MFAYFw1WGCH0YfSKSXlBgpQz+0PynG1n5nDUuQ4MFMZFgwmmCH1sP15y34445dz/rQghm4/NsaLSHRgojIuGWexwdGY4/0nvQqha7vxckHjzjk26A0dGFNjERcMUwwXOdCEj8yuQ7i5EK2T8i4mCDavhkDshDezjomGK4QJnugown4fgg+FXb9iS30UrZPyLiYINq+GQOyEQ7OOiYYrhAg81XfUqOsMwtxQx+tUbtuR30QoZ/2KiYMNqOOROyAT7uGiYVXKHlyzqAMPc4sfoV2zkqt9Fq2L8i1lSjazbhPshFuzjomGW3QoPNFolizrAMLf4MfoVG7nqd9GqGP9illQj6zbhfkgGgES9BW5SUcC6vBnmFj9Gv2IjV/0uVBV3fi5LsGF1m3A/hANAot4CN6koYF3eDHMLHqNfpcELfxeqhPefu/N3MKXVeLsiHwAqxbb3ZjmRS3NlmFvwGP0qDV74u1AlvPzc73/58W9iWavxdkVEAFSKbe/NciKX5sowt+Ax+lUavPB3oUr4+3N3/hoLWo23K1ICoFJse2+WE7k0V4a5BY/Rr9Lghb8LVcLz595/d/AvYUqr8XZFUABUim3vzXIil+bKMLfgMfpVGrzwd3FKeFy9zC//AdzRarxdkRUAiXoL3KSigHV5M8wteIx+lQYv/F2cEh6f/tPsC/8MxlqNtyviAiBRb4GbVBSwLm+GuQWP0a/S4IW/i1PCzZ/LEmxYrcb7hWHtTRL7RWJ4ojVyJe9XyaIOMMwteIx+lQYv/F2cEu7/VopgEY37bb9NncQ0ssIvuhNByftVsqgDDHMLHqNfpcELfxenhPu/lSJYRON+22eow5hDUPhFd+SqXrF6FZ1hmFv8GP2KjVz1uxpVAJcOXPkp6jwmkBJ+xemOZBpf1ChcUsW7ehWdYZhb/Bj9io1c9bsaVQCXDlz5WepI7iIi/IrTHck0vqhRuKSKd/UqOsMwt/gx+hUbuep3NaoALh248gvUqdxCPvgVp0HnR/FdgdpVJbwrWdQBhrmliNGv3shVv6hRBXDJ+74vUwdzjXDw82UMQh3mMFXtH+U67buqffFmmFuKGP3qDVvyuzKFAGOu932TOpsLJIMf3u1vVLV/k+io7wr3xZVhbllibFjyizKFAGN+l92EOp4RYsEP7/Y3qtq/SXTUd4X74sowtywxdqv3XaVagAGny25IndBXZIIf3u1vVLUPZDnnu9p98WOYW6IYWxX7rlg5wDfmN92DOqTPCAQ/wd6Eh+fwI1XtA1nO+a52X/wY5pYrxlbFvihWDvCN7TX3o87pA9LAT7A34eE5/EhV+1iKQ8JKt/F+6lPpu3oVAR8ZXnNv6qheEQWi9ejYBA5ICr+U4pCw0m28/2pS5ruSRQHvTO74Meq0/oUcEK1HxyZwQFL4HfFPCCsNx/uvDjW+q1oX8GLzgp+nDux/CKGzmJ1ynbqbDpcMvGO8f5ZCUB95S+3qgKeFq62lDux/CKGtsM1ymrcpJ+sFPmK8n6rW9a5DjTftzXivrDLa7+9h6sD+hxAaCt4ywxlbdqZSYIDxflevoheFezer85x3sN/fk9Rp/Qs5dBO/aybTtelAmcAY490QvXtizmvb7+8x6qheEUU38btmMl2bDpQJjDHeDdG7J+a8tv3+nqHO6QPS6CZ+10yma9OBMgHgBavpiTVe235/D1CH9BmBNBS8ZYYztuxMpQDwF6vpiTVe235/vakT+opM2grbL49hm3WsWAB4YjU9scZr2++vK3U8I8RyQNgEYnbKaL62HC4ZAH54t//BGq9tv79+1NlcIBk/WaKIdrDtyTIgKRxAc6ymJ9Z4bfv9daIO5hrhmEuXSaLzHCMpHEBzrKYn1nht+/31oE7lFvKxlTSWFIc5SVI4gOZYTU+s8dr2+2tOHcldRGQobzJBjjE4zGGq2gF0xmp6Yo3Xtt9fW+o8JpCSldThRDjD+DCHqWoH0Bmr6Yk1Xtt+fw2pw5hDUFZShxPhDOPDHKaqHUBnrKYn1nht+/21ok5iGlmZyJ6P/ACXhzlMVTuAzlhNT6zx8vZbvE+dwQriMpE9H/kBLg9zmKp2AJ2xmp5Y45jSZ0L2r8YydemWCuQjP8DgJOepagfQGavpiTWOKX1mY/9qLFOXbqlAPnG64xHmLGH5ANpiNT2xxjGlz2DsX41l6tKNZQ9HfoBvJ5EQlg+gLVbTE2scU/pMxf7VWKYu3Vj2cOQH+HYSCWH5ANpiNT2xxjGlz0jsX41l6tLtpU4mwhk+nkRCWD6AtlhNT6xxTOkzD/tXY5m6dBepY4lwhh/e7QC6YjUBa/pcHKNnzgp16V7IZJPVgO1QZwCgI1YTsKbPrbF76UxTl+6LNJZ5DNssdQYAOmI1AWv6XBnTx84cdemHEMKsM+M3ps4AQEesJmBNn/ti/d6ZoC4dQQln8kmdAU6j+4iA1QSs6XNZzB4689SlIyjhTD6pM8BRTAKCyLWaWK2Ig0kDVBa+BebUGeAcBgNx5JpAVitCYcwAiYVvgTl1BjiHIUEcuaaOWwMAWPgWmFNngBBjMEUdGCrINWZcEwDAwrfAnDqD7tT936XOD1nlGi2uBgBg4VtgTp1Bd+r+G1PHiTRyzRJ3wRsBAohv4VtgTp1Bd+r+O1JHi9ByzQ/z74cYAWSx8C0wp86gO3X/D1HHjHByzQwz74EwAeSy8C0wp86gO3X/z1EnjVhyDQwDb448AaSz8C0wp86gO3X/z1EnjVhyDQwDb2shTyIFILe2u2ypM+hO3f9z1EkjllwDw8DbWsiTSAEAcmvfr3TUMSOcXDPDzBtaCJNUAQAR7HzC4lOni7hyDQ/Db2ghTFIFAESw8wkLSB0n0sg1S9wFQwthkioAIIKdT1gQ6giREnPVFtsGAJDXzldMQh0YKmDM2mL5AABwic8l4mDkOmMLAQAwxicScTCBnfFuBwDgEt9EBMEjrTke7QAAjPEpRBC808CjHQAAID6eavjFJAAAAETGaw1/MQAAAAAx8W4HAABARt0eq7zbAQAAkE7D9yrvdgAAAOTS88nKux0AAAC59Hyy8m4HAABAIm1frbzbAQAAkEjbhyvvdgAAAGTR+eHKux0AvF1u2lnqggBAo/mG7Fw7AJyx/U5nMwPAfzTfkJ1rB4Aztt/pbGYAmNil6pN6aVs4AByz8UJnMwNoxHxbFtuftasDgAj47gDAJfNVWW+LVq0LAOLgiwMAY+Z7suQiLVkUAITC5wYAxsz3ZMlFWrIoAAiFz82mtoUDfZjvyZKLtGRRABAKn5sdnWsHWjFflfW2aNW6ACAOvjg7mpcP9GG+Kutt0ap1AUAcfHF2ZEwgyzmBaMy3ZcYFMlC4NAAIgo/OjnQhZDnnTebTizPUg7OIcMYKlwZ0w10Oy+hT07SbuXJIccgp5tOLM9SDs45kBmpXB9TWdnGls9Mp2pcoivgnXGA+vThDPTjrSGagdnVASWywdGxb1q1rKdIIfrwddmOLo9SDs4VYvilfIFAJqywp+vWuUiCRz7bPtlM4Rj04W4jlm/IFAjX4LTHu+wF06oV5IMJMwh7MikezcIB6cHaRyUcdagRS89hd3PrD6NEL80BUscQ8lS2nZsGbenC2EMs35QsEUvPbXVz8k2jQC/NAJMn4VXG4kDHXMuFHPThbiOWb8gUCefktrjvU1ZdCd16YB3I+HNcSThZy6UCl8KAenHUkM1C7OiAp7611nzqJIujLC/NADufjff4zVdx0pliYUw/OOpIZqF3dRwwDgnMd0QXqPCqgKS/MAzkW0YGTe5cw62TJMKQenEWEM1a4tHcHJqFeaDjs2JROUaeSHh15YR7ImZTOHNvv/GsOVw0r6sFZRDj4dWYSmIo157sTs1PaHMbU2eRGO16YB3IgpTNn9jv/svOFw4R6cFaQD36dnASmYoGqQdHapM3hkjqexOjFC/NAvIM6dmCPw2+S1I596sFZQT74dXISmIoFqgaFapM2hDvUCSVGL16YB+Ia1LHTehx+n6p8bFIPzjQiwq/zk8BIzBL2KEibtAncp84pKxrxwjwQv5TOHNXv/PuECWCHenCmERF+nZ8EpmJW8x5py5+lTgsVZJnVM+f0O78JbQhYph6caUSEX+cngamY1bxH2vJnqdNCBSkG9cAhvUswoY4Bi9SDs4J88KPeOerqc+jcI23ta7SJoYAUI+p9yDNV7FPHgEXqwXHRvPwm/C4Fk2Olc4+0ta/RJoYCssyn6zlPFrJDGwKWqQfHRfPym/C7FEyOlbY90ha+QxgaCkg0mX5HPV/LGmEC2KEeHC+da2/C+2owPPva9khb+A5haCgg11g6nVZVzixV+dikHhwvnWtvwvtqMDz72vZIW/gOYWjYJ++4+UCan/DAgbUV3SepHfvUg+OobeFNnLkgzM+Onj3SVr1PlRv2zbbPo93pptH2wEGKuuN84TChHhxHbQtv4swFYX529OyRtup9qtzkAarrNjBbhbbqOB1xny1RXWOHq4YV9eD46ll1EyevCSO0pmePtFXvU+UmD1Bdt4HZKrRVh2rHiQkTlfbNyZJhSD047hqW3MT5y8IUzerZI23V+1S5yQNU121gtgpt1dF6cWjOwkzasXphSz047hqW3MT5y8IUzWrYI23JViTRyTPUVm1itgpt1TEb0WfSDlQKD+rBOaFbvU2orgyDdF/DHmlLtiKJTp6htmoTs1Voqw7bhSZj5lom/KgH55BWxTbBxYmvYY+0JVuRRCfPUFu1idkqtFVHbkGHgbG9PjhGPTjAIi5OfA17pC3ZiiQ6eYbaqk3MVqGtOnj+5QfG4xLhAPXgAIu4OPE17JG2ZCuS6OQZaqs2MVuFvOrg4dceGNfbBD/qwQEWcXHia9gjbclWJNHJM9RWbWK2ihpVuyo8MIfuFaypBwdYxMWJr2GPtCVbkUQnz1BbtYnZKmpU7a3qwJy7WjClHhxgERcnvoY90pZsRRKdPENt1SZmq6hR9Rn1Bub0BYMR9eAAi7g18Ql7pGqTtmQrkujkGWqrNjFbRY2qjyk2MII7BgvqwQHWcWuCUzVI2yZt1ftUuckDVNdtYLaKGlWfVGxakJF6cIB13JrgVA3Stklb9T5VbvIA1XUbmK2iRtVYo7po2KQeHGALVyay892J0Clt1ftUuckDVNdtYLaKGlVjjeqiYZN6cAADXJaYzvQlWr+0Ve9T5SYPUF23gZ5VY435DcIZ6sEBzHBHonHqSPzGaQvfIQztqXPtwDGqi4ZN6sEBUFbb5aYtfIcwtKfOtQPHqC4aNqkHB0BZbZebtvAdwtCeOtcOHKO6aNikHhwAZXVebtra12gTe2pePnCG6qJhk3pwAJTVeblpa1+jTeypefnAGaqLhk3qwcEumouwju2xmPOvLX+WOq3/IQHgANVFwyb14GARXUZ8Tlsry9hry5+lTut/SAA4QHXRsEk9OJhDu5GIyY5KPe3aBO5T5/QvhAAcoLpo2KQeHEyg48jFZGKzj7o2hDvUCb0iB+AA1UXDJvXg4Bb6jozM5zbjkGtDuEOd0CtyAA5QXTRsUg8OrtF6JOU0uukmXJvDmDqbD4gCOEB10bBJPTi4QPeRl+v05hpvbRTfqFP5jDSAA1QXDZvUg4MRBgCpHRjgRLOtTeOdOo+vCAQ4QHXRsEk9OBhhBpDamQFONNjaQP5SJzFCJsABqouGTerBwVfMAFDPsXs9oM7gArEAB6guGjapBwefMQb4iPbVcPiC5xoVwgEOUF00bFIPDj5jDPDXuFP0MaPDdzzReJxPJlc+gAnVRcMm9eDgM8YAv6YaRDfT4YK/O5NJ9pSATaqLhk3qwcEHTAJ+rfWFbqbDvf7LL416WQHLVBcNm9SDgw+YBPzsPb9paEbc6F+2OXRIDFigumjYpB4cfMAkYL8j9DSv5hfZZqO1jA64T3XRsEk9OPiASWjOqh20tYCGl9d307WJERhTXTRsUg8OPmASOrPtBZ1FOpIFmO6mqFKCK0YIl04OCW5iEjqz7QWdRTqSBZjupqhSgitGCJdODgluYhLa8mgEzUUukgWY7pqoUoIrRgiXTg4J7mMMevLoBf1FLoe3X9I1qEoJrhghXDo5JAvin9AJY9CQUyPoL3I5vP2SrkFVSnDFCOHSySFZkOKQHhiDhvwaQYuRyOHtl3QNqlKCK0YIl04OyYIUh3TCDHTj1wu6jESOrb7Um1CVElwxQrh0ckgWpDikH2agFb9e0GUkcmbvZd+EqpTgihHCpZNDsiDFIf0wAK34tYNGI5EDe6/AMlSlBFeMEC6dHJJZz+MFP6ertt1vyK8j9BqJuC69MvtQlRJcMUK4dHJIZj14t/+/hq3vya8ptBuJOG28YitRlRJcMUK4dHJIZj14t/+jVd/bcuoL7UYu5uuu5FZUpQRXjBAunRySWQ/e7f/WoenNeXSHjiMXq0VXezGqUoIrRgiXTg7JlJezRT7qSVXbjV8ePaLvyGX7s9ZiPapSgiv1WAHrHrzbh9gGVdk2i9YjHeunUM0lqUoJrtRjBax78G6/hw1QjG3jGAOkc+R9lH5hqlKCK/VYAesevNvRldW0c2uQEU+mO1QpwZV6rIBFH6eXkUYf+9POfQEK0z4v4UQ9VsCKb9PLVKOVnWkvdlO4+8ALxaMS7tRjBcy5M7fMNvpYG/ViF4SPGvDu7HMSh6jHCrhlYWIZcjQxNef1LgXfNeAjz8cjZNRjBVzYH1RGHR2Mt3rhnc93DfjI8/EIGfVYAZ+ZjygzjyZarXo+bcA3hm9FxKEeK+Ar2xFl5oF6+LQB37i/IKGgHivgwv6gMuoNsQw7oKHAwMIaRHzqsQJuWZhYhrwzlmEHNBQYWFiDiE89VsCcO3PLbINlWB49BcYW1iDiU48VsOLb9DLV+MUyLI+eAmMLaxDxqccKWPRxehlp/GIZ1kZbgUsLaxDxqccKWPc+wIw0frEMa6OtwKWFNYj41GMFrHsZYOYZTyzDwugscMfCGkR86rEC1j14t+MLlmFhdBa4Y2ENIj71WJ0Tp3D5Acp48G7HFyzDqvjSATetXRYEpx6rEz5Wqiq/W/je/sZIpHhiGVbFlw64ae2yIDj1WLkb13g4gYb5e3tmSJj4i2VYEh874L6d+4Kw1GPl606BJ0Polv8BD97t+IRlWFKfj91OpTUSwD6PKYKceqwc3a/uWA7dWnDAg3c7PmEZlrT+qcvW4s1Ks5cPEx5TBDn1WHmZLe1AFN1acMxvhiSJv1iG9Sx+5HK2eL/Y1OXDhMcUQU49Vl5mSzsQRbcWHEOMeMcyrGfpE5e1yybFJq0dVjymCHLqsXKxUJd3FA27cAwZ4h3LsJiFhqbuslW9GWuHFY8pgpx6rFys1eWaRsMuHEOGeMcyLGahoakbbVhvrsJhyGOKIKceKxdrdbmm0bALx5Ah3rEMK1noZvZG25acqHAY8pgiyKnHysVaXX5ptG0EoMIyrGShm9kbbVtyosJhyGOKIKceKxdrdfml0bYRgArLsIyFVhbodc+qYctjiiCnHisXa3U5pdG8F4AEy7CMhVYW6HXPqmHLY4ogpx4rFwt1+UXRvBeABMuwhoU+1mh3w5JbOdMOjymC3IHJkZgtzS8KegGcxzKsYaGPNdrdsORWznTEY4og5z02KrOlOUVBOwAJlmEBC00s0/Fu9bby7IV3UzymCHKuM6N1vzq/HGhHc/Y31pM6LUvNy6/BfMITdbxbvfXcbIRrv6wnCCHsD0Zkdwp0DYF2NGd/Yz2p07LUvPwCzMc7V9NbFVvYVPjmnfKYIshZjUdY4xoPJEAvOvO6tz7UaVlqXn4B5uOdq+mtiu1g3AKnBnlMEeTM5ySgj5X2KR9Cupu9Qp2WpeblZ2c+2+n63qfSPv624L0jHg3ymCLImc9JWG0Lh5DkUi9Tp2WpefnZmc92ur73qbSJj73wbpDHFEHOfE4APKnv9xx1Wpaal5+a+WBnbH2TMpu4k79HjzymCHK2QwLgL/X9nqNOy1Lz8lMzH+yMrW9SJlx5TBHk1GMFVKa+33PUaVlqXn5e5lOdtPsdaoQ3jymCnHqsgMrU93uOOi1LzcvPy3yqk3a/Q43w5jFFkFOPFVCZ+n7PUadlqXn5SZmPdN4BKF8gDvCYIsipxwqoTH2/56jTstS8/KTMRzrvAJQvEAd4TBHk1GMFVKa+33PUaVlqXn5S5iOddwDKF4gDPKYIchGGSnsGwI/2ds9Sp2Wpefl5mU910u53qBHePKYIckEmSngMwI/qXq9Rp2WpefnIzvx2M+ENeUwR5IKMk+oYgCvJpV6mTstS8/KRnfntZsIb8pgiyAUZJ9UxAFeSS71MnZal5uUjO/PbzYQ35DFFkAsyS5JjAN7O3+gd6rQsNS8f2Znfbia8IY8pglyQWZIcA/B2/kbvUKdlqXn5YyQT38IA00e88JgiyIUdpPMHA8y5Xl5z6rQsNS9/jGTiWxhg+ogXHlMEuciDdP5sgC2/m+tBnZal5uWPkQzQwcIaRHyRp+jw2QBzTtfWiTotS83LHyMZoIOFNYj4Ik/R4bMB5pyurRN1Wpaalz9GMkAHC2sQ8UUeoZNnAzx43Fk/6rQsNS9/jGSAgTJXYGENIr7II3TybJtHTUGYZ1vqns9Rp2WpefljJAMMcAWAn2yf0YXTxifMsy11z+eo07LUvPwxkgEGuALAT7bP6MJp4xPm2Za653PUaVlqXv4YyQADXAFg4RuqvSlrBw5OmGdb6p7PUadlqXn5YyQDDHAFgIVvqPamrB04OGGebal7PkedlqXm5Y+RDDDAFQAWvqHam7J24OCEebal7vkcdVo4hMEABrgCwE+2//bXwmnjE+bZlrrnc9Rp4RAGAxjgCgC/En0sZo+agjDPttQ9n6NOC4cwGACAS4k+FrNHTUGYZ1vqns9RpwUAAALJ8opwehdpCfNsS93zOeq0AABAIFleEU7vIi1hnh5S1CVs9wJ1WgAAIJYUrwi/p5GQME9zWUqTNHqZOi0AABBLiieE6+tIRRupoUTVHW7xJnVaAAAgnPgPhvNPpgPUoZpJVN3hFm9SpwUAAMKJ/2A4/2Q6QB2qjVwFHmuuCXVaAAAzfA5gKPiE7Ex7WOpQDaSr8UBbDanTAgAY4KMAc8Fnw2rmQ1GHOqFM7eaFuFKlBKAP9pU3q4TJGS8iD4bt2AehDvWuSuU71eJEEhGAVthXrqziTZRzikOWEXYqzCc/AnWod1Uq36kWJ5KIALTCvnJlFW+iqOOfEAd4TL6cOtS7KpXvVIsTSUQAWmFfubKKN0vUv8cLfkgc4DH5cupQJ5Sp3bwQV6qUAPTBvnJlFW+WqB+82/H/PCZfTh3qnBqFG1ZxgDAoAE2wr1xZxZsl6gfvdvw/j8mXU4c6p0bhhlUcIAwKQBPsK1dW8aaI+u/ZIp8TB3hMvpw61GkFqjYp4RhtVgA6YF+5soo3RdQP3u34h8fky6lDnVagapMSjtFmBaAD9pUrq3hTRP3g3Y5/eEy+nDrUOTUKN6ziAGFQAJpgX7myijdF1C9ni3xUePOYfDl1qHNqFG5YxQHCoAA0wb5yZRVv/KjfDxb2qDjAY/Ll1KFOKFO7eSGuVCkB6IN95coq3vhRvx8s7FFxgMfky6lDvatS+U61OJFEBKAV9pUrq3gjR/3tYJHPDG8eky+nDvWuSuU71eJEEhEAwEqNT8P+eUKVgwNMRz4Kdah3VSrfqRYnkojQExMOeChzccx/miVQm8fky6lDnVCmdvNCXKlSQkNMOOCh2MWx+nWuf3keky+nDtVAuhoPtNWQOi0zlWqpigkHPNS7NftniFAFvJlPfgTqUG3kKvBYc02o0zJTrJySmHDASb1bs3ySOCWMZTlnZLZjH4Q6VDOJqjvc4k3qtMwUK6ckJhzwU/LKzJ4n2vm/CRt4LlYzH4o6VDOJqjvc4k3qtGw8CylTUUlMOOCt3mW5f7CwJbzIknx8O9MeljpUS1lKkzR6mTotGw/e7Rkw4QAW3LnIWS47m8rQuQ/JQepQjaWoS9juBeq0bDx4t2fAhANYcOcip7jsLCtbJz4hx6lD7Ujd8znqtAy8VFGjqJKYcACz7t/i+PedfWXL/fuhoA61I3XP56jTMvDg3Z4EEw5g1v1bHPy+s6/M+X48RNShdqTu+Rx1WgYevNuT6DbheU8OxPHxLtz/m0Fw8T1s7tiY1KF2pO75HHVauz6WUKCukrpNeN6TA0F8vAi/f3PwL0XD3XeyuWNjUofakbrnc9Rp7fpYQoG6Suo24XlPDgTxfhH+/p3xvxoE19/P5o6NSR1qR+qez1GntetjCQXqKqnbhOc9ORDE49+v9Pd78fI3A14crr+fzR0bkzrUjtQ9n6NOa9Hl+bMXWJJiwHm3A4k9L8L4Rtz8x85jA7ja3LExqUPtSN3zOeq05iwcO2mlJSkGnHc7kNXjn/8c+53r8PzH4tydzQ0Qp5Cw9hMOSB1qR+qez1Gndc3qtLmqLunsaOt7nffkQAQLFyHO3dm8/uyBO6xCDkUdakfqns9Rp/WZ9wnjJ1DS2dHW9zfvyYEI1m5BkLtjsLxYBVcMQ45DHWpH6p7PUaf1lesJ45dfkmLAebcDOM1kd7EKLtnmHIQ61I7UPZ+jTuua1WlzVV3S2dHW9zrvyQEsM1lcbIM7PKKWU4fakbrnc9RpzVk4dtJKUUCruwngx/MBoK4sIr+0hdShdqTu+Rx1Wosuz5+9QBTQ824CnW3eehbCFL+0hdShdqTu+Rx1Wrs+llCgLhTQ/G4CDRl8lVkIt/mlLaQOtSN1z+eo09r1sYQCdQEAMuJLfYxH1HLqUDtS93yOOq1dH0soUBcAABhQP6BcqEPtSN3zOeq0DLxUUaMoAAAwoH5AuVCH2pG653PUaRl48G4HAKAZ9QPKhTrUjtQ9n6NOy8CDdzsAAM2oH1Au1KF2pO75HHVaNp6FlKkIAAAMqB9QLtShdqTu+Rx1WjYevNsBAOhE/YByoQ61I3XP56jTsvHg3Q7gBrYoUIbHdZZTh9qRuudz1GmZKVYOAA9sUaAMj+sspw61I3XP56jTMlOsHMAKq+MvogDK8LjOcupQO1L3fI46LTOVagFMsEDeFQ4h2nkAbx7XWU4dakfqns9RpwXABWvko6rlBzwS4M3jOsupQ+1I3fM56rQA2GOTfFO19oBHArx5XGc5dagdqXs+R50WAHtskm+q1h7wSIA3j+ss1ydPYaUvDhe+SZ0WAGNskoGqtQc8EuDN4zrLafMs+VuX1D2fo04LgDGWyUDJwmOeCvDmcZ3ltHmW/K1L6p7PUacFwBjLZKBk4TFPBXjzuM5y2jxL/tYldc/nqNMCYIxlMlCy8JinArx5XGc5bZ4lf+uSuudz1GkBMMYyGShWeOSzAd48rrOcNs+Sv3VJ3fM56rQAGGOZDFQqPPjxZnm0Bq7UI1NzZrR5lvytS+qez1GnBcAYy2SgUuHBjzfLozVwpR6ZmjOjzbPkb11S93yOOi0AxlgmA5UKD368WR6tgSv1yNScGW2eJX/rkrrnc9RpAXrFbsfJBZIurkqFBz/eLI/WwJV6ZGrOjDbPkr91Sd3zOeq0AJnLW5D0migWSZqUihUe/HhTPFoDV+qRqTkz2jxL/tYldc/nqNMCBGaHP9dlYZkMFCs88tlmebQGrtQjU3NmtHmW/K1L6p7PUacFnLY89lnuC8tkoFjhkc82y6M1cKUemZozo82z5G9dUvd8jjot4KjNmU9xZVgmA8UKj3y2WR6tgSv1yNScGW2eJX/rkrrnc9RpAeeYDHz8W8MyGShWeOSzzfJoDVypR6bmzGjzLPlbl9Q9n6NOCzjEcNqDXxyWyUCxwiOfbZZHa+BKPTI1Z0abZ8nfuqTu+Rx1WsAJ5qMe+e6wTAaKFR75bLM8WgNX6pGpOTPaPEv+1iV1z+eo0wJOMB/1yHeHZTJQrPDIZ5vl0Rq4Uo9MzZnR5lnyty6pez5HnRbgzmnOw14flslAscIjn22WR2vgSj0yNWdGm2fJ37qk7vkcdVqAO6c5D3t9WCYDxQoPfrwpHq2BK/XI1JwZbZ4lf+uSuudz1GkhmYzz43TOsOUL9kiqYShTePDjzfJoDVypR6bmzGjzLPlbl9Q9n6NOC2kknSLX48Ws/dDuSDUGT5UKD368WR6tgSv1yNScGW2eJX/rkrrnc9RpIYe8g+R6tpiFu2+NbDPwV6XCgx9vlkdr4Eo9MjVnRptnyd+6pO75HHVaSCD1LLkeLGbVjvsiW/ffVao9+PFmebQGrtQjU3NmtHmW/K1L6p7PUaeFBFLPkuvBIld9mLriu4rVHvlsszxaA1fqkak5M9o8S/7WJXXP56jTQnTZx8n1VDFL/jm+hdTlTihZfsxTzfJoDVypR6bmzGjzLPlbl9Q9n6NOC9FlHyfXU8Us+ZfLvsjT929Klh/zVLM8WgNX6pGpOTPaPEv+1iV1z+eo0zLWp9IzCkyU65EC1vtibS3kbfelkiHEPNUsj9bAlXpkas6MNs+Sv3VJ3fM56rSM9an0jBoT5XSqmMV+tLYccnX5JvMogqQR8EizPFoDV+qRqTkz2jxL/tYldc/nqNMy1qfSM2pMlNOpYhaLsbU9GX/mAx5plkdr4Eo9MjVnRptnyd+6pO75HHVaxvpUekaNiXI6VcxiMba2J+PPfMAjzfJoDVypR6bmzGjzLPlbl9Q9n6NOy1ifSs8oM1HmBwtbKcbW9mT8mQ94pFkerYEr9cjUnBltniV/65K653PUaRnrU+kZZSbK/GBhK8XY2p5MMfPRzjPLozVwpR6ZmjOjzbPkb11S93yOOi1jfSo9psw4GR4veKUY2NmWGcc+EY/WwJV6ZGrOjDbPkr91Sd3zOeq0jPWp9JhK42RywvhlYmBnWyYd+yw8WgNX6pGpOTPaPEv+1iV1z+eo0zLWp9KTKo3T5iFT1IiBzYWZdOxT8GgNXKlHpubMaPMs+VuILOZdyC7+tpmyfNpENeKbrQ9q8skPzqM1cKUeGRhjfnAeE+Kk3gWcOnPSGvHO5HOTffhj8mgNXKlHBkB6bBg/9bK9PH/2AvFu/61SZv6j8WgNXKlHBkB6bBhvJVNlZvqwea8wJw48WgNX6pEBkB4bBsAAr5ewPFoDV+qRAZAeGwbAAK+XsDxaA1fqkQGQHhsGwACvl7A8WgNX6pEBkB4bBsAAr5ewPFoDV+qRAZAeGwbAAK+XsDxaA1fqkQGQHhsGwACvl7A8WgNX6pEBkB4bBsAAr5ewPFoDV+qRAZAeGwbAAK+XsDxaA1fqkQGQHhsGwACvl7A8WgNX6pEBkB4bBsAAr5ewPFoDV+qRAQAAlfF6CcujNXClHhkAAFAZr5ewPFoDV+qRAQAAlfF6CcujNXClHhkAAFAZr5ewPFoDV+qRAQAAlfF6CcujNXClHhkAAFAZr5ewPFoDV+qRAQAAlfF6AQAAAOJr/m7PdVoAAAC0xbs914EBAEBbHs+2MtTNOaF5bukODAAA2vJ4tpWhbs4JnXN7HjXRmQEAQFsez7Yy1M05oXNuD97tAAAgD49nWxnq5pzQObcH73YAAJCHx7OtDHVzTmib28s5sxwbAAC05fFsKyNa1Lbnae7Bux0AkBavhZ72H5OFmUct/ON48eDdDgBLtJ9mK+oUdxUu7YeP8nen7kdK5lEL/zj++hgmCQPAHdpPsxV1irsKl/bD/5Xm745cjqzMoxb+cfz8e9rH/8DhgwHAU/xFdOoj7Eud4q7Cpf3wbv/uyOXIyjxq4R9va62hfmMAAAOunyErzt/eQ9Qp7ipc2g/v9u+OXI6szKMW/vFWbJvoNxIA8NeBL5EJt6/uUeoUdxUu7Yd3+3dHLkdW5lEL/3g3hk30GwkAeDr2Mdrn88k9TZ3irsKl/fBu/+7I5cjKPGrhH29rraF+YwCgubAfKUkJQqr0rNQu7eUv8HToeuRkHrXwj+Pn6jXu13oA+BX8O6WqQkISnaHapb38BZ4OXY+czKMW/nH89TFMEgbgLfh3SlWFhCQ6Q7VLe/kLPB26HjmZRy3843jxkifxAjgg+HdKVYWEJDpDtUt7+Qs8HboeOZlHLfzjePHg3Q5AIexHSlKCkCo9DLy3hma90N2YBMyjFv5xvHjwbgcgEvALdf78csIA8W7cFFr2pLsxCZhHLfzjePfgfxIH+NCu7gF1MP+VvRaT88sJA8Rf99tB436q3D4n5lEL/zjePXi3Az60q3tAHcx/FCjHsAQhVXp4d7MddO2nyu1zYh618I/j3YN3O+BDu7oH1MHwv5caiCQ6fDNuCi170t2YBMyjFv5xfOTRaADKxT2kDoZ3eyCS6DD23hqa9UJ3YxIwj1r4x/GRR6MBKBf3kDoY3u2BSKLDHQ/+p+Hfqe9NaOZRC/84PiJVwIN4d3+nDuY/CpRjWIKQKj1cevBu/059b0Izj1r4xwHgGPXy/kodzEiiYx/rlyt1ivjqwbv9O/W9CS1a1LbnAQAn++vOiTqYC1nOfLhrTtQp4qsH7/bv1PcmNHVzAGCFfIkJ9/aYKpD7UhxY0jtz6hQxQo++0d6a4NTNAYBpEfaYZGPfIUljVvzTCjtoSJ0iRujRN9pbE5y6OQAwLcIek2zsOyRp1KNuow11ihihR99ob01w6uYAwJwgq+zwrr7vfBQlqdtoQ50iRujRN9pbE5y6OQAwJ8g2O7mopxzOoSp1G22oU8QIPfpGe2uCUzcHAEbCLjfDPWzLu/Am1G20oU4RIzToG/W9CU3dHAD4KvJ+M9nAHlyr7kPdRhvqFIEV6nsTmro5APBV5P1msoE9uFbdh7qNNtQpAivU9yY0dXMA4Cv2G1RMvrBy6hSBFep7E5q6OQAwwnKDhOF3VkidIrBCfW9CUzcHAEZYbpAw/M4KqVMEVqjvTWjq5gDABTYbzjP/2kqoUwRWqO9NaOrmAMAFNhvOM//aSqhTBFao701o6uYAwAU2G84z/9pKqFMEVqjvTWjq5gAT1Ndlizq8rAgcEoZ3X0idIrBCfW9CUzcHmKC+LlvU4WVF4ADQiuGXtx51c4AJ6uuyRR1eSmQOAN2YfHOrUjcHmKC+LlvU4aVE5gDQjck3typ1c3BIjXZrL8smdXgpkTkAdGPyza1K3Ry4q9T08xfEkDq8rAg8NXoB+Km6A5fXfgfq5sBRvdafuRRO1OHVQcJZ0B3AVdWPjs1Htyh1c25JdNQ4ynT/L8+r4E4dXh3EmwI9ArxV/egYfHHrUjfnWq7TRlBvBp7sBl9AHV4pZBsfVwDfsFGtVI3IZEKqUjfnQroD+zk/G+/UGYQIYZk6vFLINj6uAL5ho1qpGpHJhFSlbs6FdAd2cn4wviGHZdro6iHYyLgFGGCjWqkakcmEVKVuzoV0B3ZyfjC+IYdl2uiAk7gFGGCjWqkakcmEVKVuzkjGMzs5ORJj5LBMGx1wEhcBA2xUK1UjMpmQqtTNGcl4Zj8np+IbdQYhQlimDg84hIuAMTaqlaoRmUxIVermfJX02N7OTEXYwFXlm1CHB5zAXcAlNqqVqhGZTEhV6uZ8lfTYB5wZjJhpn6/dkDo8wAv3AlPYqFaqRmQyIVWpm/NV0mMfcGYwYqZ9vnZD6vAAS9wRLGNarBARguDOfmOx7Vao6/4vVfkm1OEBZrgm2MGoWCEiBMGdfWex53apMwgRwjJ1eIANbgo2MSdWiAhBcG1fbG84M+SwTBsdYIWbgk3MiRUiQgRc23d7680SOSzTRgcY4qZgB3NihYgQAdf23d56s0QOy7TRLahUC8xxR7CMabFCRJDj5n6zutssqTPAUUwCbmKrYMrOwDA5fxER5Li5+8gQJpgZLGDn4NLsR4op+oaIIMfNtUJ62MTkYA1rB2MT33gGaYiIoMXltUVu2MHwYA2bB2PTn3kGCQiJy+uBxLCGS4dlTA4G1r71zBIQCvfXD1lhATcOy5gcDOx87pklIAjuLxAKNw47GBt8s/O5Z5yAILi/QCjcOOxgbPDNzueecQIi4AoD0XDdsIOxSeRwd/a/+IwToMUVBqLhumETM5PF4Qbtf/GZKECLWwxEw13DPgYmvt8GnWwTX3wgNZMrzC0GbHHXgA4evNsBzDC5wtxiwBZ3DejgwbsdwG0m95eLDJjjogEdPHi3A7jN5P5ykQEAmPX3u3nsG8rnHsjL5P5ykQEAmPXg3Q7gNpPLy10GAGDBg3c7gNtMLi93GQCABQ/e7QBuM7m83GUAAGa9fzHPfEP51gN5mdxfLjIAAFPeP5pnPqN87gEAAID7eLcDAAAA8fFuBwAAAIL79vQ98CTm3Q4AAADcxLsdAAAAiI93OwAAABDc+N3r/Srm3Q4AAADcwbsdAAAAiI93OwAAABAf73YAAAAguDuPXteHMe92AAAwy+T9AJxkMvYm/8zOASLkAKAnkxVUj7otwDX1LQGmmYy9yT+zc4AIOQDoyWQF1aNuC3BNfUuAaSZjb/LP7BwgQg4AejJZQfWo2wJcU98SYNr+zJv/kwtnkOcAoC2TFVSPui3ANfUtAaadnHmTWwaAOxWK9VYuQt0W4Jr6lgDT1JcGwByucDSS1R2fui3ripWDgcOXAtinvjSIQj2Jn6lTCYeUAjp8KbJQt2VO4dIw4DT8gB/1pYGYegDvUucUAvnEdOwW5KJuy13lC8SA4cADZ6gvDWTUo7dIHZsMyYR1YOwzUrfllg41YsBk1IGT1JcGGuq526IOT4BkInOd9rzUbbnWpEwMmMwAcJL60kBAPXQG1BFaIrrsDncwC3VbLrQqFt/YjgFwgPrS4DT1xNlQp2iDAGsQ9jEydVtGWhWLAfNJALypLw2OUo+bJXWWBkivBmEfI1O35atu9WLAaRgAP+pLg6PU42ZJnaUB0qtB2MfI1G35rGHJGHCdB8CD+tLgKPW4WVJnaYPoCpA0MT51Wz5rWDIGXOcB8KC+NDhKPW6W1FmaIbfsDncwC3VbPuhZNQYOjARgS31pcJR63Cyps7REbqmdbF8i6rZ80LNqDBwYCcCW+tLgKPW4WVJnaYnQUjvWvlzUbfmgZ9UYODASgC31pcFR6nGzpM7SGInldaB3Ganb8qpt4bPKFHLHsakArKgvDY5Sj5sldZbGSCyvA73LSN2WV20Ln1KpljuOTQVgRX1pcJR63CypszRGaAPBT36md+mo2/KqbeFTKtVyx7GpAKyoLw2OUo+bJXWWlghtLPjhj7UvF3VbXrUt/L5i5dxxbCoAK+pLg6PU42ZJnaUZcht7njns4Q93MAt1W161Lfy+YuXccWwqACvqS4Oj1ONmSZ2lDaK79ODdnpO6La/aFn5TvYruODYVgBX1pcFR6nGzpM7SAOldejlqzJML+xiZui2v2hZ+U72K7jg2FYAV9aXBUepxs6TO0gDpjX08Z8DDC/sYmbotH/Ss+o6qdV06MBKALfWlwVHqcbOkztIA6Y19PGfAwwv7GJm6LR/0rPqOqnVdOjASgC31pcFR6nGzpM7SDLl9NDhqtCoOdzALdVs+6Fn1pcKlXXIdBsCD+tLgKPW4WVJneVS3TC5rCVWs45Rnpm7LZw1LvlS7ujHXeQA8qC8NjlKPmyV1lqe1CuSynFD1us96Tuq2fNaw5LHyBY45TQLgR31pcJR63CypsxRoksbNcuJUfWjis1G35atu9Y51qHHAaRgAP+pLg6PU42ZJnaVG+SimyglS+9G5z0PdlpFWxQ70qfQb80kAvKkvDY5Sj5sldZYytXOYqihI+YLpz0Ddlgutiv2mT6Xf2I4BcID60uAo9bhZUmepVDWEhYoihCC7A7Gp23KtT6Ufdav3I6sZAI5RXxocpR43S+osYWy5p/JhUF+FoLRNualDjd/0rBoAEtn8SIWizhLGlnsqHwb1VQhK25T7yhf4UZPmAkBqm7s6FHWWsLTZUO08qK9CUMKOLChc2kfd+gsAGe3v6jjUWcKMSTeFI6G+CkGp2rGpXkXvOvcXABIxWddBqLOEGZNuCkdCfRWCUrUDl2gxAKRgta4jUGcJGwWmwraEMiS9wCVaDABZGG5sOXWWwH+pr0JQ6rbgM7oMAFnYbmwtdZYAkAx7GAByMd/bKuogASATVjEApOO0ug9TpwgAybCNASAjp+19kjpCAMiEhQwAebnucFfq5AAgH9YyAKTmusadqDMDgHxYzgBQxoGVvk8dEgBkxYoGgKoObPg71DEAQAUsbQAAACA+3u0AAABAcMce7TzdAQAAgGW82wEAAIDgDj/aeboDAAAAC3i3AwAAAMFJHu083QEAAIApvNsBAACA4ISPdp7uAAAAwE3qZzvvdgAAAOCC+s3+X+oYAAAAgNDUD/b/UseABJgTAADQlvq1/i/qMBAdQ9KHeht9oI4EANCd+kv4L+owENrvhDAnTai30QfqSID0uF/AjmPfu/vUkSCuB+/2TtSr6AN1JEBWXDTAhNPXbYc6EsT14N3eiXoVfaCOBMiH6wZYMfyc2VIHg4j+DgZD0oF6D32gjgRIhht3EhmWt3mh/KiDQUQP3u3NqPfQB+pIgEy4d2cQYx9Wd8qcOhhE9ODd3ox6D32gjgTIgat3DDF2Y3659qkjQUTvg8GolKdeRR+oIwFy4OodQJgAwnpfNTWWj9lXreJm9gtnmTqSdVXrQkDcvjMIE0BY73umxuax+Z4VXct+4SxTR7Kual2Ihgt4BkkCa0x20RnqqNZ9O3zqon7R7gG/cJapI1lXtS6Ewh08gySBZSbX5wx1VB9sHj517b/m25i+5Pv8wlmmjmRd1bpcMTazrBIjzDGSBJaZXJ8z1FF95n2wsIX/6tbuKX7hLFNHsq5qXa4YmylWcZHnGEkCOwxvkDd1VF/5nS1y1b8atvs+v3CWqSNZV7UuV4zNFKu4yHOMJIEdhjfImzqqEfMTxi/5V8923+QXzjJ1JOuq1uWKsZliFRd5jpEksMPwBnlTR3XN6pApiv3Vud2X/MJZpo4ERzE291llRaSXiBHYYXiDvKmjumX/nFkq/dW83WN+4SxTR4KjGJv7rLIi0kvEOGAYTvMkC1MNyQJ1VHctnzZXmb9o94BfOMvUkeAoxuY+q6yI9A5i/MYqGZIsTDUkC9RRzZk9cLoCf9HuAb9wlqkjwVGMzX1WWRHpHWT4jUkyhFmbakgWqKOadv/MGav7RbsH/MJZpo4ERzE291llRaQ3EeBHJtNFnrWphmSBOqpp98+csbpftHvAL5xl6khwFGNzn1VWRHoTAX5kMl3kWZtqSBaoo5p2/8wZq/tFuwf8wlmmjgRHMTb3WWVFpPeR3jvDGSPSqlRDskAd1ZzZA6cr8BftHvALZ5k6EhzF2NxnlRWRTiG6F+aTRqr1qIZkgTqqObMHTlfgL9o94BfOMnUkOIqxuc8qKyJdQGhPrlPXPNsyVEOyQB3VnG8Hnv37wdHuAb9wlqkjwVGMzRSruMhzGXEdG8LOIWenGpIF6qgmfDzts4pv5eSq8RftHvALZ5k6EhzF2Eyxios8Afg5tqn2qaOa8H7atb8TH+0e8Atn2cmKTDIEjnG6dFwNAIaObap96qgm/D3t4PAv/1KuGn/R7lboIGpz2mbcCwBWDqwpK+qo7npMPsVn//lQaHcrdPCjVsXW5rPMmt4LAB4OrCkr6qjuegz/Q+zf/sjzTzmezAHtboUOvnvkvLn4xmWdNbsUAPy47ihb6qjuWj5trjJ/0e5W6OC7B+/2clw2GhMCwILTgvKgjuqWzaMmqvRX83Z3QwdfPDL/h9zwjctGYzwAWHBaUB7UUeED2t0KHfzrvcYOVTfBQgMA1GP+deMzFxkd/Ou9xg5Vt8I2AwBUYvVd40uXAh18+lZg+cK7YY8BAMrY/KjxvcuFDj59K7B84Q2xxAAAQDo8Wn6Nq6tde1sMPwAASISny8/8/zM1FNNw5gEAQDq82394twMAACA83u0kAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMz6P16MZ2c=');
  80.   end;
  81.   TPA := GetBitmapColorTPA(bmp, 0);
  82.   t := GetSystemTime;
  83.   ATPA := ClusterTPA(TPA, DIST);
  84.   WriteLn('ClusterTPA took ' + IntToStr(GetSystemTime - t) + ' ms.');
  85.   WriteLn('Groups: ' + IntToStr(Length(ATPA)));
  86.   DrawBounds(bmp, ATPA, 13387839);
  87.   DebugBitmap(bmp);
  88.   SetLength(ATPA, 0);
  89.   t := GetSystemTime;
  90.   ATPA := SplitTPA(TPA, DIST);
  91.   WriteLn('SplitTPA took ' + IntToStr(GetSystemTime - t) + ' ms.');
  92.   WriteLn('Groups: ' + IntToStr(Length(ATPA)));
  93.   DrawBounds(bmp, ATPA, 5026082);
  94.   DebugBitmap(bmp);
  95. end;
  96.  
  97. begin
  98.   Test;
  99. end.
Advertisement
Add Comment
Please, Sign In to add comment