Section Header
  
    + name    := AI_BEZIER;
  
    - comment := "Operation: bezier";
  
    - version := 1;  
  
Section Inherit
  
  
    - parent_ai_operation:AI_OPERATION := 
  
Section Public
  
  
    + wx1:REAL_16_16;
  
    + wy1:REAL_16_16;
  
  
    + wx2:REAL_16_16;
  
    + wy2:REAL_16_16;
  
  
    + x:REAL_16_16;
  
    + y:REAL_16_16;
  
  
  
 Creation.
  
  
  
    - create_w1 (lx1,ly1:REAL_16_16) w2 (lx2,ly2:REAL_16_16) to (lx3,ly3:REAL_16_16) :SELF <-
    
  
    - make_w1 (lx1,ly1:REAL_16_16) w2 (lx2,ly2:REAL_16_16) to (lx3,ly3:REAL_16_16) <-
    
  
  
 Draw
  
  
    - draw_stroke b:BITMAP scale s:REAL_16_16 <-
  
  
    - draw_fill b:BITMAP scale s:REAL_16_16 <-
  
  
  
  
 Display.
  
  
  
    - display <-