Lua scripts: Added the 'table' library. Added GPL headers to DawnBringer's scripts (thanks!). 2 cosmetic fixes in scripts.

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1391 416bcca6-2ee7-4201-b75f-2eb2f807beb1

share/grafx2/scripts/bru_db_Amigaball.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 --http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/bru_db_ColorSphere.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 --http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/bru_db_FindAA.lua

@@ -2,6 +2,12 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
 
 cellw = 8
 cellh = 4

share/grafx2/scripts/bru_db_Fisheye.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 --http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/bru_db_GrayscaleAvg.lua

@@ -2,6 +2,12 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
 
 w, h = getbrushsize()
 

share/grafx2/scripts/bru_db_GrayscaleDesat.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 --http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 
@@ -12,9 +19,9 @@ percent = 100
 function desaturate(percent,r,g,b) -- V1.0 by Richard Fhager
  p = percent / 100
  a = (math.min(math.max(r,g,b),255) + math.max(math.min(r,g,b),0)) * 0.5 * p
- r = math.min(math.max(r + (a-r*p),0),255) -- Capping may not be needed if mathcolor/setcolor is updated
+ r = r + (a-r*p)
- g = math.min(math.max(g + (a-g*p),0),255)
+ g = g + (a-g*p)
- b = math.min(math.max(b + (a-b*p),0),255)
+ b = b + (a-b*p)
  return r,g,b
 end
 --

share/grafx2/scripts/bru_db_Halfsmooth.lua

@@ -2,6 +2,12 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
 
 w, h = getbrushsize()
 

share/grafx2/scripts/bru_db_Mandelbrot.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 --http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/bru_db_Waves.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/pal_db_Desaturate.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/pal_db_ExpandColors.lua

@@ -4,7 +4,14 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
 --
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
+
 -- Continously fill the greatest void in the area of the color-cube enclosed by (or along ramps of) initial colors
 -- This algorithm will create lines of allowed colors (all ranges) in 3d colorspace and the pick
 -- new colors from the most void areas (on any line). Almost like a Median-cut in reverse.

share/grafx2/scripts/pal_db_FillColorCube.lua

@@ -4,6 +4,13 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 --
 -- Create a palette by continously filling the greatest void in the RGB color-cube
 --

share/grafx2/scripts/pal_db_InvertedRGB.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 

share/grafx2/scripts/pal_db_Set3bit.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 
 -- Generate palette of all colors possible with a given number of shades for each channel
 -- 2 shades = 1 bit / channel = 3 bit palette = 2^3 colors =  8 colors

share/grafx2/scripts/pal_db_Set6bit.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 
 -- Generate palette of all colors possible with a given number of shades for each channel
 -- 2 shades = 1 bit / channel = 3 bit palette = 2^3 colors =  8 colors

share/grafx2/scripts/pal_db_SetC64Palette.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 
 OK,clean = inputbox("C64 Palette:", "Remove old palette", 0,  0,1,0 
 );

share/grafx2/scripts/pal_db_ShiftHue.lua

@@ -2,19 +2,19 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 
 
 --Shift_degrees = 45
 
---ok, w, h, xflip, yflip = inputbox("Modify brush",
---  "Width",  w, 1,100,0,
---  "Height", h, 1,100,0,
---  "X-Flip", 0, 0, 1,0,
---  "Y-Flip", 0, 0, 1,0
---);
-
 OK,Shift_degrees = inputbox("Shift Hue v0.9","Degrees", 45, 0,360,3);
 
 

share/grafx2/scripts/pic_db_Pic2isometric.lua

@@ -4,6 +4,14 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
+
 -- Color 0 is assumed to be the background
 --
 

share/grafx2/scripts/pic_db_Rainbow-Dark2Bright.lua

@@ -4,6 +4,13 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 --

share/grafx2/scripts/pic_db_SierpinskyCarpet.lua

@@ -4,6 +4,13 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 --

share/grafx2/scripts/pic_db_SierpinskyTriangle.lua

@@ -4,6 +4,13 @@
 -- Email: dawnbringer@hem.utfors.se
 -- MSN:   annassar@hotmail.com
 --
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 -- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
 -- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
 --

share/grafx2/scripts/scn_db_RemapImage2RGB.lua

@@ -2,7 +2,12 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
-
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
 
 -- Set Palette (to a predefined one)
 

share/grafx2/scripts/scn_db_RemapImage2RGB_ed.lua

@@ -2,6 +2,13 @@
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
 
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 
 power = 0.615
 

share/grafx2/scripts/scn_db_RemapImageTo3bitPal.lua

@@ -1,6 +1,14 @@
 --SCENE: Remap pic to 3bit, LineEDdith. (Same line simple error-diffusion dither)
 --by Richard Fhager 
 --http://hem.fyristorg.com/dawnbringer/
+
+-- Copyright 2010 Richard Fhager
+--
+-- 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; version 2
+-- of the License. See <http://www.gnu.org/licenses/>
+
 --
 -- Just a demonstration.
 --

src/factory.c

@@ -1001,7 +1001,13 @@ void Button_Brush_Factory(void)
     // luaL_openlibs(L);
     
     luaopen_base(L);
+    //luaopen_package(L); // crashes on Windows, for unknown reason
+    luaopen_table(L);
+    //luaopen_io(L); // crashes on Windows, for unknown reason
+    //luaopen_os(L);
+    //luaopen_string(L);
     luaopen_math(L);
+    //luaopen_debug(L);
 
     strcat(scriptdir, selected_script);