diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2014-06-06 10:16:16 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2014-06-06 10:16:16 -0400 |
| commit | 7795d6e35e067e54f14ff34a9cf5a2a96c0becb7 (patch) | |
| tree | 790ab1b00ac36eb3238cacfb6d9c383af83722d0 /constants.f90 | |
| download | fetris-7795d6e35e067e54f14ff34a9cf5a2a96c0becb7.tar.gz fetris-7795d6e35e067e54f14ff34a9cf5a2a96c0becb7.zip | |
Initial code commit for Fetris.
Diffstat (limited to 'constants.f90')
| -rw-r--r-- | constants.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/constants.f90 b/constants.f90 new file mode 100644 index 0000000..c6b22fc --- /dev/null +++ b/constants.f90 @@ -0,0 +1,17 @@ +module m_constants + + integer, parameter::ROWS = 22 + integer, parameter::COLUMNS = 10 + + integer, parameter::ROW_VALUE = 100 + + integer, parameter::DOWN = 1 + integer, parameter::LEFT = 2 + integer, parameter::RIGHT = 3 + + integer, parameter::SCREEN_W = 640 + integer, parameter::SCREEN_H = 480 + + real, parameter::UPDATE_SECONDS = 0.4 + +end module m_constants |