🚀 go-pugleaf

Here's the "official" GE logo in PostScript form. A sample call to the
GElogo operator occurs at the end of the file.

---------- cut here ---------- cut here ---------- cut here ----------
%!PS-Adobe-2.0 EPSF-1.2
%%Creator:      (original-this has been changed)J. Emmett Black <BlackJE@crd.ge.com>
%%Title:        21.6 points (or .3 inch), Platinum on White GE Monogram 
%%CreationDate: 05 Feb 1990
%%BoundingBox:  0 0 21.6 21.6
%
% Following are sample invocations of the procedure
% They use the calling sequence:
% 1: Horizontal-position
% 2: Vertical-position
% 3: Diameter
% 4: Letters light or dark
% 5: Color of logo: platinum or black
% Procedure-name: GElogo
%
%
% New simplified General Electric Company logo
% Registered trademark of the General Electric Company
% Price M. Collins, GE Corporate Information Technology
% Bridgeport, CT  06602
% Copyright (c) 1987, General Electric Company
%
/GElogo
% This procedure needs five parameters to be passed to it:
% 1: Horizontal coordinate of lower left corner of logo
% 2: Vertical coordinate of lower left corner of logo
% 3: Diameter of logo
% 4: Color of GE characters against their background:
%       light (1) or dark (0)
% 5: Color of logo: black (0) or platinum (0.6)
%
  { /logocolor exch def
    /charactercolor exch def
    /scalefactor exch def
    /Yposition exch def
    /Xposition exch def
    % Because of the complexity of the logo, the drawing is divided
    % into two sub-procedures to avoid PostScript stack overflow.
    /FourCuspBorder
      { % outer circular border
        1435 700 moveto
        735 735 700 0 360 arc
        closepath
        1378 676 moveto
        0 -60 -32 -206 -42 -219 rcurveto
49 102 60 177 60 273 rcurveto
        0 252 -203 576 -527 576 rcurveto
        -84 0 -106 -40 -138 -62 rcurveto
        -18 -12 -62 -3 -72 23 rcurveto
        -21 52 25 104 147 104 rcurveto
        41 0 136 -13 150 -20 rcurveto
        -77 29 -152 39 -211 39 rcurveto
        -247 0 -583 -196 -583 -527 rcurveto
        0 -67 38 -106 49 -122 rcurveto
        16 -22 26 -61 -2 -80 rcurveto
        -53 -37 -114 19 -114 136 rcurveto
        0 69 23 152 25 156 rcurveto
        -35 -84 -45 -169 -45 -219 rcurveto
        0 -319 240 -573 523 -573 rcurveto
        71 0 108 31 126 45 rcurveto
        28 23 67 23 83 -5 rcurveto
        30 -54 -17 -106 -130 -107 rcurveto
        -60 0 -152 18 -163 25 rcurveto
        101 -41 175 -43 214 -43 rcurveto
        322 3 585 242 582 529 rcurveto
        -1 96 -41 104 -54 130 rcurveto
        -20 40 2 67 23 76 rcurveto
        42 18 99 -9 99 -135 rcurveto
        closepath
      } def
    /GEcharacters % outline of GE characters
      { 988 941 moveto
        -16 -18 -74 -71 -77 -71 rcurveto
        22 -28 rlineto
        0 0 46 21 87 17 rcurveto
        51 -5 68 -64 -26 -82 rcurveto
        -12 -2 -43 -3 -56 6 rcurveto 
       -60 -11 -117 -116 -116 -198 rcurveto
        2 -218 271 -226 271 -38 rcurveto
        0 133 -132 109 -131 33 rcurveto
        0 -33 53 -46 34 -76 rcurveto
        -23 -37 -99 10 -99 76 rcurveto
        -2 161 264 163 264 -29 rcurveto
        0 -274 -414 -289 -412 28 rcurveto
        0 146 119 232 134 237 rcurveto
        -18 21 rlineto
        -34 -26 -56 -42 -91 -65 rcurveto
        -36 -23 -60 -39 -98 -60 rcurveto
        0 0 -12 -156 -19 -183 rcurveto
        -110 -380 -514 -120 -187 131 rcurveto
        32 24 150 84 152 84 rcurveto
        3 32 rlineto
        -7 -9 -47 -42 -98 -30 rcurveto
        -33 8 -64 50 -68 74 rcurveto
        -48 4 -87 39 -97 78 rcurveto
        -10 39 -4 127 34 119 rcurveto
        18 -4 -13 -76 17 -109 rcurveto
        11 -12 22 -22 44 -28 rcurveto
        -1 3 -4 51 14 99 rcurveto
        81 217 320 201 154 -67 rcurveto
        -35 -57 -102 -84 -103 -84 rcurveto
        0 0 -1 -25 30 -27 rcurveto
        32 -2 93 60 93 66 rcurveto
        0 2 9 37 26 57 rcurveto
        56 63 103 16 44 -63 rcurveto
        -10 -14 -30 -27 -31 -27 rcurveto
        -4 -60 rlineto
        33 19 53 32 85 53 rcurveto
        31 20 69 50 80 58 rcurveto
        -2 4 -12 47 -9 79 rcurveto
        36 295 316 161 152 -23 rcurveto
        closepath
        % upper hole in the G
        522 956 moveto
        -8 -21 -11 -73 -11 -73 rcurveto
        0 0 38 23 52 44 rcurveto
        126 183 18 178 -41 29 rcurveto
        closepath
        % lower hole in the G
        615 677 moveto
        0 0 -91 -44 -136 -92 rcurveto
        -60 -65 -82 -146 -56 -169 rcurveto
        34 -30 113 -26 165 130 rcurveto
        16 48 27 130 27 131 rcurveto
        closepath
        % hole in the E
        939 970 moveto
        92 133 -4 135 -35 37 rcurveto
        -6 -21 -6 -78 -4 -78 rcurveto
        1 0 29 26 39 41 rcurveto
        closepath
        eofill
      } def
    gsave
      Xposition Yposition translate
      0 setlinewidth
      /scalefactor scalefactor
        charactercolor 0 ne
          { 1470 }
          { 1400 }
        ifelse
        div def
      scalefactor scalefactor scale
      newpath
      logocolor setgray
      charactercolor 1 eq  % true if GE letters are light
        { 735 735 735 0 360 arc closepath }  % Outer border
        { -35 -35 translate }
      ifelse
      FourCuspBorder
      GEcharacters
    grestore }
  def  % end of GElogo procedure
/inch { 72 mul } def
/black 0 def
/platinum .6 def
/light 1 def
/dark 0 def
%%%% - End of GE Monogram -
%
0.0 inch 0.0 inch 0.30 inch light black GElogo
%
%%Trailer
%%Pages: 0 0
%%DocumentFonts: 
---------- cut here ---------- cut here ---------- cut here ----------
--
Skip (montanaro@crd.ge.com)