BlueGrey
calm
Elegant
Català-Valencià – Catalan
中文 – Chinese (Simplified)
中文 – Chinese (Traditional)
Česky – Czech
Dansk – Danish
Nederlands – Dutch
English – English
Suomi – Finnish
Français – French
Deutsch – German
עברית – Hebrew
हिंदी – Hindi
Magyar – Hungarian
Bahasa Indonesia – Indonesian
Italiano – Italian
日本語 – Japanese
한국어 – Korean
Македонски – Macedonian
मराठी – Marathi
Norsk – Norwegian
Polski – Polish
Português – Portuguese
Português – Portuguese (Brazil)
Русский – Russian
Slovenčina – Slovak
Slovenščina – Slovenian
Español – Spanish
Svenska – Swedish
Türkçe – Turkish
Українська – Ukrainian
Oëzbekcha – Uzbek
Subversion Repositories
Kolibri OS
(root)
/
data
/
common
/
media
/
grafx2
/
scripts
/
samples_2.4
/
picture
/
DrawGridOrthogonal_RGB.lua
– Rev 6581
Rev
Blame
|
Last modification
|
View Log
|
Download
|
RSS feed
-- 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