SVG
view release on metacpan or search on metacpan
examples/yaph5.cgi view on Meta::CPAN
$arg_1_g_1->polygon(id=>'pg2',%$r_pts,style=>$style);
$r_pts = $arg_1_g_1->get_path(x=>[0,9,0,-9],y=>[10,25,40,25],-type=>'polygon');
$arg_1_g_1->polygon(id=>'pg3',%$r_pts,style=>$style);
$r_pts = $arg_1_g_1->get_path(x=>[11,21,11,1],y=>[0,25,50,25],-type=>'polygon');
$arg_1_g_1->polygon(id=>'pg4',%$r_pts,style=>$style);
$r_pts = $arg_1_g_1->get_path(x=>[25,34,25,16],y=>[10,25,40,25],-type=>'polygon');
$arg_1_g_1->polygon(id=>'pg5',%$r_pts,style=>$style);
$style = { 'stroke' => 'rgb(52,48,40)',
'stroke-width' => 1,
'stroke-opacity' => 1,
'stroke-miterlimit' => 30,
'fill' => 'rgb(172,152,112)',
'fill-opacity' => '1' };
$r_pts = $arg_1_g_1->get_path(x=>[20,30,25],y=>[0,0,9],-type=>'polygon');
$arg_1_g_1->polygon(id=>'pg6',%$r_pts,style=>$style);
$r_pts = $arg_1_g_1->get_path(x=>[20,25,30],y=>[50,41,50],-type=>'polygon');
$arg_1_g_1->polygon(id=>'pg7',%$r_pts,style=>$style);
$svg->rect(x=>"193", y=>"201",
width=>"422", height=>"140",
rx=>"3",ry=>"6",
'stroke-miterlimit'=>4,
'stroke-linejoin'=>'miter',
'stroke-width'=>1,
'stroke-opacity'=>1,
'stroke'=>'rgb(0,0,0)',
'fill-opacity'=>1,
'fill'=>'rgb(148,65,175)',
'opacity'=>0.31);
$style = {'stroke-miterlimit'=>4,
'stroke-linejoin'=>'miter',
'stroke-linecap'=>'round',
'stroke-width'=>'11',
'stroke-opacity'=>1,
'stroke'=>'rgb(0,0,0)',
'fill-opacity'=>1,
'fill'=>'rgb(0,0,0)',
'opacity'=>'0.5'};
$svg->text(x=>"318", y=>"333",
transform=>'matrix(1.58041 -0.293543 0.333969 1.3891 -396.141 -55.3847)', style=>{'font-family'=>'Arial Rounded MT Bold',
'font-size'=>100,'stroke-width'=>1,'stroke-opacity'=>1,
stroke=>'rgb(0,0,0)', 'fill-opacity'=>1,fill=>'rgb(0,0,0)',
opacity=>1,visibility=>'inherit'},
filter=>'url(#pointillist)')
->cdata('A');
$svg->polygon(points=>'33.6776,266.425 34.408,266.795 33.6684,267.165 33.8903,266.795',
'stroke-miterlimit'=>4, 'stroke-linejoin'=>'miter',
fill=>'rgb(0,0,0)');
$svg->polygon(points=>'75.8931,140.313 -18,268.028 77.0816,395.744 48.5571,268.028',
'stroke-linejoin'=>'miter',
fill=>'url(#red-yellow-red)',
filter=>'url(#Bumpy)');
$style = {'stroke-miterlimit'=>'4',
'stroke-linejoin'=>'miter',
'stroke-linecap'=>'round',
'stroke-width'=>'11',
'stroke-opacity'=>'1',
'stroke'=>'url(#Argyle_1)',
'fill-opacity'=>'1',
'fill'=>'rgb(12,5,1)',
'opacity'=>'0.5'};
$path = "M311.591 367.68 L354.854 124.686 L459.18 160.388 L455.469 199.691 L404.735 219.984 L360.521 215.961 L326.636 369.343";
$svg->path(d=>$path,style=>$style);
$transform = 'matrix(0.994363 0.10603 -0.10603 0.994363 32.2186 -53.9305)';
$style = { 'stroke-width' =>1,
'stroke-opacity'=>1,
'stroke' =>'rgb(241,19,19)',
'fill-opacity' =>1,
'fill' =>'rgb(243,214,21)',
'opacity' =>1 };
my $shape_array = [ {cx=>"474.862" , cy=>"178.408" , rx=>"9.24547" , ry=>"9.61528"},
{cx=>"478.93" , cy=>"224.266" , rx=>"8.87565" , ry=>"8.13601"},
{cx=>"477.081" , cy=>"260.878" , rx=>"9.9851" , ry=>"10.7247"},
{cx=>"481.519" , cy=>"319.309" , rx=>"11.4644" , ry=>"11.4644"},
{cx=>"479.3" , cy=>"366.646" , rx=>"10.7247" , ry=>"10.7247"},
{cx=>"559.181" , cy=>"183.955" , rx=>"9.9851" , ry=>"9.9851"},
{cx=>"561.03" , cy=>"231.662" , rx=>"9.61528" , ry=>"9.61528"},
{cx=>"568.796" , cy=>"283.067" , rx=>"12.204" , ry=>"12.204"},
{cx=>"563.988" , cy=>"332.992" , rx=>"8.13601" , ry=>"8.13601"},
{cx=>"563.619" , cy=>"375.521" , rx=>"7.76619" , ry=>"7.76619"},
{cx=>"508.885" , cy=>"270.493" , rx=>"5.54728" , ry=>"5.54728"},
{cx=>"525.527" , cy=>"266.425" , rx=>"4.43782" , ry=>"4.43782"},
{cx=>"521.459" , cy=>"278.629" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"532.184" , cy=>"276.04" , rx=>"2.21891" , ry=>"2.21891"},
{cx=>"541.06" , cy=>"268.644" , rx=>"5.9171" , ry=>"5.9171"},
{cx=>"544.018" , cy=>"283.437" , rx=>"2.95855" , ry=>"2.95855"},
{cx=>"482.628" , cy=>"285.655" , rx=>"8.13601" , ry=>"8.13601"},
{cx=>"476.341" , cy=>"338.54" , rx=>"6.28692" , ry=>"6.28692"},
{cx=>"478.19" , cy=>"202.816" , rx=>"6.65674" , ry=>"6.65674"},
{cx=>"561.4" , cy=>"207.624" , rx=>"7.76619" , ry=>"7.76619"},
{cx=>"548.826" , cy=>"199.118" , rx=>"2.58873" , ry=>"2.21891"},
{cx=>"562.509" , cy=>"255.33" , rx=>"5.9171" , ry=>"5.9171"},
{cx=>"555.113" , cy=>"269.383" , rx=>"2.21891" , ry=>"2.21891"},
{cx=>"565.468" , cy=>"313.022" , rx=>"8.13601" , ry=>"8.13601"},
{cx=>"558.811" , cy=>"300.448" , rx=>"3.69819" , ry=>"3.69819"},
{cx=>"560.66" , cy=>"351.853" , rx=>"5.54728" , ry=>"5.54728"},
{cx=>"574.713" , cy=>"349.634" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"569.905" , cy=>"358.88" , rx=>"2.21891" , ry=>"2.21891"},
{cx=>"487.806" , cy=>"347.785" , rx=>"2.21891" , ry=>"2.21891"},
{cx=>"488.915" , cy=>"337.06" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"474.122" , cy=>"299.339" , rx=>"4.80764" , ry=>"4.80764"},
{cx=>"485.957" , cy=>"303.037" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"472.643" , cy=>"275.67" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"488.176" , cy=>"272.712" , rx=>"2.58873" , ry=>"2.58873"},
{cx=>"473.383" , cy=>"237.949" , rx=>"3.32837" , ry=>"3.32837"},
{cx=>"487.806" , cy=>"239.798" , rx=>"5.17746" , ry=>"5.17746"},
{cx=>"471.164" , cy=>"191.352" , rx=>"3.32837" , ry=>"3.32837"},
{cx=>"489.655" , cy=>"192.831" , rx=>"4.06801" , ry=>"4.06801"},
{cx=>"501.489" , cy=>"285.286" , rx=>"3.32837" , ry=>"3.32837"} ];
#Draw the ellipses for the H
my $ellipse_group = $svg->group(id=>'ellipse_group',transform=>$transform,style=>$style);
foreach my $shape (@{$shape_array}) {
$svg->ellipse(%$shape,style=>$style);
}
$points = "617.074,364.474 663.435,173 671.162,173 616.371,379 596,327.5 610.751,327.5";
$style = { 'stroke-miterlimit' =>4,
'stroke-linejoin' =>'miter',
'stroke-width' =>1,
'stroke-opacity' =>1,
'stroke' =>'inherit',
'fill-opacity' =>1,
'fill' =>'rgb(0,0,0)',
'opacity' =>1};
my $font_style = {'font-family'=>'Arial','font-size'=>24,'stroke-width'=>'1.2',
'stroke-opacity'=>0.9,stroke=>'url(#custom-paint)',
'fill-opacity'=>0.8, fill=>'rgb(0,0,0)',opacity=>0.8};
$svg->polygon(points=>$points,style=>$style);
$svg->anchor(-href => "http://burks.brighton.ac.uk/burks/foldoc/49/60.htm",id=>'a_1');
my $ytg = $svg->group(id=>'yaph_text_group',style=>$font_style);
$ytg->text(x=>"441",y=>"302",style=>$font_style,
transform => 'matrix(0.767738 -0.769086 0.91578 0.644758 80.4565 534.986)'
)->cdata('Yet Another');
$ytg->text(x=>441,y=>302,style=>$font_style,
transform => 'matrix(0.774447 0.760459 0 0.924674 357.792 -428.792)',
)->cdata('PERL Hack');
my $j_style = {'stroke-miterlimit'=>4,
'stroke-width' =>10,
'stroke-opacity' =>1,
'stroke' =>'url(#red-dark-green)',
'fill-opacity' =>0.85,
'opacity' =>0.70,
'font-family'=>'Arial monospaced for SAP',
'font-size'=>250,
'stroke'=>'url(#custom-paint_1)',
'fill'=>'rgb(71,254,130)',};
my $j_trans = 'matrix(1.58041 0.293543 0.333969 1.3891 -396.141 -55.3847)';
$svg->text(id=>'big_J',x=>217,y=>270,style=>$j_style,transform=>$j_trans)->cdata('J');
$path = "M128 130 L202 130";
$style={'stroke-miterlimit'=>4,
'stroke-linejoin'=>'miter',
'stroke-linecap'=>'round',
'stroke-width'=>11,
'stroke-opacity'=>1,
'stroke'=>'url(#transparent-sky_1)',
'fill-opacity'=>1,
'fill'=>'rgb(0,0,0)',
'opacity'=>0.5};
$svg->path(d=>$path,style=>$style);
$string = '( Well..., almost )';
$style = {'font-family'=>'Arial monospaced for SAP',
'font-size'=>32,
'stroke-width'=>1,
'stroke-opacity'=>1,
'stroke'=>'url(#custom-paint_1)',
'fill-opacity'=>1,
'fill'=>'rgb(74,214,130)',
'opacity'=>1};
$svg->text(x=>273,y=>437,style=>$style)->cdata($string);
print $svg->xmlify;
( run in 1.417 second using v1.01-cache-2.11-cpan-d8267643d1d )