View.WhatDotColorPart of View module

Syntax   View.WhatDotColor ( x, y : int ) : int

Description   The View.WhatDotColor function is used to determine the color number of the specified pixel. The alternate spelling is View.WhatDotColour.

Example   This program draws a line which bounces off the edges of the screen and makes a beep when it finds a pixel that has already been colored.

        View.Set ( "graphics" )
        var x, y : int := 0
        var dx, dx : int := 1
        loop
            if View.WhatDotColor ( x, y ) not= 0 and
	            View.WhatDotColor ( x, y ) not= brightred then
                Draw.FillOval (x, y, 10, 10, brightred)
            end if
            Draw.Dot ( x, y, 1 )
            x := x + dx
            y := y + dy
            if x = 0 or x = maxx then
                dx := -dx
            end if
            if y = 0 or y = maxy then
                dy := -dy
            end if
        end loop
Execute  

Example   Another example illustrates the use of View.WhatDotColor to determine the color of pixels in a window painted with multi-color blocks. The actual color number appears in the block. The color of the dot under the mouse cursor appears in the upper-left corner of the window. Note that you can also place the mouse cursor over the black text indicating the color number.

Details   The screen should be in a"graphics" mode. If is not set to "graphics" mode, it will automatically be set to "graphics" mode. See View.Set for details.

Status   Exported qualified.

This means that you can only call the function by calling View.WhatDotColor, not by calling WhatDotColor.

See also   Draw.Dot, which is used for setting the color of a pixel. See also maxx and maxy, which are used to determine the number of pixels on the screen.