perl语言svg制图模板化

 

svg制图如果不转换坐标的话，很容易弄错坐标是怎么转换的，这儿把坐标一般化，用几何画板把各个一般化的各个点坐标给标出来，然后以后要是用的话就可以直接作图，方便多了。（这儿用的是perl语言，所以每个变量都是用perl语言的变量转换的）

分为两部分：

1、图片坐标的说明 

 

2、perl语言程序的实例展示

代码：

use strict;
use warnings;

use SVG;

my $infile = shift;

open AA, $infile or die $!;

my @theta;
my @fst;

my $aa;
while ($aa = <AA>){
        my @t = split /\t/, $aa;
        push @theta, $t[0];