From: rab@sprite.berkeley.edu (Robert A. Bruce)
Newsgroups: alt.cd-rom
Subject: Re: Postscript for "Compact Disc" and "iso9660" logos?
Date: 6 Nov 1992 06:31:10 GMT
Organization: University of California, Berkeley
Distribution: world
NNTP-Posting-Host: jaywalk.berkeley.edu

In article <1db0sjINN7h0@agate.berkeley.edu> adam@soda.berkeley.edu (Adam J Richter) writes:
>	Does anybody know if the "Compact Disc" and "iso9660" logos
>for CDROM's are available in postscript?  Also, is there a logo
>for the Rock Ridge extensions?

I don't think there is any logo for Rock Ridge.  If you find out otherwise,
please let me know.

Here is the standard disc logo in postscript.  You need to add a scale
and translate statement to position it on the page.
--------------------------------------------------------------------------
%!
%  disc.ps
%
%  Print the standard "COMPACT DISC, DATA STORAGE" logo for a CD-ROM.
%
%  Copyright 1992, Walnut Creek CDROM
%
%  Bob Bruce
%  Walnut Creek CD-ROM
%  1547 Palos Verdes Mall, Suite 260
%  Walnut Creek, CA  94596
%  rab@cdrom.com, 1-800-786-9907, FAX:1-510-947-5996
%
%  This file may be distributed freely, as long as this header
%  remains intact. 
%

%% Uncomment the following line for quick re-running by ghostscript
% /run { (disc.ps) (r) file cvx exec } def

gsave
        /arct { arcto pop pop pop pop } def
        0 setlinewidth
        100 100 translate

        %% Outside of d
        gsave
        newpath
        60 163 moveto
        89 163 lineto
        94 163 94 158 5 arct
        94 5   lineto
        94 0 89 0 5 arct
        17 0   lineto
        0 0 0 17  17 arct
        0 103  lineto
        0 120 17 120 17 arct
        50 120 lineto
        55 120 55 125 5 arct
        55 158 lineto
        55 163  60 163 5 arct
        closepath
        0 setgray
        fill
        grestore

        %% inside of d
        gsave
        newpath
        66 154 moveto
        84 154 lineto
        88 154 88 150 4 arct
        88 12  lineto
        88 8 84 8   4 arct
        17 8   lineto
        8 8 8 17  9 arct
        8 100  lineto
        8 112 20 112  12 arct
        57 112  lineto
        62 112 62 117  5 arct
        62 150  lineto
        62 154 66 154  4 arct
        closepath
        1 setgray
        fill
        grestore

        %% Outside of d loop
        gsave
        newpath
        48 102 moveto
        63 102 63 87  15 arct
        63 33 lineto
        63 18 48 18 15 arct
        33 18 33 33 15 arct
        33 85 lineto
        33 102 48 102 15 arct
        closepath
        0 setgray
        fill
        grestore

        %% inside of d loop
        gsave
        newpath
        48 95 moveto
        56 95 56 87 8 arct
        56 33 lineto
        56 25 48 25 8 arct
        40 25 40 33 8 arct
        40 87 lineto
        40 95 48 95 8 arct
        closepath
        1 setgray
        fill
        grestore


        %% outside of i
        gsave
        newpath
        109 120 moveto
        142 120 lineto
        146 120 146 116 4 arct
        146 4 lineto
        146 0 142 0 4 arct
        109 0 lineto
        105 0 105 4 4 arct
        105 116 lineto
        105 120 109 120 4 arct
        closepath
        0 setgray
        fill
        grestore

        %% inside of i
        gsave
        newpath
        116 113 moveto
        136 113 lineto
        139 113 139 110 3 arct
        139 11 lineto
        139 8 136 8 3 arct
        116 8 lineto
        113 8 113 11 3 arct
        113 110 lineto
        113 113 116 113 3 arct
        closepath
        1 setgray
        fill
        grestore

        %% outside of s
        gsave
        newpath
        175 120 moveto
        235 120 lineto
        239 120 239 116 4 arct
        239 92 lineto
        239 88 235 88 4 arct
        193 88 lineto
        189 88 189 84 4 arct
        189 80 193 80 4 arct
        227 80 lineto
        243 80 243 64 16 arct
        243 20 lineto
        243 0 223 0 20 arct
        159 0 lineto
        155 0 155 4 4 arct
        155 30 lineto
        155 34 159 34 4 arct
        203 34  lineto
        208 34 208 39 5 arct
        208 44 203 44 5 arct
        170 44 lineto
        155 44 155 59 15 arct
        155 102 lineto
        155 120 173 120 18 arct
        closepath
        0 setgray
        fill
        grestore

        %% inside of s
        gsave
        newpath
        175 113 moveto
        229 113 lineto
        233 113 233 109 4 arct
        233 99 lineto
        233 95 229 95 4 arct
        194 95 lineto
        182 95 182 83 12 arct
        182 71 194 71 12 arct
        228 71 lineto
        236 71 236 63 8 arct
        236 24 lineto
        236 8 220 8 16 arct
        165 8 lineto
        161 8 161 12 4 arct
        161 21 lineto
        161 25 165 25 4 arct
        203 25 lineto
        216 25 216 38 13 arct
        216 51 204 51 14 arct
        175 51 lineto
        162 51 162 64 13 arct
        162 100 lineto
        162 113 175 113 13 arct
        closepath
        1 setgray
        fill
        grestore

        %% outside of c
        gsave
        newpath
        270 120 moveto
        325 120 lineto
        341 120 341 104 16 arct
        341 74 lineto
        341 70 337 70 4 arct
        308 70 lineto
        304 70 304 74 4 arct
        304 88 lineto
        304 95 297 95 7 arct
        290 95 290 88 7 arct
        290 34 lineto
        290 27 297 27 7 arct
        304 27 304 34 7 arct
        304 53 lineto
        304 57 308 57 4 arct
        337 57 lineto
        341 57 341 53 4 arct
        341 18 lineto
        341 0 323 0 18 arct
        272 0 lineto
        252 0 252 20 20 arct
        252 105 lineto
        252 120 270 120 15 arct
        closepath
        0 setgray
        fill
        grestore

        %% inside of c
        gsave
        newpath
        270 113 moveto
        324 113 lineto
        335 113 335 104 9 arct
        335 81 lineto
        335 77 331 77 4 arct
        315 77 lineto
        311 77 311 81 4 arct
        311 88 lineto
        311 102 297 102 14 arct
        283 102 283 88 14 arct
        283 34 lineto
        283 20 297 20 14 arct
        311 20 311 34 14 arct
        311 44 lineto
        311 48 315 48 4 arct
        331 48 lineto
        335 48 335 44 4 arct
        335 20 lineto
        335 8 325 8 10 arct
        268 8 lineto
        259 8 259 19 9 arct
        259 104 lineto
        259 113 268 113 9 arct
        closepath
        1 setgray
        fill
        grestore

      /Helvetica-Bold findfont
      41 scalefont setfont
      0 -45 moveto
      1.04 1 scale
      (DATA STORAGE) show
      110 130 moveto
      1.08 1 scale
      (COMPACT) show
      grestore
grestore
showpage


Newsgroups: alt.cd-rom,comp.unix.sysv386