Author: jsuijs
Date: Thu Feb 19 10:38:37 2009
New Revision: 802
Modified:
trunk/include/external/lcd/glcd_common.jal
Log:
jsg fixes
Modified: trunk/include/external/lcd/glcd_common.jal
==============================================================================
--- trunk/include/external/lcd/glcd_common.jal (original)
+++ trunk/include/external/lcd/glcd_common.jal Thu Feb 19 10:38:37 2009
@@ -22,7 +22,7 @@
-- ----------------------------------------------------------
-- ----------------------------------------------------------
-procedure glcd_line ( byte in x0, byte in y0, byte in x1, byte in y1 ) is
+procedure glcd_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 glcd_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 )
@@ -61,7 +61,7 @@
-- ----------------------------------------------------------
-- Pseudo variable 'lcd' as alternative for lcd_writechar(<byte>)
-- ----------------------------------------------------------
-procedure lcd'put (byte in char) is
+procedure lcd'put(byte in char) is
glcd_write_char(glcd_char_x_pos, glcd_char_y_pos, char)
glcd_char_x_pos = glcd_char_x_pos + 5
end procedure
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
