Нарисовать движущуюся машину

@AlexRasko · Регистрация: 10.06.2014

Author24 — интернет-сервис помощи студентам

Вообщем я нарисовал машину, помогите сделать так, что бы она проезжала по плоскости как сейчас стоит. Ещё если не сложно, можете сделать что бы трава рандомно генерировалась?
Буду очень благодарен.
Вот код:

Pascal

uses
  GraphABC;
begin
  SetWindowWidth(800);                                        //ширина окна
  SetWindowHeight(600);                                       //высота окна
  SetPenWidth(3);
  RoundRect(200, 300, 600, 350, 20, 20);                      //кузов машины
  FloodFill(400, 320, clNavy);
  Circle(290, 350, 30);                                       //переднее колесо
  FloodFill(300, 360, clblack);
  Circle(510, 350, 30);                                       //заднее колесо
  FloodFill(520, 360, clblack);
  
  begin
    SetPenWidth(3);
    Line(300, 300, 340, 250);
    Line(340, 250, 470, 250);
    Line(470, 250, 510, 300);
    Line(405, 250, 405, 350);
    Line(510, 300, 510, 320);
    Line(300, 300, 300, 320);
    Line(380, 310, 390, 310);
    Line(480, 310, 490, 310);
    Line(300, 300, 510, 300);
    
  end;
  begin
    SetPenColor(clgray);                                  //цвет кисти
    SetPenWidth(15);                                       //размер кисти
    Circle(510, 350, 10);                                 //заднее колесо
    Circle(290, 350, 10);                                 //переднее колесо
    
  end;
  begin
    SetPenWidth(3);
    SetPenColor(clYellow);
    Circle(100, 100, 30);
    FloodFill(110, 110, clYellow);
    Line(140, 120, 200, 150);
    Line(130, 135, 150, 160);
    Line(120, 140, 140, 190);
    Line(105, 145, 110, 170);
    Line(95, 145, 90, 190);
  end;
  begin
  SetPenWidth(20);
  SetPenColor(clgreen);
  Line(0, 385, 800, 385);
  SetPenWidth(3);
    SetPenColor(clOlive);
    Rectangle(0, 385, 800, 600);
    FloodFill(110, 390, clOlive);
  end;
end.

@Sergio Leone · 10.06.2014, 16:39

1) не используйте begin end в простом коде, где они не нужны.

2) перерисуйте машину методом от базовой точки.
вот это код рисования машины:

Pascal

  SetPenWidth(3);
  RoundRect(200, 300, 600, 350, 20, 20);                      //кузов машины
  FloodFill(400, 320, clNavy);
  Circle(290, 350, 30);                                       //переднее колесо
  FloodFill(300, 360, clblack);
  Circle(510, 350, 30);                                       //заднее колесо
  FloodFill(520, 360, clblack);
 
  SetPenWidth(3);
  Line(300, 300, 340, 250);
  Line(340, 250, 470, 250);
  Line(470, 250, 510, 300);
  Line(405, 250, 405, 350);
  Line(510, 300, 510, 320);
  Line(300, 300, 300, 320);
  Line(380, 310, 390, 310);
  Line(480, 310, 490, 310);
  Line(300, 300, 510, 300);
 
  SetPenColor(clgray);                                  //цвет кисти
  SetPenWidth(15);                                       //размер кисти
  Circle(510, 350, 10);                                 //заднее колесо
  Circle(290, 350, 10);                                 //переднее колесо

сделайте так, чтобы он зависел от некой точки.
ну, пусть это будет точка с координатами x, y
где зададите x,y - там машина и должна быть нарисована

3) а что значит - трава генерилась рандомно?
У вас же трава - это просто линия. Как она должна выглядеть?!

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

	10.06.2014, 16:39