bbox -1 -1 577 577

newgraph
xaxis min 0 max 8 size 8 nodraw
yaxis min 0 max 8 size 8 nodraw
newstring fontsize 10 font Times-Italic x 4 y -0.1 hjc vjt
: Plank, Kim & Dongarra: Algorithm-Based Diskless Checkpointing...: FTCS-25 (1995)
copystring hjr x 8 : 07
newgraph
xaxis min 0 max 8 size 8 nodraw
yaxis min 0 max 8 size 8 nodraw
border

newcurve marktype box marksize 8 8 pts 4 4 
cfill 0.0 0.0 0.0

(* Purple line *)
newline linethickness 2 color 1 0 1 pts 0 6.7 8 6.7

string 0 fontsize 32 hjc vjt font Helvetica x 4 y 7.8
lgray 1.0

copygraph noborder
xaxis size 7 yaxis size 7 x_translate .5 y_translate 3.5

(* Draw network *)
shell : echo "" |\
   awk '{ for (j = .75; j <= 3; j+= .75) {\
      print "newline color 1 1 1 pts ", 1, j, 7.7, j }}'
copycurve pts 7.7 .75 7.7 3

(* Draw yellow srm's *)
newcurve eps srmy.eps marksize .6 .6 pts 
  shell : echo "" |\
     awk '{ for (i = 1; i <= 7; i+= .75) {\
              for (j = .75; j <= 3; j+= .75)  print i, j }}'


(* Draw white srm's *)
newcurve eps srmw.eps marksize .6 .6 pts
shell : ( echo "4 3" ; echo "1 2" ; echo "7 0"; echo "3 1") |\
       awk '{ print $1*.75+1, $2*.75+.75 }'

(* Draw red x's *)
newline linethickness 5 color 1 0 0
shell : ( echo "4 3" ; echo "1 2" ; echo "7 0"; echo "3 1") |\
        awk '{ print "copycurve pts", -.3+$1*.75+1, -.3+$2*.75+.75, \
              .3+$1*.75+1, .3+$2*.75+.75, "copycurve pts",  \
              -.3+$1*.75+1, .3+$2*.75+.75, \
              .3+$1*.75+1, -.3+$2*.75+.75 }'

(* Draw red srm's *)
newcurve eps srmr.eps marksize .6 .6 pts
shell : ( echo "2 0" ; echo "8 1" ; echo "0 1"; echo "3 3"; echo "6 2") |\
       awk '{ print $1*.75+1, $2*.75+.75 }'

(* Draw blue srm's *)
newcurve eps srmb.eps marksize .6 .6 pts
shell : ( echo "8 3" ; echo "2 2" ; echo "4 0" ) |\
       awk '{ print $1*.75+1, $2*.75+.75 }'

newline rarrow gray 1 linethickness 2 acfill 1 asize .2 .1 pts 4 .1 4 -.4
copycurve pts 2 .1 2 -.4
copycurve pts 6 .1 6 -.4

copygraph noborder
xaxis size 7 yaxis size 7 x_translate .5 y_translate 0

shell : echo "" |\
   awk '{ for (j = .75; j <= 3; j+= .75) {\
      print "newline color 1 1 1 pts ", 1, j, 7.7, j }}'
copycurve pts 7.7 .75 7.7 3

newcurve eps srmy.eps marksize .6 .6 pts 
  shell : echo "" |\
     awk '{ for (i = 1; i <= 7; i+= .75) {\
              for (j = .75; j <= 3; j+= .75)  print i, j }}'


newcurve eps srmw.eps marksize .6 .6 pts
shell : ( echo "7 3" ; echo "0 2" ; echo "5 2"; echo "4 1"; echo "3 1") |\
       awk '{ print $1*.75+1, $2*.75+.75 }'

newline linethickness 5 color 1 0 0
shell : ( echo "7 3" ; echo "0 2" ; echo "5 2"; echo "4 1"; echo "3 1") |\
        awk '{ print "copycurve pts", -.3+$1*.75+1, -.3+$2*.75+.75, \
              .3+$1*.75+1, .3+$2*.75+.75, "copycurve pts",  \
              -.3+$1*.75+1, .3+$2*.75+.75, \
              .3+$1*.75+1, -.3+$2*.75+.75 }'

newcurve eps srmr.eps marksize .6 .6 pts
shell : ( echo "7 0" ; echo "8 3") |\
       awk '{ print $1*.75+1, $2*.75+.75 }'

newcurve eps srmb.eps marksize .6 .6 pts
shell : ( echo "0 3"; echo "1 0" ; echo "4 3" ; echo "1 2" ; echo "5 1" ) |\
       awk '{ print $1*.75+1, $2*.75+.75 }'


copygraph y_translate 6.7 
newstring fontsize 25 hjc vjt font Helvetica x 1 y 0.5 lgray 1.0
: Running

newcurve eps srmy.eps marksize .6 .6 pts 1 1.0

copystring x 3 : Ready

newcurve eps srmb.eps marksize .6 .6 pts 3 1.0

copystring x 5 : Failed

newcurve eps srmw.eps marksize .6 .6 pts 5 1.0
newline linethickness 5 color 1 0 0
shell : ( echo "5 1" ) |\
        awk '{ print "copycurve pts", -.3+$1, -.3+$2, \
              .3+$1, .3+$2, "copycurve pts",  \
              -.3+$1, .3+$2, \
              .3+$1, -.3+$2 }'

copystring x 7 : Loaded

newcurve eps srmr.eps marksize .6 .6 pts 7 1.0