+
+ foreach $link (keys %$Link) {
+ my($line) = new XFig ('polyline');
+ my($src_date)=$$Link{$link}{src_date};
+ my($src)=$$Link{$link}{src};
+ my($dst_date)=$$Link{$link}{dst_date};
+ my($dst)=$$Link{$link}{dst};
+ $line->{'subtype'} = 1; # line
+
+ $line->{'points'} = [ [$src_date*$grid_X_size,
+ ($$Cat{$src}{Y_min}+$$Cat{$src}{Y_max})/2*$grid_Y_size],
+ [$dst_date*$grid_X_size,
+ ($$Cat{$dst}{Y_min}+$$Cat{$dst}{Y_max})/2*$grid_Y_size] ];
+ $line->{'forwardarrow'} = ['1', '1', '1.00', '60.00', '120.00'];
+ $fig->add ($line);
+ }