OberonCore

MODULE  LeaderGraph_0;
  IMPORT  Ports,  StdCmds,  Views;
   
  CONST  mm = Ports.mm;
 
  TYPE  View = POINTER TO RECORD ( Views.View ) END;
     
  PROCEDURE ( v: View ) Restore ( f: Views.Frame; l, t, r, b: INTEGER );
    VAR i: INTEGER;
  BEGIN
  FOR i := 1 TO 5 DO           (*  5   *)
      f.DrawLine( 0, i * 10 * mm, 50 * mm, i * 10 * mm,  0, Ports.blue )
    END;
  FOR i := 0 TO 10 DO         (*  11    *)
      f.DrawLine( 100 * mm, 10 * mm, (50 + i * 10 ) * 
            mm, 60 * mm,  0, Ports.blue )
    END
  END Restore;
 
  PROCEDURE New*;
    VAR  v: View;
  BEGIN   
 NEW( v );  Views.Deposit( v );  StdCmds.Open;     
  END New;
 
END LeaderGraph_0. 
 LeaderGraph_0.New;