1-Execução de todos os comandos que envolvem a construção do tabuleiro apartir da repetição de quadrados
(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" "l" "" "r" "1" "4" "2"))
"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" "l" "" "r" "1" "4" "2"))
(defun c:cpy () (command "copy" "all" "" "0,0" "1,1"))
(defun c:ref () (command "mirror" "all" "" "4,0" "4,8" "n"))
(defun c:mud () (command "chprop" "p" "" "la" "pretas" "" ))
)
(defun c:mud () (command "chprop" "p" "" "la" "pretas" "" ))
)
· A segunda consiste na realização do tabuleiro de Xadrês, utilizando uma unica função Autolisp:
(defun c:tab ()
(command "layer" "n" "brancas" "n" "pretas" "c" "1" "pretas" "s" "brancas" ""))
(command "solid" "0,0" "1,0" "0,1" "1,1" "")
(command "array" "l" "" "r" "l" "4" "2" )
(command "copy" "all" "" "0,0" "1,1" )
(command "array" "all" "" "r" "4" "1" "2" )
(command "mirror" "all" "" "4,0" "4,8" )
(command "chprop" "p" "" "la" "pretas" "" )
(command "zoom" "e" )
)
(command "layer" "n" "brancas" "n" "pretas" "c" "1" "pretas" "s" "brancas" ""))
(command "solid" "0,0" "1,0" "0,1" "1,1" "")
(command "array" "l" "" "r" "l" "4" "2" )
(command "copy" "all" "" "0,0" "1,1" )
(command "array" "all" "" "r" "4" "1" "2" )
(command "mirror" "all" "" "4,0" "4,8" )
(command "chprop" "p" "" "la" "pretas" "" )
(command "zoom" "e" )
)
- Depois para dar continuidade a uma aula de revisão trabalhamos com poligonos que em outras aulas já os tinhamos construido e associação das suas layers alterando o nome e a cor para cada poligono
- Transportamos o circulo para dentro do quadrado utilizando o comando "Move"
Sem comentários:
Enviar um comentário