From: zaphod@ctrg.rri.uwo.ca (Lance R. Bailey)
Subject: Re: Coca-Cola Logo???
Reply-To: zaphod@ctrg.rri.uwo.ca
Organization: University of Western Ontario
Distribution: na
Date: Wed, 27 Jan 1993 11:31:26 GMT

In article <2907@irit.irit.fr> stolte@irit.irit.fr (Nilo STOLTE) writes:
>
>Does anybody has a PostScript VECTORIAL (not bitmap) logo from Coca-Cola or  
any other famous company, like Ford???

well, i happen to get a kick out of mimicing logos. here is a selection of
some of my imitations. ALL OF THE FOLLOWING LOGOS ARE COPYRIGHT AND/OR 
TRADEMARK THEIR RESPEcTIVE OWNERS. (i really hate shouting, nearly as much
as i do being sued :)
--
Lance R. Bailey  System/Network Manager         Robarts Research Institute
     NeXT/email: zaphod@ctrg.rri.uwo.ca    box: Clinical Trials Resources Group
            fax: +1 519 663 3789                P.O. Box 5015, 100 Perth Dr.
            vox: +1 519 663 3787 x4108          London, Canada N6A 5K8
Lance's Law:nothing works. Lee's Corrollory:Once,something worked-but it broke.

#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	BankOfMontreal
#	canadatrust.eps
#	chrysler.eps
#	dolby.eps
#	handicap.eps
#	hearing.eps
#	isuzu.eps
#	linn.eps
#	maxell.eps
#	nakamichi.eps
#	neumann.eps
#	scotiabank.eps
#	sun.eps
#	volvo-logo.eps
#	volvo.eps
# This archive created: Wed Jan 27 06:28:30 1993
export PATH; PATH=/bin:$PATH
if test -f 'BankOfMontreal'
then
	echo shar: will not over-write existing file "'BankOfMontreal'"
else
cat << \SHAR_EOF > 'BankOfMontreal'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 10 10 60 58


% bank of montreal

/BoM
{   gsave translate dup scale
        0 0 moveto 0 1.5 lineto  5 1.5 lineto 5 0 lineto closepath fill
        0 1.5 moveto 1.25 1.5 rlineto 1.25 -1.5 rlineto 1.25 1.5 rlineto 1.25  
-1.5 rlineto
        0 1.8 rlineto -1.25 1.5 rlineto -1.25 -1.5 rlineto -1.25 1.5 rlineto
        -1.25 -1.5 rlineto closepath fill
    grestore
} def

10 10 10 BoM
SHAR_EOF
fi # end of overwriting check
if test -f 'canadatrust.eps'
then
	echo shar: will not over-write existing file "'canadatrust.eps'"
else
cat << \SHAR_EOF > 'canadatrust.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 9 9 80 53
%! Canada Trust logo

/CT
{ gsave translate dup scale
      0 0 moveto 9 0 rlineto 0 4.5 rlineto -4.5 0 rlineto 0 5 rlineto
      14 0 rlineto 0 -5 rlineto -4.5 0 rlineto 0 -4.5 rlineto 9 0 rlineto
      0 14 rlineto -23 0 rlineto  0 -14 rlineto closepath fill
  grestore
} def
3 10 10 CT

SHAR_EOF
fi # end of overwriting check
if test -f 'chrysler.eps'
then
	echo shar: will not over-write existing file "'chrysler.eps'"
else
cat << \SHAR_EOF > 'chrysler.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: chrysler
%%Pages: 0 1
%%BoundingBox: -65 0 275 325 
%%EndComments
%%EndProlog
%%Page 1 1

100 dup  scale

/triangle
    {0 0 moveto 2.1 0 lineto 1.05 1.3 lineto closepath fill} def 

0 0 translate triangle 2.1 0 translate 72 rotate 
triangle 2.1 0 translate 72 rotate 
triangle 2.1 0 translate 72 rotate 
triangle 2.1 0 translate 72 rotate 
triangle 2.1 0 translate 72 rotate 
showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'dolby.eps'
then
	echo shar: will not over-write existing file "'dolby.eps'"
else
cat << \SHAR_EOF > 'dolby.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: neumann logo
%%Pages: 0 1
%%BoundingBox: 0 0 142.5 100 
%%EndComments
%%EndProlog
%%Page 1 1

10 10 scale

0 0 moveto  0 10 lineto 7 10 lineto 7 0 lineto closepath fill
1 setgray 1 1 moveto 1 9 lineto 3 9 lineto 
2 5 4 90 270 arcn 3 1 lineto closepath fill

7.25 0 translate 0 setgray
0 0 moveto  0 10 lineto 7 10 lineto 7 0 lineto closepath fill
1 setgray 6 1 moveto 6 9 lineto 4 9 lineto 
5 5 4 90 270 arc 4 1 lineto closepath fill


SHAR_EOF
fi # end of overwriting check
if test -f 'handicap.eps'
then
	echo shar: will not over-write existing file "'handicap.eps'"
else
cat << \SHAR_EOF > 'handicap.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 11 00 29 23

/handicap
{   gsave translate dup scale 1.5 setlinewidth
    17 6 6 120 360 arc stroke
    gsave 
        1 setgray 3 setlinewidth 14 19 moveto 15.25 9 lineto 22 9 lineto
        24 3 lineto 26.5 4 lineto stroke
    grestore
    15 19 2  181 180  arc fill
    14 19 moveto 15.25 9 lineto 22 9 lineto 24 3 lineto 26.5 4 lineto stroke
    15 12 moveto  20 12 lineto stroke
    grestore
} def

1 1 dup handicap
SHAR_EOF
fi # end of overwriting check
if test -f 'hearing.eps'
then
	echo shar: will not over-write existing file "'hearing.eps'"
else
cat << \SHAR_EOF > 'hearing.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: -3 -2 2 2

/Ear
{  gsave translate dup scale      %  0.5 setgray 
       -1.4 -1.15 moveto 0 1.8 rlineto 2.7 0 rlineto 0 -1.8 rlineto closepath  
clip newpath
       -1.585 -1.3  moveto .49 0 rlineto .87 .7 rlineto  -0.25 0.2 rlineto  
closepath fill
       .5 0 moveto .4 0.3 lineto .82 .65 lineto 1.32 .65 lineto fill
       1 setlinecap 0.1 setlinewidth
       newpath 0 0 0.3 180 330  arcn stroke 0 0 0.5 180 310 arcn
       gsave 1 setgray 0.15 setlinewidth stroke grestore
       0 -0.6 -0.0 -1.1 -0.2 -1 curveto stroke 0 setlinecap

   grestore
} def

1 0 0   Ear
SHAR_EOF
fi # end of overwriting check
if test -f 'isuzu.eps'
then
	echo shar: will not over-write existing file "'isuzu.eps'"
else
cat << \SHAR_EOF > 'isuzu.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: isuzu
%%Pages: 0 1
%%BoundingBox: -2 -13 481 104
%%EndComments
%%EndProlog
%%Page 1 1

%!isuzu

/isuzu
{   gsave translate dup scale
     25 setlinewidth /rad currentlinewidth 2 div def 2 setlinecap 
     0 0 do_I
     50 0 do_S
     150 0 do_U
     275 0 do_Z
     380 0 do_U
    grestore
} def

/do_I
{ gsave translate
    rad 0 moveto
    rad 90 lineto stroke
    grestore
} def

/do_S
{ gsave translate
    0 0 moveto
    75 rad sub    rad rad 270 70 arc
    rad 90 rad sub rad 250 90 arcn
    75 90 lineto
    stroke
    grestore
} def


/do_U
{ gsave translate
    rad 90 moveto
    rad 2 mul rad   rad 180 270 arc 
    75 rad   rad   270 0 arc 
    0 90 rad sub rlineto
    stroke
    grestore
} def


/do_Z
{ gsave translate
    75 0 translate -1 1 scale 0 0 do_S
    grestore
} def


1 0 0 isuzu
showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'linn.eps'
then
	echo shar: will not over-write existing file "'linn.eps'"
else
cat << \SHAR_EOF > 'linn.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 0 0 40 40

/linn
{ gsave translate dup scale 0.3 setlinewidth
    0 0 10 0 360 arc stroke
     -10 0 moveto 10 0 lineto stroke
    0 0 moveto  -45 rotate -10 0 rlineto  225 rotate -14.1 0 rlineto  225  
rotate -10 0 rlineto stroke 
    grestore
} def


2 20 dup  linn
SHAR_EOF
fi # end of overwriting check
if test -f 'maxell.eps'
then
	echo shar: will not over-write existing file "'maxell.eps'"
else
cat << \SHAR_EOF > 'maxell.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: maxell logo
%%Pages: 0 1
%%BoundingBox: 0 0 43 10
%%EndComments
%%EndProlog
%%Page 1 1

% m
gsave
    0 0 moveto 0 8 rlineto 2 0 rlineto 0 -1 rlineto 
    1 1 rlineto 2 0 rlineto 1 -1 rlineto 1 1 rlineto 2 0 rlineto
    currentpoint 1 sub 1 90 0 arcn
    0 -7 rlineto -2 0 rlineto 0 6.5 rlineto -2 0 rlineto
    0 -6.5 rlineto -2 0 rlineto 0 6.5 rlineto -2 0 rlineto
    0 -6.5 rlineto -2 0 rlineto
    closepath fill
grestore

% a
gsave
    12 0 translate  1  8 7 div scale
    1 1 1 270 180 arcn 0 3 rlineto 5 0 rlineto 0 2 rlineto
    -3 0 rlineto 0 -1 rlineto -2 0 rlineto 0 1 rlineto
    currentpoint exch 1 add exch 1 180 90 arcn 5 0 rlineto
    currentpoint 1 sub 1 90 0 arcn 0 -6 rlineto 
    closepath 
    2 1 moveto 3 0 rlineto 0 2 rlineto -3 0 rlineto 0 -2 rlineto
    closepath fill
grestore


% x
gsave
    20 0 translate
    0 0 moveto 7 8 lineto 8 8 lineto 1 0 lineto fill
    0 8 moveto 6 0 lineto 8 0 lineto 2 8 lineto fill
    closepath fill
grestore


% e
gsave
    29 0 translate  1  8 7 div scale
    1 1 1 270 180 arcn 0 5 rlineto
    currentpoint exch 1 add exch 1 180 90 arcn 5 0 rlineto
    currentpoint 1 sub 1 90 0 arcn 0 -3 rlineto
    -5 0 rlineto 0 -2 rlineto 3 0 rlineto 0 1 rlineto 2 0 rlineto 
    0 -1 rlineto currentpoint exch 1 sub exch 1 0 270 arcn
    closepath
    2 4 moveto 3 0 rlineto 0 2 rlineto -3 0 rlineto 0 -2 rlineto
    closepath fill
grestore

% l's
gsave
    33 0 translate
    {   4 0 translate
        0 0 moveto 0 9 lineto 1 9 1 180 90 arcn 2 10 lineto
        2 0 lineto closepath fill
    } dup exec exec
    closepath fill
grestore

showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'nakamichi.eps'
then
	echo shar: will not over-write existing file "'nakamichi.eps'"
else
cat << \SHAR_EOF > 'nakamichi.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: Nak logo
%%Pages: 0 1
%%BoundingBox: -1 0 1 1
%%EndComments
%%EndProlog
%%Page 1 1


0 1 moveto 0 0 lineto 1 0 lineto
0 0 1 0 90 arc
-1 1 lineto -1 0 lineto 
0 0 1 180 90 arcn 
fill

showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'neumann.eps'
then
	echo shar: will not over-write existing file "'neumann.eps'"
else
cat << \SHAR_EOF > 'neumann.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: neumann logo
%%Pages: 0 1
%%BoundingBox: 90 90  310 310
%%EndComments
%%EndProlog
%%Page 1 1

/Helvetica findfont 3 scalefont setfont
200 200 translate 10 10 scale

% 0 setlinewidth -30 0 moveto 30 0 lineto stroke newpath 0 setlinewidth 0 -30  
moveto 0 30 lineto stroke newpath

0.2 setlinewidth

-1.0 6 moveto (N) show
-1.0 3.5 moveto (E) show
-1.0 1 moveto (U) show
-1.0 -3.5 moveto (A) show
-1.0 -6 moveto (N) show
-1.0 -8.5 moveto (N) show
/Helvetica findfont 2.5 scalefont setfont
-1.0 -1 moveto (M) show

 1.5 -1 moveto  1.5  9 lineto -1.5  9 lineto -1.5  2 lineto stroke
-1.5  1 moveto -1.5 -9 lineto  1.5 -9 lineto  1.5 -2 lineto stroke

 1.25 -1.25 moveto  1.75  -1.75  lineto   1.75  6 lineto stroke
-1.25  1.25 moveto -1.8   1.75  lineto  -1.8 -6 lineto stroke

0 0 6.24 73.74 287 arcn stroke
0 0 5.75 72.07 289 arcn stroke
0 0 5.25 70 291 arcn stroke

gsave 180 rotate
0 0 6.24 73.74 287 arcn stroke
0 0 5.75 72.07 289 arcn stroke
0 0 5.25 70 291 arcn stroke
grestore

0 10.6 moveto 10.6 0 lineto 0 -10.6 lineto -10.6 0 lineto closepath stroke

showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'scotiabank.eps'
then
	echo shar: will not over-write existing file "'scotiabank.eps'"
else
cat << \SHAR_EOF > 'scotiabank.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: -3 -3 23 23
% scotia bank...

/ScotiaBank
{ gsave translate dup scale
    gsave
      0 0 5 0 360 arc clip fill 1 setgray 0.2 setlinewidth
      -5 0 moveto 10 0 rlineto stroke
      -5 2.5 moveto 10 0 rlineto stroke
      -5 -2.5 moveto 10 0 rlineto stroke
      0 5 moveto  3 3  3 -3   0 -5 curveto stroke
      0 5 moveto  -3 3  -3 -3   0 -5 curveto stroke
     grestore
     {   0 0 5.4 0 270 arcn
         -5 0 rlineto -3 -3 rlineto 
         1 -8.4  lineto
         6 -8.5   7 -2    5.4 0 curveto
         0 setlinewidth fill
     } dup exec -1 -1 scale exec
   grestore 
} def


1 10 10 ScotiaBank
SHAR_EOF
fi # end of overwriting check
if test -f 'sun.eps'
then
	echo shar: will not over-write existing file "'sun.eps'"
else
cat << \SHAR_EOF > 'sun.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%BoundingBox: 0 0  63 63

%this logo is a registered trademark of Sun Microsystems, Inc.

/sun
{  gsave translate  
    /SP 2 def  /WD 4 def /HT 22 def
    31 -1  translate 45 rotate
    /u { gsave  translate rotate
           WD setlinewidth WD 2 div  HT  moveto 
           WD   SP 2 div add   WD SP add   2  div     dup     WD 2   div add  
exch  180 360 arc
          WD 1.5 mul  SP add HT  lineto stroke  grestore
     } def

    /us  {  gsave translate  rotate 0 0 0 u  180   WD  4 mul SP  3  mul  add    
HT    u grestore}def 

    0 0 0 us  0   HT  SP add    dup   us
    -90  WD  4 mul SP  2  mul  add       pop  0      HT 2 mul    SP add  us   
-90  HT SP add  HT us 
    grestore
} def

 0 0 sun

showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'volvo-logo.eps'
then
	echo shar: will not over-write existing file "'volvo-logo.eps'"
else
cat << \SHAR_EOF > 'volvo-logo.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: bork bork v'roooooom (logo)
%%Pages: 0 1
%%BoundingBox:  -5 -29 84 43 
%%EndComments
%%EndProlog
%%Page 1 1



%!  volvo

/do_V
{ gsave translate
    0 8.7 moveto
    0 10 lineto 10 10 lineto 10 8.7 lineto
    8 8.7 lineto 11 2 lineto  14  8.7 lineto
    12 8.7 lineto 12 10 lineto 19 10 lineto
    19 8.7 lineto 16.4 8.7 lineto 12 0 lineto 
    7 0 lineto 2 8.7 lineto
    closepath fill
    grestore
} def


/do_L
{ gsave translate
    0 0 moveto 0 1.3 lineto 2 1.3 lineto
    2 8.7 lineto 0 8.7 lineto 0 10 lineto
    9 10 lineto 9 8.7 lineto 7 8.7 lineto 7 1.3 lineto
    12.7  1.3 12.7 10  2.7 arcto
    14 4 lineto 14 0 lineto
    closepath fill
    grestore
} def


/do_O
{ gsave translate 7.5 5 translate
    1.5 1  scale 0 0  5 0 360 arc 0.666 1 scale
    0.714 1   scale 0 0  3.5 360 0 arcn
    fill
    grestore
} def

/volvo-logo
{   gsave translate dup scale
     /ll 5.5 def
     39.5 5 24 0 360 arc stroke
     39.5 5 33 52 38 arc
     ll ll rlineto ll ll neg rlineto 0 ll 3 mul rlineto
     ll -3 mul 0 rlineto ll dup neg rlineto ll neg dup rlineto
     closepath stroke

     3 5 7 90 270 arc
     76 5 7 270 90 arc closepath
     gsave 1 setgray fill grestore stroke

     0 0 do_V
     19 0 do_O
     34 0 do_L
     45 0 do_V
     64 0 do_O
    grestore
} def

1 0 0 volvo-logo
showpage
SHAR_EOF
fi # end of overwriting check
if test -f 'volvo.eps'
then
	echo shar: will not over-write existing file "'volvo.eps'"
else
cat << \SHAR_EOF > 'volvo.eps'
%!PS-Adobe-2.0 EPSF-2.0
%%Creator: lrb
%%Title: bork bork v'roooooom
%%Pages: 0 1
%%BoundingBox: 0 0 80 10 
%%EndComments
%%EndProlog
%%Page 1 1



%!  volvo

/do_V
{ gsave translate
    0 8.7 moveto
    0 10 lineto 10 10 lineto 10 8.7 lineto
    8 8.7 lineto 11 2 lineto  14  8.7 lineto
    12 8.7 lineto 12 10 lineto 19 10 lineto
    19 8.7 lineto 16.4 8.7 lineto 12 0 lineto 
    7 0 lineto 2 8.7 lineto
    closepath fill
    grestore
} def


/do_L
{ gsave translate
    0 0 moveto 0 1.3 lineto 2 1.3 lineto
    2 8.7 lineto 0 8.7 lineto 0 10 lineto
    9 10 lineto 9 8.7 lineto 7 8.7 lineto 7 1.3 lineto
    12.7  1.3 12.7 10  2.7 arcto
    14 4 lineto 14 0 lineto
    closepath fill
    grestore
} def


/do_O
{ gsave translate 7.5 5 translate
    1.5 1  scale 0 0  5 0 360 arc 0.666 1 scale
    0.714 1   scale 0 0  3.5 360 0 arcn
    fill
    grestore
} def

/volvo
{   gsave translate dup scale
     0 0 do_V
     19 0 do_O
     34 0 do_L
     45 0 do_V
     64 0 do_O
    grestore
} def

1 0 0 volvo
showpage
SHAR_EOF
fi # end of overwriting check
#	End of shell archive
exit 0