O filme da modelação tridimensional da Casa Beard de Richard Neutra em SketchUp, com música de Glenn Miller "In the mood" - Aqui.
terça-feira, 8 de junho de 2010
quinta-feira, 15 de abril de 2010
14.3.10


Trabalho de modulação tridimensional.
Casa Beard, em SketchUp.
Richard Neutra
1934-1935
111 m21,194.794 ft² 132.755 yd² 1.11e-4 km² 0.0111 ha 4.285734e-5 miles²
1981 Meadowbrook Road, Altadena, Los Angeles, California, United States
34.18287548891803° N, 118.10976773500443° WLatitude: 34°10′58.352″NLongitude: 118°6′35.164″W
quinta-feira, 7 de janeiro de 2010
quinta-feira, 10 de dezembro de 2009
quinta-feira, 3 de dezembro de 2009
3.12.09
quinta-feira, 26 de novembro de 2009
26.11.09
terça-feira, 24 de novembro de 2009
quinta-feira, 19 de novembro de 2009
19.11.09
Comandos em script
(defun quadrado ()
(command "line" "0,0" 1,0" "1,1" "0,1" "c")
)
(defun qgeral ()
(setq p1 (get point "\n qual o ponto de inserção? "))
(setq lado (getreal "\n qual a medida do lado? "))
(setq p2 (list (+ (car p1) lado) (car (cdr p1))))
(setq p3 (list (+ (car p1) lado) (+ (car (cdr p1)) lado)))
(setq p4 (list (car p1) (+ (car (cdr p1)) lado)))
(command "line" p1 p2 p3 p4 "c")
)
(defun dtr (a) (* pi (/ a 180.0)))
(defun porta ()
(setq p1 (getpoit "\n qual o ponto de inserção? "))
(setq largura (getreal "\n qual a largura da porta? "))
(setq orientacao (getint "\n qual a direcção da porta? (0,90,180,270) " ))
(setq abertura (getstring "\n abre à direita ou à esquerda? (e, d) "))
(command "line" p1 (setq p2 (polar p1 (dtr orientacao) largura)) "")
(if ( = abertura "d")
(command "arc" "ce" p1 p2 "a" "90")
(command "arc" "ce" p1 p2 "a" "-90"))
)
(defun quadrado ()
(command "line" "0,0" 1,0" "1,1" "0,1" "c")
)
(defun qgeral ()
(setq p1 (get point "\n qual o ponto de inserção? "))
(setq lado (getreal "\n qual a medida do lado? "))
(setq p2 (list (+ (car p1) lado) (car (cdr p1))))
(setq p3 (list (+ (car p1) lado) (+ (car (cdr p1)) lado)))
(setq p4 (list (car p1) (+ (car (cdr p1)) lado)))
(command "line" p1 p2 p3 p4 "c")
)
(defun dtr (a) (* pi (/ a 180.0)))
(defun porta ()
(setq p1 (getpoit "\n qual o ponto de inserção? "))
(setq largura (getreal "\n qual a largura da porta? "))
(setq orientacao (getint "\n qual a direcção da porta? (0,90,180,270) " ))
(setq abertura (getstring "\n abre à direita ou à esquerda? (e, d) "))
(command "line" p1 (setq p2 (polar p1 (dtr orientacao) largura)) "")
(if ( = abertura "d")
(command "arc" "ce" p1 p2 "a" "90")
(command "arc" "ce" p1 p2 "a" "-90"))
)
19.11.09
Comandos em script
(defun quadrado ()
(command "line" "0,0" 1,0" "1,1" "0,1" "c")
)
(defun qgeral ()
(setq p1 (get point "\n qual o ponto de inserção? "))
(setq lado (getreal "\n qual a medida do lado? "))
(setq p2 (list (+ (car p1) lado) (car (cdr p1))))
(setq p3 (list (+ (car p1) lado) (+ (car (cdr p1)) lado)))
(setq p4 (list (car p1) (+ (car (cdr p1)) lado)))
(command "line" p1 p2 p3 p4 "c")
)
(defun dtr (a) (* pi (/ a 180.0)))
(defun porta ()
(setq p1 (getpoit "\n qual o ponto de inserção? "))
(setq largura (getreal "\n qual a largura da porta? "))
(setq orientacao (getint "\n qual a direcção da porta? (0,90,180,270) " ))
(setq abertura (getstring "\n abre à direita ou à esquerda? (e, d) "))
(command "line" p1 (setq p2 (polar p1 (dtr orientacao) largura)) "")
(if ( = abertura "d")
(command "arc" "ce" p1 p2 "a" "90")
(command "arc" "ce" p1 p2 "a" "-90"))
)
(defun quadrado ()
(command "line" "0,0" 1,0" "1,1" "0,1" "c")
)
(defun qgeral ()
(setq p1 (get point "\n qual o ponto de inserção? "))
(setq lado (getreal "\n qual a medida do lado? "))
(setq p2 (list (+ (car p1) lado) (car (cdr p1))))
(setq p3 (list (+ (car p1) lado) (+ (car (cdr p1)) lado)))
(setq p4 (list (car p1) (+ (car (cdr p1)) lado)))
(command "line" p1 p2 p3 p4 "c")
)
(defun dtr (a) (* pi (/ a 180.0)))
(defun porta ()
(setq p1 (getpoit "\n qual o ponto de inserção? "))
(setq largura (getreal "\n qual a largura da porta? "))
(setq orientacao (getint "\n qual a direcção da porta? (0,90,180,270) " ))
(setq abertura (getstring "\n abre à direita ou à esquerda? (e, d) "))
(command "line" p1 (setq p2 (polar p1 (dtr orientacao) largura)) "")
(if ( = abertura "d")
(command "arc" "ce" p1 p2 "a" "90")
(command "arc" "ce" p1 p2 "a" "-90"))
)
sábado, 14 de novembro de 2009
14.11.09
Subscrever:
Comentários (Atom)


