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 /screen.f90 | |
| parent | 7795d6e35e067e54f14ff34a9cf5a2a96c0becb7 (diff) | |
| download | fetris-cfbab1a4d15174c88e538eb18cfaf43650442319.tar.gz fetris-cfbab1a4d15174c88e538eb18cfaf43650442319.zip | |
Added colors to the pieces. Score is now bigger.
Diffstat (limited to 'screen.f90')
| -rw-r--r-- | screen.f90 | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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) |