Postscript program Type Setting

%!PS


% author codework10101@gmail.com
% 06/13/2019

% This program produces Definition XII. of Euclid's Elements, that is the definition of acute angle, as shown in
% "BYRNE'S EUCLID THE FIRST SIX BOOKS OF THE ELEMENTS OF EUCLID WITH COLOURED DIAGRAMS AND SYMBOLS" (see
% found here https://ia800204.us.archive.org/14/items/firstsixbooksofe00eucl/firstsixbooksofe00eucl.pdf
% pdf-page 19 (23 of 306) or book-page xix).




/inch { 72 mul } def
/cn   { 255 div } def




% BYRNE'S Color Palette
/dark-blue-slate {50 cn 93 cn 134 cn} def % blue
/peru  {219 cn 101 cn  74 cn} def         % red
/beige {242 cn 239 cn 217 cn} def         % page (off-white)
/khaki {236 cn 226 cn  92 cn} def         % yellow




% PAPER
beige setrgbcolor
newpath
0 0 moveto
 8.5 inch   0      rlineto
   0       11 inch rlineto
-8.5 inch   0      rlineto
   0      -11 inch rlineto
closepath
fill




% FIGURE
3.25 inch  4.5 inch translate % location on page


% ANGLE
%  - blue angle sector 45 deg
dark-blue-slate setrgbcolor
0 0 moveto
0 0 0.5 inch 0 45 arc
fill

%  - yellow line
3 setlinewidth
khaki setrgbcolor
0 0 moveto
2 sqrt 2 div inch  dup lineto
stroke

%  - red line
peru setrgbcolor
0 0 moveto
1 inch 0  lineto
stroke




% TEXT
0 0 0 setrgbcolor
/line_height 14 def

%  - text heading
1.21 inch 1 inch 2 line_height mul add moveto
% Note BRYNE uses "Caslon" font (see https://en.wikipedia.org/wiki/Caslon)
/Helvetica-Bold findfont 14 scalefont setfont
(XII.) show

%  - text body
/Helvetica findfont 14 scalefont setfont

-1 inch 1 inch 1 line_height mul add moveto
(An acute angle is an angle less than a\nright angle.) show

-1 inch 1 inch 0 line_height mul add moveto
(right angle.) show




%showpage