From 7795d6e35e067e54f14ff34a9cf5a2a96c0becb7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Fri, 6 Jun 2014 10:16:16 -0400
Subject: Initial code commit for Fetris.

---
 constants.f90 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 constants.f90

(limited to 'constants.f90')

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
-- 
cgit v1.2.3