pascalabcnet/_Presentations/2015 New Features/Programs/07_Draw-1.pas

17 lines
225 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
uses GraphABC;
begin
Window.Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
Draw(sin);
var r := Rect(0,0,200,100);
r.Offset(120,10);
Draw(sqr, r);
r.Offset(0,110);
Draw(abs,-5,5,r);
r.Offset(200,200);
Draw(exp,0,5,r);
end.