laserkard: sex_again.pl comparison

comparison sex_again.pl @ 39:8b3b5753ad41 laserkard

[svn r40] created succesuful interface to corel Draw :)

author	rlm
date	Sun, 24 Jan 2010 15:06:22 -0500
parents
children

comparison

equal deleted inserted replaced

-:07c19a58ba5a
+:8b3b5753ad41
+#!/usr/bin/perl
+use List::Util qw(first max maxstr min minstr reduce shuffle sum);
+use Storable;
+use CGI::Ajax;
+use CGI qw(:standard);
+use URI::Escape;
+use MIME::QuotedPrint;
+use MIME::Base64;
+use Mail::Sendmail 0.75; # doesn't work with v. 0.74!
+use XML::Simple;
+use Data::Dumper;
+$Data::Dumper::Indent = 1;
+use Storable;
+use SVG;
+$ref = retrieve('file');
+#print Dumper $$ref;
+&echo($$ref);
+#&impose($$ref);
+sub impose
+{
+#here $svg is a string which contains the properly formatted svg data for one card
+#out purpose here is to take that one card, size it correctly, and make appropiate copies
+#so that our supplier can simply import the file and print.
+$sss =  $_[0];
+$sss =~ s/^/\n\n\n/;
+$sss =~ s/$/\n\n\n/;
+# you fucking bitch!
+$sss =~ s/Created wit........//;
+# read XML file
+my $xml = new XML::Simple;
+my $data = $xml->XMLin($sss, ForceArray => 1);
+my %data = %$data;
+my %juzz  =
+(
+path	=> $data{'path'},
+rect 	=> $data{'rect'},
+width	=>"16in" ,
+height	=>"12in" ,
+version	=>"1.1",
+xmlns	=>"http://www.w3.org/2000/svg"
+);
+#print Dumper(%juzz);
+my $svg= SVG->new(width=>"18in",height=>"12in");
+#print Dumper($juzz{'path'}[2]);
+print "\n***************************\n";
+#print Dumper($pathData);
+my $base = "scale(0.6057),matrix(1 0 0 -1 0 317), rotate(180),translate(-514,-317)";
+my @cardCollection;
+for $name(0..21)  #22 letters for 22 cards
+{
+	#calcuate the thing's place in the grid:
+	$cardsToARow = 5;
+	$cardsToAColumn =  5;
+	my $row = int($name/$cardsToARow);  #  cards to a row
+	my $column = int($name %  $cardsToAColumn);
+	$margin = 25;
+	$cardWidth   =  514*0.6057;
+	$cardHeight  = 	317*0.6057;
+	$transX = 40 + ($margin + $cardWidth ) * $column;
+	$transY = 40 + ($margin + $cardHeight) * $row;
+	${"group_".$name} =
+	$svg->group(
+id    => "group_".$name,
+	transform => "translate($transX,$transY),"."$base"
+	);
+	push @cardCollection, ${"group_".$name};
+}
+#my $y=$svg->group(
+#        id    => 'group_y'    );
+#
+#my $f=$svg->group(
+#        id    => 'group_f'    ,
+#        transform => "$base"
+#
+#        );
+#
+#
+for ($i = 0; $i <= $#cardCollection; $i++)
+{
+for $pathData(@{$juzz{'path'}})
+{
+$cardCollection[$i]->tag('path', %{$pathData});
+}
+for $pathData(@{$juzz{'rect'}})
+{
+$cardCollection[$i]->tag('rect', %{$pathData});
+}
+}
+#my $tag = $svg->tag('path', $juzz{'path'});
+#$tag = $svg->group(%attributes);
+$output =  $svg->xmlify;
+$killCopyrigt = <<HERE;
+<!--
+	Generated using the Perl SVG Module V2.49
+	by Ronan Oger
+	Info: http://www.roitsystems.com/
+-->
+HERE
+$output =~ s/$killCopyrigt/\n/;
+return $output;
+}
+sub echo
+{
+my $svg = $_[0];
+my $destination = 'rlm@mit.edu';
+#~ $svg =~ s/</\&lt\;/g;
+#~ return $svg;
+#$svg = &repair_file($svg);
+$svg = &impose($svg);
+#print $svg;
+open OUT, '>C:/Documents and Settings/Robert McIntyre/Desktop/perlOut.svg';
+select OUT;
+print  $svg;
+close OUT;
+#&mail($svg, $destination);
+return "done.";
+}
+sub repair_file
+{
+$sss =  $_[0];
+$sss =~ s/^/\n\n\n/;
+$sss =~ s/$/\n\n\n/;
+# you fucking bitch.
+$sss =~ s/Created wit........//;
+store \$sss, 'file';
+# read XML file
+my $xml = new XML::Simple;
+my $data = $xml->XMLin($sss, ForceArray => 1);
+my %data = %$data;
+my %juzz  =
+(
+path	=> $data{'path'},
+rect 	=> $data{'rect'},
+width	=>"16in" ,
+height	=>"12in" ,
+version	=>"1.1",
+xmlns	=>"http://www.w3.org/2000/svg"
+);
+$out = $xml->XMLout(\%juzz , RootName=>'svg');
+my $fixed = <<HERE;
+<?xml version="1.0" standalone="no"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
+"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+HERE
+$fixed .= $out;
+#print $fixed;
+return $fixed;
+}

Mercurial > laserkard

comparison sex_again.pl @ 39:8b3b5753ad41 laserkard