my $name = $ENV{USER} . "'s model";
    my @argv = opt_get(@_);
    $name = opt_val("name") if(opt_val("name"));
    my $dir = shift @argv;
    
    opendir(DIR, $dir) || die($!);
    mkdir("graph", 0777);
    open(OUT, '>graph/sublist.ecw') || die($!);
    print OUT '&ecsname=' . $name . '&';
    
    my $max = 0;
    my $i = 1;
    foreach my $file (readdir(DIR)){
	last if ($i == 14);
	
	if($file =~ /(.*)\.ecd/){
	    open(FILE, $dir . '/' . $file) || die($!);
	    print OUT '&&s' . $i . '_name=' . $1 . '&';
	    
	    my @lines = ();
	    while(<FILE>){
		chomp;
		my (undef, $val, undef) = split(/\s+/, $_, 3) if(/^\d/);
		push(@lines, $val);
	    }
	    close(FILE);

	    my $j = 0;
	    my $step = int(scalar(@lines)/630);
	    $step = 1 if ($step == 0);
	    for ($j = 1; $j*$step < scalar @lines; $j++){
		printf OUT "\&s%d_%d=%.5f\&", $i, $j, $lines[$j*$step];
	    $max = $lines[$j*$step] if($lines[$j*$step] > $max);
	    }
	    
	    $i ++;
	}
    }
    closedir(DIR);
    
    printf OUT "\&maxs=%s\&", ceil($max);
    close(OUT);

    chdir("graph");
    system("wget -q http://www.g-language.org/~gaou/dote/default.swf"); 
    chdir("../");

    return "graph/default.swf";