Вертолет

[BDA]

Если опираться на:

Далее написал программу на Делфи, которая выделяла из картинки прямые горизонтальные и вертикальные линии, при этом по эти данным генерировала код с MoveTo и LineTo. Вроде все просто, кода не более 50 строк.

то:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: tbitmap;
  i, j, k: integer;
  st: tstringlist;
  t: boolean;
begin
  if OpenDialog1.Execute then
  begin
    bmp := tbitmap.Create;
    bmp.LoadFromFile(OpenDialog1.FileName);
    st := tstringlist.Create;
    for i := 0 to bmp.Height - 1 do
    begin
      t := false;
      k := 0;
      for j := 0 to bmp.Width - 1 do
        if t then
        begin
          if bmp.Canvas.Pixels[j, i] <> clblack then
          begin
            st.Append('moveto(' + inttostr(k) + '+w,' + inttostr(i)
                + '+h);lineto(' + inttostr(j) + '+w,' + inttostr(i) + '+h);');
            t := false;
          end;
        end
        else if bmp.Canvas.Pixels[j, i] = clblack then
        begin
          t := true;
          k := j;
        end;
      if t then
        st.Append('moveto(' + inttostr(k) + '+w,' + inttostr(i)
            + '+h);lineto(' + inttostr(bmp.Width - 1)
            + '+w,' + inttostr(i) + '+h);');
    end;
    st.SaveToFile(OpenDialog1.FileName + '.txt');
    st.Free;
    bmp.Free;
  end;
end;

Нету никакой фильтрации изображения и упрощения линий.
Параметры w и h введены для возможности подвинуть рисунок этими константами.
41 строка.

[Arigato]

Сообщение от BARNEY

а можно взглянуть на исходники этой программы... Если конечно не жалко...

Без проблем.

[Rin]

О фильтрации ТС ничего не говорилось. Глянул исходник, векторизация присутствует. Правда, в серьезных векторных редакторах линии описывается формулой, а не точками, но и это не волнует ТС.

[Arigato]

Хм, только сейчас заметил ошибку, из-за которой создавались только горизонтальные линии, а вертикальные - нет. Исправил и перезалил тут: http://programmersforum.ru/showthrea...6380&page=2#12 и тут: http://programmersforum.ru/showthread.php?t=236380#4 (добавлена еще отрисовка отдельных пикселей).