Putpixel color

[lindschouw]

The following proggy shoud not result in horisontal stripes but be one long gradient from top to bottom.

program map; uses crt, graph; var graphicsDriver, graphicsMode, x,y,k: Integer;

begin { main } graphicsDriver := Detect; InitGraph(graphicsDriver, graphicsMode, ''); k:=int(getMaxX()/2/pi); for x:=1 to getMaxX() do for y:=1 to getMaxY() do begin putPixel(x,y,y); end; end.