1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.BtAtommodellClick(Sender: TObject);
var s,u, i,a,b,c:real;
    x,f,y,x0,y0 : longint;
      bitmap:tbitmap;

begin

a:=100;
b:=200;
s:=0.00001;
c:=1;

begin
  bitmap:=tbitmap.Create;
  bitmap.assign(Form1.ImageBall.Picture);
repeat
u:=c*pi/4;
i:=0;
randomize;
f:=random(maxint);
Repeat
  x:=trunc(a*cos(i));
  y:=trunc(b*sin(i));
  x0:=trunc(x*cos(u)-y*sin(u));
  y0:=trunc(x*sin(u)+y*cos(u));
  canvas.pixels[x0+300,y0 + 300]:=clblack;
     if (round(i*1000))/1000 = 1.571
   then  Form1.Canvas.Draw(x0+295,y0+295,bitmap);
  i:=i+s;

until i>6.28;
c:=c+1;
//u:=u+pi/8;
   // Form1.Canvas.Draw(x0+300,y0+300,bitmap);
until u>6.28;




end;
end;
end.