Anonymous user
Colour pinstripe/Display: Difference between revisions
→{{header|Lua}}: added Lua solution
Puppydrum64 (talk | contribs) |
(→{{header|Lua}}: added Lua solution) |
||
Line 1,028:
}
}</lang>
=={{header|Lua}}==
{{libheader|nw}}
{{libheader|cairo}}
<lang lua>local nw = require("nw")
local app = nw:app()
local cw, ch = 320, 240
local win = app:window(cw, ch, "Color Pinstripe", false)
local colors = {{0,0,0}, {1,0,0}, {0,1,0}, {0,0,1}, {1,0,1}, {0,1,1}, {1,1,0}, {1,1,1}}
local unpack = unpack or table.unpack -- polyfill 5.2 vs 5.3
function win:repaint()
local cr = win:bitmap():cairo()
local ystride = ch/4
for y = 0, ch-1, ystride do
local i, xstride = 1, y/ystride+1
for x = 0, cw-1, xstride do
cr:rectangle(x, y, xstride, ystride)
cr:rgb(unpack(colors[i]))
cr:fill()
i = (i % #colors) + 1
end
end
end
win:show()
app:run()</lang>
=={{header|M2000 Interpreter}}==
| |||