# Routine to compute dotted line.

den=!eval $(x_$ind_right)-($(x_$ind_left))
a=!eval ($(y_$ind_right)-($(y_$ind_left)))/($den)
b=!eval ($(x_$ind_right)*($(y_$ind_left))-$(x_$ind_left)*($(y_$ind_right)))/($den)
formula=!nosubst $a*($x)+($b)
den=!eval $(y_$ind_right)-($(y_$ind_left))
ia=!eval ($(x_$ind_right)-($(x_$ind_left)))/($den)
ib=!eval ($(y_$ind_right)*($(x_$ind_left))-$(y_$ind_left)*($(x_$ind_right)))/($den)
inverse=!nosubst $ia*($y)+($ib)
xx1=$(x_$ind_left)
xx2=$(x_$ind_right)
!if $xx1>=$size_border+$size_x or $xx2<=$size_border
:out
  xx1=0
  xx2=0
  yy1=0
  yy2=0
  !exit
!endif

!if $xx1 < $size_border
  xx1=$size_border
!endif

!if $xx2 > $size_border+$size_x
 xx2=$size_border+$size_x
!endif

x=$xx1
yy1=!eval $formula
!if $yy1 < $size_border
  y=$size_border
  :rey1  
  xx1=!eval $inverse
  !if $xx1 > $size_border+$size_x
   !goto out
  !endif
  x=$xx1
  yy1=!eval $formula
!else
 !if $yy1 > $size_border+$size_x
  y=$size_border+$size_x
  !goto rey1
 !endif
!endif

x=$xx2
yy2=!eval $formula
!if $yy2 < $size_border
  y=$size_border
  :rey2
  xx2=!eval $inverse
  !if $xx2 <$size_border
   !goto out
  !endif
  x=$xx2
  yy2=!eval $formula
!else
 !if $yy2 > $size_border+$size_x
   y=$size_border+$size_x
   !goto rey2
 !endif
!endif

xx1=!eval rint($xx1)
xx2=!eval rint($xx2)
yy1=!eval rint($yy1)
yy2=!eval rint($yy2)


