% Project Athena Owl Logo % Copyright 1986 by the Massachusetts Institute of Technology % % Original developed by W. E. Sommerfeld, 1986. % Owl eye shading, twig tuning by J. H. Saltzer % % Adjustments of size and position are provided at the end. % /circle { dup 3 index add 2 index moveto 0 360 arc } bind def /ellipse { matrix currentmatrix % Push current matrix 5 1 roll % roll to bottom 3 index 2 index add 3 index moveto % move to start 4 2 roll translate scale % translate then scale 0 0 1 0 360 arc % draw it setmatrix % restore matrix } def /owl1 { % Do the filled sections first. . . % right eye gsave newpath 120 120 6 circle closepath fill newpath 121 121 3 circle closepath 1 setgray fill grestore % left eye newpath 90 120 6 circle closepath fill gsave 91 121 3 circle closepath 1 setgray fill grestore % Containing Circle 75 75 102 circle % Left eye 90 120 10 circle % Right eye 120 120 10 circle % Berry on tree 37.5 111 3 circle % 37.5 111 2.5 circle % Theta (outside) 140 60 10 circle % Theta (inside) 140 60 .5 circle % High leaf 35 140 15 10 ellipse % Low leaf 15 109 10 15 ellipse % Twigs holding leaves and berry % berry 4 145 moveto 36 113 lineto % high leaf 9 140 moveto 51 140 lineto % low leaf 15 134 moveto 15 93 lineto % squarish outline lines 0 45 moveto -10 65 -15 120 3 146 curveto 20 160 25 155 75 155 curveto 75 -5 moveto 100 -5 145 5 155 15 curveto 165 25 160 100 155 135 curveto % Main outline of owl stroke currentlinewidth dup 2 mul setlinewidth 35 14 moveto 35 18 lineto 36 19 lineto 37 20 lineto 50 20 lineto 52 21 lineto 55 24 lineto 56 29 lineto 54 34 lineto 53 36 lineto 51 38 lineto 48 40 lineto 41 43 lineto 31 46 lineto 26 45 lineto 20 44 lineto 15 43 lineto 13 43 lineto 11 44 lineto 10 45 lineto 10 46 lineto 11 48 lineto 13 51 lineto 20 61 lineto 30 75 lineto 34 80 lineto 40 87 lineto 45 93 lineto 50 97 lineto 55 101 lineto 60 103 lineto 64 105 lineto 71 105 lineto 69 108 lineto 67 112 lineto 66 115 lineto 67 120 lineto 68 124 lineto 71 129 lineto 72 132 lineto 73 135 lineto 71 141 lineto 75 139 lineto 80 137 lineto 90 136 lineto 100 135 lineto 120 135 lineto 130 136 lineto 140 137 lineto 146 140 lineto 144 136 lineto 142 132 lineto 141 125 lineto 142 118 lineto 142 112 lineto 140 106 lineto 136 100 lineto 132 95 lineto 129 92 lineto 124 89 lineto 126 86 lineto 127 80 lineto 126 73 lineto 124 66 lineto 120 60 lineto 116 55 lineto 110 50 lineto 105 46 lineto 100 43 lineto 91 39 lineto 84 36 lineto 75 35 lineto 73 30 lineto 73 25 lineto 74 22 lineto 76 20 lineto 90 20 lineto 92 18 lineto 92 14 lineto 75 35 moveto 65 33 lineto 62 31 lineto 61 27 lineto 61 22 lineto 62 20 lineto 63 19 lineto 64 19 lineto 66 21 lineto 67 25 lineto 66 31 lineto 65 33 lineto 20 44 moveto 20 27 lineto 22 25 lineto 38 25 lineto 40 27 lineto 40 43 lineto % (end of main owl outline) stroke setlinewidth % everything else 31 46 moveto 39 49 lineto 50 53 lineto 59 57 lineto 76 67 lineto 80 70 lineto 92 80 lineto 100 88 lineto 102 91 lineto 102 94 lineto 71 105 moveto 75 103 lineto 80 101 lineto 87 100 lineto 92 99 lineto 99 96 lineto 102 94 lineto 110 90 lineto 124 89 lineto % Damned stack limit! } bind def /owl2 { 26 45 moveto 26 30 lineto 35 45 moveto 35 30 lineto 64 105 moveto 78 80 lineto 33 79 moveto 60 66 lineto 68 97 moveto 66 99 lineto 61 98 lineto 48 83 lineto 72 90 moveto 68 94 lineto 65 93 lineto 63 92 lineto 53 82 lineto 75 85 moveto 73 87 lineto 70 88 lineto 66 86 lineto 60 80 lineto 77 80 moveto 75 83 lineto 73 83 lineto 67 79 lineto 44 73 moveto 40 74 lineto 38 73 lineto 33 68 lineto 51 70 moveto 46 71 lineto 42 69 lineto 32 61 lineto 60 66 moveto 54 67 lineto 46 64 lineto 30 52 lineto 105 92 moveto 105 100 lineto 106 104 lineto 108 107 lineto 110 109 lineto 115 112 lineto 105 100 moveto 104 104 lineto 102 107 lineto 100 109 lineto 95 112 lineto 130 90 moveto 150 80 lineto 130 70 lineto 137 86 moveto 137 74 lineto 130 30 moveto 130 45 lineto 150 45 lineto 150 30 lineto 140 45 moveto 140 35 lineto } bind def /owl { gsave currentpoint translate -23 -23 translate .3 .3 scale owl1 owl2 stroke grestore } bind def /logo { owl } def