if(cosfi4<0 && sinfi4<0) fi4=180+fabs(180/M_PI*asin(sinfi4));
if(cosfi4>0 && sinfi4<0) fi4=360-180/M_PI*acos(cosfi4);
Xb=Xa1+A1B*cosfi4;
Yb=Ya1+A1B*sinfi4;
A3=pow(Xb-Xo3,2)+pow(Yb-Yo3,2)+O3C*O3C-BC*BC;
B3=2*(Xb-Xo3)*O3C;
C3=2*(Yb-Yo3)*O3C;
cosfi7=(A3*B3-C3*sqrt(B3*B3+C3*C3-A3*A3))/(B3*B3+C3*C3);
sinfi7=(A3*C3+B3*sqrt(B3*B3+C3*C3-A3*A3))/(B3*B3+C3*C3);
if(cosfi7>=0 && sinfi7>=0) fi7=180/M_PI*acos(cosfi7);
if(cosfi7<0 && sinfi7>0) fi7=180/M_PI*acos(cosfi7);
if(cosfi7<0 && sinfi7<0) fi7=180+fabs(180/M_PI*asin(sinfi7));
if(cosfi7>0 && sinfi7<0) fi7=360-180/M_PI*acos(cosfi7);
cosfi6=(O3C*cosfi7-(Xb-Xo3))/BC;
sinfi6=(O3C*sinfi7-(Yb-Yo3))/BC;
if(cosfi6>=0 && sinfi6>=0) fi6=180/M_PI*acos(cosfi6);
if(cosfi6<0 && sinfi6>0) fi6=180/M_PI*acos(cosfi6);
if(cosfi6<0 && sinfi6<0) fi6=180+fabs(180/M_PI*asin(sinfi6));
if(cosfi6>0 && sinfi6<0) fi6=360-180/M_PI*acos(cosfi6);
Xc=Xo3+O3C*cosfi7;
Yc=Yo3+O3C*sinfi7;
Xe=Xo3+O3E*(cosfi7*cos(gam1*RAD)-sinfi7*sin(gam1*RAD));
Ye=Yo3+O3E*(sinfi7*cos(gam1*RAD)+sin(gam1*RAD)*cosfi7);
A4=pow(Xe-Xm,2)+pow(Ye-Ym,2)+MN*MN-EN*EN;
B4=2*(Xe-Xm)*MN;
C4=2*(Ye-Ym)*MN;
cosfi9=(A4*B4-C4*sqrt(B4*B4+C4*C4-A4*A4))/(B4*B4+C4*C4);
sinfi9=(A4*C4+B4*sqrt(B4*B4+C4*C4-A4*A4))/(B4*B4+C4*C4);
if(cosfi9>=0 && sinfi9>=0) fi9=180/M_PI*acos(cosfi9);
if(cosfi9<0 && sinfi9>0) fi9=180/M_PI*acos(cosfi9);
if(cosfi9<0 && sinfi9<0) fi9=180+fabs(180/M_PI*asin(sinfi9));
if(cosfi9>0 && sinfi9<0) fi9=360-180/M_PI*acos(cosfi9);
cosfi8=(MN*cosfi9-(Xe-Xm))/EN;
sinfi8=(MN*sinfi9-(Ye-Ym))/EN;
if(cosfi8>=0 && sinfi8>=0) fi8=180/M_PI*acos(cosfi8);
if(cosfi8<0 && sinfi8>0) fi8=180/M_PI*acos(cosfi8);
if(cosfi8<0 && sinfi8<0) fi8=180+fabs(180/M_PI*asin(sinfi8));
if(cosfi8>0 && sinfi8<0) fi8=360-180/M_PI*acos(cosfi8);
Xn=Xe+EN*cosfi8;
Yn=Ye+EN*sinfi8;
Xp=Xe+EP*(cosfi8*EP/EN-sinfi8*PN/EN);
Yp=Ye+EP*(sinfi8*EP/EN+cosfi8*PN/EN);
Xz=Xe+xq*(cosfi8*EP/EN-sinfi8*PN/EN);
Yz=Ye+xq*(sinfi8*EP/EN+cosfi8*PN/EN);
Xq=Xz+yq*((cosfi8*EP/EN-sinfi8*PN/EN)*cos(pi/2)-sin(pi/2)*(sinfi8*EP/EN+cosfi8*PN/EN));
Yq=Yz+yq*((sinfi8*EP/EN+cosfi8*PN/EN)*cos(pi/2)+sin(pi/2)*(cosfi8*EP/EN-sinfi8*PN/EN));
A5=pow(Xc-Xo6,2)+pow(Yc-Yo6,2)+O6R*O6R-CR*CR;
B5=2*(Xc-Xo6)*O6R;
C5=2*(Yc-Yo6)*O6R;
cosfi11=(A5*B5-C5*sqrt(B5*B5+C5*C5-A5*A5))/(B5*B5+C5*C5);
sinfi11=(A5*C5+B5*sqrt(B5*B5+C5*C5-A5*A5))/(B5*B5+C5*C5);
if(cosfi11>=0 && sinfi11>=0) fi11=180/M_PI*acos(cosfi11);
if(cosfi11<0 && sinfi11>0) fi11=180/M_PI*acos(cosfi11);
if(cosfi11<0 && sinfi11<0) fi11=180+fabs(180/M_PI*asin(sinfi11));
if(cosfi11>0 && sinfi11<0) fi11=360-180/M_PI*acos(cosfi11);
cosfi10=(O6R*cosfi11-(Xc-Xo6))/CR;
sinfi10=(O6R*sinfi11-(Yc-Yo6))/CR;
if(cosfi10>=0 && sinfi10>=0) fi10=180/M_PI*acos(cosfi10);
if(cosfi10<0 && sinfi10>0) fi10=180/M_PI*acos(cosfi10);
if(cosfi10<0 && sinfi10<0) fi10=180+fabs(180/M_PI*asin(sinfi10));
if(cosfi10>0 && sinfi10<0) fi10=360-180/M_PI*acos(cosfi10);
Xr=Xc+CR*cosfi10;
Yr=Yc+CR*sinfi10;
Xs=Xo6+O6S*(cosfi11*cos(gam4*RAD)-sinfi11*sin(gam4*RAD));
Ys=Yo6+O6S*(sinfi11*cos(gam4*RAD)+sin(gam4*RAD)*cosfi11);
A6=pow(Xs-Xo8,2)+pow(Ys-Yo8,2)+O8V*O8V-SV*SV;
B6=2*(Xs-Xo8)*O8V;
C6=2*(Ys-Yo8)*O8V;
cosfi13=(A6*B6-C6*sqrt(B6*B6+C6*C6-A6*A6))/(B6*B6+C6*C6);
sinfi13=(A6*C6+B6*sqrt(B6*B6+C6*C6-A6*A6))/(B6*B6+C6*C6);
if(cosfi13>=0 && sinfi13>=0) fi13=180/M_PI*acos(cosfi13);
if(cosfi13<0 && sinfi13>0) fi13=180/M_PI*acos(cosfi13);
if(cosfi13<0 && sinfi13<0) fi13=180+fabs(180/M_PI*asin(sinfi13));
if(cosfi13>0 && sinfi13<0) fi13=360-180/M_PI*acos(cosfi13);
cosfi12=(O8V*cosfi13-(Xs-Xo8))/SV;
sinfi12=(O8V*sinfi13-(Ys-Yo8))/SV;
if(cosfi12>=0 && sinfi12>=0) fi12=180/M_PI*acos(cosfi12);
if(cosfi12<0 && sinfi12>0) fi12=180/M_PI*acos(cosfi12);
if(cosfi12<0 && sinfi12<0) fi12=180+fabs(180/M_PI*asin(sinfi12));
if(cosfi12>0 && sinfi12<0) fi12=360-180/M_PI*acos(cosfi12);
Xv=Xs+SV*cosfi12;
Yv=Ys+SV*sinfi12;
Xw=Xo8-O8W*cosfi13;
Yw=Yo8-O8W*sinfi13;
A7=pow(Xa2-Xo7,2)+pow(Ya2-Yo7,2)+O7H*O7H-A2H*A2H;
B7=2*(Xa2-Xo7)*O7H;
C7=2*(Ya2-Yo7)*O7H;
cosfi15=(A7*B7-C7*sqrt(B7*B7+C7*C7-A7*A7))/(B7*B7+C7*C7);
sinfi15=(A7*C7+B7*sqrt(B7*B7+C7*C7-A7*A7))/(B7*B7+C7*C7);
if(cosfi15>=0 && sinfi15>=0) fi15=180/M_PI*acos(cosfi15);
if(cosfi15<0 && sinfi15>0) fi15=180/M_PI*acos(cosfi15);
if(cosfi15<0 && sinfi15<0) fi15=180+fabs(180/M_PI*asin(sinfi15));
if(cosfi15>0 && sinfi15<0) fi15=360-180/M_PI*acos(cosfi15);
cosfi14=(O7H*cosfi15-(Xa2-Xo7))/A2H;
sinfi14=(O7H*sinfi15-(Ya2-Yo7))/A2H;
if(cosfi14>=0 && sinfi14>=0) fi14=180/M_PI*acos(cosfi14);
if(cosfi14<0 && sinfi14>0) fi14=180/M_PI*acos(cosfi14);
if(cosfi14<0 && sinfi14<0) fi14=180+fabs(180/M_PI*asin(sinfi14));
if(cosfi14>0 && sinfi14<0) fi14=360-180/M_PI*acos(cosfi14);
Xh=Xa2+A2H*cosfi14;
Yh=Ya2+A2H*sinfi14;
Xi=Xo7-O7I*cosfi15;
Yi=Yo7-O7I*sinfi15;
A8=pow(Xw-Xx,2)+pow(Yw-Yx,2)+LX*LX-WL*WL;
B8=2*(Xw-Xx)*LX;
C8=2*(Yw-Yx)*LX;
cosfi17=(A8*B8-C8*sqrt(B8*B8+C8*C8-A8*A8))/(B8*B8+C8*C8);
sinfi17=(A8*C8+B8*sqrt(B8*B8+C8*C8-A8*A8))/(B8*B8+C8*C8);
if(cosfi17>=0 && sinfi17>=0) fi17=180/M_PI*acos(cosfi17);
if(cosfi17<0 && sinfi17>0) fi17=180/M_PI*acos(cosfi17);
if(cosfi17<0 && sinfi17<0) fi17=180+fabs(180/M_PI*asin(sinfi17));
if(cosfi17>0 && sinfi17<0) fi17=360-180/M_PI*acos(cosfi17);
cosfi16=(LX*cosfi17-(Xw-Xx))/WL;
sinfi16=(LX*sinfi17-(Yw-Yx))/WL;
if(cosfi16>=0 && sinfi16>=0) fi16=180/M_PI*acos(cosfi16);
if(cosfi16<0 && sinfi16>0) fi16=180/M_PI*acos(cosfi16);
if(cosfi16<0 && sinfi16<0) fi16=180+fabs(180/M_PI*asin(sinfi16));
if(cosfi16>0 && sinfi16<0) fi16=360-180/M_PI*acos(cosfi16);
Xl=Xw+WL*cosfi16;
Yl=Yw+WL*sinfi16;
A9=pow(Xi-Xu,2)+pow(Yi-Yu,2)+JU*JU-IJ*IJ;
B9=2*(Xi-Xu)*JU;
C9=2*(Yi-Yu)*JU;
cosfi19=(A9*B9+C9*sqrt(B9*B9+C9*C9-A9*A9))/(B9*B9+C9*C9);
sinfi19=(A9*C9-B9*sqrt(B9*B9+C9*C9-A9*A9))/(B9*B9+C9*C9);
if(cosfi19>=0 && sinfi19>=0) fi19=180/M_PI*acos(cosfi19);
if(cosfi19<0 && sinfi19>0) fi19=180/M_PI*acos(cosfi19);
if(cosfi19<0 && sinfi19<0) fi19=180+fabs(180/M_PI*asin(sinfi19));
if(cosfi19>0 && sinfi19<0) fi19=360-180/M_PI*acos(cosfi19);
cosfi18=(JU*cosfi19-(Xi-Xu))/IJ;
sinfi18=(JU*sinfi19-(Yi-Yu))/IJ;
if(cosfi18>=0 && sinfi18>=0) fi18=180/M_PI*acos(cosfi18);
if(cosfi18<0 && sinfi18>0) fi18=180/M_PI*acos(cosfi18);
if(cosfi18<0 && sinfi18<0) fi18=180+fabs(180/M_PI*asin(sinfi18));
if(cosfi18>0 && sinfi18<0) fi18=360-180/M_PI*acos(cosfi18);
Xj=Xi+IJ*cosfi18;
Yj=Yi+IJ*sinfi18;
Xy=Xu+UY*(cosfi19*cos(gam5*RAD)-sinfi19*sin(gam5*RAD));
Yy=Yu+UY*(sinfi19*cos(gam5*RAD)+sin(gam5*RAD)*cosfi19);
q=sqrt(pow(Xl-Xy,2)+pow(Yl-Yy,2));
L1y=sqrt(q*q-LL1*LL1);
A10=LL1;
B10=L1y;
C10=Yl-Yy;
sinfi20=(-B10*C10-A10*sqrt(A10*A10+B10*B10-C10*C10))/(A10*A10+B10*B10);
cosfi20=(-A10*C10+B10*sqrt(A10*A10+B10*B10-C10*C10))/(A10*A10+B10*B10);
if(cosfi20>=0 && sinfi20>=0) fi20=180/M_PI*acos(cosfi20);
if(cosfi20<0 && sinfi20>0) fi20=180/M_PI*acos(cosfi20);
if(cosfi20<0 && sinfi20<0) fi20=180+fabs(180/M_PI*asin(sinfi20));
if(cosfi20>0 && sinfi20<0) fi20=360-180/M_PI*acos(cosfi20);
Xl1=Xl+LL1*cos((fi20+QQ)*RAD);
Yl1=Yl+LL1*sin((fi20+QQ)*RAD);
Xzb=Xl1+L1zb*cos(fi20*RAD);
Yzb=Yl1+L1zb*sin(fi20*RAD);
Xqb=Xzb+ZQb*cos((fi20-QQ)*RAD);
Yqb=Yzb+ZQb*sin((fi20-QQ)*RAD);
RRR=sqrt(pow(Xl-Xqb,2)+pow(Yl-Yqb,2));
return;
}
void elips()
{
float fi;
for(fi=0;fi<=360;fi++)
{
raschet(fi);
putpixel(n*Xq+Xo1,DEK*(n*(-Yq)+Yo1),4);
putpixel(n*Xqb+Xo1,DEK*(n*(-Yqb)+Yo1),4);
}
return;
}
void draw(float fi)
{
/*Стойки*/
stoyka(Xo1,Yo1);
stoyka(n*Xo2+Xo1,n*(-Yo2)+Yo1);
stoyka(n*Xo3+Xo1,n*(-Yo3)+Yo1);
stoyka(n*Xo4+Xo1,n*(-Yo4)+Yo1);
stoyka(n*Xd+Xo1,n*(-Yd)+Yo1);
stoyka(n*Xo6+Xo1,n*(-Yo6)+Yo1);
stoyka(n*Xo8+Xo1,n*(-Yo8)+Yo1);
stoyka(n*Xo5+Xo1,n*(-Yo5)+Yo1);
stoyka(n*Xo7+Xo1,n*(-Yo7)+Yo1);
/*Звенья*/
setlinestyle(0,1,3);
setcolor(1);
line(Xo1,DEK*Yo1,n*Xa1+Xo1,DEK*(n*(-Ya1)+Yo1));
line(Xo1,DEK*Yo1,n*Xf+Xo1,DEK*(n*(-Yf)+Yo1));
line(n*Xo4+Xo1,DEK*(n*(-Yo4)+Yo1),n*Xk+Xo1,DEK*(n*(-Yk)+Yo1));
line(n*Xf+Xo1,DEK*(n*(-Yf)+Yo1),n*Xk+Xo1,DEK*(n*(-Yk)+Yo1));
line(n*Xm+Xo1,DEK*(n*(-Ym)+Yo1),n*Xk+Xo1,DEK*(n*(-Yk)+Yo1));
line(n*Xo4+Xo1,DEK*(n*(-Yo4)+Yo1),n*Xm+Xo1,DEK*(n*(-Ym)+Yo1));
line(n*Xd+Xo1,DEK*(n*(-Yd)+Yo1),n*Xb+Xo1,DEK*(n*(-Yb)+Yo1));
line(n*Xa1+Xo1,DEK*(n*(-Ya1)+Yo1),n*Xb+Xo1,DEK*(n*(-Yb)+Yo1));
line(n*Xc+Xo1,DEK*(n*(-Yc)+Yo1),n*Xb+Xo1,DEK*(n*(-Yb)+Yo1));
line(n*Xc+Xo1,DEK*(n*(-Yc)+Yo1),n*Xo3+Xo1,DEK*(n*(-Yo3)+Yo1));
line(n*Xo2+Xo1,DEK*(n*(-Yo2)+Yo1),n*Xd+Xo1,DEK*(n*(-Yd)+Yo1));
line(n*Xe+Xo1,DEK*(n*(-Ye)+Yo1),n*Xc+Xo1,DEK*(n*(-Yc)+Yo1));
line(n*Xo3+Xo1,DEK*(n*(-Yo3)+Yo1),n*Xe+Xo1,DEK*(n*(-Ye)+Yo1));
line(n*Xe+Xo1,DEK*(n*(-Ye)+Yo1),n*Xn+Xo1,DEK*(n*(-Yn)+Yo1));
line(n*Xn+Xo1,DEK*(n*(-Yn)+Yo1),n*Xm+Xo1,DEK*(n*(-Ym)+Yo1));
line(n*Xe+Xo1,DEK*(n*(-Ye)+Yo1),n*Xp+Xo1,DEK*(n*(-Yp)+Yo1));
line(n*Xn+Xo1,DEK*(n*(-Yn)+Yo1),n*Xp+Xo1,DEK*(n*(-Yp)+Yo1));
line(n*Xz+Xo1,DEK*(n*(-Yz)+Yo1),n*Xq+Xo1,DEK*(n*(-Yq)+Yo1));
line(n*Xc+Xo1,DEK*(n*(-Yc)+Yo1),n*Xr+Xo1,DEK*(n*(-Yr)+Yo1));
line(n*Xr+Xo1,DEK*(n*(-Yr)+Yo1),n*Xo6+Xo1,DEK*(n*(-Yo6)+Yo1));
line(n*Xs+Xo1,DEK*(n*(-Ys)+Yo1),n*Xo6+Xo1,DEK*(n*(-Yo6)+Yo1));
line(n*Xr+Xo1,DEK*(n*(-Yr)+Yo1),n*Xs+Xo1,DEK*(n*(-Ys)+Yo1));
line(n*Xs+Xo1,DEK*(n*(-Ys)+Yo1),n*Xv+Xo1,DEK*(n*(-Yv)+Yo1));
line(n*Xv+Xo1,DEK*(n*(-Yv)+Yo1),n*Xo8+Xo1,DEK*(n*(-Yo8)+Yo1));
line(n*Xw+Xo1,DEK*(n*(-Yw)+Yo1),n*Xo8+Xo1,DEK*(n*(-Yo8)+Yo1));
line(n*Xo5+Xo1,DEK*(n*(-Yo5)+Yo1),n*Xa2+Xo1,DEK*(n*(-Ya2)+Yo1));
line(n*Xh+Xo1,DEK*(n*(-Yh)+Yo1),n*Xa2+Xo1,DEK*(n*(-Ya2)+Yo1));
line(n*Xh+Xo1,DEK*(n*(-Yh)+Yo1),n*Xo7+Xo1,DEK*(n*(-Yo7)+Yo1));
line(n*Xo7+Xo1,DEK*(n*(-Yo7)+Yo1),n*Xi+Xo1,DEK*(n*(-Yi)+Yo1));
line(n*Xw+Xo1,DEK*(n*(-Yw)+Yo1),n*Xl+Xo1,DEK*(n*(-Yl)+Yo1));
line(n*Xl+Xo1,DEK*(n*(-Yl)+Yo1),n*Xx+Xo1,DEK*(n*(-Yx)+Yo1));
line(n*Xx+Xo1,DEK*(n*(-Yx)+Yo1),n*Xu+Xo1,DEK*(n*(-Yu)+Yo1));
line(n*Xi+Xo1,DEK*(n*(-Yi)+Yo1),n*Xj+Xo1,DEK*(n*(-Yj)+Yo1));
line(n*Xj+Xo1,DEK*(n*(-Yj)+Yo1),n*Xu+Xo1,DEK*(n*(-Yu)+Yo1));
line(n*Xx+Xo1,DEK*(n*(-Yx)+Yo1),n*(Xx+16)+Xo1,DEK*(n*(-Yx)+Yo1));
line(n*Xu+Xo1,DEK*(n*(-Yu)+Yo1),n*Xy+Xo1,DEK*(n*(-Yy)+Yo1));
line(n*Xj+Xo1,DEK*(n*(-Yj)+Yo1),n*Xy+Xo1,DEK*(n*(-Yy)+Yo1));
//line(n*Xl+Xo1,DEK*(n*(-Yl)+Yo1),n*Xzb+Xo1,DEK*(n*(-Yzb)+Yo1));
line(n*Xzb+Xo1,DEK*(n*(-Yzb)+Yo1),n*Xqb+Xo1,DEK*(n*(-Yqb)+Yo1));
line(n*Xl+Xo1,DEK*(n*(-Yl)+Yo1),n*Xl1+Xo1,DEK*(n*(-Yl1)+Yo1));
line(n*Xl1+Xo1,DEK*(n*(-Yl1)+Yo1),n*Xzb+Xo1,DEK*(n*(-Yzb)+Yo1));
setlinestyle(0,0,1);
setcolor(4);
line(50,DEK*(n*(-Ystola)+Yo1),450,DEK*(n*(-Ystola)+Yo1));
line(50,DEK*(n*(-Ystola-2.5)+Yo1),450,DEK*(n*(-Ystola-2.5)+Yo1));
line(50,DEK*(n*(-Ystola-3.5)+Yo1),450,DEK*(n*(-Ystola-3.5)+Yo1));
line(Xo1,DEK*(n*(-0)+Yo1),Xo1,DEK*(n*(-Ystola-40)+Yo1));
polzushka(n*Xy+Xo1,n*(-Yy)+Yo1,-fi20);
setlinestyle(0,0,3);
arc(Xo1,DEK*Yo1,fi+gam3,fi,6);
arc(Xo1+n*Xo8,DEK*(n*(-Yo8)+Yo1),fi13+180,fi13,8);
arc(Xo1+n*Xo7,DEK*(n*(-Yo7)+Yo1),fi15+180,fi15,8);
arc(Xo1+n*Xu,DEK*(n*(-Yu)+Yo1),fi19,fi19+gam5,7);
arc(Xo1+n*Xx,DEK*(n*(-Yx)+Yo1),0,240,7);
setlinestyle(0,0,1);
setfillstyle(1,3);
setcolor(1);
fillellipse(Xo1,DEK*Yo1,R_C,R_C);
fillellipse(Xo1+Xo3*n,DEK*(Yo1-Yo3*n),R_C,R_C);
fillellipse(Xo1+Xo4*n,DEK*(Yo1-Yo4*n),R_C,R_C);
fillellipse(Xo1+Xo2*n,DEK*(Yo1-Yo2*n),R_C,R_C);
fillellipse(Xo1+Xo6*n,DEK*(Yo1-Yo6*n),R_C,R_C);
fillellipse(Xo1+Xo7*n,DEK*(Yo1-Yo7*n),R_C,R_C);
fillellipse(Xo1+Xo5*n,DEK*(Yo1-Yo5*n),R_C,R_C);
fillellipse(Xo1+Xo8*n,DEK*(Yo1-Yo8*n),R_C,R_C);
fillellipse(n*Xa1+Xo1,DEK*(n*(-Ya1)+Yo1),R_C,R_C);
fillellipse(n*Xa2+Xo1,DEK*(n*(-Ya2)+Yo1),R_C,R_C);
fillellipse(n*Xh+Xo1,DEK*(n*(-Yh)+Yo1),R_C,R_C);
fillellipse(n*Xl+Xo1,DEK*(n*(-Yl)+Yo1),R_C,R_C);
fillellipse(n*Xf+Xo1,DEK*(n*(-Yf)+Yo1),R_C,R_C);
fillellipse(n*Xr+Xo1,DEK*(n*(-Yr)+Yo1),R_C,R_C);
fillellipse(n*Xs+Xo1,DEK*(n*(-Ys)+Yo1),R_C,R_C);
fillellipse(n*Xk+Xo1,DEK*(n*(-Yk)+Yo1),R_C,R_C);
fillellipse(n*Xm+Xo1,DEK*(n*(-Ym)+Yo1),R_C,R_C);
fillellipse(n*Xd+Xo1,DEK*(n*(-Yd)+Yo1),R_C,R_C);
fillellipse(n*Xb+Xo1,DEK*(n*(-Yb)+Yo1),R_C,R_C);
fillellipse(n*Xc+Xo1,DEK*(n*(-Yc)+Yo1),R_C,R_C);
fillellipse(n*Xe+Xo1,DEK*(n*(-Ye)+Yo1),R_C,R_C);
fillellipse(n*Xn+Xo1,DEK*(n*(-Yn)+Yo1),R_C,R_C);
fillellipse(n*Xp+Xo1,DEK*(n*(-Yp)+Yo1),R_C,R_C);
fillellipse(n*Xv+Xo1,DEK*(n*(-Yv)+Yo1),R_C,R_C);
fillellipse(n*Xw+Xo1,DEK*(n*(-Yw)+Yo1),R_C,R_C);
fillellipse(n*Xi+Xo1,DEK*(n*(-Yi)+Yo1),R_C,R_C);
fillellipse(n*Xx+Xo1,DEK*(n*(-Yx)+Yo1),R_C,R_C);
fillellipse(n*Xu+Xo1,DEK*(n*(-Yu)+Yo1),R_C,R_C);
fillellipse(n*Xj+Xo1,DEK*(n*(-Yj)+Yo1),R_C,R_C);
fillellipse(n*Xy+Xo1,DEK*(n*(-Yy)+Yo1),R_C,R_C);
/*Текст*/
setcolor(14);
outtextxy(Xo1,DEK*Yo1+20,"O1");
outtextxy(Xo1+Xo3*n,DEK*(Yo1-Yo3*n)+20,"O3");
outtextxy(Xo1+Xo4*n-35,DEK*(Yo1-Yo4*n)+10,"O4");
outtextxy(Xo1+Xo6*n-5,DEK*(Yo1-Yo6*n)-17,"O6");
outtextxy(Xo1+Xo8*n+15,DEK*(Yo1-Yo8*n)-7,"O8");
outtextxy(Xo1+Xo7*n+15,DEK*(Yo1-Yo7*n)-7,"O7");
outtextxy(Xo1+Xo5*n+15,DEK*(Yo1-Yo5*n)-7,"O5");
outtextxy(Xo1+Xo2*n,DEK*(Yo1-Yo2*n)+20,"O2");
outtextxy(n*Xa1+Xo1-5,DEK*(n*(-Ya1)+Yo1-15),"A1");
outtextxy(n*Xa2+Xo1-5,DEK*(n*(-Ya2)+Yo1-15),"A2");
outtextxy(n*Xh+Xo1-5,DEK*(n*(-Yh)+Yo1-15),"H");
outtextxy(n*Xi+Xo1-5,DEK*(n*(-Yi)+Yo1-15),"I");
outtextxy(n*Xf+Xo1+5,DEK*(n*(-Yf)+Yo1-15),"F");
outtextxy(n*Xk+Xo1-3,DEK*(n*(-Yk)+Yo1+10),"K");
outtextxy(n*Xm+Xo1-15,DEK*(n*(-Ym)+Yo1),"M");
outtextxy(n*Xd+Xo1-15,DEK*(n*(-Yd)+Yo1+5),"D");
outtextxy(n*Xb+Xo1-3,DEK*(n*(-Yb)+Yo1+10),"B");
outtextxy(n*Xc+Xo1+10,DEK*(n*(-Yc)+Yo1-10),"C");
outtextxy(n*Xe+Xo1,DEK*(n*(-Ye)+Yo1-17),"E");
outtextxy(n*Xn+Xo1-3,DEK*(n*(-Yn)+Yo1+10),"N");
outtextxy(n*Xp+Xo1,DEK*(n*(-Yp)+Yo1-17),"P");
outtextxy(n*Xs+Xo1-7,DEK*(n*(-Ys)+Yo1-17),"S");
outtextxy(n*Xr+Xo1,DEK*(n*(-Yr)+Yo1-17),"R");
outtextxy(n*Xv+Xo1,DEK*(n*(-Yv)+Yo1-17),"V");
outtextxy(n*Xw+Xo1,DEK*(n*(-Yw)+Yo1-17),"W");
outtextxy(n*Xl+Xo1,DEK*(n*(-Yl)+Yo1-17),"L");
outtextxy(n*Xx+Xo1,DEK*(n*(-Yx)+Yo1-17),"X");
outtextxy(n*Xu+Xo1,DEK*(n*(-Yu)+Yo1-17),"U");
outtextxy(n*Xj+Xo1,DEK*(n*(-Yj)+Yo1-17),"J");
outtextxy(n*Xy+Xo1,DEK*(n*(-Yy)+Yo1-17),"Y");
return;
}
void stoyka(float X, float Y)
{
setlinestyle(0,0,3);
setfillstyle(1,3);
setcolor(4);
line(X,DEK*Y,X+5,DEK*Y+10);
line(X,DEK*Y,X-5,DEK*Y+10);
line(X-10,DEK*Y+10,X+10,DEK*Y+10);
setlinestyle(0,0,1);
//fillellipse(X,DEK*Y,R_C,R_C);
line(X-5,DEK*Y+10,X-9,DEK*Y+14);
line(X,DEK*Y+10,X-4,DEK*Y+14);
line(X+5,DEK*Y+10,X+1,DEK*Y+14);
line(X+10,DEK*Y+10,X+6,DEK*Y+14);
return;
}
void polzushka(float X, float Y, float fi)
{
setlinestyle(0,0,3);
setfillstyle(1,3);
setcolor(1);
line(X+15*cos((fi+30)*RAD),DEK*(Y+15*sin((fi+30)*RAD)),X+15*cos((fi+150)*RAD),DEK*(Y+15*sin((fi+150)*RAD)));
line(X+15*cos((fi+210)*RAD),DEK*(Y+15*sin((fi+210)*RAD)),X+15*cos((fi+330)*RAD),DEK*(Y+15*sin((fi+330)*RAD)));