diff --git a/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet b/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet index 9fbc977c..a7295ab0 100644 --- a/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet +++ b/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet @@ -36,6 +36,8 @@ Rotina para que se inicialize a interface: Inicialize os botões. Inicialize o campo de texto. Exiba "Olá Mundo!" na caixa de status. + Escreva "Debug: Componentes inicializados." para StdOut. + Escreva na próxima linha da saída padrão. Rotina para que se crie o plano de fundo: Pinte a caixa desta tela com a cor branca e a cor branca. @@ -159,6 +161,8 @@ Rotina para que se imprima a obra de arte: Avise o usuário; Retorne. Exiba "Imprimindo..." na caixa de status. + Escreva "Debug: Imprimindo..." para StdOut. + Escreva na próxima linha da saída padrão. Inicie a impressão. Selecione uma folha para impressão. Centralize a pintura desta obra de arte atual na folha. @@ -166,7 +170,9 @@ Rotina para que se imprima a obra de arte: Centralize a pintura desta obra de arte atual na caixa desta tela. Salve as alterações pendentes na folha. Acabe de imprimir. - Exiba "Impresso" na caixa de status. + Exiba "Impressão concluída" na caixa de status. + Escreva "Impressão concluída..." para StdOut. + Escreva na próxima linha da saída padrão. Rotina para que se saia do programa: Delegue o controle. @@ -233,7 +239,7 @@ Rotina para que se execute um evento (tecla Enter): Se a string deste campo de texto estiver em branco, Avise o usuário; Retorne. - Exiba "Aguarde..." na caixa de status. + Exiba "Aguarde..." na caixa de status. Escreva "Debug: Tecla Enter pressionada. Aguarde..." para StdOut. Escreva na próxima linha da saída padrão. Atribua "http://images.google.com/images?q=" para um URL. @@ -249,12 +255,11 @@ Rotina para que se execute um evento (tecla Enter): Crie o obras de arte usando o trecho. Se as obras de arte estiverem vazias, Exiba "Erro. Não foi possível efetuar a pintura a partir dos termos informados" na caixa de status; + Escreva "Erro. Não foi possível efetuar a pintura a partir dos termos informados" para StdOut; Retorne. Vá para a primeira obra de arte destas obras de arte. Rotina para que se crie umas obras de arte usando um trecho: - Escreva "Debug: Rotina para que se crie umas obras de arte usando um trecho" para StdOut. - Escreva na próxima linha da saída padrão. Se a quantidade de caracteres deste trecho for 0, Escreva "Erro. O trecho está vazio." para StdOut; Escreva na próxima linha da saída padrão; @@ -299,6 +304,8 @@ Rotina para que se crie uma obra de arte usando um URL: Rotina para que se vá para um obra de arte: Se a obra de arte for inexistente, retorne. Exiba "Aguarde um momento..." na caixa de status. + Escreva "Debug: procurando próxima imagem..." para StdOut. + Escreva na próxima linha da saída padrão. Atribua a obra de arte para a obra de arte atual. Conclua a obra de arte atual. Limpe a caixa de status. @@ -311,6 +318,8 @@ Rotina para que se conclua uma obra de arte: Se a imagem for inexistente, \Avise o usuário; Exiba "Erro ao encontrar imagem" na caixa de status; + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Retorne. Redimensione a imagem para 528 pixels por 528 pixels. Centralize a imagem na caixa desta tela. @@ -344,6 +353,8 @@ Rotina para que se misture uma cor usando um localiza Rotina para que se execute um evento (tecla Home): Se a obra de arte atual for inexistente, + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Avise o usuário; Retorne. Se a obra de arte atual for a primeira obra de arte destas obras de arte, @@ -352,7 +363,9 @@ Rotina para que se execute um evento (tecla Home): Vá para a primeira obra de arte destas obras de arte. Rotina para que se execute um evento (tecla End): - Se a obra de arte atual for inexistente, + Se a obra de arte atual for inexistente, + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Avise o usuário; Retorne. Se a obra de arte atual for a última obra de arte destas obras de arte, @@ -362,6 +375,8 @@ Rotina para que se execute um evento (tecla End): Rotina para que se execute um evento (Tecla Page Down): Se a obra de arte atual for inexistente, + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Avise o usuário; Retorne. Se a próxima obra de arte desta obra de arte atual for inexistente, @@ -370,10 +385,14 @@ Rotina para que se execute um evento (Tecla Page Down): Vá para a próxima obra de arte desta obra de arte atual. Rotina para que se execute um evento (Tecla Page Up): - Se a obra de arte atual for inexistente, + Se a obra de arte atual for inexistente, + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Avise o usuário; Retorne. Se a obra de arte anterior desta obra de arte atual for inexistente, + Escreva "Erro ao encontrar imagem" para StdOut; + Escreva na próxima linha da saída padrão; Avise o usuário; Retorne. Vá para a obra de arte anterior desta obra de arte atual.