next prev up toc Local Style File 1-4-4 1-4-5 1-4-6 1.6 1.17 1-4-8 1-4-11 2-3-16 3-1-8
3-3-8 3-3-9 3-3-10 3-3-11 3-3-12 3-3-13 3-3-14 3-3-15 3-3-16
3-3-17 3-3-18 3-3-19 4-6-30 4-6-33 4-6-35 4-6-36 4-6-37 4-6-38
4-6-39 4-6-40 4-6-41 4-6-42 4-7-1 4-7-3 4-7-4 4-8-4 4-10-7 4-10-8
4-10-9 4-10-10 5-5-4 5-5-9 5-5-30 5-5-34 6-7-1 6-7-2 6-7-4
%%%%%%%%%%%%%%%%%%%%%%% definitions %%%%%%%%%%%%%%%%
\Define\PlotFile(3){{
\Define\AddLine{
\R=\v; \R-#2;
\Q=\w; \Q-#3;
\PlotLine(\Val\R,\Val\Q)}
\openin15 = #1 \catcode`\^^M=5
\catcode`\ =10 \GetPoint }
}
\Define\GetPoint{
\read15 to\point
\ifx \point\Par \let\GetPoint=\relax
\else \expandafter\AddPoint \point \fi \GetPoint
}
\newcount\v \newcount\w
\Define\AddPoint{\afterassignment\CoordB \v=}
\Define\CoordB{\afterassignment\AddLine \w=}
\Define\PlotLine{\let\PlotLine=\LineTo \MoveTo}
\def\Par{\par}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\Draw
\SaveUnits \Units(0.02in,0.08in)
\PenSize(0.3pt)
\PlotFile(years.wom,1780,0)
\MoveTo(0,0) \MarkLoc(a)
\Move(210,30) \MarkLoc(b)
\Move(-10,0) \MarkLoc(c) \Move(-95,-30)
\RecallUnits
\Move(0,-30) \EntryExit(0,1,0,-1)
\Text(--burials~of~women~per~year--)
\Axis(a,b)(S-3,&&&&&&&&&&)
\Axis(a,b)(W-3,&&&&&&&&&&&&&&&&&&&&)
\Axis(a,c)(S-1,1780&1800&1820&1840&1860&1880&1900&1920&1940&1960&1980)
\Axis(a,b)(W-1,0&5&10&15&20&25&30)
\EndDraw
up toc next prev Local Style File 1-4-4 1-4-5 1-4-6 1.6 1.17 1-4-8
1-4-11 2-3-16 3-1-8 3-3-8 3-3-9 3-3-10 3-3-11 3-3-12 3-3-13 3-3-14
3-3-15 3-3-16 3-3-17 3-3-18 3-3-19 4-6-30 4-6-33 4-6-35 4-6-36 4-6-37
4-6-38 4-6-39 4-6-40 4-6-41 4-6-42 4-7-1 4-7-3 4-7-4 4-8-4 4-10-7
4-10-8 4-10-9 4-10-10 5-5-4 5-5-9 5-5-30 5-5-34 6-7-1 6-7-2 6-7-4