#include #pragma hdrstop #include "Unit1.h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TCanvas *p=Image1-Canvas; int i; int R=200; int a; int Xs,Ys; int Xk1,Yk1,Xk2,Yk2,Xk3,Yk3,Xk4,Yk4; Xs=Image1-Width/2; Ys=Image1-Height/2; p-Ellipse(Xs-R,Ys-R,Xs+R,Ys+R); a=R/pow(2,0.5); p-Rectangle(Xs-a,Ys-a,Xs+a,Ys+a); Xk1=Xs; Yk1=Ys; Xk2=Xs; Yk2=Ys; Xk3=Xs; Yk3=Ys; Xk4=Xs; Yk4=Ys; for (i=1;iEllipse(Xk1-R,Yk1-R,Xk1+R,Yk1+R); p-Rectangle(Xk1-a,Yk1-a,Xk1+a,Yk1+a); p-Ellipse(Xk2-R,Yk2-R,Xk2+R,Yk2+R); p-Rectangle(Xk2-a,Yk2-a,Xk2+a,Yk2+a); p-Ellipse(Xk3-R,Yk3-R,Xk3+R,Yk3+R); p-Rectangle(Xk3-a,Yk3-a,Xk3+a,Yk3+a); p-Ellipse(Xk4-R,Yk4-R,Xk4+R,Yk4+R); p-Rectangle(Xk4-a,Yk4-a,Xk4+a,Yk4+a); } }
#include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TCanvas *p=Image1-Canvas; int R=50; int i,j; int a; int Xk,Yk; Yk=0; a=R*pow(2,0.5)-R-5; for (i=0;iEllipse(Xk-R,Yk-R,Xk+R,Yk+R); } } Yk=R; for (i=0;i
... zobacz całą notatkę
Komentarze użytkowników (0)