From cfbab1a4d15174c88e538eb18cfaf43650442319 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Sun, 27 Jul 2014 17:32:57 -0400 Subject: Added colors to the pieces. Score is now bigger. --- piece.f90 | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) (limited to 'piece.f90') diff --git a/piece.f90 b/piece.f90 index 66c3b32..6d48b1c 100644 --- a/piece.f90 +++ b/piece.f90 @@ -10,6 +10,7 @@ contains function new_piece() use m_constants + use bgi implicit none type(piece)::new_piece @@ -26,24 +27,24 @@ contains select case (rint) case (0) - new_piece%blocks(1:2,1:2) = 1 + new_piece%blocks(1:2,1:2) = BLUE case (1) - new_piece%blocks(:,2) = 1 + new_piece%blocks(:,2) = LIGHTGREEN case (2) - new_piece%blocks(2,1:3) = 1 - new_piece%blocks(1,2) = 1 + new_piece%blocks(2,1:3) = RED + new_piece%blocks(1,2) = RED case (3) - new_piece%blocks(1,2:3) = 1 - new_piece%blocks(2,1:2) = 1 + new_piece%blocks(1,2:3) = MAGENTA + new_piece%blocks(2,1:2) = MAGENTA case (4) - new_piece%blocks(2,2:3) = 1 - new_piece%blocks(1,1:2) = 1 + new_piece%blocks(2,2:3) = CYAN + new_piece%blocks(1,1:2) = CYAN case (5) - new_piece%blocks(0:2,1) = 1 - new_piece%blocks(2,2) = 1 + new_piece%blocks(0:2,1) = GREEN + new_piece%blocks(2,2) = GREEN case (6) - new_piece%blocks(0:2,2) = 1 - new_piece%blocks(2,1) = 1 + new_piece%blocks(0:2,2) = LIGHTRED + new_piece%blocks(2,1) = LIGHTRED end select end function -- cgit v1.2.3