#!/usr/local/bin/perl
# 
# time_log: 時間記述に対応した長さの分だけ単一文字を繰り返し印字する．
# 
#     Jan.20,'96. OSHIRO Naoki.
# 
#     $Log:$
#

$scale=1/15;

while (<>) {
    $a="";
    $b=0;
    while (/\[(([0-9]+):([0-9]+))\]/) {
	$a .="$`[$1]" . "+" x int(($2*60+$3)*$scale) . " ";
	$_=$';
	$b=1;
    }
    if ($b==0) {
	print;
    } else {
	print "$a$'";
    }
}

# major-mode: perl