Page 62 - 6370

yc1:= trunc(ya - abs(sin(gama -270))*
dovgyna_ac) ; // рисунок 42 нижній правий

// очевидно, що цей рядок можна переписати так:
yc1:= trunc(ya - abs(cos(gama))*
dovgyna_ac) ;
xc1:= trunc(xa - abs(cos(gama-270))* dovgyna_ac) ;

// очевидно, що цей рядок можна переписати так:
xc1:= trunc(xa - abs(sin(gama))* dovgyna_ac) ;

// Виведення значень координат точки С 1
SpinEdit9.Value:=xc1;

SpinEdit10.Value:=yc1;
end;

64