Newsgroups: alt.fan.mike-jittlov
Date: Sat,  3 Oct 1992 17:59:50 -0400 
From: Christopher Brian Cox <cc4b+@andrew.cmu.edu>
Subject: Re: Bitmapped Wizard?
	<BvJ6A1.8Bs@world.std.com>

Here's a version I made from one of the bitmaps that came across the net
a while back.  Freehand version is available upon (limited I hope)
request.

Chris

ps. anybody remember the 20page square KGB logo we hung off Wean hall?
pps. I wish the Freehand EPS header was smaller


%!PS-Adobe-2.0 EPSF-1.2
%%Creator: FreeHand 3.1
%%Title: Wizard Logo (Freehand)
%%CreationDate: 10/3/92 5:58 PM
%%BoundingBox: 30.8218 154.9947 578.6112 702.7841
%%DocumentProcSets: FreeHand_header 3 1
%%DocumentSuppliedProcSets: FreeHand_header 3 1
%%ColorUsage: Color
%%FHPathName: Dora:Wizard Logo (Freehand)
%%EndComments
%%BeginProcSet: FreeHand_header 3 0
/FHIODict 30 dict def
FHIODict begin
/bdf{bind def}bind def
/d{setdash}bdf
/h{closepath}bdf
/H{}bdf
/J{setlinecap}bdf
/j{setlinejoin}bdf
/M{setmiterlimit}bdf
/n{newpath}bdf
/N{newpath}bdf
/q{gsave}bdf
/Q{grestore}bdf
/w{setlinewidth}bdf
/u{}bdf
/U{}bdf
/sepdef{
dup where not
{
FreeHandSepDict
}
if
3 1 roll exch put
}bdf
/`
{false setoverprint
end %. FreeHandDict
/-save0- save def
pop pop pop pop pop
concat
userdict begin
/showpage {} def
0 setgray 0 setlinecap 1 setlinewidth
0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
/languagelevel where {pop languagelevel 1 ne{false setstrokeadjust}if}if
} bdf
/~
{end
-save0- restore
FreeHandDict begin
}bdf
/FreeHandDict 191 dict def
FreeHandDict begin
/currentpacking where{pop true setpacking}if
/xdf{exch def}bdf
/ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
/min{2 copy gt{exch}if pop}bdf
/max{2 copy lt{exch}if pop}bdf
/isLino statusdict /product get (Lino) anchorsearch{pop pop true}{pop
false}ifelse def
/dr{transform .25 sub round .25 add
exch .25 sub round .25 add exch itransform}bdf
/C{dr curveto}bdf
/L{dr lineto}bdf
/m{dr moveto}bdf
/printerRes
gsave
matrix defaultmatrix setmatrix
72 72 dtransform
abs exch abs
max
grestore
def
/maxsteps 256 def
/calcgraysteps {
currentscreen pop exch 
printerRes exch div exch
2 copy
sin mul round dup mul
3 1 roll
cos mul round dup mul
add 1 add
dup maxsteps gt {pop maxsteps} if
} bdf
/bottom -0 def
/delta -0 def
/frac -0 def
/left -0 def
/numsteps -0 def
/numsteps1 -0 def
/radius -0 def
/right -0 def
/top -0 def
/xt -0 def
/yt -0 def
/df currentflat def
/tempstr 1 string def
/clipflatness currentflat def
/inverted?
0 currenttransfer exec .5 ge def
/level2 
/languagelevel where {pop languagelevel 1 ne}{false}ifelse def
/colorexists
level2
{
statusdict/processcolors known
{statusdict/processcolors get exec}{1}ifelse
4 eq def
}
{systemdict/setcmykcolor known def}
ifelse
/tc1 [0 0 0 1] def
/tc2 [0 0 0 1] def
/fc [0 0 0 1] def
/sc [0 0 0 1] def
/concatprocs{
/packedarray where
{pop dup type /packedarraytype eq 2 index type /packedarraytype eq
or}{false}ifelse
{
/proc2 exch cvlit def/proc1 exch cvlit def
proc1 aload pop proc2 aload pop
proc1 length proc2 length add packedarray cvx
}
{
/proc2 exch cvlit def/proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
newproc cvx
}ifelse
}bdf
/storerect{/top xdf/right xdf/bottom xdf/left xdf}bdf
/rectpath{newpath left bottom m left top L
right top L right bottom L closepath}bdf
/i{dup 0 eq
{pop df dup}
{dup} ifelse
/clipflatness xdf setflat
}bdf
version cvr 38.0 le
{/setrgbcolor{
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
setrgbcolor}bdf}if
/gettint{0 get}bdf
/puttint{0 exch put}bdf
/vms {/vmsv save def} bdf
/vmr {vmsv restore} bdf
/vmrs{vmsv restore /vmsv save def}bdf
/eomode{
{/filler /eofill load def /clipper /eoclip load def}
{/filler /fill load def /clipper /clip load def}
ifelse
}bdf
/CD{/NF exch def{exch dup/FID ne 1 index/UniqueID ne and{exch NF 3 1 roll put}
{pop pop}ifelse}forall NF}bdf
/MN{1 index length/Len exch def
dup length Len add string dup
Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdf
/RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
{1 index MN cvn/NewN exch def cvn
findfont dup maxlength dict CD dup/FontName NewN put dup
/Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
/RF{dup FontDirectory exch known{pop 3 -1 roll pop}{RC}ifelse}bdf
/FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
{exch pop findfont 3 -1 roll pop}{pop dup findfont dup maxlength dict CD
dup dup
/Encoding exch /Encoding get 256 array copy 7 -1 roll {3 -1 roll dup 4
-2 roll put}forall put definefont}ifelse}bdf
userdict begin /BDFontDict 20 dict def end
BDFontDict begin
/bu{}def
/bn{}def
/setTxMode{av 70 ge{pop}if pop}def
/gm{m}def
/show{pop}def
/gr{pop}def
/fnt{pop pop pop}def
/fs{pop}def
/fz{pop}def
/lin{pop pop}def
end
/MacVec 256 array def
MacVec 0 /Helvetica findfont
/Encoding get 0 128 getinterval putinterval
MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
MacVec 0 32 getinterval astore pop
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotl
eft
/guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase
/perthousand/Acircumflex/Ecircumflex/Aacute
/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
MacVec 128 128 getinterval astore pop
/fps{
currentflat 
exch 
dup 0 le{pop 1}if
{
dup setflat 3 index stopped
{1.3 mul dup 3 index gt{pop setflat pop pop stop}if}
{exit}
ifelse
}loop
pop setflat pop pop
}bdf
/fp{100 currentflat fps}bdf
/clipper{clip}bdf
/W{/clipper load 100 clipflatness fps}bdf
end%. FreeHandDict
end%. FHIODict
%%EndProcSet
%%EndProlog
%%BeginSetup
FHIODict begin
FreeHandDict begin
30.8218 154.9947 578.6112 702.7841 storerect rectpath clip newpath
/onlyk{false}ndf
/ccmyk{dup 5 -1 roll sub 0 max exch}ndf
/setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
/setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
/findcmykcustomcolor{5 /packedarray where{pop packedarray}{array astore
readonly}ifelse}ndf
/setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat
setcmykcolor pop}ndf
/setseparationgray{1 exch sub dup dup dup setcmykcolor}ndf
/setoverprint{pop}ndf
/currentoverprint false ndf
/colorimage{pop pop
[5 -1 roll/exec cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8 -1 roll/exec cvx
/cmykbufs2gray cvx]cvx image}
%. version 47.1 on Linotronic of Postscript defines colorimage
incorrectly (rgb model only)
version cvr 47.1 le isLino and{userdict begin bdf end}{ndf}ifelse
/customcolorimage{
colorexists
{
aload pop pop 4 array astore
setimagecmyk
currentcolortransfer
{ik mul ik sub 1 add}concatprocs 4 1 roll
{iy mul iy sub 1 add}concatprocs 4 1 roll
{im mul im sub 1 add}concatprocs 4 1 roll
{ic mul ic sub 1 add}concatprocs 4 1 roll
setcolortransfer
/magentabuf 0 string def
/yellowbuf 0 string def
/blackbuf 0 string def
{invbuf dup length magentabuf length ne
{dup length dup dup
/magentabuf exch string def
/yellowbuf exch string def
/blackbuf exch string def}if
dup magentabuf copy yellowbuf copy blackbuf copy pop}concatprocs
{magentabuf}{yellowbuf}{blackbuf}true 4 colorimage
}
{
pop image
}
ifelse
}ndf
/separationimage{image}ndf
/newcmykcustomcolor{6 /packedarray where{pop packedarray}{array astore
readonly}ifelse}ndf
/inkoverprint false ndf
/setinkoverprint{pop}ndf
/overprintprocess{pop}ndf
/setspotcolor
{spots exch get 0 5 getinterval exch setcustomcolor}ndf
/currentcolortransfer{currenttransfer dup dup dup}ndf
/setcolortransfer{systemdict begin settransfer end pop pop pop}ndf
/getcmyk {
dup length 4 eq
{aload pop}
{aload pop spots exch get 0 4 getinterval aload pop 4
{4 index mul 4 1 roll}repeat 5 -1 roll pop} ifelse
}bdf
/setimagecmyk{
getcmyk/ik xdf /iy xdf /im xdf /ic xdf
}ndf
/autospread{pop}ndf
/fhsetspreadsize{pop}ndf
/fhsetspreadallow{pop}ndf
/strokeopf false def
/fillopf false def
/R{0 ne /strokeopf xdf}bdf
/O{0 ne /fillopf xdf}bdf
/filler{fill}bdf
/F{fc fhsetcolor fillopf setoverprint false autospread
gsave /filler load fp grestore false setoverprint}bdf
/f{closepath F}bdf
/S{sc fhsetcolor strokeopf setoverprint true autospread {stroke}fp false
setoverprint}bdf
/s{closepath S}bdf
/B{fc fhsetcolor fillopf setoverprint gsave /filler load fp grestore
sc fhsetcolor strokeopf setoverprint true autospread {stroke}fp false
setoverprint}bdf
/b{closepath B}bdf
/setcolorscreen where{pop}{/setcolorscreen{setscreen pop pop pop pop pop
pop pop pop pop}bdf}ifelse
/fhsetcolor{dup length 4 eq
{aload overprintprocess setcmykcolor}
{aload 1 get spots exch get 5 get setinkoverprint setspotcolor}
ifelse
}ndf
/settextcolor{
dup fhsetcolor
textblackopf
{
dup length 4 eq
{onlyk{3 get 1.0 eq{true setinkoverprint}if}{pop}ifelse}
{pop}
ifelse
}
{pop}ifelse
}ndf
/ka{/fc xdf}bdf
/Ka{/sc xdf}bdf
/xa{/fc xdf} bdf
/Xa{/sc xdf} bdf
/bc2[0 0]def
/bc4[0 0 0 0]def
/absmax{2 copy abs exch abs gt{exch}if pop}bdf
/calcstep
{ {calcgraysteps}{maxsteps}ifelse
tc1 length 4 eq
{
0 1 3
{tc1 1 index get
tc2 3 -1 roll get
sub
}for
absmax absmax absmax
}
{
bc2 tc1 1 get 1 exch put
tc1 gettint tc2 gettint
sub abs
}
ifelse
mul abs round dup 0 eq{pop 1}if 
dup /numsteps xdf 1 sub dup 0 eq{pop 1}if /numsteps1 xdf
}bdf
/cblend{
tc1 length 4 eq
{
0 1 3
{bc4 exch
tc1 1 index get
tc2 2 index get
1 index sub
frac mul add put
}for bc4
}
{
bc2
tc1 gettint
tc2 gettint
1 index sub
frac mul add
puttint bc2
}
ifelse
fhsetcolor
}bdf
/logtaper{/frac frac 9 mul 1 add log def}bdf
FHIODict begin
/origmtx matrix currentmatrix def
/iminv false def
/invbuf{0 1 2 index length 1 sub{dup 2 index exch get 255 exch sub 2
index 3 1 roll put}for}bdf
/cmykbufs2gray{
dup length 0 1 3 -1 roll 1 sub
{4 index 1 index get
4 index 2 index get
4 index 3 index get
4 index 4 index get
255 exch sub ccmyk ccmyk ccmyk pop 5 mul exch 45 mul add exch 14 mul add
-6 bitshift
2 index 3 1 roll put}for
4 1 roll pop pop pop
}bdf
end
/currentpacking where{pop false setpacking}if
/spots[1 0 0 0 (Process Cyan) false newcmykcustomcolor
0 1 0 0 (Process Magenta) false newcmykcustomcolor
0 0 1 0 (Process Yellow) false newcmykcustomcolor
0 0 0 1 (Process Black) false newcmykcustomcolor
0 0 0 0  (White) false
newcmykcustomcolor
]def
%%EndSetup

[] 0 d
3.863708 M
1 w
0 j
0 J
0 O
0 R
0 i
false eomode
[0 0 0 1] Ka
[0 0 0 1] ka
vms
u
u
true fhsetspreadallow
47.8019 428.881 m
47.8019 571.7924 163.6511 687.6416 306.5625 687.6416 C
449.4739 687.6416 565.3231 571.7924 565.3231 428.881 C
565.3231 285.9697 449.4739 170.1204 306.5625 170.1204 C
163.6511 170.1204 47.8019 285.9697 47.8019 428.881 C
b
U
u
69.0672 428.881 m
69.0672 560.0477 175.3958 666.3763 306.5625 666.3763 C
437.7292 666.3763 544.0578 560.0477 544.0578 428.881 C
544.0578 297.7144 437.7292 191.3858 306.5625 191.3858 C
175.3958 191.3858 69.0672 297.7144 69.0672 428.881 C
[0 0 0 0] ka
b
U
U
vmr
vms
u
u
true fhsetspreadallow
30.8218 702.7841 m
578.6112 702.7841 L
578.6112 154.9947 L
30.8218 154.9947 L
30.8218 702.7841 L
n
U
453.0146 593.299 m
503.5003 620.4117 L
560.5305 539.0736 L
514.7194 497.937 L
453.0146 593.299 L
[0 0 0 0] ka
f
n
105.224 324.0418 m
84.6558 277.2957 L
115.5082 241.7687 L
142.6209 272.6211 L
105.224 324.0418 L
f
n
31.3653 382.0069 m
87.4605 398.8354 L
94.9399 354.8941 L
37.9097 357.6989 L
31.3653 382.0069 L
f
n
257.6161 618.5418 m
290.8058 600.7783 311.2391 589.9844 348.7709 586.287 C
358.2205 585.3562 373.1002 585.3447 373.1002 585.3447 C
400.1465 584.2971 416.0852 557.3045 416.0852 557.3045 C
403.9545 557.2953 L
403.9545 546.6366 403.9545 539.3438 403.9545 530.181 C
391.3098 525.9847 366.0669 495.5997 366.0669 495.5997 C
362.14 513.9253 334.7471 545.1505 307.1669 549.8251 C
307.1669 549.8251 328.6701 554.0323 338.506 565.7101 C
317.4511 571.7958 310.0845 574.4759 295.9479 584.4172 C
272.1074 598.441 257.6161 618.5418 257.6161 618.5418 C
[0 0 0 1] ka
f
n
498.3873 599.3694 m
498.8623 599.6678 511.25 588 511.477 581.6048 C
511.6147 577.723 509 555.5 497.4523 555.4254 C
491.9902 555.3901 475.0128 562.4836 475.0128 569.4501 C
475.0128 583.4747 L
482.5 589 488.25 593 498.3873 599.3694 C
f
n
205.7392 458.1877 m
217.8939 458.1877 L
223.6909 458.1877 228.5 452 230.0486 448.8379 C
230.0486 436.6832 L
230.0486 435.0938 222.5688 422.6585 216.0239 422.6585 C
212.9385 422.6585 191.7145 431.9148 191.7145 437.6182 C
191.7145 445.5655 205.7392 458.1877 205.7392 458.1877 C
f
n
271.1725 408.1846 m
276.3146 396.4981 279.1001 395.0016 288.4685 383.8767 C
295.9479 374.9949 326.8003 383.8767 326.8003 383.8767 C
312.25 373.25 250.75 327.25 236.5 321.5 C
218.9345 314.4122 161.3193 297.3965 161.3193 297.3965 C
157.5 300.75 151.9523 328.9807 127.201 347.8603 C
107.5613 362.841 105.7565 362.0152 90.2653 366.5806 C
72.5483 371.802 43.053 370.2998 43.053 370.2998 C
68.5 379.75 79.75 384.5 113.1709 384.8116 C
133.1919 384.9983 134.9789 384.5441 171.6034 376.8648 C
200.586 370.7878 224.8939 353.0243 224.8939 353.0243 C
271.1725 408.1846 L
f
n
127.201 323.5509 m
131.9696 321.8555 138.3317 317.3007 142.1534 312.8227 C
148.8164 305.0155 151.5105 296.4365 151.5105 296.4365 C
151.5105 296.4365 137.003 289.0936 124.3899 277.7632 C
113.3639 267.8584 103.9519 256.4436 101.0169 241.7687 C
100.5494 239.4314 95.4074 238.7302 94.005 246.4433 C
92.6041 254.1479 94.4724 267.9465 94.4724 267.9465 C
94.4724 267.9465 103.2604 285.616 108.4962 294.1243 C
117.285 308.2424 118.5 315 127.201 323.5509 C
f
n
427.3289 317.941 m
436.8083 318.1114 451.6384 317.941 451.6384 317.941 C
451.6384 317.941 452.0963 314.4705 451.6384 312.3311 C
449.7424 303.4735 435.4632 303.7293 412.3693 294.5665 C
387.1249 284.4688 374.5865 279.9465 368.8717 279.1656 C
358.7999 277.7893 361.3923 286.8786 361.3923 286.8786 C
361.6261 295.2929 369.084 303.4974 374.9487 314.9263 C
374.9487 314.9263 406.8697 317.5731 427.3289 317.941 C
f
n
407.2035 451.6584 m
414 452.25 429.5476 452.4064 436.6535 451.6584 C
436.6535 451.6584 446.4701 451.191 456.3132 448.8379 C
460.757 447.7756 465.5 446.1464 465.5 442.5 C
465.5 429.6908 412.25 332 410.0082 324.5092 C
388.0376 330.5862 348.4569 322.4282 313.7114 305.8108 C
281.4566 290.3846 239.3852 258.1298 239.3852 258.1298 C
273.4962 297.4235 317.7643 338.7731 351.5757 366.5806 C
401.5939 407.7172 411.8538 409.6046 422.1622 420.8061 C
422.1622 420.8061 316.9836 387.6164 305.2971 388.0838 C
293.0587 388.5733 278.6674 408.4469 278.6674 416.1137 C
278.6674 421.7235 296.4153 452.5934 296.4153 452.5934 C
316.5161 433.4275 L
350.4226 445.7434 394.7965 450.5786 407.2035 451.6584 C
f
n
548.3765 603.1156 m
549.7789 583.0148 548.1756 564.8962 542.767 554.9672 C
534.75 540.25 536.5 538.5 511.477 512.4164 C
501.1094 501.6095 461.6426 475.9523 447.8985 475.9523 C
437.2397 475.9523 424.4995 484.8481 405.8011 496.5347 C
387.1027 474.0965 380.0908 464.7473 372.1439 456.8005 C
367.25 455.5 338.4961 448.6926 325.8654 448.3862 C
320.25 448.25 308 459 302.9769 463.7975 C
302.9598 506.8188 L
293.6106 510.091 267.4328 519.4402 253.8764 524.5823 C
253.8764 524.5823 234.2431 476.4339 229.101 465.2148 C
215.0772 468.9545 204.3217 470.4189 196.3788 469.8894 C
175.3431 468.487 169.5542 468.0956 148.6978 457.268 C
120.2738 442.5116 101.9518 420.3386 101.9518 420.3386 C
108.6836 430.2494 133.5483 488.5854 196.8463 528.7894 C
202.4561 532.3423 239.3433 555.5533 254.358 556.3604 C
263.2257 556.8371 317.75 535.25 320.7415 532.9859 C
342.9023 516.2136 361.6 479.9727 364.6854 476.8872 C
409.5644 524.5711 L
412.3693 522.7012 432.8877 511.5058 451.1447 502.6116 C
460.0004 517.5828 467.0384 531.1267 479.1924 554.9672 C
489.944 549.8251 502.4621 545.9127 518.459 555.4347 C
538.0924 567.1212 539.4948 582.5474 548.3765 603.1156 C
f
n
U
vmr
%%Trailer
end  % FreeHandDict
end  % FHIODict