Author: jsuijs
Date: Sun Feb 22 10:20:28 2009
New Revision: 805
Modified:
trunk/include/external/lcd/glcd_common.jal
trunk/include/external/lcd/lcd_ks0108.jal
Log:
decided not to use glcd prefix, but provide these functions with lcd prefix.
Modified: trunk/include/external/lcd/glcd_common.jal
==============================================================================
--- trunk/include/external/lcd/glcd_common.jal (original)
+++ trunk/include/external/lcd/glcd_common.jal Sun Feb 22 10:20:28 2009
@@ -22,7 +22,7 @@
-- ----------------------------------------------------------
-- ----------------------------------------------------------
-procedure glcd_line(byte in x0, byte in y0, byte in x1, byte in y1) is
+procedure lcd_line(byte in x0, byte in y0, byte in x1, byte in y1) is
var byte xi,yi , xfark,yfark, fark , xx
xi = x0
@@ -46,7 +46,7 @@
-- ----------------------------------------------------------
-- ----------------------------------------------------------
-procedure glcd_box(byte in x0, byte in y0, byte in x1, byte in y1) is
+procedure lcd_box(byte in x0, byte in y0, byte in x1, byte in y1) is
glcd_line ( x0,y0, x1,y0 )
glcd_line ( x1,y0, x1,y1 )
glcd_line ( x1,y1, x0,y1 )
Modified: trunk/include/external/lcd/lcd_ks0108.jal
==============================================================================
--- trunk/include/external/lcd/lcd_ks0108.jal (original)
+++ trunk/include/external/lcd/lcd_ks0108.jal Sun Feb 22 10:20:28 2009
@@ -76,13 +76,13 @@
end function
-- Purpose: Turn the display on
-procedure glcd_on() is
+procedure lcd_on() is
_ks0108_write(KS0108_LEFT, KS0108_CMD_ON)
_ks0108_write(KS0108_RIGHT, KS0108_CMD_ON)
end procedure
-- Purpose: Turn the display off
-procedure glcd_off() is
+procedure lcd_off() is
_ks0108_write(KS0108_LEFT, KS0108_CMD_OFF)
_ks0108_write(KS0108_RIGHT, KS0108_CMD_OFF)
end procedure
@@ -113,7 +113,7 @@
-- Inputs: 1) x - the x coordinate of the pixel
-- 2) y - the y coordinate of the pixel
-- 3) color - ON or OFF
-procedure glcd_write_pixel(byte in x, byte in y, bit in onoff) is
+procedure lcd_write_pixel(byte in x, byte in y, bit in onoff) is
var byte data , yy
var byte side = KS0108_LEFT -- Stores which chip to use on the LCD
@@ -163,7 +163,7 @@
-- Purpose: Fill the LCD screen with the passed in color
-- Inputs: ON - turn all the pixels on
-- OFF - turn all the pixels off
-procedure glcd_fill(byte in data) is
+procedure lcd_fill(byte in data) is
var byte i, j
i = 0 -- Loop through the vertical pages
for 8 loop
@@ -313,7 +313,7 @@
;; Writes an inverted character to the display
;; note: the vertical position of chars is in 8-bit steps.
-procedure glcd_write_char(byte in x, byte in y, byte in ch ) is
+procedure lcd_write_char(byte in x, byte in y, byte in ch ) is
var word indx = 0
var byte cx
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
