2017-11-26 20:40:20 +03:00
|
|
|
|
uses Graph3D;
|
2017-08-22 22:53:41 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
View3D.ShowGridLines := False;
|
2017-11-26 20:40:20 +03:00
|
|
|
|
var Циферблат := Cylinder(0,0,-0.4,0.2,6,Colors.DeepPink);
|
|
|
|
|
|
var Сек := Arrow(0,0,0,0,-5.5,0,0.2,Colors.Yellow);
|
|
|
|
|
|
var Мин := Arrow(0,0,0,0,-6.0,0,0.3,Colors.Red);
|
2017-08-22 22:53:41 +03:00
|
|
|
|
|
|
|
|
|
|
var a := 0;
|
|
|
|
|
|
var r := 5.8;
|
|
|
|
|
|
loop 60 do
|
|
|
|
|
|
begin
|
|
|
|
|
|
Sphere(r*cos(a*Pi/180),r*sin(a*Pi/180),-0.2,0.1,Colors.White);
|
|
|
|
|
|
a += 6;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
while True do
|
|
|
|
|
|
begin
|
|
|
|
|
|
Sleep(10);
|
2017-11-26 20:40:20 +03:00
|
|
|
|
Сек.Rotate(v3D(0,0,1),-6);
|
|
|
|
|
|
Мин.Rotate(v3D(0,0,1),-6/60);
|
2017-08-22 22:53:41 +03:00
|
|
|
|
end;
|
|
|
|
|
|
end.
|
