15 lines
455 B
Plaintext
15 lines
455 B
Plaintext
$ include "seed7_05.s7i";
|
|
include "draw.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var PRIMITIVE_WINDOW: myPixmap is PRIMITIVE_WINDOW.value;
|
|
var color: myColor is black;
|
|
begin
|
|
myPixmap := newPixmap(300, 200);
|
|
clear(myPixmap, light_green);
|
|
point(myPixmap, 20, 30, color(256, 512, 768));
|
|
myColor := getPixelColor(myPixmap, 20, 30);
|
|
writeln(myColor.redLight <& " " <& myColor.greenLight <& " " <& myColor.blueLight);
|
|
end func;
|