#!/usr/bin/perl

# ˆ© Copyright 2008, Pall Thayer

# This file is part of "Nude Studies in Aleatoric Environments".

#

#    'Nude Studies in Aleatoric Environments' is art: you can redistribute

#    it and/or modify it under the terms of the GNU General Public License

#    as published by the Free Software Foundation, either version 3 of the

#    License, or (at your option) any later version.

#

#    'Nude Studies in Aleatoric Environments' is distributed in the

#    hope that it will be useful, but WITHOUT ANY WARRANTY; without

#    even the implied warranty of MERCHANTABILITY or FITNESS FOR A

#    PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

#    You should have received a copy of the GNU General Public License

#    along with "Nude Studies in Aleatoric Environments".  If not,

#    see <http://www.gnu.org/licenses/>.

# programming begins here:

use IO::Socket;

use IO::Select;

use Flickr::API;

use Flickr::API::Request;

use Image::Magick;

use Time::HiRes qw ( time alarm sleep );

my $svg_filename = "vectors.svg";

my $last_coords;

my $last_coords2;

my $text;

my $IMAGE = "temp.jpg";

my $msg;

my $seisUDP = IO::Socket::INET->new(LocalPort => 9689,

					Proto     => 'udp')

or die "Couldn't be a udp server on port $server_port : $@\n";

my $socket = new IO::Socket::INET

			Proto		=> 'tcp',

			LocalPort	=> 6789,

			Reuse		=> 1,

			Listen		=> 90;

my $select = IO::Select->new($socket);

&sender($text);

while(1){

	my $api = new Flickr::API({'key'    => '825b43b304bb68d09bd31951911aa3ae'});

	$rand_page = int(rand(3000));

	my $request = new Flickr::API::Request({

	                'method' => 'flickr.photos.search',

	                'args' => {'tags' => 'nude', 'per_page' => '1', 'page' => $rand_page},

	        });

	my $response = $api->execute_request($request);

	$ret_val = $response->{_content};

	$ret_val =~ m/server="(\d+)"/;

	$serv_val = $1;

	$ret_val =~ m/id="(\d+)"/;

	$phot_id = $1;

	$ret_val =~ m/secret="([^"]+)"/;

	$sec_val = $1;

	$pic_URL = $serv_val."/".$phot_id."_".$sec_val."_m.jpg";

	$pic_name = $phot_id."_".$sec_val."_m.jpg";

	$get_pic = `wget http://static.flickr.com/$pic_URL`;

	open(WEBP, '>/home/palli/public_html/nude_studies/pic_url.txt');

	print WEBP "http://static.flickr.com/$pic_URL";

	$do_imgTweak = `convert +dither -blur 0x1 -resize 400x300 $pic_name -posterize 10 temp.jpg`;

	$del_orig = `rm $pic_name`;

	$make_svg = `autotrace -despeckle-level 20 -color-count 16 -output-file vectors.svg temp.jpg`;

	my $im = Image::Magick->new or die "Cannot create im: $!";

	   $im->Read($IMAGE);

	   my $width = $im->Get('width');

	   my $height = $im->Get('height');

	$text = "newimage $width $height";

	&sender($text);

	open(SVG_FILE, "<$svg_filename");

	while(<SVG_FILE>){

		undef(my $polypath);

		chomp($_);

		$_ =~ /d="([^"]*)"/;

	    my $coordat = $1;

	    chop($coordat);

	    $_ =~ /fill:([^;]*);/;

	    my $shape_col = $1;

	    $shape_col =~ s/\#//;

	    $coordat =~ s/([MCL])/=$1/g;

	    $coordat =~ s/^.//;

	    $polypath = "$coordat=$shape_col";

	    my @path_elements = split('=', $polypath);

	    foreach(@path_elements){

	    	&quakeDat();

	    	for($_){

	    		/M/		&& do { $_ =~ s/M//;

	    						my @split_path = split(' ', $_);

	    						my $num = @split_path;

	    						$last_coords = @split_path[$num-2]." ".@split_path[$num-1];

							$last_coords2 = int(@split_path[$num-2]+400)." ".@split_path[$num-1];

	    						&quakeDat();

		    					last;

	    					};

	    		/C/		&& do { $_ =~ s/C//;

							&quakeDat();

	    						my @split_path = split(' ', $_);

	    						my $num = @split_path;

		    					$text = "curve ff".$shape_col." ".$last_coords." ".$_;

		    					&sender($text);

		    					$last_coords = @split_path[$num-2]." ".@split_path[$num-1];

		    					last;

	    					};

	    		/L/		&& do { $_ =~ s/L//;

							&quakeDat();

	    						my @split_path = split(' ', $_);

	    						my $num = @split_path;

		    					$text = "line ff".$shape_col." ".$last_coords." ".$_;

		    					&sender($text);

		    					$last_coords = @split_path[$num-2]." ".@split_path[$num-1];

		    					last;

	    					};

	    		/ /		&& do {};

	    	}

	    }

	}

}

sub sender {

	my $send_data = shift;

	my $newuse = 0;

		foreach $user($select->can_read(0)) {

			if ($user == $socket) {

				# looks like we have a new connection

				$user = $socket->accept();

				$select->add($user);

				$newuse = 1;

			}else{

				my $data = <$user>;

				if (defined($data)) {

					if ($data =~ /user/){

						# add this to our user list

						my $i = chr(0);

						$data =~ s/\n//g;

						$data =~ s/user//;

						$data =~ s/$i//g;

						$data =~ s/\s/_/g;

						$newuse = 1;

						$users{$user->fileno} = $data;

					}else{

					}

				}else{

					delete($users{$user->fileno});

					$select->remove($user);

					$user->close;

					$newuse = 1;

				}

			}

		}

		if($newuse == 1){

			for (keys %users) {

				$tempval .= $users{$_}."\n";

			}

		}

		foreach my $user($select->can_write(0)) {

			if($send_data =~ /[0-n]/){

				eval{$user->send($send_data." :\n")};

			}

		}

		select(undef, undef, undef, 0.15);

}

sub quakeDat {

	eval {

			$TIMEOUT = 0.05;

			$MAXLEN = 1024;

			local $SIG{ALRM} = sub { die "alarm time out" };

			alarm $TIMEOUT;

			#-- Receive msg from the server

			$seisUDP->recv($msg, $MAXLEN)      or die "recv: $!";

			#print "seisdata is $msg\n";

			my $quaketext = "seisdat $msg";

			&sender($quaketext);

			alarm 0;

			1;  # return value from eval on normalcy

		};

}