Author: jsuijs
Date: Sun Apr 5 14:17:08 2009
New Revision: 916
Modified:
trunk/include/external/lcd/glcd_common.jal
trunk/include/external/lcd/lcd_ks0108.jal
trunk/include/peripheral/pwm/pwm_ccp1.jal
Log:
Modified: trunk/include/external/lcd/glcd_common.jal
==============================================================================
--- trunk/include/external/lcd/glcd_common.jal (original)
+++ trunk/include/external/lcd/glcd_common.jal Sun Apr 5 14:17:08 2009
@@ -33,7 +33,7 @@
if xfark >= yfark then fark = xfark else fark = yfark end if
xx = 0
for fark loop
- glcd_write_pixel ( xi, yi ,1)
+ lcd_write_pixel ( xi, yi ,1)
if xx < xfark then
if x1 >= x0 then xi = xi + 1 else xi = xi - 1 end if
end if
@@ -47,10 +47,10 @@
-- ----------------------------------------------------------
-- ----------------------------------------------------------
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 )
- glcd_line ( x0,y1, x0,y0 )
+ lcd_line ( x0,y0, x1,y0 )
+ lcd_line ( x1,y0, x1,y1 )
+ lcd_line ( x1,y1, x0,y1 )
+ lcd_line ( x0,y1, x0,y0 )
end procedure
@@ -62,7 +62,7 @@
-- Pseudo variable 'lcd' as alternative for lcd_writechar(<byte>)
-- ----------------------------------------------------------
procedure lcd'put(byte in char) is
- glcd_write_char(glcd_char_x_pos, glcd_char_y_pos, char)
+ lcd_write_char(glcd_char_x_pos, glcd_char_y_pos, char)
glcd_char_x_pos = glcd_char_x_pos + 5
end procedure
@@ -80,7 +80,7 @@
-- (and set the cursor to the upper left corner: row 0, column 0)
-- ------------------------------------------------------------
procedure lcd_clearscreen() is
- glcd_fill(0) -- Clear the display
+ lcd_fill(0) -- Clear the display
glcd_char_x_pos = 0;
glcd_char_y_pos = 0;
end procedure
Modified: trunk/include/external/lcd/lcd_ks0108.jal
==============================================================================
--- trunk/include/external/lcd/lcd_ks0108.jal (original)
+++ trunk/include/external/lcd/lcd_ks0108.jal Sun Apr 5 14:17:08 2009
@@ -209,9 +209,9 @@
_ks0108_page (KS0108_RIGHT,0)
_ks0108_column(KS0108_LEFT ,0) -- Set the column address to 0
_ks0108_column(KS0108_RIGHT,0)
- glcd_on() -- Turn the display on
+ lcd_on() -- Turn the display on
- glcd_fill(0) -- Clear the display
+ lcd_fill(0) -- Clear the display
end procedure
Modified: trunk/include/peripheral/pwm/pwm_ccp1.jal
==============================================================================
--- trunk/include/peripheral/pwm/pwm_ccp1.jal (original)
+++ trunk/include/peripheral/pwm/pwm_ccp1.jal Sun Apr 5 14:17:08 2009
@@ -13,8 +13,8 @@
-- Stef's lib
--
-var byte ccpr1l_shadow
-var byte ccp1con_shadow
+var byte ccpr1l_shadow = 0
+var byte ccp1con_shadow = 0
-- Sets dutycyle in low resolution mode.
-- The 2 LSbits take their value from ccp1con_shadow, by default 0
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
