Прошу помочь ,Я заплачу

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем globax, 11 фев 2006.

Статус темы:
Закрыта.
  1. globax

    globax Гость

    добрый день уважаемые знатоки круглого стола , прошу вашей помощи , дело в том что мне очень надо
    написать программу , которая решит буду ли я учиться в универе дальше или меня выгонят да я программер начинающий , но я стремлюсь к большему, моя мечта стать спецом,но что то не очень получается, задача такая
    ==дана картинка сосканированая
    с листа в формате *.jpg. Нужно, чтоб в блоке программы человек мог выбрать
    нужную картинку и задал ленейный размер. Программа посчитала количество
    точек заключённых в чёрных линниях либо линиях любого другого цвета и
    пересчитала с помощью линейного размера эти точки в реальную площадь площадь.===
    прошу вас помогите , как это реализовать , и если можно в делфи , мне нужен наглядный код данного приложения , посути это нужно посчитать количество пикселей в некоей замкнутой области (так я понял), а уж пиксели перевести в квадратные см,м,км Самое простое - разбитие фигуры на элементарные треугольники с проверкой на выпуклость фигуры и подсчет их площадей
    Но как это сделать не знаю, Я знаю бесплатно помощи я не получу ,если так я готов заплатить. пишите satdog@mail.ru
     
  2. Gisma

    Gisma Гость

    mailto: gis2002@inbox.ru
    высылате ТЗ у меня есть желание и возможности:ph34r:
     
  3. 62316e

    62316e Гость

    Поставь задачу более конкретней и тебе помогут.
     
  4. Fabricija

    Fabricija Гость

    У меня почти такая же проблема. Мне нужно подсчитать количество пикселей в замкнутой фигуре. Помогите пожалуйста.
     
  5. niello

    niello Гость

    Код (Text):
    function GetS(Polygon : Array of TPoint):Real;
    var
    i : integer;
    sq,s : Real;
    res : Real;
    size : integer;
    begin
    res:=0;
    Size:=High(Polygon)+1;
    for i:=0 to Size-1do begin
    if i=0 then
    begin
    s:=Polygon[i].X*(Polygon[Size-1].Y-Polygon[i+1].Y);
    res:=res+s;
    end
    else
    begin
    if i = Size-1 then
    begin
    s:=Polygon[i].X*(Polygon[i-1].Y-Polygon[0].Y);
    res:=res+s;
    end
    else
    begin
    s:=Polygon[i].X*(Polygon[i-1].Y-Polygon[i+1].Y);
    res:=res+s;
    end;
    end;
    end;
    sq:=ABS(res/2);
    Result:=sq;
    end;
    Результат надобно округлить). Ну а вот получение полигона — выбирай либо вручную, либо как-то автоматически окунтуривать и т.д.
    Upd: Полигон всмысле Polygon — точки с кординатами Х и У.
     
Загрузка...
Похожие Темы - Прошу помочь заплачу
  1. Hemenede
    Ответов:
    2
    Просмотров:
    229
  2. Skellar
    Ответов:
    10
    Просмотров:
    5.312
  3. webwareroot
    Ответов:
    0
    Просмотров:
    114
  4. Gandliar
    Ответов:
    12
    Просмотров:
    725
  5. virusksv
    Ответов:
    2
    Просмотров:
    1.199
Статус темы:
Закрыта.

Поделиться этой страницей