Section Header
  
    + name    := AI_LINE;
  
  
    - comment := "Operation: line.";
  
    - 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 <-