Fazer acontecer
Faz tempo que estou dedicando várias horas do dia ao meu Trabalho de Conclusão de Curso. Degrau após degrau, problemas sobre problemas e aqui estou: firme e forte.
Como se torna gratificante quando você se aventura em um mundo desconhecido e vai vencendo todas as batalhas, desafios e obstáculos, um após o outro até chegar ao destino.
Muito melhor do que isso é quando você acha que tudo está perdido mas não desiste. Vai em frente. Tira código dali, adiciona aqui. Reescreve algumas rotinas. Remove algumas limitações. O resultado é mais do que o esperado.
Hoje, antes tarde do que nunca, apareceu um cubo 3D no meu emulador. 
Além de 3D ele é colorido e iluminado. Em outras palavras, matei todos os coelhos com uma paulada só, afinal o que é uma noite de sono a menos na vida do cara?
Fica aí outra imagem do que está por vir:
- A rotina que carrega o arquivo OBJ foi reescrita e agora suporta normais, texturas e vários formatos de faces (1/1/1, 1, 1//1, etc);
- Corrigido bug na rotina que carrega o arquivo MTL. Agora está carregando corretamente os valores para Ka, Kd e Ks;
- Adicionado um projeto chamado ThreeDV que nada mais é do que uma implementação usando a Gita.
É isso ae! Até +.
Ps: tava lendo o post novamente hoje, e existe um cubo que não seja 3D?
Talvez com o fundo sem aparecer, ou algo do tipo.
Estranho.
Ola amigo, gostei muito dos exemplos.
Eu estou desenvolvendo um sistema ai eu mudei “query” para “adoQuery” não consigo faze a consulta será que você poderia ajudar? Vou mandar o exemplo que usei com a query.
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(’SELECT Cliente.Cliente, Cliente.Vendedor, Cliente.Tipo, Cliente.Valor, Cliente.Peso, Cliente.Arroba, Cliente.Data, Cliente.ID, Cliente.Obs,Cliente.Liguido,Cliente.Bruto’);
ADOQuery1.SQL.Add(’,Cliente.Qtde, Cliente.Media, Cliente.Total, Cliente.Kilo, Cliente.Nome’);
ADOQuery1.SQL.Add(’FROM Cliente’);
ADOQuery1.SQL.Add(’WHERE (((Cliente.Data)Between :Data1 And :Data2)and ((Cliente.Cliente) =:digit1)and ((Cliente.Nome) =:digit2))’);
ADOQuery1.SQL.Add(’GROUP BY Cliente.Cliente, Cliente.Vendedor, Cliente.Tipo, Cliente.Valor, Cliente.Peso, Cliente.Arroba, Cliente.Data, Cliente.ID, Cliente.Obs,Cliente.Liguido,Cliente.Bruto’);
ADOQuery1.SQL.Add(’, Cliente.Qtde, Cliente.Media, Cliente.Total, Cliente.Kilo, Cliente.Nome’);
ADOQuery1.Parameters[0].Value:=fCaptura4.Data1.Date;
ADOQuery1.Parameters[1].Value:=fCaptura4.Data1.Date;
ADOQuery1.Parameters[2].Value:=fCaptura4.Edit2.Text;
ADOQuery1.Parameters[3].Value:=fCaptura4.DBEdit23.Text;
ADOQuery1.Open;
Obrigado.