Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. -- draw grid - rgb (matchcolor) - Copyright 2010 Paulo Silva
  2. -- 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/>
  3. w,h=getpicturesize()
  4. 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);
  5. if ok==true then
  6.   c=matchcolor(r,g,b)
  7.   for y=0,h-1,1 do
  8.     for x=0,w-1,xsiz do
  9.       putpicturepixel(x,y,c);
  10.       end;end
  11.   for y=0,h-1,ysiz do
  12.     for x=0,w-1,1 do
  13.       putpicturepixel(x,y,c);
  14.       end;end;end
  15.