Section Header

    + name := AI_MOVE;

    - comment := "Operation: move.";

    - version := 1;

Section Inherit

    - parent_ai_operation:AI_OPERATION :=

Section Public

    + x:REAL_16_16;

    + y:REAL_16_16;

Creation.


    - create (lx,ly:REAL_16_16) :SELF <-

    - make (lx,ly:REAL_16_16) <-

Draw.


    - draw_stroke b:BITMAP scale s:REAL_16_16 <-

    - draw_fill b:BITMAP scale s:REAL_16_16 <-

Display.


    - display <-