Revision: 1221
Author: jsuijs
Date: Wed Aug 19 11:15:25 2009
Log: common anode support for seven_segment.jal
http://code.google.com/p/jallib/source/detail?r=1221
Modified:
/trunk/include/external/seven_segment/seven_segment.jal
=======================================
--- /trunk/include/external/seven_segment/seven_segment.jal Tue Aug 18
00:24:33 2009
+++ /trunk/include/external/seven_segment/seven_segment.jal Wed Aug 19
11:15:25 2009
@@ -32,6 +32,18 @@
--
+if (defined(seven_segment_common_anode) == false) then
+ const bit seven_segment_common_anode = false -- default is
common_cathode
+end if
+
+
+if (seven_segment_common_anode == true) then
+ const _seven_common_mask = 0xff
+else
+ const _seven_common_mask = 0x00
+end if
+
+
if (defined(seven_segment_a) == false) then
-- Default segment setup gfe dcba
const byte seven_segment_a = 0b_0000_0001
@@ -47,127 +59,145 @@
const byte seven_value_space[] = {
-- const byte seven_value_0
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_c
+ seven_segment_d
+ seven_segment_e
- + seven_segment_f,
+ + seven_segment_f ),
-- const byte seven_value_1
+ _seven_common_mask ^ (
seven_segment_b
- + seven_segment_c,
+ + seven_segment_c ),
-- const byte seven_value_2
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_d
+ seven_segment_e
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_3
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_c
+ seven_segment_d
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_4
+ _seven_common_mask ^ (
seven_segment_b
+ seven_segment_c
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_5
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_c
+ seven_segment_d
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_6
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_c
+ seven_segment_d
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_7
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
- + seven_segment_c,
+ + seven_segment_c ),
-- const byte seven_value_8
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_c
+ seven_segment_d
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_9
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_c
+ seven_segment_d
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_a
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_b
+ seven_segment_c
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_b
+ _seven_common_mask ^ (
seven_segment_c
+ seven_segment_d
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_c
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_d
+ seven_segment_e
- + seven_segment_f,
+ + seven_segment_f ),
-- const byte seven_value_d
+ _seven_common_mask ^ (
seven_segment_b
+ seven_segment_c
+ seven_segment_d
+ seven_segment_e
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_e
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_d
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_value_f
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_e
+ seven_segment_f
- + seven_segment_g,
+ + seven_segment_g ),
-- const byte seven_letter_c (16)
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_f
+ seven_segment_e
- + seven_segment_d,
+ + seven_segment_d ),
-- const byte seven_letter_s (17)
+ _seven_common_mask ^ (
seven_segment_a
+ seven_segment_f
+ seven_segment_g
+ seven_segment_c
- + seven_segment_d
+ + seven_segment_d )
}
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en
-~----------~----~----~----~------~----~------~--~---
