gen_region_runs算子

dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowID)
Button := 1
Rows := []
Cols := []
dev_set_color ('red')
dev_clear_window ()

*这个循环是一直等到按鼠标右键结束
while (Button == 1)
    * Click with the mouse to specify start points of runs
    * To quit loop use right mouse button
    *获取鼠标点击的位置，Row，Column
    get_mbutton (WindowID, Row, Column, Button)
    *把鼠标点位置拼接到数组里面
    Rows := [Rows,Row]
    Cols := [Cols,Column]
    *在鼠标点击位置绘制一个半径3的圆点 
    disp_circle (WindowID, Row, Column, 3)
endwhile
dev_set_color ('green')
*根据鼠标点的数组，生成对应的行程
gen_region_runs (Region, Rows, Cols, Cols + 40)
dev_display (Region)

=====================================================

gen_region_runs( : Region : Row, ColumnBegin, ColumnEnd : )
gen_region_runs创建一个由输入runlength结构描述的区域。
runlength表示通过逐行检查带升序行号(=从“top”到“bottom”)的区域来创建。
每一行从左到右贯穿。
一个区域可以由一系列游和来描述，
一个游程由行号以及开始和结束点(列号)定义。