Section Header

    + name := EDGE;

    - comment := "Sub prototype for BITMAP.polygone";

Section Inherit

    - parent_object:OBJECT :=

Section Public
Make.

    + y:INTEGER;

    + x:INTEGER;

    + width:INTEGER;

    + dx:INTEGER;
        REAL_24_8

    + is_down:BOOLEAN;

    + is_point:BOOLEAN;

    - x0:INTEGER <-

    - y0:INTEGER <-

    - x1:INTEGER <-

    - y1:INTEGER <-

    + next_y:EDGE;

    + prev_x:EDGE;
        doubly linked list

    + next_x:EDGE;

Function.


    - make (xx,yy:INTEGER) add inc:INTEGER <-
        Flat.

    - make (xx,yy:INTEGER) to (xx1,yy1:INTEGER) <-
        Line.

    - set_next_x new:EDGE <-

    - set_prev_x new:EDGE <-

    - set_next_y new:EDGE <-

    - add old_root:EDGE :EDGE <-
        Double link and sort with X.

    - next_line old_root:EDGE :EDGE <-
        Remove double link.

    - new_step <-