samples_2.4 => samples

share/grafx2/scripts/samples/picture/DrawGridOrthogonal_RGB.lua

@@ -0,0 +1,14 @@
+-- draw grid - rgb (matchcolor) - Copyright 2010 Paulo Silva
+-- 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=getpicturesize()
+ok,xsiz,ysiz,r,g,b=inputbox("draw grid - rgb (matchcolor)","x size",8,1,64,5,"y size",8,1,64,6,"r",128,0,255,6,"g",128,0,255,6,"b",128,0,255,6);
+if ok==true then
+  c=matchcolor(r,g,b) 
+  for y=0,h-1,1 do 
+    for x=0,w-1,xsiz do 
+      putpicturepixel(x,y,c); 
+      end;end 
+  for y=0,h-1,ysiz do 
+    for x=0,w-1,1 do 
+      putpicturepixel(x,y,c); 
+      end;end;end