View.WhatDotColor | Part 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.
|