From cfbab1a4d15174c88e538eb18cfaf43650442319 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sun, 27 Jul 2014 17:32:57 -0400
Subject: Added colors to the pieces.  Score is now bigger.

---
 screen.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'screen.f90')

diff --git a/screen.f90 b/screen.f90
index d16f778..3be092f 100644
--- a/screen.f90
+++ b/screen.f90
@@ -32,6 +32,8 @@ contains
         scorex = xoffset + cell_size*COLUMNS + 40
         scorey = yoffset
         
+        call settextstyle(9, HORIZ_DIR, 2)
+        
     end subroutine init
     
     subroutine shutdown()
@@ -57,8 +59,8 @@ contains
             call setfillstyle(SOLID_FILL, BLACK)
             call setcolor(BLACK)
         else
-            call setfillstyle(SOLID_FILL, WHITE)
-            call setcolor(WHITE)
+            call setfillstyle(SOLID_FILL, v)
+            call setcolor(v)
         end if
         
         call bar(x, y, x+cell_size, y+cell_size)
-- 
cgit v1.2.3