21 lines
520 B
Plaintext
21 lines
520 B
Plaintext
-- Some colour constants:
|
|
constant black = #000000,
|
|
-- blue = #0000FF,
|
|
-- green = #00FF00,
|
|
-- red = #FF0000,
|
|
white = #FFFFFF
|
|
|
|
-- Create new image filled with some colour
|
|
function new_image(integer width, integer height, integer fill_colour=black)
|
|
return repeat(repeat(fill_colour,height),width)
|
|
end function
|
|
|
|
-- Usage example:
|
|
sequence image = new_image(800,600)
|
|
|
|
-- Set pixel color:
|
|
image[400][300] = white
|
|
|
|
-- Get pixel color
|
|
integer colour = image[400][300] -- Now colour is #FF0000
|