diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2014-07-27 17:32:57 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2014-07-27 17:32:57 -0400 |
| commit | cfbab1a4d15174c88e538eb18cfaf43650442319 (patch) | |
| tree | aca9b89ca92765ccfccba0ab229305ab3c86ec0c /piece.f90 | |
| parent | 7795d6e35e067e54f14ff34a9cf5a2a96c0becb7 (diff) | |
| download | fetris-cfbab1a4d15174c88e538eb18cfaf43650442319.tar.gz fetris-cfbab1a4d15174c88e538eb18cfaf43650442319.zip | |
Added colors to the pieces. Score is now bigger.
Diffstat (limited to 'piece.f90')
| -rw-r--r-- | piece.f90 | 25 |
1 files changed, 13 insertions, 12 deletions
@@ -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 |