Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %!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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement