diff options
Diffstat (limited to 'dviware/quicspool/mffiles/logodesign.mf')
-rw-r--r-- | dviware/quicspool/mffiles/logodesign.mf | 170 |
1 files changed, 170 insertions, 0 deletions
diff --git a/dviware/quicspool/mffiles/logodesign.mf b/dviware/quicspool/mffiles/logodesign.mf new file mode 100644 index 0000000000..7ee3264afc --- /dev/null +++ b/dviware/quicspool/mffiles/logodesign.mf @@ -0,0 +1,170 @@ +% $Header: logodesign.mf,v 1.1 88/01/15 12:59:36 simpson Rel $ +% $Log: logodesign.mf,v $ +% Revision 1.1 88/01/15 12:59:36 simpson +% initial release +% +% Revision 0.2 88/01/13 12:16:31 simpson +% removed trademark notice +% +% Revision 0.1 87/12/11 19:16:34 simpson +% beta test +% +% RCS $Header: logodesign.mf,v 1.1 88/01/15 12:59:36 simpson Rel $ +% Makes the TRW logo! Whoopee! +def LOGO = +z0=(0,3.91a); + +y1=y0-1a; +fixpt(z1,z0,250); + +y2=y1; +over(z2,z1,3.46a); + +y3=y0; +z3-z2=z0-z1; + + +y4=0; fixpt(z4,z0,250); % the imaginary intersection of left of top and base + +y5=0; over(z5,z4,1.19a); + +y6=0; over(z6,z4,2.45a); + +y7=2.16a; +fixpt(z7,z6,70); + +y8=y7; z8-z5 = z7-z6; + + +fill z0--z1--z2--z3..cycle; % Top of the T +fill z5--z6--z7--z8..cycle; % Bottom of the T + +% The R requires some erasures. Tricky. + +y10=0; +over(z10,z4,3.8a); + +y11=y10; +over(z11,z4,5.01a); + +y12=2.16a; +fixpt(z12,z11,70); + +y13=y12; +z13-z10=z12-z11; + +fill z10--z11--z12--z13..cycle; % Bottom parallelogram of the R + +pair bigcenter; % Center of major (2.51 diam) circle; +bigcenter=((7.60-.26)*a-(2.51a/2),(3.91a-(2.51a/2))); + +pair littlecenter; % Center of the minor (1.08 rad) circle; +littlecenter=((7.60-.26)*a-1.08a, (3.91-1.08)*a); + +y14=3.91a; fixpt(z14,z10,70); +y15=y14-1a; fixpt(z15,z10,70); +y16=y14; x16 = xpart bigcenter; +y17=y15; x17 = x16; + +fill z14--z15--z17--z16..cycle; % Top left of the R, sort of. + +pair rvert; % the imaginary vertex of the R +ypart rvert=2.36a; +fixpt(rvert,z11,70); + +y18=0; fixpt(z18,rvert,(250+45.5)); +y19=0; x19=x18+1.29a; +x20=x18+.56a; +y21=2.15a; fixpt(z21,rvert,(250+45.5)); +path bigsemicircle; +bigsemicircle = (halfcircle scaled (2.51a) rotated (-90)) shifted bigcenter; +path crossline; + crossline = (x18+0.56a, 0)..(x18+.56a, 3a); +z100 = (x18+0.56a, 3*a*xpart (crossline intersectiontimes bigsemicircle) ); +y101 = 2.16a; x101=x100; +y102 = y101; fixpt(z102, rvert, (250+45.5)); + +fill z18--z19--z100--z101--z102..cycle; % Bottom right of the R. +fill bigsemicircle--cycle; % Top right of the R, without the extras. +fill (quartercircle scaled (1.08a*2) shifted littlecenter)--cycle; + +x103=(7.60-(.26+1.24))*a; y103 = y15; % Fill in something to carve out +y104=y103; x104 = x103-.31a; +x105=x104; y105 = y104-.31a; +y106=2.16a; x106= x103-(.9/2)*a; +y107=y106; x107=x103; + +fill z103--z104--z105--z106--z107--cycle; % Now we have to take away the circs + +path bigecirc, smallecirc; % The quarter circles to unfill +pair bigecent, smallecent; % different centers + +bigecent = (x106,(2.16a+(.9/2)*a)); +smallecent = (x104, y105); + +bigecirc = (((quartercircle rotated -90)scaled .9a) shifted bigecent) -- +bigecent--cycle; +smallecirc = ((quartercircle scaled (.31a*2)) shifted smallecent) -- smallecent + --cycle; + +unfill bigecirc; unfill smallecirc; % We can but hope. + + +% The W is a *little* easier + +z22=(7.6a,3.91a); +z23=(7.6a,2.91a); +z24=((7.6+1.19)*a, 2.91a); +z25-z24=z22-z23; + +fill z22--z23--z24--z25..cycle; % Top left rect of W + +z26=(7.6a,0); +x27=x26;y27=2.16a; +x28=x24;y28=y27; +x29=x28;y29=y28-.33a; +y30=y28; fixpt(z30,z29,70); + +pair wvert; % The bottom vertex of the w, imaginary in the hole +wvert=(9.93a,(2.16+.41)*a); + +y31=y30; fixpt(z31,wvert,(270-21.75)); +y32=0; fixpt(z32,wvert,(270-21.75)); + +fill z32--z31--z27--z26..cycle; % Bottom left of W (omit 28...30) + +pair uright; % The upper right. Determines where the bottom ends up +uright=(12.82a, 3.91a); + +x33=xpart wvert; y33=0; +y34=0; fixpt(z34,uright,(270-22.25)); +y35=2.16a; fixpt(z35,uright,(270-22.25)); +x36=x33; y36=y35; +y37=y36; x37=x22+3.35a; +x38=x37; y38=y37-.33a; +y39=y37; fixpt(z39,z38,70); + +%show z33,z34,z35,z39,z38,z37,z36; +fill z33--z34--z35--z36..cycle; % Bottom right of W (omit 39--38--37) + +z40=uright; +y41=y40; fixpt(z41,z38,70); +y42=2.91a; fixpt(z42,z38,70); +y43=y42; fixpt(z43,uright,(270-22.5)); + +fill z40--z41--z42--z43..cycle; % Upper right trapezoid of W + +z44=(x38,y40); +y45=y44; fixpt(z45,z29,70); +y46=y43; fixpt(z46,z29,70); +z47=(x44,y46); + +fill z44--z45--z46--z47..cycle; % Top middle trapezoid of W + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20); +penlabels(21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40); +penlabels(41,42,43,44,45,46,47); +penlabels(100,101,102,103,104,105,106,107); + +enddef; + |