[rec.arts.startrek.info] Spine labels for program guide in PostScript

brown@vidiot.UUCP (Vidiot) (10/14/90)

%!PS-Adobe-1.0
%%Creator: vidiot:brown (Michael L. Brown)
%%Title: stdin (ditroff)
%%CreationDate: Sat Oct 13 12:31:32 1990
%%EndComments
% Start of psdit.pro -- prolog for ditroff translator
% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
% GOVERNMENT END USERS: See Notice file in TranScript library directory
% -- probably /usr/lib/ps/Notice
% RCS: $Header: psdit.pro,v 2.2 87/11/17 16:40:42 byron Rel $
/$DITroff 140 dict def $DITroff begin
/fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
/xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto
  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F
  /pagesave save def}def
/PB{save /psv exch def currentpoint translate
  resolution 72 div dup neg scale 0 0 moveto}def
/PE{psv restore}def
/m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
/tan{dup sin exch cos div}bind def
/point{resolution 72 div mul}bind def
/dround	{transform round exch round exch itransform}bind def
/xT{/devname exch def}def
/xr{/mh exch def /my exch def /resolution exch def}def
/xp{}def
/xs{docsave restore end}def
/xt{}def
/xf{/fontname exch def /slotno exch def fontnames slotno get fontname eq not
 {fonts slotno fontname findfont put fontnames slotno fontname put}if}def
/xH{/fontheight exch def F}bind def
/xS{/fontslant exch def F}bind def
/s{/fontsize exch def /fontheight fontsize def F}bind def
/f{/fontnum exch def F}bind def
/F{fontheight 0 le {/fontheight fontsize def}if
   fonts fontnum get fontsize point 0 0 fontheight point neg 0 0 m1 astore
   fontslant 0 ne{1 0 fontslant tan 1 0 0 m2 astore m3 concatmatrix}if
   makefont setfont .04 fontsize point mul 0 dround pop setlinewidth}bind def
/X{exch currentpoint exch pop moveto show}bind def
/N{3 1 roll moveto show}bind def
/Y{exch currentpoint pop exch moveto show}bind def
/S /show load def
/ditpush{}def/ditpop{}def
/AX{3 -1 roll currentpoint exch pop moveto 0 exch ashow}bind def
/AN{4 2 roll moveto 0 exch ashow}bind def
/AY{3 -1 roll currentpoint pop exch moveto 0 exch ashow}bind def
/AS{0 exch ashow}bind def
/MX{currentpoint exch pop moveto}bind def
/MY{currentpoint pop exch moveto}bind def
/MXY /moveto load def
/cb{pop}def	% action on unknown char -- nothing for now
/n{}def/w{}def
/p{pop showpage pagesave restore /pagesave save def}def
/abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
/dstroke{currentpoint stroke moveto}bind def
/Dl{2 copy gsave rlineto stroke grestore rmoveto}bind def
/arcellipse{oldmat currentmatrix pop
 currentpoint translate 1 diamv diamh div scale /rad diamh 2 div def
 rad 0 rad -180 180 arc oldmat setmatrix}def
/Dc{gsave dup /diamv exch def /diamh exch def arcellipse dstroke 
    grestore diamh 0 rmoveto}def
/De{gsave /diamv exch def /diamh exch def arcellipse dstroke
    grestore diamh 0 rmoveto}def
/Da{currentpoint /by exch def /bx exch def /fy exch def /fx exch def
   /cy exch def /cx exch def /rad cx cx mul cy cy mul add sqrt def
   /ang1 cy neg cx neg atan def /ang2 fy fx atan def cx bx add cy by add
   2 copy rad ang1 ang2 arcn stroke exch fx add exch fy add moveto}def
/Barray 200 array def % 200 values in a wiggle
/D~{mark}def
/D~~{counttomark Barray exch 0 exch getinterval astore /Bcontrol exch def pop
 /Blen Bcontrol length def Blen 4 ge Blen 2 mod 0 eq and
 {Bcontrol 0 get Bcontrol 1 get abspoint /Ycont exch def /Xcont exch def
  Bcontrol 0 2 copy get 2 mul put Bcontrol 1 2 copy get 2 mul put
  Bcontrol Blen 2 sub 2 copy get 2 mul put
  Bcontrol Blen 1 sub 2 copy get 2 mul put
  /Ybi /Xbi currentpoint 3 1 roll def def 0 2 Blen 4 sub
  {/i exch def
   Bcontrol i get 3 div Bcontrol i 1 add get 3 div
   Bcontrol i get 3 mul Bcontrol i 2 add get add 6 div
   Bcontrol i 1 add get 3 mul Bcontrol i 3 add get add 6 div
   /Xbi Xcont Bcontrol i 2 add get 2 div add def
   /Ybi Ycont Bcontrol i 3 add get 2 div add def
   /Xcont Xcont Bcontrol i 2 add get add def
   /Ycont Ycont Bcontrol i 3 add get add def
   Xbi currentpoint pop sub Ybi currentpoint exch pop sub rcurveto
  }for dstroke}if}def
end
/ditstart{$DITroff begin
 /nfonts 60 def			% NFONTS makedev/ditroff dependent!
 /fonts[nfonts{0}repeat]def
 /fontnames[nfonts{()}repeat]def
/docsave save def
}def

% character outcalls
/oc {/pswid exch def /cc exch def /name exch def
   /ditwid pswid fontsize mul resolution mul 72000 div def
   /ditsiz fontsize resolution mul 72 div def
   ocprocs name known{ocprocs name get exec}{name cb}
   ifelse}def
/fractm [.65 0 0 .6 0 0] def
/fraction
 {/fden exch def /fnum exch def gsave /cf currentfont def
  cf fractm makefont setfont 0 .3 dm 2 copy neg rmoveto
  fnum show rmoveto currentfont cf setfont(\244)show setfont fden show 
  grestore ditwid 0 rmoveto} def
/oce {grestore ditwid 0 rmoveto}def
/dm {ditsiz mul}def
/ocprocs 50 dict def ocprocs begin
(14){(1)(4)fraction}def
(12){(1)(2)fraction}def
(34){(3)(4)fraction}def
(13){(1)(3)fraction}def
(23){(2)(3)fraction}def
(18){(1)(8)fraction}def
(38){(3)(8)fraction}def
(58){(5)(8)fraction}def
(78){(7)(8)fraction}def
(sr){gsave .05 dm .16 dm rmoveto(\326)show oce}def
(is){gsave 0 .15 dm rmoveto(\362)show oce}def
(->){gsave 0 .02 dm rmoveto(\256)show oce}def
(<-){gsave 0 .02 dm rmoveto(\254)show oce}def
(==){gsave 0 .05 dm rmoveto(\272)show oce}def
end
% DIThacks fonts for some special chars
50 dict dup begin
/FontType 3 def
/FontName /DIThacks def
/FontMatrix [.001 0.0 0.0 .001 0.0 0.0] def
/FontBBox [-220 -280 900 900] def% a lie but ...
/Encoding 256 array def
0 1 255{Encoding exch /.notdef put}for
Encoding
 dup 8#040/space put %space
 dup 8#110/rc put %right ceil
 dup 8#111/lt put %left  top curl
 dup 8#112/bv put %bold vert
 dup 8#113/lk put %left  mid curl
 dup 8#114/lb put %left  bot curl
 dup 8#115/rt put %right top curl
 dup 8#116/rk put %right mid curl
 dup 8#117/rb put %right bot curl
 dup 8#120/rf put %right floor
 dup 8#121/lf put %left  floor
 dup 8#122/lc put %left  ceil
 dup 8#140/sq put %square
 dup 8#141/bx put %box
 dup 8#142/ci put %circle
 dup 8#143/br put %box rule
 dup 8#144/rn put %root extender
 dup 8#145/vr put %vertical rule
 dup 8#146/ob put %outline bullet
 dup 8#147/bu put %bullet
 dup 8#150/ru put %rule
 dup 8#151/ul put %underline
 pop
/DITfd 100 dict def
/BuildChar{0 begin
 /cc exch def /fd exch def
 /charname fd /Encoding get cc get def
 /charwid fd /Metrics get charname get def
 /charproc fd /CharProcs get charname get def
 charwid 0 fd /FontBBox get aload pop setcachedevice
 40 setlinewidth
 newpath 0 0 moveto gsave charproc grestore
 end}def
/BuildChar load 0 DITfd put
%/UniqueID 5 def
/CharProcs 50 dict def
CharProcs begin
/space{}def
/.notdef{}def
/ru{500 0 rls}def
/rn{0 750 moveto 500 0 rls}def
/vr{20 800 moveto 0 -770 rls}def
/bv{20 800 moveto 0 -1000 rls}def
/br{20 770 moveto 0 -1040 rls}def
/ul{0 -250 moveto 500 0 rls}def
/ob{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath stroke}def
/bu{200 250 rmoveto currentpoint newpath 200 0 360 arc closepath fill}def
/sq{80 0 rmoveto currentpoint dround newpath moveto
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath stroke}def
/bx{80 0 rmoveto currentpoint dround newpath moveto
    640 0 rlineto 0 640 rlineto -640 0 rlineto closepath fill}def
/ci{355 333 rmoveto currentpoint newpath 333 0 360 arc
    50 setlinewidth stroke}def

/lt{20 -200 moveto 0 550 rlineto currx 800 2cx s4 add exch s4 a4p stroke}def
/lb{20 800 moveto 0 -550 rlineto currx -200 2cx s4 add exch s4 a4p stroke}def
/rt{20 -200 moveto 0 550 rlineto currx 800 2cx s4 sub exch s4 a4p stroke}def
/rb{20 800 moveto 0 -500 rlineto currx -200 2cx s4 sub exch s4 a4p stroke}def
/lk{20 800 moveto 20 300 -280 300 s4 arcto pop pop 1000 sub
    currentpoint stroke moveto
    20 300 4 2 roll s4 a4p 20 -200 lineto stroke}def
/rk{20 800 moveto 20 300 320 300 s4 arcto pop pop 1000 sub
    currentpoint stroke moveto
    20 300 4 2 roll s4 a4p 20 -200 lineto stroke}def
/lf{20 800 moveto 0 -1000 rlineto s4 0 rls}def
/rf{20 800 moveto 0 -1000 rlineto s4 neg 0 rls}def
/lc{20 -200 moveto 0 1000 rlineto s4 0 rls}def
/rc{20 -200 moveto 0 1000 rlineto s4 neg 0 rls}def
end

/Metrics 50 dict def Metrics begin
/.notdef 0 def
/space 500 def
/ru 500 def
/br 0 def
/lt 250 def
/lb 250 def
/rt 250 def
/rb 250 def
/lk 250 def
/rk 250 def
/rc 250 def
/lc 250 def
/rf 250 def
/lf 250 def
/bv 250 def
/ob 350 def
/bu 350 def
/ci 750 def
/bx 750 def
/sq 750 def
/rn 500 def
/ul 500 def
/vr 0 def
end

DITfd begin
/s2 500 def /s4 250 def /s3 333 def
/a4p{arcto pop pop pop pop}def
/2cx{2 copy exch}def
/rls{rlineto stroke}def
/currx{currentpoint pop}def
/dround{transform round exch round exch itransform} def
end
end
/DIThacks exch definefont pop

ditstart
(psc)xT
576 1 1 xr
1(Times-Roman)xf 1 f
2(Times-Italic)xf 2 f
3(Times-Bold)xf 3 f
4(Times-BoldItalic)xf 4 f
5(Helvetica)xf 5 f
6(Helvetica-Bold)xf 6 f
7(Courier)xf 7 f
8(Courier-Bold)xf 8 f
9(Symbol)xf 9 f
10(DIThacks)xf 10 f
10 s
1 f
xi
%%EndProlog
7(Helvetica-Narrow-Bold)xf 7 f
1 f

%%Page: 1 1
7(Helvetica-Narrow-Bold)xf 7 f
10 s 0 xH 0 xS 7 f
36 s
1296 864(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 1440(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 2016(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 2592(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 3168(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 3744(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 4320(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 4896(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
1296 5472(P)N
1453(ro)X
1689(g)X
1833(ra)X
2056(m)X
2377(G)X
2561(u)X
2705(id)X
(e)S
2915 MX

% included PostScript

% RCS: $Header: /usr/brown/startrek/RCS/logo.ep.eps,v 3.4 90/02/05 01:14:30 brown Exp Locker: brown $

 gsave
 initgraphics
/STi  { newpath moveto } bind def
/STl  { lineto } bind def
/STm  { moveto } bind def
/STc  { curveto } bind def
/STf  { gsave eofill grestore } bind def
/STr  { setrgbcolor } bind def
/STs  { setlinewidth stroke } bind def
/STcp { closepath } bind def
/STsf { currentscreen 4 -2 roll pop 3 1 roll setscreen } bind def

 60 STsf

/STAR {
 rshade gshade bshade STr
% S in STAR
    .6  97.2 STi
   7.0 111.9 STl
  36.9 111.9 STl
  50.0 111.9  51.9 126.1  41.4 128.5 STc
  18.7 131.4  30.6 164.9  47.2 164.9 STc
  74.5 164.9 STl
  67.9 150.5 STl
  51.7 150.5 STl
  46.8 150.5  43.9 139.3  52.4 139.3 STc
  72.7 139.4  68.3  97.2  40.6  97.2 STc
    .6  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse
% Vertical portion of T in STAR
  76.4  97.2 STi
  60.0  97.2 STl
  78.4 139.3 STl
  94.8 139.3 STl
  76.4  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse
% Horizontal portion of T in STAR
  72.5 150.5 STi
 112.3 150.5 STl
 118.6 164.9 STl
  78.8 164.9 STl
  72.5 150.5 STl
 STcp Fill { STf } { .3 STs } ifelse
% A in STAR
 140.3  97.2 STi
  80.5  97.2 STl
 116.8 139.3 STl
 131.8 139.3 STl
 108.5 111.9 STl
 128.3 111.9 STl
 137.8 143.2 STl
 138.7 147.7 140.2 150.5 134.6 150.5 STc
 116.5 150.5 STl
 122.8 164.9 STl
 151.1 164.9 STl
 156.8 164.9 159.5 161.1 157.8 155.2 STc
 140.3  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse
% R of STAR
 162.2 139.3 STi
 143.8  97.2 STl
 160.0  97.2 STl
 172.8 126.6 STl
 181.3 126.6 STl
 183.0 126.6 185.1 123.3 183.7 120.4 STc
 173.7  97.2 STl
 189.5  97.2 STl
 197.4 115.1 STl
 199.0 119.0 198.6 124.4 195.3 126.6 STc
 201.6 126.6 203.2 129.0 204.3 131.3 STc
 214.0 153.5 STl
 217.9 162.7 210.8 164.9 205.7 164.9 STc
 173.3 164.9 STl
 167.0 150.5 STl
 193.9 150.5 STl
 197.1 150.5 193.0 139.3 188.9 139.3 STc
 162.2 139.3 STl
 STcp Fill { STf } { .3 STs } ifelse } def

/TREK {
 rshade gshade bshade STr
% Vertical portion of T in TREK
 214.8  44.7 STi
 198.3  44.7 STl
 216.3  86.1 STl
 232.7  86.1 STl
 214.8  44.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% Horizontal portion of T in TREK
 197.5  97.2 STi
 203.9 111.9 STl
 254.8 111.9 STl
 248.4  97.2 STl
 197.5  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse
% R of TREK
 247.4  44.7 STi
 231.2  44.7 STl
 249.2  86.1 STl
 275.9  86.1 STl
 281.7  86.1 284.3  97.2 278.3  97.2 STc
 254.0  97.2 STl
 260.4 111.9 STl
 297.2 111.9 STl
 302.2 111.9 302.7 104.2 300.9  99.8 STc
 290.9  77.0 STl
 289.6  74.1 287.6  72.4 283.0  72.4 STc
 285.3  70.7 285.2  63.7 284.1  61.3 STc
 276.9  44.7 STl
 261.3  44.7 STl
 270.6  66.1 STl
 271.2  67.9 270.7  72.4 266.9  72.4 STc
 259.5  72.4 STl
 247.4  44.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% Bottom portion of E in TREK
 284.2  44.7 STi
 302.2  86.1 STl
 339.4  86.1 STl
 333.5  72.4 STl
 312.0  72.4 STl
 305.7  58.0 STl
 327.2  58.0 STl
 321.4  44.7 STl
 284.2  44.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% top of E in TREK
 344.3  97.2 STi
 350.7 111.9 STl
 311.2 111.9 STl
 304.8  97.2 STl
 344.3  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse
% bottom of K in TREK
 397.6  44.7 STi
 384.0  72.9 STl
 382.5  75.7 377.6  86.1 365.2  86.1 STc
 346.9  86.1 STl
 328.8  44.7 STl
 345.9  44.7 STl
 357.9  72.4 STl
 363.3  72.4 STl
 369.6  72.4 371.7  65.7 372.8  62.7 STc
 379.5  44.7 STl
 397.6  44.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% top of K in TREK
 397.8  97.2 STi
 411.6 111.9 STl
 392.0 111.9 STl
 384.6 111.9 376.0 107.7 372.0 104.7 STc
 375.1 111.9 STl
 357.4 111.9 STl
 351.0  97.2 STl
 397.8  97.2 STl
 STcp Fill { STf } { .3 STs } ifelse } def

/THE {
 rshade gshade bshade STr
% T in THE
  14.8  17.6 STi
   7.2 000.0 STl
 000.0 000.0 STl
   7.5  17.6 STl
   1.4  17.6 STl
   3.9  23.4 STl
  22.8  23.4 STl
  20.3  17.6 STl
 STcp Fill { STf } { .3 STs } ifelse
% H in THE
  27.7 000.0 STi
  31.6   9.0 STl
  26.0   9.0 STl
  22.1 000.0 STl
  15.6 000.0 STl
  25.7  23.4 STl
  32.2  23.4 STl
  28.0  13.7 STl
  33.6  13.7 STl
  37.8  23.4 STl
  44.1  23.4 STl
  33.9 000.0 STl
  27.7 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% E in THE
  58.2   5.4 STi
  55.9 000.0 STl
  40.3 000.0 STl
  50.4  23.4 STl
  66.0  23.4 STl
  63.5  17.6 STl
  53.8  17.6 STl
  52.0  13.7 STl
  61.8  13.7 STl
  59.8   9.0 STl
  50.0   9.0 STl
  48.4   5.4 STl
  58.2   5.4 STl
 STcp Fill { STf } { .3 STs } ifelse } def

/NEXT {
 rshade gshade bshade STr
% N in NEXT
  91.0 000.0 STi
  97.6 000.0 STl
 105.4  18.0 STl
 106.2  19.6 106.1  23.4 103.3  23.4 STc
  88.0  23.4 STl
  77.9 000.0 STl
  85.3 000.0 STl
  93.0  17.6 STl
  96.8  17.6 STl
  98.5  17.6  97.2  14.1  96.3  12.2 STc
  91.0 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% E in NEXT
 115.2  13.7 STi
 124.5  13.7 STl
 122.5   9.0 STl
 113.1   9.0 STl
 111.6   5.4 STl
 120.9   5.4 STl
 118.6 000.0 STl
 103.5 000.0 STl
 113.5  23.4 STl
 128.7  23.4 STl
 126.2  17.6 STl
 116.8  17.6 STl
 115.2  13.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% X of NEXT
 131.2 000.0 STi
 123.1 000.0 STl
 125.5   5.4 STl
 128.3   5.4 STl
 135.5  12.5 STl
 132.6  23.4 STl
 139.3  23.4 STl
 141.1  17.9 STl
 144.3  21.4 STl
 146.8  23.6 145.3  23.4 153.4  23.4 STc
 150.9  17.6 STl
 148.0  17.6 147.7  16.7 146.7  15.7 STc
 142.8  11.6 STl
 145.8 000.0 STl
 139.3 000.0 STl
 137.5   6.3 STl
 131.2 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% T in NEXT
 154.8  17.6 STi
 159.4  17.6 STl
 151.8 000.0 STl
 157.8 000.0 STl
 165.4  17.6 STl
 171.3  17.6 STl
 173.7  23.4 STl
 157.3  23.4 STl
 154.8  17.6 STl
 STcp Fill { STf } { .3 STs } ifelse } def

/GENER {
 rshade gshade bshade STr
% G of GENERATION
 208.9  17.6 STi
 211.3  23.4 STl
 195.4  23.4 STl
 194.3  23.4 192.7  22.5 192.4  21.4 STc
 184.8   3.9 STl
 183.9   1.9 186.1 000.0 190.0 000.0 STc
 196.9 000.0 STl
 201.6 000.0 202.6   3.1 203.0   4.1 STc
 207.2  13.7 STl
 199.3  13.7 STl
 197.2   9.0 STl
 200.5   9.0 198.3   5.4 197.1   5.4 STc
 194.1   5.4 STl
 193.6   5.4 192.1   6.1 192.6   7.2 STc
 197.1  17.6 STl
 208.9  17.6 STl
 STcp Fill { STf } { .3 STs } ifelse
% first E of GENERATION
 230.2  13.7 STi
 219.1  13.7 STl
 220.8  17.6 STl
 231.8  17.6 STl
 234.3  23.4 STl
 217.8  23.4 STl
 207.7 000.0 STl
 224.2 000.0 STl
 226.6   5.4 STl
 215.5   5.4 STl
 217.1   9.0 STl
 228.1   9.0 STl
 230.2  13.7 STl
 STcp Fill { STf } { .3 STs } ifelse
% first N of GENERATION
 242.2 000.0 STi
 248.3  13.9 STl
 248.5  14.6 250.0  17.7 247.2  17.6 STc
 245.1  17.6 STl
 237.4 000.0 STl
 230.7 000.0 STl
 240.9  23.4 STl
 252.7  23.4 STl
 255.8  23.4 257.8  21.2 256.4  17.6 STc
 248.8 000.0 STl
 242.2 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% second E in GENERATION
 273.3   5.4 STi
 263.8   5.4 STl
 265.3   9.0 STl
 274.8   9.0 STl
 276.9  13.7 STl
 267.3  13.7 STl
 269.1  17.6 STl
 278.6  17.6 STl
 281.1  23.4 STl
 265.5  23.4 STl
 255.3 000.0 STl
 271.0 000.0 STl
 273.3   5.4 STl
 STcp Fill { STf } { .3 STs } ifelse
% outside of R in GENERATION (completely filled in)
 294.9 000.0 STi
 288.4 000.0 STl
 291.5   7.1 STl
 292.3   8.9 291.4   9.0 287.3   9.0 STc
 283.4 000.0 STl
 276.5 000.0 STl
 286.6  23.4 STl
 302.0  23.4 STl
 303.7  23.4 304.5  21.9 303.1  18.9 STc
 300.7  13.4 STl
 300.6  12.7 299.3  12.0 297.0  11.4 STc
 298.2   9.1 298.6   8.7 297.5   6.0 STc
 294.9 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% inside of R in GENERATION (filled as background color)
 Fill { rbackgnd gbackgnd bbackgnd STr } { rshade gshade bshade STr } ifelse
 289.3  13.7 STi
 294.3  13.7 STl
 294.7  14.4 296.5  17.6 293.7  17.6 STc
 291.0  17.6 STl
 289.3  13.7 STl
 STcp Fill { STf } { .3 STs } ifelse
 rshade gshade bshade STr } def

/ATION {
% A of GENERATION
 309.6  23.4 STi
 307.0  17.6 STl
 317.8  17.6 STl
 317.3   5.4 STl
 309.4   5.4 STl
 315.9  13.7 STl
 309.0  13.7 STl
 298.8 000.0 STl
 323.2 000.0 STl
 325.0  18.6 STl
 325.0  20.3 324.6  23.4 320.5  23.4 STc
 309.6  23.4 STl
 STcp Fill { STf } { .3 STs } ifelse
% T in GENERATION
 346.8  17.6 STi
 349.2  23.4 STl
 330.7  23.4 STl
 328.2  17.6 STl
 334.8  17.6 STl
 327.1    .1 STl
 333.9 000.0 STl
 341.5  17.6 STl
 346.8  17.6 STl
 STcp Fill { STf } { .3 STs } ifelse
% I of GENERATION
 342.4 000.0 STi
 352.6  23.4 STl
 359.1  23.4 STl
 349.0 000.0 STl
 342.4 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse
% outside of O in GENERATION (filled completely in)
 355.8   3.5 STi
 355.2   1.7 356.7 000.0 358.5 000.0 STc
 369.6 000.0 STl
 371.3 000.0 373.6   3.4 374.2   4.6 STc
 379.9  17.8 STl
 380.8  19.8 380.7  23.4 375.6  23.4 STc
 368.6  23.4 STl
 366.4  23.4 364.3  23.2 363.3  20.8 STc
 355.8   3.5 STl
 STcp Fill { STf } { .3 STs } ifelse
% inside portion of O in GENERATION (filled as background color)
 Fill { rbackgnd gbackgnd bbackgnd STr } { rshade gshade bshade STr } ifelse
 363.6   7.2 STi
 363.1   6.0 363.6   5.4 364.1   5.4 STc
 367.9   5.4 STl
 368.5   5.4 369.0   6.1 369.3   6.9 STc
 372.9  15.2 STl
 373.3  16.0 373.6  17.6 372.4  17.6 STc
 369.9  17.6 STl
 368.2  17.6 367.9  16.9 367.3  15.8 STc
 363.6   7.2 STl
 STcp Fill { STf } { .3 STs } ifelse
 rshade gshade bshade STr
% second N of GENERATION
 390.4 000.0 STi
 396.4 000.0 STl
 404.7  19.0 STl
 405.3  20.2 404.8  23.4 400.3  23.4 STc
 388.8  23.4 STl
 378.7 000.0 STl
 385.9 000.0 STl
 393.5  17.6 STl
 396.9  17.6 397.8  17.0 396.6  14.2 STc
 390.4 000.0 STl
 STcp Fill { STf } { .3 STs } ifelse } def

 /rbackgnd 1.0 def
 /gbackgnd 1.0 def
 /bbackgnd 1.0 def

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 38.0 685.0 translate
 9 -9 translate
 0.250 0.250 scale
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

% shadow logo
 /rshade 0.0 def
 /gshade 0.0 def
 /bshade 0.0 def
 0.0 -288.0 translate
 9 -9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% normal logo fill portion
 /rshade 1.0 def
 /gshade 1.0 def
 /bshade 1.0 def
 -9 9 translate
 /Fill true def
 STAR TREK THE NEXT GENER ATION

% outline portion of logo, set fill to false to outline the logo
 /Fill false def
 Fill true xor {
    /rshade 0.000 def
    /gshade 0.000 def
    /bshade 0.000 def
    STAR TREK THE NEXT GENER ATION } if

 grestore


1 p
%%Trailer
xt

xs