#Creates a run chart for manual plotting of points
#by PGMathews December 2001

#Example call:
#   mtb> exec 'runchart'

#Primary boundaries of the chart
set c1
(0 100 100 0 0 100 0 100 0 100 0 100 0 100)
end
set c2
(0 0 100 0 100 100 5 5 18 18 92 92 96 96 )
end
set c3
(0 0 0 1 1 1 2 2 3 3 4 4 5 5)
end
set c4
(1)6
end

#Vertical lines in the data table
set c6
(1:99/2)2
end
set c7
50(0 18)
end
set c8
(101:150)2
end
set c9
(1)50
end

#Horizontal lines in the charting grid
set c10
(2:98/2)2
end
set c11
49(18 92)
end
set c12
(201:249)2
end
set c13
(15)49
end

#Vertical lines in the charting grid
set c15
(20:90/2)2
end
set c14
36(0 100)
end
set c16
(301:336)2
end
set c17
(15)36
end

#Stack them up
stack c1 c6 c10 c14 c21
stack c2 c7 c11 c15 c22
stack c3 c8 c12 c16 c23
stack c4 c9 c13 c17 c24

#Finally create the chart
Plot c22*c21;
  Connect c23;
    Type 1;
    Color c24;
  Figure 0 1.0 0.0 1.0;
  Data 0 1 0 1;
    EType 0;
    NoClip;
  NoLegend;
  ScFrame;
  ScAnnotation;
  Footnote "Mathews and Malnar, December 2001";
     Size 0.7;
     Color 15;
  NoFrame 1.