From 06ba3cceec94e8bed4ebd4bb52a949a2fbff50df Mon Sep 17 00:00:00 2001
From: Maurus Cuelenaere <mcuelenaere@gmail.com>
Date: Mon, 25 May 2009 14:21:17 +0000
Subject: Lua: port viewports + add test_viewports.lua

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21076 a1c6a512-1295-4272-9138-f99709370657
---
 apps/plugins/test_viewports.lua | 116 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)
 create mode 100644 apps/plugins/test_viewports.lua

(limited to 'apps/plugins/test_viewports.lua')

diff --git a/apps/plugins/test_viewports.lua b/apps/plugins/test_viewports.lua
new file mode 100644
index 0000000000..5af1ef4fb9
--- /dev/null
+++ b/apps/plugins/test_viewports.lua
@@ -0,0 +1,116 @@
+--[[
+             __________               __   ___.
+   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+                     \/            \/     \/    \/            \/
+ $Id$
+
+ Port of test_viewports.c to Lua
+
+ Copyright (C) 2009 by Maurus Cuelenaere
+
+ This program is free software; you can redistribute it and/or
+ modify it under the terms of the GNU General Public License
+ as published by the Free Software Foundation; either version 2
+ of the License, or (at your option) any later version.
+
+ This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+ KIND, either express or implied.
+
+]]--
+
+-- TODO: outsource this
+rb.DRMODE_SOLID = 3
+rb.LCD_BLACK = rb.lcd_rgbpack(0, 0, 0)
+rb.LCD_WHITE = rb.lcd_rgbpack(255, 255, 255)
+rb.LCD_DEFAULT_FG = rb.LCD_WHITE
+rb.LCD_DEFAULT_BG = rb.LCD_BLACK
+
+BGCOLOR_1 = rb.lcd_rgbpack(255,255,0)
+BGCOLOR_2 = rb.lcd_rgbpack(0,255,0)
+FGCOLOR_1 = rb.lcd_rgbpack(0,0,255)
+
+local vp0 =
+{
+    x        = 0,
+    y        = 0,
+    width    = rb.LCD_WIDTH,
+    height   = 20,
+    font     = rb.FONT_UI,
+    drawmode = rb.DRMODE_SOLID,
+    fg_pattern = rb.LCD_DEFAULT_FG,
+    bg_pattern = BGCOLOR_1
+}
+
+local vp1 =
+{
+    x        = rb.LCD_WIDTH / 10,
+    y        = 20,
+    width    = rb.LCD_WIDTH / 3,
+    height   = rb.LCD_HEIGHT / 2,
+    font     = rb.FONT_SYSFIXED,
+    drawmode = rb.DRMODE_SOLID,
+    fg_pattern = rb.LCD_DEFAULT_FG,
+    bg_pattern = rb.LCD_DEFAULT_BG
+};
+
+local vp2 =
+{
+    x        = rb.LCD_WIDTH / 2,
+    y        = 40,
+    width    = rb.LCD_WIDTH / 3,
+    height   = (rb.LCD_HEIGHT / 2),
+    font     = rb.FONT_UI,
+    drawmode = rb.DRMODE_SOLID,
+    fg_pattern = FGCOLOR_1,
+    bg_pattern = BGCOLOR_2
+};
+
+
+local vp3 =
+{
+    x        = rb.LCD_WIDTH / 4,
+    y        = (5 * rb.LCD_HEIGHT) / 8,
+    width    = rb.LCD_WIDTH / 2,
+    height   = (rb.LCD_HEIGHT / 4),
+    font     = rb.FONT_SYSFIXED,
+    drawmode = rb.DRMODE_SOLID,
+    fg_pattern = rb.LCD_BLACK,
+    bg_pattern = rb.LCD_WHITE
+};
+
+rb.set_viewport(vp0)
+rb.clear_viewport()
+rb.lcd_puts_scroll(0,0,"Viewport testing plugin - this is a scrolling title")
+
+rb.set_viewport(vp1);
+rb.clear_viewport();
+
+for i = 0, 3 do
+    rb.lcd_puts_scroll(0,i,string.format("Left text, scrolling_line %d",i));
+end
+
+rb.set_viewport(vp2);
+rb.clear_viewport();
+for i = 0, 3 do
+    rb.lcd_puts_scroll(1,i,string.format("Right text, scrolling line %d",i));
+end
+
+local y = -10
+for i = -10, vp2.width + 10, 5 do
+    rb.lcd_drawline(i, y, i, vp2.height - y);
+end
+
+rb.set_viewport(vp3);
+rb.clear_viewport();
+for i = 1, 2 do
+    rb.lcd_puts_scroll(2,i,string.format("Bottom text, a scrolling line %d",i));
+end
+rb.lcd_puts_scroll(4,3,"Short line")
+rb.lcd_update()
+
+rb.button_get(true)
+
+rb.set_viewport()
\ No newline at end of file
-- 
cgit v1.2.3