Minha Pintura, Meu Espelho - Egas Francisco

Para um pintor o dia começa com o sol iluminando a janela e a nudez de uma tela exposta à volúpia, pronta a ser possuída, desafiando do alto do cavalete a sensibilidade e os nervos do artista.
Nas paredes outros quadros conspiram, movem-se em duelo mágico convocando a loucura.
É nesse clima que o trigo é lançado, depois vem o vento doentio e sagrado, oriundo de sonhos secretos, resvala o trigo, mistura as cores, germina. É a materialização do sonho, o encontro do onírico com o real. Para o pintor, o dia não tem sentido sem a janela, a tela nua, o desenho matinal, seu desjejum.

(Egas Francisco)

"Réquiem para Hilda Hilst"
(óleo sobre tela - 120 x 100 cm - 2004)

Todos os direitos autorais
são reservados aos autores
das obras expostas.

#!/usr/bin/perl ############################################################################## # Visitor Counter Version 2.51 # # Copyright 1998-99, UtilMind Solutions info@utilmind.com # # http://www.utilmind.com # # Created: Nov 3, 1998-99 Last Modified: May 03, 2000 # ############################################################################## # COPYRIGHT NOTICE # # Copyright 1998-99, UtilMind Solutions All Rights Reserved. # # # # VisCounter may be used and modified free of charge by anyone so long as # # this copyright notice and the comments above remain intact. By using this # # code you agree to indemnify UtilMind Solutions from any liability that # # might arise from it's use. # # # # Selling the code for this program without prior written consent is # # expressly forbidden. In other words, please ask first before you try and # # make money off of our programs. # # # # Obtain permission before redistributing this software over the Internet or # # in any other medium. In all cases copyright and header must remain intact.# ############################################################################## # Set Variables $counterfile = 'contadornaja.txt'; # Get the input $link = $ENV{'DOCUMENT_NAME'}; # Begin Code open(FILE, $counterfile) || die Can't locate counter file $!; @DATA = ; close(FILE); $SIZE = @DATA; if ($SIZE eq 0) { exit; } for ($i=0;$i<$SIZE;$i++) { ($counter, $baselink) = split(/'/, $DATA[$i]); chop($baselink); if ($baselink eq $link) { &UpdateStats; } } # Add new link to database file open(FILE, ">>$counterfile") || die Can't locate database file $!; flock(FILE, 2); # blocking write lock print FILE "1'$link\n"; # First time flock(FILE, 8); close(FILE); $counter = '1'; &LocateLink; # Increase through-link counter sub UpdateStats { @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; $counter++; open(FILE, ">$counterfile") || die Can't locate database file $!; flock(FILE, 2); # blocking write lock for ($j=0;$j<$SIZE;$j++) { if ($j eq $i) { print FILE "$counter'$link\n"; } else { print FILE "$DATA[$j]"; } } flock(FILE, 8); close(FILE); &LocateLink; } sub LocateLink { print "Content-Type: text/html\n\n"; print $counter; exit; }

http://www.gargantadaserpente.com.br