var picID : int
picID := Pic.FileNew ("picture.bmp")
var newPicID : int
newPicID := Pic.Scale (picID, 200, 200)
Pic.Draw (newPicID, 0, 0, picCopy)
var colours : array 1 .. 200, 1 .. 200 of int
for x : 1 .. 200
for y : 1 .. 200
colours (x, y) := whatdotcolour (x, y)
end for
end for
cls
for x : 1 .. 100
for y : 1 .. 100
drawdot (x, y, colours (x, y))
end for
end for
for x : 101 .. 200
for y : 101 .. 200
drawdot (x, y, colours (x, y))
end for
end for
for x : 1 .. 100
for y : 101 .. 200
drawdot (x, y, colours (x, y) div 2)
end for
end for
for x : 101 .. 200
for y : 1 .. 100
drawdot (x, y, colours (x, y) div 2)
end for
end for
|