;Macro para fazer textura de contraplacado
;Macro realizada por Duarte Catalão, 2 ano turma D
;Sistemas de Representacao Digital em Arquitetura lecionada pelo professor Luis Romao
;Mestrado Integrado em Arquitetura - Faculdade de Arquitetura - UL
;2017/2018

;a partir de um retangulo pre feito indica se o ponto inferior esquerdo e seguidamente o superior direito
(setq P1 (getpoint "introduza o primeiro ponto: "))
(setq P3 (getpoint "introduza o segundo ponto: "))
;Automaticamnete o que ira fazer é dividir o retangulo em tres partes iguais

(defun c:contra ()
(setq spontos (getvar 'osmode))

(setvar 'osmode 1)

(setq P1 (getpoint "introduza o primeiro ponto: "))
(setq P3 (getpoint "introduza o segundo ponto: "))
(setq p4 (list (car p1) (cadr p3)))

(setvar 'osmode 0)

(setq P7 (polar P1 (angle P1 P4) (/ (distance P1 P4) 4)))
(setq P6 (polar P1 (angle P1 P4) (/ (distance P1 P4) 2)))
(setq P5 (polar P1 (angle P1 P4) (* (distance P1 P4) 0.75)))

(setq P8 (polar P3 (angle P4 P1) (* (distance P1 P4) 0.75)))
(setq P9 (polar P3 (angle P4 P1) (/ (distance P1 P4) 2)))
(setq P10 (polar P3 (angle P4 P1) (/ (distance P1 P4) 4)))


(command "line" P5 P10 "")
(command "line" P6 P9 "")
(command "line" P7 P8 "")


)