Aula de computação 5 - Dia 18 de Outubro de 2012

Continuação da execução das figuras da aula anterior...


Depois da criação das figuras e das respectivas layers, fez-se com que todas as figuras tivessem o centro coincidente com o centro do quadrado.

Polígonos com centro coincidente.

De seguida preencheu-se cada polígono com mancha de acordo com a  cor da respectiva layer, através do comando " solid ".

Polígonos preenchidos.

Tabuleiro de xadrez

Num novo ficheiro auto CAD, criou-se um tabuleiro de Xadrez, iniciando-se com a criação de um quadro com as dimensões de 1 de lado, e multiplicando-o até 64 entidades iguais.

Para esse fim, foi necessário a criação de duas layers:


(defun c:lay () (command "layer" "n" "brancas" "n" "pretas" "c" "1" "pretas" "s" "brancas" "")) 
(defun c:casa () (command "solid" "0,0" "1,0" "0,1" "1,1" ""))
(defun c:ze () (command "zoom" "e"))
(defun c:col () (command "array" "all" "" "r" "1" "4" "2"))
(defun c:cpy () (command "copy" "all" "" "0,0" "1,1" ""))
(defun c:lin () (command "array" "all" "" "r" "4" "1" "2" "1"))

 

 

Aula de Computação 4 - Dia 11 de Outubro de 2012

Foi realizada a visualização de um filme de Greg Lynn, no qual este fala, resumidamente, sobre as raízes matemáticas de arquitectura, e como as ferramentas de cálculo digital permitem com que os designers e arquitectos modernos consigam ir para além das formas tradicionais de construção.

Link a consultar: http://www.ted.com/talks/greg_lynn_on_organic_design.html

Continuação da representação de entidades/figuras 

em auto-CAD

Criação de um pentágono 

Respectivos dados pentágono:

polygon

5

e

0,0

1,0

;macro de desenho de pentágonos dando a possibilidade de

;seleccionar a dimensão do lado e o seu ponto de inserção

               (defun pen ()

               (setq pt1 (getpoint "\nqual o primeiro ponto dolado"))

               (setq pt2 (getpoint "\nqual o segundo ponto do lado "))

               (command "polygon" "5" "e" pt1 pt2)

               )

Representação do pentagono

Criação de um rectângulo de proporção raiz de 2 

Respectivos dados relativos á construção do rectângulo:

(defun c:r2 ()

               (setq os (getvar "osmode"))

               (setvar "osmode" 0)

               (setq pt1 (getpoint "\nqual o ponto de inserção? "))

               (setq lado (getreal "\nqual a dimensão do lado menor? "))

               (setq pt2 (list (+ (car pt1) (* lado (sqrt 2))) (cadr pt1)))

               (setq pt3 (list (car pt2) (+ lado (cadr pt2))))

               (setq pt4 (list (car pt1) (cadr pt3)))

               (command "pline" pt1 pt2 pt3 pt4 "c")

)

Cálculos auxiliares - registo fotográfico

Representação do rectângulo de proporção raiz de 2

Criação de um rectângulo de proporção áurea 

Respectivos dados relativos á construção do rectângulo:

;desenhar um rectangulo de proporçao aurea dando um ponto de

;inserçao no canto inferior esquerdo e o lado menor do rectangulo

(defun c:rau()

               (setq os (getvar "osmode"))

               (setvar "osmode" 0)

               (setq pt1 (getpoint "\nqual o ponto de inserçao? "))

               (setq lado (getreal "\nqual  a dimensao do lado menor? "))

               (setq pt2 (list (+ (car pt1) (/ lado 2) (sqrt (+ (expt lado 2) (expt (/ lado 2) 2)))) (cadr pt1)))

               (setq pt3 (list (car pt2) (+ (cadr pt2) lado)))

               (setq pt4 (list (car pt1) (cadr pt3)))

               (command "pline" pt1 pt2 pt3 pt4 "c")

               (setvar "osmode" os)

               )

Calculo auxiliar - Registo fotográfico

Representação do rectângulo de proporção áurea

Criação de Layers 

De seguida foi criada e editada uma layer para cada entidade, através do comando "La"(layer). Deste modo cada figura ficaria representada com a cor respectiva da respectiva layer:

Layer "qua" (quadrado) - cor vermelha

Layer "tri" (triangulo) - cor azul escura

Layer "circ" (circulo) - cor amarela

Layer "pen" (pentágono) - cor verde

Layer "r2" (rectangulo raiz de 2) - cor azul clara

Layer "rau" (rectabgulo áurea) - cor roxo