% --- start of displayed preamble in the book ---
vardef magnify(expr pic,p,c,f)=
save A;picture A;
A=pic;clip A to p;
unfill (p shifted -c scaled f shifted c);
draw A shifted -c scaled f shifted c;
draw p shifted -c scaled f shifted c;
enddef;
picture pic[];
% ptext=btex ... etex; % image with text not shown
% --- end of displayed preamble in the book ---
verbatimtex
%&latex
\documentclass{article}
\begin{document}
etex
picture ptext;
ptext=btex \parbox{10cm}{\parindent20pt\noindent
Proposition LX. Theorem XXIII.\hfill\break
\strut\hskip\parindent
\emph{If two bodies $S$ and $P$, attracting each
other with forces reciprocally proportional to the squares of their
distance, revolve about their common centre of gravity; I say, that
the principal axis of the ellipsis which either of the bodies, as $P$,
describes by this motion about the other $S$, will be to the principal
axis of the ellipsis, which the same body $P$ may describe in
the same periodical time about the other body $S$ quiescent, as the
sum of the two bodies $S+P$ to the first of the two mean
proportionals between that sum and the other body $S$.\hfill\break}
\strut\hskip\parindent
For if the ellipses described were equal to each other, their
periodic times by the last Theorem would be in a subduplicate ratio
of the body $S$ to the sum of the bodies $S+P$. Let the periodic
time in the latter ellipsis be diminished in that ratio, and the
periodic times will become equal; but, by Prop. XV, the principal axis
of the ellipsis will be diminished in a ratio sesquiplicate to the
former ratio; that is, in a ratio to which the ratio of $S$ to $S+P$
is triplicate; and therefore that axis will be to the principal axis
of the other ellipsis as the first of two mean proportionals between
$S+P$ and $S$ to $S+P$. And inversely the principal axis of the
ellipsis described about the movable body will be to the principal
axis of that described round the immovable as $S+P$ to the first of two
mean proportionals between $S+P$ and $S$. Q.E.D.\hfill\break
\strut\hskip\parindent
(Newton, \emph{The mathematical principles of natural philosophy},
translated by Andrew Motte, 1848.)} etex;
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
pic0=ptext scaled 0.4;label(pic0,origin);pic1=thelabel(pic0,origin);
path p[];
p1=fullcircle xscaled 1.2cm yscaled .8cm shifted (0,1cm);
magnify(pic1,p1,center p1,2.5);
p2=unitsquare shifted (-.5,-.5) xscaled 2.5cm yscaled 1cm shifted (-2cm*up);
magnify(pic1,p2,center p2,2);
endfig;
end;