Рисуем вольтметр, а точнее подвижную стрелочку к нему Опции

[maxz]

Сам вольтметр я нарисовал, а вот стрелку в него рабочую сделать не хватает толку. Стрелка должна менять своё положение в зависимости от силы тока, которая регулируется нажатиями клавиш с клавиатуры или кнопок в программе. Стрелку я хотел задать как функцию F(x)=kx где k-коэффициент, который меняет наклон стрелки, и который можно задать чтобы изменялся на нажатие клавиши... Может кто знает как всё это сделать, помогите, а то завтра желательно показать преподу. Вот код того что имеется:

Код

uses graphABC;

begin
setwindowsize(700,500);//габариты окна, т.е. середина где-то 350 и 250 пикс

// рисуем цепь
setpenwidth(2);
line(0,30,700,30);
line(340,20,340,40);
line(350,5,350,55);

setpenwidth(4);
setpencolor(clwhite);
line(341,30,349,30);
setpencolor(clblack);


setpenwidth(6);
drawcircle(100,30,2);
drawcircle(600,30,2);



setpenwidth(2);
line (100,30,100,400);
line (600,30,600,400);

line(100,400,250,400);
line(600,400,460,400);

line(250,400,250,320);
line(460,400,460,320);


// рисуем вольтметр
setpenwidth(3);
drawrectangle(150,80,550,350);
drawrectangle(190,120,510,280);

drawcircle(250,320,4);
drawcircle(460,320,4);

setfontsize(25);
setfontcolor(clblue);
textout(222,298,'-');

setfontcolor(clred);
textout(480,301,'+');


// табло с делениями

ARC(350,500,300,60,120);
setfontcolor(clblack);
textout(340,230,'V');

setfontsize(15);
textout(337,150,'1.5');
textout(195,195,'0');
textout(493,195,'3');



line(201,238,193,225);
line(499,239,507,227);
line(350,180,350,200);



end.