;Faculdade de Arquitetura da Universidade de Lisboa;
;Modelação e Visualização Tridimensional em Arquitetura; 


;Madalena Ferreira, 20181173, Miarq3C;

;Esta macro cria o módulo de uma porta de varanda;
(defun c:porta_varanda ()
(setq pontos_2d (getvar "osmode"))
		 (setvar "osmode" 1)
		 
   
           
		
		     (setq contorno  
				         (command "pline" "0,0"
				     "@1.5,0"
					 "@0,2.5"
					 "@-1.5,0"
					 "@0,-2.5"
					 "close"
					 ))
			 
			(setq limiteinferior
				        (command "pline" "0.12,0.15"
				     "@1.26,0"
					 "@0,0.76"
					 "@-1.26,0"
					 "@0,-0.76"
					 "close"
					 )) 
			 
			 (setq limitesuperior
				        (command "pline" "0.12,1.15"
				     "@1.26,0"
					 "@0,1.2"
					 "@-1.26,0"
					 "@0,-1.2"
					 "close"
					 )))