From 9f2195f19581868ef24fc466f7083939082e31aa Mon Sep 17 00:00:00 2001
From: Ivan Mahonin <bh@icystar.com>
Date: Jan 18 2019 19:30:01 +0000
Subject: lazarus: fix snake


---

diff --git a/lazarus/snake/unit1.pas b/lazarus/snake/unit1.pas
index f5a405a..94d2958 100644
--- a/lazarus/snake/unit1.pas
+++ b/lazarus/snake/unit1.pas
@@ -163,7 +163,7 @@ begin
   Canvas.Pen.Width := 2*pointR;
   Canvas.Polyline(points);
 
-  Canvas.Pen.Color := clBlue;
+  Canvas.Pen.Color := clRed;
   Canvas.Pen.Width := 2*ballR;
   Canvas.MoveTo(round(ball.x), round(ball.y));
   Canvas.LineTo(round(ball.x), round(ball.y));