1

Instrukcja 9 

Cel ćwiczenia : Napisanie aplikacji umożliwiającej tworzenie obrazu asteroidy 
(z efektem transformacji). 

 

 

 

Rys. 1 Widok formularza z umieszczonymi komponentami 

 

1.  Uruchomić Delphi. 
 
2.  Przejść do widoku kodu źródłowego przyciskiem F12. 

 

3.  W części Interface (pod uses) umieścić następujący kod: 
 

const Nmax = 10000; 
      ppX=25; 
      ppY=25; 
 
type 
  wym = 1..Nmax; 
  TablWsp = Array[wym] of Real; 
 
var 
  alfa,xp,yp,xn,yn,kx,ky,dx,dy,kpx,kpy,c,s,r,th: Real; 
  i,X0,Y0,ZX,ZY: Integer; 
  xx,yy,X,Y: TablWsp; 

 

 

2

4.  W części private klasy TForm1 umieścić deklaracje zmiennych i nagłówki funkcji 

Normalizacja, Osie, Obrot: 

 

procedure Obrot(x,y,alfa: Real; var x1,y1: Real); 
procedure Normalizacja(N,A,B: Integer; xx,yy: TablWsp; 
                       var X,Y: TablWsp); 
procedure Osie(X0,Y0,A,B: Integer; x,y: String;T: TCanvas); 

 

5.  W części implementation napisać definicje funkcji: 
 

procedure TForm1.Normalizacja; 
var 
  i: Integer; 
  dX,dY,G,Kx,Ky,xmin,xmax,ymin,ymax,Sx,Sy: Real; 
begin 
  A:=A-2*ppx;    B:=B-2*ppY; 
  xmin:=xx[1];   xmax:=xx[1]; 
  ymin:=yy[1];   ymax:=yy[1]; 
  for i:=2 to N do begin 
     if xx[i] < xmin then xmin:=xx[i]; 
     if xx[i] > xmax then xmax:=xx[i]; 
     if yy[i] < ymin then ymin:=yy[i]; 
     if yy[i] > ymax then ymax:=yy[i]; 
  end; 
  Sx:=xmax-xmin; 
  Sy:=ymax-ymin; 
  for i:=1 to N do begin 
     X[i]:=xx[i]-xmin; 
     Y[i]:=Abs(yy[i]-ymin-Sy); 
  end; 
  G:=1; 
  dX:=A-Sx; 
  dY:=B-Sy; 
  if dX/A <= dY/B then begin 
     Kx:=A/Sx; 
     Ky:=G*Kx; 
  end 
  else begin 
     Ky:=B/Sy; 
     Kx:=Ky/G 
  end; 
  for i:=1 to N do begin 
     X[i]:=Kx*X[i]+ppX; 
     Y[i]:=Ky*Y[i]+ppY; 
  end; 
end; 
 
procedure TForm1.Osie; 
begin 
  with T do begin 

 

3

    MoveTo(0,Y0); 
    LineTo(A,Y0); 
    LineTo(A-8,Y0-3); 
    LineTo(A,Y0); 
    LineTo(A-8,Y0+3); 
    TexTout(A-15,Y0+6,x); 
    MoveTo(X0,B); 
    LineTo(X0,0); 
    LineTo(X0-3,8); 
    MoveTo(X0,0); 
    LineTo(X0+3,8); 
    TextOut(X0-11,9,y); 
  end; 
end; 

 

procedure TForm1.Obrot; 
var 
  t,c,s: Real; 
begin 
  t:=Pi*alfa/180; 
  s:=Sin(t); 
  c:=Cos(t); 
  x1:=x*c-y*s; 
  y1:=x*s+y*c; 
end; 
 

6.  Umieścić na formularzu komponent Image i ustawić następujące parametry: 
 

•  Width : 400 
•  Height : 400 

 

7.  Umieścić na formatce komponent Button i ustawić własność Caption na Rysuj. 
 
8.  Umieścić na formatce komponent GroupBox z palety Standard i zmienić własność 

Caption na Dane. 

 

9.  Umieścić na komponencie GroupBox1 8 komponentów LabeledEdit z palety 

Additional i ustawić parametry według następujących wskazówek: 

 

Domyslna 

nazwa: 

Zmienić własność 

name na: 

Zmienić własność 

tekst na: 

Zmienić własność  

EditLabel->Caption na: 

LabeledEdit1 

LEr 

50 

Parametr - r: 

LabeledEdit2 

LEdx 

100 

Przesunięcie - dx: 

LabeledEdit3 

LEdy 

50 

Przesunięcie - dy: 

LabeledEdit4 

LEkx 

2 

Współczynnik skalowania - kx: 

LabeledEdit5 

LEky 

3 

Współczynnik skalowania - ky: 

LabeledEdit6 

LEalfa 

60 

Kąt obrotu - alfa: 

LabeledEdit7 

LEkpx 

1,5 

Współczynnik odkształcenia - kpx: 

LabeledEdit8 

LEkpy 

1 

Współczynnik odkształcenia - kpy: 

 

 

4

 

10. Wygenerować zdarzenie OnClick dla komponentu Buton i wpisać następujący kod: 

 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 
  r:=StrToFloat(LEr.Text); 
  dx:=StrToFloat(LEdx.Text); 
  dy:=StrToFloat(LEdy.Text); 
  kx:=StrToFloat(LEkx.Text); 
  ky:=StrToFloat(LEky.Text); 
  alfa:=StrToFloat(LEalfa.Text); 
  kpx:=StrToFloat(LEkpx.Text); 
  kpy:=StrToFloat(LEkpy.Text); 
 
  with Image1.Canvas do begin 
    Brush.Color:=clWhite; 
    Brush.Style:=bsSolid; 
    FillRect(Rect(0,0,Image1.Width,Image1.Height)); 
 
    for i:=1 to 360 do begin 
        th:=Pi*i/180; 
        s:=Sin(th);    c:=Cos(th); 
        xp:=r*s*s*s;   yp:=r*c*c*c; 
        xp:=xp+dx;     yp:=yp+dy; 
        xp:=kx*xp;     yp:=ky*yp; 
        Obrot(xp,yp,alfa,xn,yn); 
        xp:=xn+yn*kpx; 
        yp:=yn+xn*kpy; 
        xx[i+1]:=xp; 
        yy[i+1]:=yp 
    end; 
    xx[1]:=0;       yy[1]:=0; 
    ZX:=Image1.Width;    ZY:=Image1.Height; 
    Normalizacja(360,ZX,ZY,xx,yy,X,Y); 
    X0:=Round(X[1]);   Y0:=Round(Y[1]); 
    Osie(X0,Y0,ZX,ZY,'x','y',Image1.Canvas); 
    MoveTo(Round(X[2]),Round(Y[2])); 
    for i:=2 to 360 do 
      LineTo(Round(X[i]),Round(Y[i])); 
  end; 
end; 

 

14. Skompilować i uruchomić program przyciskiem F9 na klawiaturze komputera. 

 

 

5

 

 

Rys. 2 Uruchomiony program