Xref: utzoo rec.humor:28514 comp.graphics:8004 comp.lang.postscript:3055 Path: utzoo!utgpu!watmath!iuvax!purdue!bu-cs!polygen!joeg From: joeg@polygen.uucp (Joe Gaudreau) Newsgroups: rec.humor,comp.graphics,comp.lang.postscript Subject: bats bats bats halloween Keywords: bats and more bats Message-ID: <568@hepburn.UUCP> Date: 20 Oct 89 19:38:00 GMT Reply-To: joeg@polygen.UUCP (Joe Gaudreau) Organization: Polygen Corporation, Waltham, MA Lines: 147 >avon@blake.acs.washington.edu (Michael Montoure) writes: >In article <1344@sdcc13.ucsd.edu>, pa1350@sdcc13.ucsd.edu (melanie t.) writes: >> But are there any graphic buffs who will create a batman logo >> to complete it all????- Your time and talent will be GREATLY [edited] > /\_/\ > | | > /---\___/ \___/---\ > / \ > /___ ___\ > |/ \/---\/\ /\/---\/ \| > ` \ / ' > V Well, I've got one. It's postscript and it comes out rather well considering it didn't start out as a bat (more an ugly owl). Enjoy in good health. Joe -=- o / o / o / ------ x ------ Cut Here ----- x ----- Cut Here ----- x ----- Cut Here ------ o \ o \ o \ %! % "Bat" for All-Hallows-Eve (Halloween). % Created by Joe Gaudreau. % 30-Apr-1989. % Entered into the Public Domain. % Ellipse routine : % Open_Ellipse % where: rad -> max(x_width, y_width) % sclx -> (rad==x_width) ? 1 : x_width / y_width % scly -> (rad==x_width) ? y_width / x_width : 1 % centx -> x_center % centy -> y_center /Open_Ellipse { gsave newpath /cmtx matrix currentmatrix def translate scale 0 0 3 -1 roll 0 360 arc } bind def /Close_Ellipse { cmtx setmatrix grestore } bind def % Width X Y DrawBat % Draw a Bat that is Width pts wide and about (Width * .6363) pts high at (X,Y): /DrawBat { /Y exch def /X exch def /Width exch 2.0 div def /ScVal Width 140.0 div def % Draw background ellipse, 50% gray Width 1.0 0.6363 X Y Open_Ellipse 0.5 setgray fill Close_Ellipse % Black inner border of logo Width 0.9214 mul 1.0 0.6363 X Y Open_Ellipse 0 setgray 15 ScVal mul setlinewidth stroke Close_Ellipse % Bat ellipse Width 0.8071 mul 1.0 0.6363 X Y Open_Ellipse 0.0 setgray fill Close_Ellipse % Take chunk out of head gsave X Y moveto ScVal ScVal scale 19 73 rmoveto -12 -18 rlineto -14 0 rlineto -12 18 rlineto closepath 0.5 setgray fill grestore % Take upper-right curve chunk out gsave X Y moveto ScVal ScVal scale 19 73 rmoveto -4 -73 56 -53 31 -7 rcurveto closepath 0.5 setgray fill grestore % Take upper-left curve chunk out gsave X Y moveto ScVal ScVal scale -19 73 rmoveto 4 -73 -56 -53 -31 -7 rcurveto closepath 0.5 setgray fill grestore % Take lower-right chunks out gsave X Y moveto ScVal ScVal scale 43 -38 rmoveto 18 38 53 28 27 -22 rcurveto -35 -10 rlineto -35 -3 rlineto 10 53 30 53 43 35 rcurveto closepath 0.5 setgray fill grestore % Take lower-left chunks out gsave X Y moveto ScVal ScVal scale -43 -38 rmoveto -18 38 -53 28 -27 -22 rcurveto 35 -10 rlineto 35 -3 rlineto -10 53 -30 53 -43 35 rcurveto closepath 0.5 setgray fill grestore } bind def 280 300 400 DrawBat % 280 pts wide, at (300,400) bat bat bat bat... %90 rotate % full page landscape bat just remove '%' comments... %0 -612 translate %770 396 306 DrawBat showpage %EndOfFile --- Joe Gaudreau @ Polygen Corporation, Waltham, MA 02254 (617)890-2888 UUCP: {princeton,mit-eddie,buita,sunne}!polygen!joeg