[Oberon] SystemV - Simple Graph

Tomas Kral thomas.kral at email.cz
Tue Mar 5 16:44:46 CET 2019


> not too difficult.. Just try.

Algebra works, and is so much faster :-)

 (*Fills - TODO replace with Replconst() and optimise*)
 (*Line(col, x0-x, y0+y, x0+x, 1, mode);*) (*w = x0+x-x0-x+1 = 2x+1, h = y0+y-y0+y+1 = 1*)
 (*Line(col, x0-x, y0-y, x0+x, 1, mode);*) (*w = x0+x-x0-x+1 = 2x+1, h = y0-y-y0-y+1 = 1*)
 D.ReplConst(col, x0-x, y0+y, 2*x, 1, mode);
 D.ReplConst(col, x0-x, y0-y, 2*x, 1, mode);

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list