[1200]

добрый день. в институте задали написать программу под Autocad - брезенхема в виде наклонной линии. может кто нть помочь сделать? я в Autocade мягко говоря не бум-бум. весь нэт перерыл и ничего не нашел...

[hwd]

Offtop: у меня смутные подозрения, что автор не знает как запустить написанный за него написанный с посторонней помощью код...

[Дима_]

Сообщение от gomer 1200, мне понято, что вам не понятно ничего... объясните мне, темному человеку, практическую ценность применения алгоритма Брезенхема в среде Автокад

Зачет поставят.

[gomer]

когда я учился у нас ходила поговорка: Преподаватели делают вид, что учат, а студенты делают вид, что учатся...

[Сергей Дубина]

Сообщение от gomer Преподаватели делают вид, что учат, а студенты делают вид, что учатся...

Нормальный учебный процесс ИМХО. Зачем нам на численных методах был метод Эйлера или Рунге-Кута, где в повседневной жизни он применяется (инженером строителем). Все это для общего развития, пусть учат, потом некогда будет.

[TararykovDG]

Сообщение от 1200 это да... поможете переделать?

1200, мой код и так написан на лиспе. Просто я сказал что написал его не "лисповым" стилем. И сделал это умышленно.
Во-первых, потому что, если Тебе этот алгоритм надо сдать преподу в институте, то поверь лучше сдавать именно такой вариант, и во-вторых, как я говорил мой код - перевод кода написанного на С++ в ссылке которую я давал в #3 посте. Я даже имена переменных оставил похожими, чтобы Тебе (если у Тебя конечно есть такое желание) было проще самому разобраться в проге (в данном случае я предположил, что раз уж Ты не знаком с лиспом, то может Ты знаешь другой язык программирования, например С++, и Тебе будет легче разобраться с лисп кодом если он будет написан в Си-подобном стиле).

И еще вопрос, Ты вообще пробывал запустить мой код в Автокаде. Если да, то я не понимаю почему возник вопрос о переводе на лисп, того, что и так на лиспе написано. Если нет, то тогда за что Ты мне говорил

Сообщение от 1200 TararykovDG, спасибо большое!

[gomer]

Сообщение от Сергей Дубина Нормальный учебный процесс

Лучше б уж гарденпаф учились программировать... Хотя это тоже прикольный метод оградки рисовать...

[Сергей Дубина]

Сообщение от gomer Хотя это тоже прикольный метод оградки рисовать...

А может он раскладку узоров на кирпичных фасадах подбирать станет так алгоритм Брезенхема его до конца дней кормить будет...

[Дима_]

На тебе код на "чыстейшем" лиспе - когда преподователь спросит что это - передай ему от меня пламенный привет.

Код:

[Выделить все]

 (defun brezent (pt1 pt2)
  ((lambda (vector f-rec)
     (f-rec pt1))
   ((lambda (delta)
      (if (not (equal pt1 pt2 0.5))
          (mapcar '(lambda (x)
                     (/ (float x)
                        (apply 'max (mapcar 'abs delta))))
                  delta)))
    (mapcar '- pt2 pt1))
   (lambda (pt1)
     (entmakex (list (cons 0 "circle")
                     (cons 10 (mapcar 'fix pt1))
                     (cons 40 1)))
     (if (not (equal pt1 pt2 0.5))
         (f-rec (mapcar '+ pt1 vector))))))

[Елпанов Евгений]

Ну...
Ибо.

Короче, на лиспе, я бы делал так:

Код:

[Выделить все]

 (defun br (p1 p2 / f)
 (defun f (a p1 p2) (br (mapcar '+ p1 (list (cos a) (sin a) 0)) p2))
 (entmakex (list '(0 . "circle") (cons 10 (mapcar 'fix p1)) '(40 . 0.5)))
 (if (equal p1 p2 1) (princ) (f (angle p1 p2) p1 p2)))

Пример вызова:

Код:

[Выделить все]

 (defun c:t1 (/ p1 p2)
 (setq p1 (getpoint)
       p2 (getpoint)
 )
 (entmakex (list '(0 . "line") (cons 10 p1) (cons 11 p2)))
 (br p1 p2)
)

ps. но такое сдавать нельзя - ученик не сможет объяснить, а препод не сможет понять...

[Дима_]

Евгений - просто класс конечно-же через синусы - нафиг я этот вектор считал!
p.s. - стерто

[Елпанов Евгений]

Сообщение от Дима_ через синусы - нафиг я этот вектор считал!

Да, и в итоге, у тебя получилось трехмерное растрирование линии, т.е при использовании трехмерной линии, все кружочки лежат на разных уровнях...
А вообще, я хотел написать код по компактнее. Чтоб преподу поменьше читать было, а студенту учить!

[gomer]

Сообщение от Елпанов Евгений я бы делал так:

Сообщение от Елпанов Евгений А вообще, я хотел написать код по компактнее.

слишком сложно!

Сообщение от Елпанов Евгений у тебя получилось трехмерное растрирование линии

ага немного мимо цели...
Все еще проще... И оценку тут ставить не за что...

Код:

[Выделить все]

 (defun brs (p1 p2)
(entmakex (list '(0 . "CIRCLE") (cons 10 (mapcar 'fix p1)) '(40 . 0.5)))
(cond ((equal p1 p2 1.0))
((brs (polar p1 (angle p1 p2) 1.0) p2))))

(defun c:test( / p10 p11 *error*)
  (defun *error* (msg) (princ))
  (and (setq p10 (getpoint "\nНачальная точка: "))
	   (setq p11 (getpoint p10 "\nКонечная точка: "))
	(progn
	  (entmakex (list '(0 . "line") (cons 10 p10) (cons 11 p11)))
	  (brs (list (car p10)(cadr p10)) (list (car p11)(cadr p11))))
  )
  (princ)
)

зы так забавно смотреть на подсветку лисп кода

[Елпанов Евгений]

gomer, в твоем коде, кружочков будет больше, чем надо, т.е часть из них будет наложена друг на друга...

[gomer]

Сообщение от Елпанов Евгений кружочков будет больше, чем надо, т.е часть из них будет наложена друг на друга...

мдя... не подумал я... каюсь... В #6, #28 вроде наложения не происходит, как у меня и в #29