ALGOL 68/prelude/graph 2d.a68: Difference between revisions

MODE POINT = [axis 2d]GREAL;

MODE POINTDETAIL = STRUCT(STRINGOPT label, POINTOPTION option);

 

MODE TICK = STRUCT(INT number, GREAL len);

[axis 2d]AXIS axis

# FLEX[0]AXISOPT y2, #

);

 

MODE FUNCTIONINTERVAL = STRUCT(PROC(REAL)REAL function, INTERVAL interval);

 

MODE GRAPHDDMETHODOF = STRUCT(

PROC (NOARG)VOID decorate,

PROC (NOARG)VOID begin curve,

PROC ([]POINT #curve#, LINEOPTION #option#)VOID add curve array point,

PROC (FUNCTIONINTERVAL #function interval#, LINEOPTION #option#)VOID add curve function interval,

);

 

REF FILE window = file OF window OF self;

BOOL first := TRUE;

 

PROC add curve array point of graph 2d = (REF GRAPHDD self, []POINT curve, LINEOPTION option)VOID:(

FOR i TO UPB curve DO yield(curve[i]) OD;

(add curve gen point OF (METHODOF self))(gen curve, option)

 

PROC add curve function interval of graph 2d = (REF GRAPHDD self, FUNCTIONINTERVAL function interval, LINEOPTION option)VOID:(

INT n steps = 100;

REAL x := lwb OF interval OF function interval;

PROC add curve of graph 2d = (REF GRAPHDD self, CURVE curve, LINEOPTION option)VOID:(

CASE curve IN

([]POINT array): (add curve array point OF (METHODOF self))(array, option),

(FUNCTIONINTERVAL function interval): (add curve function interval OF (METHODOF self))(function interval, option)