Не запускается программа - PascalABC.NET (251673)
Формулировка задачи:
Решение задачи: «Не запускается программа»
textual
Листинг программы
uses Graph3D; begin Window.Title := 'Вращение планет'; View3D.ShowCoordinateSystem := False; View3D.ShowGridLines := False; View3D.ShowViewCube := False; View3D.BackgroundColor := Colors.Black; var s := Sphere(2, 0, 0, 0.5, Colors.Red); var ss := Sphere(0, 0, 0, 1, Colors.Blue); Sphere(0, 0, 0, 2, DiffuseMaterial(Colors.Yellow) + SpecularMaterial(32)); var g := Group(s, ss); g.MoveOn(-7, 0, 0); var anim := s.AnimRotateAt(OrtZ, 360 * 100, P3D(-2, 0, 0), 2 * 100) * g.AnimRotateAt(OrtZ, 360 * 100, P3D(7, 0, 0), 10 * 100); anim.Begin; end.
Объяснение кода листинга программы
- Объявлены переменные s, ss, g.
- Создается окно с заголовком 'Вращение планет'.
- Отключается отображение координатной системы, линий сетки и куба просмотра.
- Устанавливается цвет фона черным.
- Создается сфера s с радиусом 2, центром в точке (0,0,0) и цветом красным.
- Создается сфера ss с радиусом 1, центром в точке (0,0,0) и цветом синим.
- Создается сфера с радиусом 0, центром в точке (0,0,0) и материалом, который отражает желтый цвет и имеет коэффициент отражения 32.
- Создается группа g, которая содержит сферы s и ss.
- Группа g перемещается на расстояние -7 по оси X.
- Создается анимация для сферы s, которая вращается вокруг оси Z на 360 градусов в течение 100 единиц времени с центром вращения в точке (-2,0,0) и группой g.
- Создается анимация для группы g, которая вращается вокруг оси Z на 360 градусов в течение 100 единиц времени с центром вращения в точке (7,0,0).
- Запускается анимация.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д