Курсовая работа: Разработка приложений в визуальной среде Delphi на языке программирования Object Pascal

// рисование элементов системы на экране и подписи основных точек механизма

form1. image1. picture: =nil;

with form1. image1. canvas do

begin

ellipse (o1,o2,o3,o4);

ellipse (xd-3, yd-3, xd+3, yd+3);

ellipse (xb-3, yb-3, xb+3, yb+3);

moveto (x0,y0);

Pen. Style: =psDot;

lineto (xd,yd);

moveto (x0,y0);

lineto (xb,yb);

Pen. Style: =psSolid;

moveto (xc,yc);

Rectangle (xc+10,yc+8,xc-10,yc-8);

Lineto (xc+400,yc);

lineto (xc-400,yc);

moveto (xc,yc+10);

Pen. Width: =2;

lineto (400,yc+10);

lineto (150,yc+10);

moveto (xc,yc-10);

lineto (400,yc-10);

lineto (150,yc-10);

moveto (xd,yd);

Pen. Width: =1;

lineto (xc,yc);

ellipse (xc-3, yc-3, xc+3, yc+3);

moveto (xb,yb);