Thread View: comp.lang.postscript
2 messages
2 total messages
Started by Nilo STOLTE
Tue, 26 Jan 1993 20:19
Coca-Cola Logo???
Author: Nilo STOLTE
Date: Tue, 26 Jan 1993 20:19
Date: Tue, 26 Jan 1993 20:19
6 lines
563 bytes
563 bytes
Does anybody has a PostScript VECTORIAL (not bitmap) logo from Coca-Cola or any other famous company, like Ford??? Thanks a lot... Nilo.
Re: Coca-Cola Logo???
Author: Lance R. Bailey
Date: Wed, 27 Jan 1993 11:31
Date: Wed, 27 Jan 1993 11:31
634 lines
15731 bytes
15731 bytes
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads