Continuação do exercício 5 - 29/11/2016

Animação : Peças de Xadrez - 3DStudio Max e AutoCad

NotePad ++ 

Passo 1:Alterar a programação consoante a forma pretendida

Autocad

Passo 1: "APPLOAD"  lisp pretendido

Passo 2: "-VPOINT" 1, -1 , 1

Passo 3: "XAD"

Passo 4: "SHADEMODE"

Passo 5: Repetir o processo para o resto das peças
Passo 6: Guardar as peças em layers diferentes

Passo 6: Guardar as peças

1. 
   
   
   
   3DStudio Max
   
   
   Passo 1: Uma única janela
   Passo 2: keyboard entry lenght 400 width 400 height 5
   Passo 3: Seleciona-se o objeto, "MATERIAL EDITOR"
   Passo 4: Dar o nome do material de "Tabuleiro" , "ARCH E DESIGN" , e selecionar o modo Standard
   Passo 5: Para colocar uma imagem associada ao material, carregar no quadradinho á frente de "Diffuse" e escolher "bitmap" e escolhe o trabuleiro, e retirar a opção de "TILE" e o real world scale
   Passo 6: No modo edição, alterar o nome para "tabuleiro", e em "Modifier list" e alterar para "UVW MAP"
   Passo 7:"VIEWS" , "SHOW MATERIALS IN VIEWPORT AS" , "REALISTIC MATERIAL WITH MAP"
   Passo 8: Para importar as peças "IMPORT"
   Passo 9: Seleciona-se as peças , e "MATERIAL EDITOR", dar o nome do material de "Tabuleiro" , "ARCH E DESIGN" , e selecionar o modo Standard
   Passo 10: Alterar o nome do material para "pecas brancas" e alterar a cor para amarelo torrado e dar brilho em "SPECULAR HIGHTLIGHTS" em specular level = 55; glossine
2. ss = 50; e soften = 0,1

Passo 11: Para reposicionar o as peças, colocar em Z o valor de 25, para o cavalo, e para o peão 25 e o bispo 25

Passo 12: Carregar na tecla "SELECT AND MOVE" e deslocar consoante os eixos
Passo 13: Criação , e "CAMERA" , "TARGET", selecionar a vista top para posicionar a camara , precionando o rato , alterar a posição da câmara  selecionando o menu "SELECT AND MOVE" para a reposicionar
Selecionar na janela de "perspetiva", visualização da câmera 1 

Passo 14: Menu List e selecionar o "TARGET"

Passo 15:Menu "CRIAÇÃO" , "LIGHT", "TARGET SPOT"HOTSPOT" e aumentar
Passo 17: Selecionar a Camera
Passo 16: Altera no menu de edição e em Parameters "LENS" = 70
Passo 18:Construir uma animação em sistema PAL , Selecionar o menu "TIME CONFIGURATION"  em RE-SCALE TIME" Time= frames;end time 125;  lengh =125 frame ; frame count =126
Passo 19:"MODIFY" "EDIT MESH", "EXPLODE"
Passo 20: "GRAPH EDITOR" , "TRACK VIEW",  YPOSITION , adicionar uma key, e alterar a frame para 25
Passo 20: "RENDER SETUP" para salvar

Continuação do exercício 5 - 22/11/2016

Xadrez - Autocad e 3DStudio Max

Forma bidimensional -  Autocad

Pegar numa peça e desenhá-la de perfil no Autocad para, no 3DStudioMax, colocá-la em 3 dimensões

Passo 1: "RECTANG" ,  de (0,0) e (25,50)
Passo 2: "CIRCLE" , ponto médio com 10 unidades de raio 

Passo 3: "LINE" nos pontos médios

Passo 4: "TRIM" , cortar nas interseções pretendidas
Passo 5: "PEDIT", "JOIN" , selecionar as polylines pretendidas (enter)

Cafeteira -  3DStudioMax


Passo 1: No menu do "sol" menu de criação , serve para criar entidades, 3d, 2d, luzes, câmaras, e objetos de apoio
Passo 2: "TEAPOT", preciona-se o o botão direito do rato, e aparece a forma consoante a vista pretedida, controlando o raio e o número de segmentos que define a malha do desenho
Passo 3: No menu de edição, altera-se o nome do objeto , e no "MODIFIER LIST", seleciona-se "EDIT POLY"
Passo 4: Selecionar todos os pontos
Passo 5: Seleciona-se a janela "TOP"
Passo 6: No menu de edição seleciona-se o comand "TESSELLATE" , para reproduzir as entidades selecionadas
Passo 7: Seleciona-se a janela e faz- se comando "SCALE", para colocar a diferentes dimensões 
Passo 8: "RENDER SETUP"
Passo 9: "RESET", para começar de novo uma janela de 3DStudio mais nova

Xadrez/ Peão (Pequena Animação) -  3DStudioMax

 FORMA

Passo 1:"IMPORT", o ficheiro realizado em Autocad
Passo 2: "CIRCLE", com 12,5 de raio e "CREATE" (TER EM ATENÇÃO EM TER SELECIONADA A JANELA "TOP" OU A "PERSPETIVA")
Passo 3: Menu edição alterar as cores das layers
Passo 4: "LINE" x =0,0 ; y = 0,0; z = 0 (add point) ,60 (add point) , "FINISH"
Passo 5: Menu contrução, selecionar "COMPOUND OBJETCS", selecionar "LOFT", "GET SHAPE"  e seleciona - se a circunferência de perfil
Passo 6: Alterar o nome da layer e a cor para "peão"
Passo 7: Menu edição "DEFORMATIONS" , "SCALE", linha vermelha indica o percurso de deformação , podendo adicionar pontos na linha pegar nos pontos alterar a sua posição e forma (ex: colaca-se o rato sobre o ponto, botao direito do rato e alterar como quiser) a qualquer momento desligar a opção de deformação
Passo 8: Menu edição, na deformação "FIT", seleciono "GET SHAPE" e seleciono  a forma, e faz-se um rotação para obter a forma pretendida
Passo 9: Podendo ter a opção de selecionar as deformações pretendidas

ANIMAÇÃO

Passo 1: "DISPLAY" , "HIDE BY CATEGORY", " SHAPE" para esconder por categoria as entidades 2D
Passo 2: Menu "MATERIAL EDITOR", selecionar "MODES" para alteração "COMPACT MATERIAL EDITOR", substitui-se os "godés" cheios por vazios , botão direito do rato, e selecionar "3x2   altere-se o nome do material , e seleciona-se o "STANDARD" ; Altera-se a cor do "DIFFUSE"  para alterar a cor o material
Passo 3: "GRAPH EDITORS" , "TRACK-VIEW"
Passo 4:"DIFFUSE COLOR" , adicionar uma chave,  e alterar o valor, arrantando para alternar
Passo 5:"GRAPH EDITORS" , "TRACK-VIEW"
Passo 6:"XPOSITION", colaca-se um ponto em 0 e outro em 100 , faz se alteração para curva

Continuação do Exercício 5 - 15/11/2016

Xadrez - 3D Autocad e NotePad ++

Apresentação do enúnciado 

Xadrez

Passo 1: LISP disponível no site do docente, aleatório, adicionar no Lisp "xadrez" criado na aula anterior 

Passo 2: "APPLOAD" , LISP Xadrez 

Passo 3: "SHADEMODE" (enter) 

Passo 4: Comando "XAD" , para repetir a peça

Passo 5: Modo automatizado 

1     (defun c:xad ( / lista)
2     (command "ucs" (getpoint " Indique o ponto de inserção da peça. ") "")
3       (setq nu 0)
4    (command "circle" "0,0,0"  (valor 10))
5     (guardar)
6 (command "circle" "0,0,20" (valor 8))
7   (guardar)
8   (command "circle" "0,0,25" (valor 5))
9    (guardar)
10   (command "circle" "0,0,30" (valor 5))
11    (guardar)
12 (command "circle" "0,0,40" (valor 10))
13     (guardar)
14    (solido)
15
16 (command "ucs" "")
17 )
18 (defun solido ()
19 (command "loft")
20    (foreach p lista (command p))
21    (command "" "")
22     )
23    (defun guardar()
24 (setq lista (append lista (list (set (read (strcat "entidade" (rtos nu))) (entlast)))))
25 )
26 (defun valor (num)
27     (* num (rnd))
28   )
29    (defun rnd (/ modulus multiplier increment random)
30  (if (not seed)
31   (setq seed (getvar "DATE"))
32      )
33  (setq modulus    65536
34       multiplier 25173
35        increment  13849
36        seed  (rem (+ (* multiplier seed) increment) modulus)
37        random     (/ seed modulus)
38  )

39  )

Passo 6: Para fazer o CAVALO acrescenta-se um valor a y nos pontos da circunferência

Passo 7: "VIEWPORT"  para ver todas as vistas

Revisão POLIGNOS


Passo 1: "-VPOINT " 1.-1,1

Passo 2: "POLYGON" 4 lados (0,0,0), circunescrito raio 7

Passo 3: "POLYGON" 4 lados (0,0,10), circunescrito raio 5 

Passo 4: "POLYGON" 4 lados (0,0,0), circunescrito raio 14 

Passo 5: "LOFT", seleciona-se os polignos por ordem 

Passo 6: No NotePad ++

1  (defun c:xad ( / lista)
2  (command "ucs" (getpoint " Indique o ponto de inserção da peça. ") "")
3 (setq nu 0)
4 (command "polygon" 4 "0,0,0" "i" (valor 7))
5    (guardar)
6 (command "polygon" 4 "0,0,10" "i" (valor 5))
7   (guardar)
8    (command "polygon" 4 "0,0,40" "i" (valor 6))
9   (guardar)
10     (solido)
11
12 (command "ucs" "")
13 )
14 (defun solido ()
15 (command "loft")
16    (foreach p lista (command p))
 17   (command "" "")
18    )
19   (defun guardar()
20 (setq lista (append lista (list (set (read (strcat "entidade" (rtos nu))) (entlast)))))
21 )
22 (defun valor (num)
23   (* num (rnd))
24    )
25   (defun rnd (/ modulus multiplier increment random)
26     (if (not seed)
27   (setq seed (getvar "DATE"))
28     )
29  (setq modulus    65536
30        multiplier 25173
31       increment  13849
32        seed  (rem (+ (* multiplier seed) increment) modulus)
33        random     (/ seed modulus)
34   )
35      )

Passo 7: Para fazer uma rotação

1 (defun c:xad ( / lista)
2 (command "ucs" (getpoint " Indique o ponto de inserção da peça. ") "")
3 (setq nu 0)
4 (command "polygon" 4 "0,0,0" "i" (valor 7))
5  (guardar)
6 (command "polygon" 4 "0,0,10" "i" (valor 5))
7 (command "rotate" "last" "" "0,0,0" (valor 180))
8   (guardar)
9    (command "polygon" 4 "0,0,40" "i" (valor 6))
10  (guardar)
11  (solido)
12
13 (command "ucs" "")
14 )
15 (defun solido ()
16 (command "loft")
17   (foreach p lista (command p))
18   (command "" "")
19  )
20   (defun guardar()
21 (setq lista (append lista (list (set (read (strcat "entidade" (rtos nu))) (entlast)))))
22 )
23 (defun valor (num)
24   (* num (rnd))
25     )
26    (defun rnd (/ modulus multiplier increment random)
27  (if (not seed)
28    (setq seed (getvar "DATE"))
29     )
30 (setq modulus    65536
31       multiplier 25173
32        increment  13849
33        seed  (rem (+ (* multiplier seed) increment) modulus)
34        random     (/ seed modulus)
35    )
36  )

Exercício 6 e continuação do exercício 5 - 08/11/2016

Símbolo dos Pontos Cardeais e Xadrez  - AutoCad (2D e 3D) e NotePad ++

Passo 1 -  Ficheiros LISP presentes no site do docente (guardar)
Passo 2 - Desenhar o símbolo, identificando 2 pontos , o primeiro identifica o centro do símbolo, e o segundo indica o Norte
Passo 3 - "CIRCLE" ; "0,0"  e "1,0" (enter)
Passo 4 - Linha mais grossa com "POLYLINE" (enter) ; "0,0" ; "W" ; "0.1" (enter) , "0.1" para indicar a espessura , no ponto "0,1" (enter)

Passo 5 - Guardar a informação no Notepad ++, em que "defun" é para definir função, e "c:" serve para atribuir o nome a um comando ; "" é um enter , e guardar como LISP
          1    (defun c:snorte (/ pt1 pt2)
          2    (setq pt1 (getpoint "qual o centro do simbolo?"))
          3    (setq pt2 (getpoint "qual a direcao norte"))
          4    (comand "circle" pt1 pt2)
          5    (comand "pline" pt1 "w" (* 0.1 (distance pt1 pt2))
          6                        (* 0.1 (distance pt1 pt2)) pt2"" )
          7 )

Autocad

Passo 6 - "APPLOAD" e inserir a LISP criada
Passo 7 - "F3" para desligar o OSNAP
Passo 8 - "SNORTE" (enter),  "0,0", "0,1"

Notepad ++

Passo 9 - Comando sem ter de desligar o "OSNAP"

          1    (defun c:snorte (/ pt1 pt2)
          2    (setq pontos (getvar "osmode"))
          3    (setvar "osmode"0)
          4    (setq pt1 (getpoint "qual o centro do simbolo?"))
          5    (setq pt2 (getpoint "qual a direcao norte"))
          6    (comand "circle" pt1 pt2)
          7    (comand "pline" pt1 "w" (* 0.1 (distance pt1 pt2))
          8    (* 0.1 (distance pt1 pt2)) pt2 "" )
          9    (setvar "osmode" 0)
         10 )

Passo 10 - Desenhar as duas linhas ortogonais, usando as coordenadas polares

        1   (defun c:snorte (/ pt1 pt2)
        2   (setq pontos (getvar "osmode"))
        3   (setvar "osmode" 0)
        4   (setq pt1 (getpoint "qual o centro do simbolo?"))
        5   (setq pt2 (getpoint "qual a direcao norte"))
        6   (setq pt3 (polar pt1 (+ (/pi 2)(angle pt1 pt2 ))(* 1.2 (distance pt1 pt2))) )
        7   (setq pt4 (polar pt1 (angle pt3 pt1 ) (* 1.2 (distance pt1 pt2))))
        8   (comand "circle" pt1 pt2)
        9   (comand "pline" pt1 "w" (* 0.1 (distance pt1 pt2))
       10                        (* 0.1 (distance pt1 pt2)) pt2 "" )
       11    (comand "line" pt3 pt4 "")
       12     (comand "copy" "last" "" pt1 pt1 "")
       13     (comand "rotate" "last" "" pt1 90 )
       14    (setvar "osmode" pontos)
       15 )

CONTINUAÇÃO DO XADREZ 3D

Passo 1 -Ficheiro LISP disponivel no site do docente 
Passo 2 - " XAD"
Passo 3 - " VPOINT" Axis : 315  Y: 30
Passo 4 - "LOFT"  selecionar por ordem as circunfêrencias (enter)
Passo 5 - "SHADEMODE" "X" (enter)
Passo 6 - E repete-se o processo 
Passo 8 - Ficheiro LISP disponivel no site do docente
Passo 9 - Acrescenta-se no NotePad++ com as devidas alterações

        1      (defun c:xad ( / lista)
        2     (command "ucs" (getpoint " Indique o ponto de inserção da peça. ") "")
        3  (setq nu 0)
        4 (command "circle" "0,0,0"  10)
        5     (guardar)
        6    (command "circle" "0,0,20" 1)
        7     (guardar)
        8      (command "circle" "0,0,30" 5)
        9     (guardar)
       10 (command "circle" "0,0,50" 10)
       11     (guardar)
       12    (solido)
       13 (command "ucs" "")
       14 )
       15   (defun solido ()
       16    (command "loft")
       17       (foreach p lista (command p))
       18       (command "" "")
       19     )
       20     (defun guardar ()
       21     (setq lista (append lista (list (set (read (strcat "entidade" (rtos nu))) (entlast)))))
       22     )