Page 61 - 6370

yc1:= trunc(ya + abs(sin(gama))*
dovgyna_ac);

// рисунок 40, або
// рисунок 42 верхній правий

xc1:= trunc(xa + abs(sin(180-
gama))* dovgyna_ac) ;
If (( yc1< ya) and (xa<xc1)) then

yc1:= trunc(ya -
abs(sin(gama+90))* dovgyna_ac);

// рисунок 42 верхній лівий
// очевидно, що цей рядок можна переписати так:

yc1:= trunc(ya - abs(cos(gama))*
dovgyna_ac) ;

xc1:= trunc(xa + abs(sin(gama))*
dovgyna_ac) ;

If ( (yc1> ya) and (xa>xc1)) then
yc1:= trunc(ya + abs(cos(gama+180))*
dovgyna_ac) ;
// рисунок 42 нижній лівий

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

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

63