Уроки, алгоритмы, программы, примеры

Материалы по разделам

Построения
на плоскости (2D)
Графика
в пространстве (3D)
Вычислительная
геометрия
Физическое
моделирование
Фрактальная
графика

Новые комментарии

У меня проблема вот с этим: gl.Clear(OpenGL.GL_COLOR_BUFFER_BIT | OpenGL.GL_DEPTH_BUFFER_BIT);. Вылезает ошибка: CS1061 "object" не содержит определения "GL_COLOR_BUFFER_BIT", и не удалось найти доступный метод расширения "GL_COLOR_BUFFER_BIT",...
Большое спасибо. Единственный код который прошел без каких либо ошибок. Ура!!!
Скажите пожалуйста, подскажите алгоритм по которому по заданным точкам можно определить тип многогранника, скажем это куб или прямоугольный параллелепипед. Нашел теорию по этим фигурам: https://www.mat... https://www.mat... Акцентировать внимание...
Всем у кого не работает. файл wizard.script Ещё одно упоминание Glut32 в строке "if (!VerifyLibFile(dir_nomacro_lib, _T("glut32"), _T("GLUT's"))) return false;" меняем на "if (!VerifyLibFile(dir_nomacro_lib, _T("freeglut"), _T("GLUT's"))) return...
Не получается, емаё

Счетчики и рейтинг

Рейтинг@Mail.ru Яндекс.Метрика
Скриншот к примеру
Среда программирования: 
Lazarus
Статья по теме: 

Программа отрисовывает кривую Минковского.

Для запуска программы в левом углу нажимаем на кнопку "Нарисовать".

Код программы: 

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Buttons;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    PaintBox1: TPaintBox;
    procedure BitBtn1Click(Sender: TObject);
 
    procedure Gor(x,y: integer);
    procedure Ver(x,y: integer);
    procedure Minkovsky(x,y: integer);
 
 
  private
    { private declarations }
  public
    { public declarations }
 
    end;
 
var
  Form1: TForm1;
    var i,x1,y1,k,n:LongInt;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
  procedure TForm1.Gor(x,y: integer);  // горизонтальный отрезок
  begin
    PaintBox1.Canvas.Line(x,y,x+k div 4,y);
    PaintBox1.Canvas.Line(x+k div 4,y+k div 4,x+k div 4+k div 4,y+k div 4);
    PaintBox1.Canvas.Line(x+k div 4+k div 4,y-k div 4,x+k-k div 4,y-k div 4);
    PaintBox1.Canvas.Line(x+k-k div 4,y,x+k,y);
    PaintBox1.Canvas.Line(x+k div 4,y,x+k div 4,y+k div 4);
    PaintBox1.Canvas.Line(x+k div 4+k div 4,y+k div 4,x+k div 4+k div 4,y-k div 4);
    PaintBox1.Canvas.Line(x+k-k div 4,y-k div 4,x+k-k div 4,y);
  end;
   procedure TForm1.Ver(x,y: integer); // вертикальный отрезок
  begin
      PaintBox1.Canvas.Line(x,y,x,y+k div 4);
      PaintBox1.Canvas.Line(x, y+k div 4, x-k div 4,y+k div 4);
      PaintBox1.Canvas.Line(x-k div 4, y+k div 4, x-k div 4,y+k div 4+k div 4);
      PaintBox1.Canvas.Line(x-k div 4,y+k div 4+k div 4, x+k div 4,y+k div 4+k div 4);
      PaintBox1.Canvas.Line(x+k div 4, y+k div 4+k div 4, x+k div 4, y+k-k div 4);
      PaintBox1.Canvas.Line(x+k div 4, y+k-k div 4, x, y+k-k div 4);
      PaintBox1.Canvas.Line(x, y+k-k div 4,x,y+k);
   end;
   procedure TForm1.Minkovsky(x,y: integer); // функция построения кривой
   begin
 
       Gor(x,y);
       Ver(x+k,y);
       Gor(x+k,y+k);
       Ver(x+2*k, y-k);
       Ver(x+2*k, y1);
       Gor(x+2*k,y-k);
       Ver(x+3*k, y-k);
       Gor(x+3*k, y);
 
   end;
   procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
    k:=120;
     x1:=50; y1:=200;
     Minkovsky(x1,y1);
 
  end;
end.

Прикрепленный файлРазмер
Minkovsky.rar686.66 кб

Комментарии

Катя аватар
Опубликовано Катя в 28. Февраль 2019 - 13:55.

А как можно добавить сюда глубину рекурсии, то есть сложность линии?